Răsfoiți Sursa

* Make pointer to array conversion 64-bit safe.

git-svn-id: trunk@7886 -
daniel 18 ani în urmă
părinte
comite
9a3c692bb3
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

@@ -2148,7 +2148,7 @@ implementation
     constructor tarraydef.create_from_pointer(def:tdef);
       begin
          { use -1 so that the elecount will not overflow }
-         self.create(0,$7fffffff-1,s32inttype);
+         self.create(0,high(aint-1),s32inttype);
          arrayoptions:=[ado_IsConvertedPointer];
          setelementdef(def);
       end;