Source position: compproc.inc line 127
procedure fpc_AnsiStr_SetLength(
var S: AnsiString;
l: SizeInt
);