Source position: compproc.inc line 138
function fpc_WideStr_To_ShortStr(
high_of_res: SizeInt;
const S2: WideString
):shortstring;