Source position: tos.pas line 309
function mshrink(
zero: Word;
block: pointer;
newsiz: LongInt
):LongInt;