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

* freeintparaloc

Browse Source
This commit is contained in:
peter 2003-06-17 16:36:59 +00:00
parent f50aba2839
commit c642c454a2
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/sparc/cpupara.pas
View File

@ -34,7 +34,8 @@ interface
{Returns a structure giving the information on the storage of the parameter
(which must be an integer parameter)
@param(nr Parameter number of routine, starting from 1)}
function GetIntParaLoc(List:TAasmOutput;nr:longint):TParaLocation;override;
function getintparaloc(list: taasmoutput; nr : longint) : tparalocation;override;
procedure freeintparaloc(list: taasmoutput; nr : longint); override;
{Creates location information related to the parameter of the function}
procedure create_param_loc_info(p:TAbstractProcDef);override;
{Returns the location where the invisible parameter for structured function
@ -48,7 +49,7 @@ implementation
uses
verbose,
cpuinfo,cginfo,cgbase,
defutil;
defutil,rgobj;
function TSparcParaManager.GetIntParaLoc(List:TAasmOutput;nr:longint):TParaLocation;
begin
@ -64,6 +65,7 @@ implementation
loc:=LOC_REGISTER;
register.enum:=R_INTREGISTER;
register.number:=(RS_I0+nr) shl 8;
rg.getexplicitregisterint(list,register.number);
end
else
{ The other parameters are passed into the frame }
@ -78,6 +80,24 @@ implementation
end;
procedure tsparcparamanager.freeintparaloc(list: taasmoutput; nr : longint);
var
r: tregister;
begin
if nr<1 then
internalerror(2003060401);
Dec(nr);
if nr<6 then
begin
r.enum := R_INTREGISTER;
r.number:=(RS_I0+nr) shl 8;
rg.ungetregisterint(list,r);
end;
end;
function GetParaLoc(p:TDef):TCGLoc;
begin
{ Later, the LOC_REFERENCE is in most cases changed into
@ -312,7 +332,10 @@ begin
end.
{
$Log$
Revision 1.20 2003-06-09 21:44:14 mazen
Revision 1.21 2003-06-17 16:36:59 peter
* freeintparaloc
Revision 1.20 2003/06/09 21:44:14 mazen
* fix compile problem related to modification
of the declareation of GetIntParaLoc in the
ancestor's declaration