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

Fix compilation with -dALLOCREGDEBUG

Browse Source 
git-svn-id: trunk@48112 -
This commit is contained in:
pierre 2021-01-08 11:13:43 +00:00
parent a78332ae7f
commit 0061301dbb
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/aoptobj.pas
View File

@ -1382,12 +1382,10 @@ Unit AoptObj;
removedSomething := false; removedSomething := false;
firstRemovedWasAlloc := false; firstRemovedWasAlloc := false;
{$ifdef allocregdebug} {$ifdef allocregdebug}
hp := tai_comment.Create(strpnew('allocating '+std_regname(newreg(R_INTREGISTER,supreg,R_SUBWHOLE))+ hp := tai_comment.Create(strpnew('allocating '+std_regname(reg)+' from here...'));
' from here...')); insertllitem(p1.previous,p1,hp);
insertllitem(asml,p1.previous,p1,hp); hp := tai_comment.Create(strpnew('allocated '+std_regname(reg)+' till here...'));
hp := tai_comment.Create(strpnew('allocated '+std_regname(newreg(R_INTREGISTER,supreg,R_SUBWHOLE))+ insertllitem(p2,p2.next,hp);
' till here...'));
insertllitem(asml,p2,p2.next,hp);
{$endif allocregdebug} {$endif allocregdebug}
{ do it the safe way: always allocate the full super register, { do it the safe way: always allocate the full super register,
as we do no register re-allocation in the peephole optimizer, as we do no register re-allocation in the peephole optimizer,