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