Selaa lähdekoodia

* don't hardcode the bitsize of the register states

git-svn-id: branches/hlcgllvm@26981 -
Jonas Maebe 11 vuotta sitten
vanhempi
commit
c2c7f753a8
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  1. 1 1
      compiler/llvm/rgllvm.pas

+ 1 - 1
compiler/llvm/rgllvm.pas

@@ -130,7 +130,7 @@ implementation
            written to more than once }
          hp:=headertai;
          { 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
            begin
              case hp.typ of