Explorar o código

* Fixed r46801 for the case of int64 params with a single paralocation.

git-svn-id: trunk@46802 -
yury %!s(int64=4) %!d(string=hai) anos
pai
achega
d34168742e
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/ncgutil.pas

+ 1 - 1
compiler/ncgutil.pas

@@ -633,7 +633,7 @@ implementation
                 
                 
                 Spilling of sub registers is supported for x86.
                 Spilling of sub registers is supported for x86.
               }
               }
-              if regsize>tcgsize2size[paraloc^.Size] then
+              if (paraloc<>nil) and (regsize>tcgsize2size[paraloc^.Size]) then
                 break;
                 break;
 {$endif x86}
 {$endif x86}
               cg.rg[regtype].set_reg_initial_location(reg,loc.reference);
               cg.rg[regtype].set_reg_initial_location(reg,loc.reference);