Source position: compproc.inc line 97
function fpc_Val_UInt_WideStr(
const S: WideString;
var Code: ValSInt
):ValUInt;