paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 15:38:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

-unused units removed from uses clause

Browse Source 
*fix related to rg which was removed
This commit is contained in:
mazen 2003-10-24 11:25:32 +00:00
parent f217753383
commit dd632de71e
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/sparc/cpupara.pas
View File

@ -27,14 +27,14 @@ interface
uses uses
cpubase,cgbase, cpubase,cgbase,
aasmtai,globtype, aasmtai,globtype,
symconst,symbase,symtype,symdef,paramgr; symconst,symtype,symdef,paramgr;
type type
TSparcParaManager=class(TParaManager) TSparcParaManager=class(TParaManager)
function copy_value_on_stack(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override; function copy_value_on_stack(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override;
function push_addr_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override; function push_addr_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override;
function get_volatile_registers_int(calloption : tproccalloption):tsuperregisterset;override; function get_volatile_registers_int(calloption : tproccalloption):TCpuRegisterSet;override;
function get_volatile_registers_fpu(calloption : tproccalloption):tsuperregisterset;override; function get_volatile_registers_fpu(calloption : tproccalloption):TCpuRegisterSet;override;
{Returns a structure giving the information on the storage of the parameter {Returns a structure giving the information on the storage of the parameter
(which must be an integer parameter) (which must be an integer parameter)
@param(nr Parameter number of routine, starting from 1)} @param(nr Parameter number of routine, starting from 1)}
@ -50,8 +50,7 @@ implementation
uses uses
verbose, verbose,
cpuinfo, defutil,cgobj;
defutil,rgobj;
function tsparcparamanager.copy_value_on_stack(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean; function tsparcparamanager.copy_value_on_stack(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;
begin begin
@ -87,13 +86,13 @@ implementation
end; end;
function tsparcparamanager.get_volatile_registers_int(calloption : tproccalloption):tsuperregisterset; function tsparcparamanager.get_volatile_registers_int(calloption : tproccalloption):TCpuRegisterSet;
begin begin
result:=[RS_G1]; result:=[RS_G1];
end; end;
function tsparcparamanager.get_volatile_registers_fpu(calloption : tproccalloption):tsuperregisterset; function tsparcparamanager.get_volatile_registers_fpu(calloption : tproccalloption):TCpuRegisterSet;
begin begin
result:=[first_fpu_supreg..last_fpu_supreg];; result:=[first_fpu_supreg..last_fpu_supreg];;
end; end;
@ -129,7 +128,7 @@ implementation
begin begin
if (loc.loc=LOC_REFERENCE) and if (loc.loc=LOC_REFERENCE) and
(loc.low_in_reg) then (loc.low_in_reg) then
rg.getexplicitregisterint(list,loc.lowreg); cg.GetExplicitRegister(list,loc.lowreg);
inherited allocparaloc(list,loc); inherited allocparaloc(list,loc);
end; end;
@ -138,7 +137,7 @@ implementation
begin begin
if (loc.loc=LOC_REFERENCE) and if (loc.loc=LOC_REFERENCE) and
(loc.low_in_reg) then (loc.low_in_reg) then
rg.ungetregisterint(list,loc.lowreg); cg.UnGetRegister(list,loc.lowreg);
inherited freeparaloc(list,loc); inherited freeparaloc(list,loc);
end; end;
@ -295,7 +294,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.33 2003-10-08 21:16:27 olle Revision 1.34 2003-10-24 11:25:32 mazen
-unused units removed from uses clause
*fix related to rg which was removed
Revision 1.33 2003/10/08 21:16:27 olle
* changed to symbolic const for alignment * changed to symbolic const for alignment
+ alignment set for function result + alignment set for function result