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

* Get/Unget expilit registers to be re-examined

Browse Source
This commit is contained in:
mazen 2002-10-12 19:03:23 +00:00
parent 1e9543367e
commit b845456453
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/sparc/rgcpu.pas
View File

@ -2,9 +2,6 @@
$Id$
Copyright (c) 1998-2002 by Florian Klaempfl
This unit implements the i386 specific class for the register
allocator
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
@ -21,6 +18,7 @@
****************************************************************************}
unit rgcpu;
{ This unit implements the processor specific class for the register allocator}
{$INCLUDE fpcdefs.inc}
interface
uses
@ -40,17 +38,17 @@ uses
cgobj;
function trgcpu.GetExplicitRegisterInt(list:taasmoutput;reg:tregister):tregister;
begin
if reg = R_i0
if reg in [R_O7,R_I7]
then
begin
cg.a_reg_alloc(list,Reg);
result := Reg;
end
else result := inherited GetExplicitRegisterInt(list,reg);
end;
else result := inherited GetExplicitRegisterInt(list,reg);
end;
procedure trgcpu.UngetregisterInt(list: taasmoutput; reg: tregister);
begin
if reg = R_i0
if reg in [R_O7,R_I7]
then
cg.a_reg_dealloc(list,reg)
else
@ -61,7 +59,7 @@ initialization
end.
{
$Log$
Revision 1.2 2002-10-11 13:35:14 mazen
*** empty log message ***
Revision 1.3 2002-10-12 19:03:23 mazen
* Get/Unget expilit registers to be re-examined
}