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

* fixed bug in allocregbetween (the register wasn't added to the

Browse Source 
usedregs set of the last instruction of the chain) ("merged")
This commit is contained in:
Jonas Maebe 2000-10-19 15:59:40 +00:00
parent 064b9eda9b
commit 837c2124a6
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/i386/daopt386.pas
View File

@ -1165,11 +1165,16 @@ Begin
Not(p1^.typ in SkipInstr);
Until not(assigned(p1)) or
(p1 = p2);
if assigned(p1) and lastRemovedWasDealloc then
if assigned(p1) then
begin
hp := new(paiRegalloc,dealloc(reg));
insertLLItem(asmL,p1,p1^.next,hp);
end;
if assigned(p1^.optinfo) then
include(PPaiProp(p1^.OptInfo)^.UsedRegs,Reg);
if lastRemovedWasDealloc then
begin
hp := new(paiRegalloc,dealloc(reg));
insertLLItem(asmL,p1,p1^.next,hp);
end;
end;
End;
@ -2357,7 +2362,11 @@ End.
{
$Log$
Revision 1.1 2000-10-15 09:47:43 peter
Revision 1.2 2000-10-19 15:59:40 jonas
* fixed bug in allocregbetween (the register wasn't added to the
usedregs set of the last instruction of the chain) ("merged")
Revision 1.1 2000/10/15 09:47:43 peter
* moved to i386/
Revision 1.16 2000/10/14 10:14:47 peter