Source position: uPSRuntime.pas line 1096
procedure PSDynArraySetLength(
var arr: Pointer;
aType: TPSTypeRec;
NewLength: LongInt
);