Kaynağa Gözat

* Added mem,memw, meml for documentation purposes

git-svn-id: trunk@17229 -
michael 14 yıl önce
ebeveyn
işleme
87d156e885
1 değiştirilmiş dosya ile 6 ekleme ve 0 silme
  1. 6 0
      rtl/inc/system.fpd

+ 6 - 0
rtl/inc/system.fpd

@@ -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}