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

* wrong testregisters32 placement corrected

Browse Source
This commit is contained in:
pierre 1999-08-24 09:07:04 +00:00
parent e999954220
commit 87847fac70
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pass_2.pas
View File

@ -270,8 +270,8 @@ implementation
oldcodegenerror:=codegenerror; oldcodegenerror:=codegenerror;
oldlocalswitches:=aktlocalswitches; oldlocalswitches:=aktlocalswitches;
oldpos:=aktfilepos; oldpos:=aktfilepos;
testregisters32;
{$ifdef TEMPREGDEBUG} {$ifdef TEMPREGDEBUG}
testregisters32;
prevp:=curptree; prevp:=curptree;
curptree:=@p; curptree:=@p;
p^.usableregs:=usablereg32; p^.usableregs:=usablereg32;
@ -664,7 +664,10 @@ implementation
end. end.
{ {
$Log$ $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 + TEMPREGDEBUG code, test of register allocation
if a tree uses more than registers32 regs then if a tree uses more than registers32 regs then
internalerror(10) is issued internalerror(10) is issued