Bladeren bron

* asizeint => longint, it is unlikely that an variant record well ever have more than 2^31 branches

git-svn-id: trunk@24260 -
florian 12 jaren geleden
bovenliggende
commit
e1233e0111
2 gewijzigde bestanden met toevoegingen van 3 en 3 verwijderingen
  1. 1 1
      compiler/pinline.pas
  2. 2 2
      compiler/symdef.pas

+ 1 - 1
compiler/pinline.pas

@@ -76,7 +76,7 @@ implementation
         storepos : tfileposinfo;
         variantdesc : pvariantrecdesc;
         found : boolean;
-        j,i : ASizeInt;
+        j,i : longint;
         variantselectsymbol : tfieldvarsym;
       begin
         if target_info.system in systems_managed_vm then

+ 2 - 2
compiler/symdef.pas

@@ -3465,7 +3465,7 @@ implementation
 
       procedure readvariantrecdesc(var variantrecdesc : pvariantrecdesc);
         var
-          i,j : asizeint;
+          i,j : longint;
         begin
          if ppufile.getbyte=1 then
            begin
@@ -3607,7 +3607,7 @@ implementation
 
       procedure writevariantrecdesc(variantrecdesc : pvariantrecdesc);
         var
-          i,j : asizeint;
+          i,j : longint;
         begin
          if assigned(variantrecdesc) then
            begin