From 0061301dbbf0f9f9256d81cb0b85cdc0bd531ded Mon Sep 17 00:00:00 2001 From: pierre Date: Fri, 8 Jan 2021 11:13:43 +0000 Subject: [PATCH] Fix compilation with -dALLOCREGDEBUG git-svn-id: trunk@48112 - --- compiler/aoptobj.pas | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/compiler/aoptobj.pas b/compiler/aoptobj.pas index fd14f81674..8b10fd0091 100644 --- a/compiler/aoptobj.pas +++ b/compiler/aoptobj.pas @@ -1382,12 +1382,10 @@ Unit AoptObj; removedSomething := false; firstRemovedWasAlloc := false; {$ifdef allocregdebug} - hp := tai_comment.Create(strpnew('allocating '+std_regname(newreg(R_INTREGISTER,supreg,R_SUBWHOLE))+ - ' from here...')); - insertllitem(asml,p1.previous,p1,hp); - hp := tai_comment.Create(strpnew('allocated '+std_regname(newreg(R_INTREGISTER,supreg,R_SUBWHOLE))+ - ' till here...')); - insertllitem(asml,p2,p2.next,hp); + hp := tai_comment.Create(strpnew('allocating '+std_regname(reg)+' from here...')); + insertllitem(p1.previous,p1,hp); + hp := tai_comment.Create(strpnew('allocated '+std_regname(reg)+' till here...')); + insertllitem(p2,p2.next,hp); {$endif allocregdebug} { do it the safe way: always allocate the full super register, as we do no register re-allocation in the peephole optimizer,