Explorar el Código

+ allow int64 as for loop counter also for 32-bit targets with a 64-bit ALU

git-svn-id: branches/wasm@48229 -
nickysn hace 4 años
padre
commit
ed9b14bc20
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  1. 2 2
      compiler/pstatmnt.pas

+ 2 - 2
compiler/pstatmnt.pas

@@ -381,9 +381,9 @@ implementation
              { variable must be an ordinal, int64 is not allowed for 32bit targets }
              { variable must be an ordinal, int64 is not allowed for 32bit targets }
              if (
              if (
                  not(is_ordinal(hloopvar.resultdef))
                  not(is_ordinal(hloopvar.resultdef))
-    {$ifndef cpu64bitaddr}
+    {$if not defined(cpu64bitaddr) and not defined(cpu64bitalu)}
                  or is_64bitint(hloopvar.resultdef)
                  or is_64bitint(hloopvar.resultdef)
-    {$endif not cpu64bitaddr}
+    {$endif not cpu64bitaddr and not cpu64bitalu}
                ) and
                ) and
                (hloopvar.resultdef.typ<>undefineddef)
                (hloopvar.resultdef.typ<>undefineddef)
                then
                then