Source position: compproc.inc line 162
function fpc_PWideChar_To_ShortStr(
const p: PWideChar
):shortstring;