paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 17:51:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* typecast to tenumreg before updating usedregs to prevent varset usage, patch from Sergei Gorelkin

Browse Source 
git-svn-id: trunk@9296 -
This commit is contained in:
peter 2007-11-19 22:22:25 +00:00
parent 1384a13d8b
commit cb24c78d4d
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i386/daopt386.pas
View File

@ -65,8 +65,9 @@ const
{********************************* Types *********************************}
type
TRegArray = Array[RS_EAX..RS_ESP] of tsuperregister;
TRegSet = Set of RS_EAX..RS_ESP;
TRegEnum = RS_EAX..RS_ESP;
TRegArray = Array[TRegEnum] of tsuperregister;
TRegSet = Set of TRegEnum;
toptreginfo = Record
NewRegsEncountered, OldRegsEncountered: TRegSet;
RegsLoadedForRef: TRegSet;
@ -337,9 +338,9 @@ begin
begin
case tai_regalloc(p).ratype of
ra_alloc :
UsedRegs := UsedRegs + [tai_regalloc(p).reg];
Include(UsedRegs, TRegEnum(getsupreg(tai_regalloc(p).reg)));
ra_dealloc :
UsedRegs := UsedRegs - [tai_regalloc(p).reg];
Exclude(UsedRegs, TRegEnum(getsupreg(tai_regalloc(p).reg)));
end;
p := tai(p.next);
end;
@ -1151,9 +1152,9 @@ begin
begin
case tai_regalloc(p).ratype of
ra_alloc :
UsedRegs := UsedRegs + [getsupreg(tai_regalloc(p).reg)];
Include(UsedRegs, TRegEnum(getsupreg(tai_regalloc(p).reg)));
ra_dealloc :
UsedRegs := UsedRegs - [getsupreg(tai_regalloc(p).reg)];
Exclude(UsedRegs, TRegEnum(getsupreg(tai_regalloc(p).reg)));
end;
end;
p := tai(p.next);