paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small regalloc fix

Browse Source
This commit is contained in:
Jonas Maebe 2000-04-16 16:46:43 +00:00
parent ceee365722
commit f648aaf986
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/popt386.pas
View File

@ -1,4 +1,4 @@
{
{
$Id$
Copyright (c) 1998-2000 by Florian Klaempfl and Jonas Maebe
@ -1083,6 +1083,12 @@ Begin
(Paicpu(p)^.opsize = Paicpu(hp1)^.opsize) and
RefsEqual(Paicpu(hp1)^.oper[0].ref^,Paicpu(p)^.oper[1].ref^) then
Begin
allocregbetween(asml,Paicpu(hp1)^.oper[1].reg,p,hp1);
{ allocregbetween doesn't insert this because at }
{ this time, no regalloc info is available in }
{ the optinfo field, so do it manually (JM) }
hp2 := new(paiRegalloc,alloc(Paicpu(hp1)^.oper[1].reg));
insertllitem(asml,p^.previous,p,hp2);
Paicpu(hp1)^.LoadReg(0,Paicpu(hp1)^.oper[1].reg);
Paicpu(hp1)^.LoadRef(1,newreference(Paicpu(p)^.oper[1].ref^));
Paicpu(p)^.LoadReg(1,Paicpu(hp1)^.oper[0].reg);
@ -1906,7 +1912,10 @@ End.
{
$Log$
Revision 1.90 2000-03-26 10:58:47 jonas
Revision 1.91 2000-04-16 16:46:43 jonas
* small regalloc fix
Revision 1.90 2000/03/26 10:58:47 jonas
* some more allocRegBetween fixes (-al didn't function previously
if the compiler was compiled with -OG2p3r)