Source position: compproc.inc line 94
function fpc_Val_UInt_Shortstr(
const S: ShortString;
var Code: ValSInt
):ValUInt;