Forráskód Böngészése

* don't hardcode the bitsize of the register states

git-svn-id: branches/hlcgllvm@26981 -
Jonas Maebe 11 éve
szülő
commit
c2c7f753a8
1 módosított fájl, 1 hozzáadás és 1 törlés
  1. 1 1
      compiler/llvm/rgllvm.pas

+ 1 - 1
compiler/llvm/rgllvm.pas

@@ -130,7 +130,7 @@ implementation
            written to more than once }
            written to more than once }
          hp:=headertai;
          hp:=headertai;
          { 2 bits per superregister, rounded up to a byte }
          { 2 bits per superregister, rounded up to a byte }
-         writtenregs:=allocmem((maxreg*2+7) shr 3);
+         writtenregs:=allocmem((maxreg*bitsizeof(twrittenregs[low(tsuperregister)])+7) shr 3);
          while assigned(hp) do
          while assigned(hp) do
            begin
            begin
              case hp.typ of
              case hp.typ of