Source position: compproc.inc line 75
procedure fpc_shortstr_qword(
v: qword;
len: SizeInt;
var s: shortstring
);