Source position: compproc.inc line 95
function fpc_Val_UInt_AnsiStr(
const S: AnsiString;
var Code: ValSInt
):ValUInt;