Source position: compproc.inc line 38
procedure fpc_Shortstr_SetLength(
var s: shortstring;
len: SizeInt
);