|
@@ -62,3 +62,9 @@ Procedure ReadStr(Const S : String; Args : Arguments);
|
|
|
Procedure Pack(Const A : UnpackedArrayType; StartIndex : TIndexType; Out Z : PackedArrayType);
|
|
|
Procedure UnPack(Const Z : PackedArrayType; Out A : UnpackedArrayType; StartIndex : TIndexType);
|
|
|
|
|
|
+{$IFNDEF GO32V2}
|
|
|
+Var
|
|
|
+ mem : array[0..$7fffffff-1] of byte;
|
|
|
+ memw : array[0..($7fffffff div sizeof(word))-1] of word;
|
|
|
+ meml : array[0..($7fffffff div sizeof(longint))-1] of longint;
|
|
|
+{$ENDIF}
|