diff --git a/compiler/pass_2.pas b/compiler/pass_2.pas index 3fa816c159..070a46b890 100644 --- a/compiler/pass_2.pas +++ b/compiler/pass_2.pas @@ -270,8 +270,8 @@ implementation oldcodegenerror:=codegenerror; oldlocalswitches:=aktlocalswitches; oldpos:=aktfilepos; - testregisters32; {$ifdef TEMPREGDEBUG} + testregisters32; prevp:=curptree; curptree:=@p; p^.usableregs:=usablereg32; @@ -664,7 +664,10 @@ implementation end. { $Log$ - Revision 1.32 1999-08-23 23:25:59 pierre + Revision 1.33 1999-08-24 09:07:04 pierre + * wrong testregisters32 placement corrected + + Revision 1.32 1999/08/23 23:25:59 pierre + TEMPREGDEBUG code, test of register allocation if a tree uses more than registers32 regs then internalerror(10) is issued