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

* fixed my previous completely broken commit. It's not perfect though,

Browse Source 
registers > last_supreg and < max_intreg may still be "translated"
This commit is contained in:
Jonas Maebe 2003-07-06 15:00:47 +00:00
parent b1917a614b
commit 80d6905b7b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/rgobj.pas
View File

@ -1967,8 +1967,6 @@ unit rgobj;
{ retain their value }
for i := 1 to first_supreg-1 do
colour[i] := i;
for i := last_supreg+1 to high(colour) do
colour[i] := i;
{$ifdef ra_debug}
for i:=first_imreg to maxintreg do
writeln(i:4,' ',colour[i]:4)
@ -2461,7 +2459,11 @@ end.
{
$Log$
Revision 1.58 2003-07-06 14:45:05 jonas
Revision 1.59 2003-07-06 15:00:47 jonas
* fixed my previous completely broken commit. It's not perfect though,
registers > last_supreg and < max_intreg may still be "translated"
Revision 1.58 2003/07/06 14:45:05 jonas
* support integer registers that are not managed by newra (ie. don't
translate register numbers that fall outside the range
first_supreg..last_supreg)