{
$Id: rgcpu.pas,v 1.16 2003/10/01 20:34:49 peter Exp $
Copyright (c) 1998-2002 by Florian Klaempfl
This unit implements the powerpc 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
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************
}
unit rgcpu;
{$i fpcdefs.inc}
interface
uses
aasmbase,aasmtai,
cpubase,
rgobj;
type
trgcpu = class(trgobj)
{
function getexplicitregisterint(list: taasmoutput; reg: Tnewregister): tregister; override;
procedure ungetregisterint(list: taasmoutput; reg: tregister); override;
function getexplicitregisterfpu(list : taasmoutput; r : Toldregister) : tregister;override;
procedure ungetregisterfpu(list: taasmoutput; r : tregister; size:TCGsize);override;
procedure cleartempgen; override;
private
usedpararegs: Tsupregset;
usedparafpuregs: tregisterset;
}
end;
implementation
uses
cgobj, verbose, cutils;
(*
function trgcpu.getexplicitregisterint(list: taasmoutput; reg: Tnewregister): tregister;
begin
if ((reg shr 8) in [RS_R0]) and
not((reg shr 8) in is_reg_var_int) then
begin
if (reg shr 8) in usedpararegs then
internalerror(2003060701);
{ comment(v_warning,'Double allocation of register '+tostr((reg shr 8)-1));}
include(usedpararegs,reg shr 8);
result.enum:=R_INTREGISTER;
result.number:=reg;
cg.a_reg_alloc(list,result);
end
else result := inherited getexplicitregisterint(list,reg);
end;
procedure trgcpu.ungetregisterint(list: taasmoutput; reg: tregister);
begin
if ((reg.number shr 8) in [RS_R0]) and
not((reg.number shr 8) in is_reg_var_int) then
begin
if not((reg.number shr 8) in usedpararegs) then
internalerror(2003060702);
{ comment(v_warning,'Double free of register '+tostr((reg.number shr 8)-1));}
exclude(usedpararegs,reg.number shr 8);
cg.a_reg_dealloc(list,reg);
end
else
inherited ungetregisterint(list,reg);
end;
function trgcpu.getexplicitregisterfpu(list : taasmoutput; r : Toldregister) : tregister;
begin
if (r in [R_F1..R_F13]) and
not is_reg_var_other[r] then
begin
if r in usedparafpuregs then
internalerror(2003060902);
include(usedparafpuregs,r);
result.enum := r;
cg.a_reg_alloc(list,result);
end
else
result := inherited getexplicitregisterfpu(list,r);
end;
procedure trgcpu.ungetregisterfpu(list: taasmoutput; r : tregister; size:TCGsize);
begin
if (r.enum in [R_F1..R_F13]) and
not is_reg_var_other[r.enum] then
begin
if not(r.enum in usedparafpuregs) then
internalerror(2003060903);
exclude(usedparafpuregs,r.enum);
cg.a_reg_dealloc(list,r);
end
else
inherited ungetregisterfpu(list,r,size);
end;
procedure trgcpu.cleartempgen;
begin
inherited cleartempgen;
usedpararegs := [];
usedparafpuregs := [];
end;
*)
end.
{
$Log: rgcpu.pas,v $
Revision 1.16 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose
* fixed ppc and sparc compiles
Revision 1.15 2003/09/14 17:27:56 jonas
- removed initialization code
Revision 1.14 2003/09/03 19:35:24 peter
* powerpc compiles again
Revision 1.13 2003/07/06 15:27:44 jonas
* make sure all registers except r0 are handled by the register
allocator for -dnewra
Revision 1.12 2003/06/17 16:34:44 jonas
* lots of newra fixes (need getfuncretparaloc implementation for i386)!
* renamed all_intregisters to volatile_intregisters and made it
processor dependent
Revision 1.11 2003/06/14 22:32:43 jonas
* ppc compiles with -dnewra, haven't tried to compile anything with it
yet though
Revision 1.10 2003/06/12 22:09:54 jonas
* tcginnode.pass_2 doesn't call a helper anymore in any case
* fixed ungetregisterfpu compilation problems
Revision 1.9 2003/06/09 14:54:26 jonas
* (de)allocation of registers for parameters is now performed properly
(and checked on the ppc)
- removed obsolete allocation of all parameter registers at the start
of a procedure (and deallocation at the end)
Revision 1.8 2003/06/07 18:57:04 jonas
+ added freeintparaloc
* ppc get/freeintparaloc now check whether the parameter regs are
properly allocated/deallocated (and get an extra list para)
* ppc a_call_* now internalerrors if pi_do_call is not yet set
* fixed lot of missing pi_do_call's
Revision 1.7 2003/05/24 13:38:04 jonas
* don't save callee-save registers in the caller as well (the ppc code
that we generate is slow enough as it is without resorting to doing
double work :)
Revision 1.6 2003/04/22 10:09:35 daniel
+ Implemented the actual register allocator
+ Scratch registers unavailable when new register allocator used
+ maybe_save/maybe_restore unavailable when new register allocator used
Revision 1.5 2003/02/19 22:00:16 daniel
* Code generator converted to new register notation
- Horribily outdated todo.txt removed
Revision 1.4 2003/01/08 18:43:58 daniel
* Tregister changed into a record
Revision 1.3 2002/07/07 09:44:32 florian
* powerpc target fixed, very simple units can be compiled
Revision 1.2 2002/05/16 19:46:53 carl
+ defines.inc -> fpcdefs.inc to avoid conflicts if compiling by hand
+ try to fix temp allocation (still in ifdef)
+ generic constructor calls
+ start of tassembler / tmodulebase class cleanup
Revision 1.1 2002/04/06 18:13:02 jonas
* several powerpc-related additions and fixes
}
syntax highlighted by Code2HTML, v. 0.9.1