浏览代码

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

git-svn-id: trunk@24260 -
florian 12 年之前
父节点
当前提交
e1233e0111
共有 2 个文件被更改,包括 3 次插入3 次删除
  1. 1 1
      compiler/pinline.pas
  2. 2 2
      compiler/symdef.pas

+ 1 - 1
compiler/pinline.pas

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

+ 2 - 2
compiler/symdef.pas

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