Selaa lähdekoodia

* set the default range type of arrays to ptrsinttype rather
than s32inttype (so it's correct for 64 bit platforms too)

git-svn-id: trunk@20107 -

Jonas Maebe 13 vuotta sitten
vanhempi
commit
bab8e5da5a
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

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