paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +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;
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