Source position: compproc.inc line 157
procedure fpc_WideStr_SetLength(
var S: WideString;
l: SizeInt
);