Source position: compproc.inc line 42
function fpc_shortstr_compare(
const left: shortstring;
const right: shortstring
):LongInt;