Source position: expatbasics.pas line 246
function shr_int16(
i: SmallInt;
shift: SmallInt
):SmallInt;