paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 17:50:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't hardcode the bitsize of the register states

Browse Source 
git-svn-id: branches/hlcgllvm@26981 -
This commit is contained in:
Jonas Maebe 2014-03-06 21:40:18 +00:00
parent 839ad45b9e
commit c2c7f753a8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/llvm/rgllvm.pas
View File

@ -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