Source position: compproc.inc line 48
function fpc_chararray_to_shortstr(
const arr: array [] of Char
):shortstring;