Source position: expat_basics.pas line 55
function shr_int8(
i: ShortInt;
shift: ShortInt
):ShortInt;