Source position: gemdos.pas line 251
function gemdos_mshrink(
zero: Word;
block: pointer;
newsiz: LongInt
):LongInt;