Source position: systemh.inc line 748
function SarInt64(
const AValue: Int64;
const Shift: Byte = 1
):Int64;