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

* fix compile problem related to modification

Browse Source 
of the declareation of GetIntParaLoc in the
  ancestor's declaration
This commit is contained in:
mazen 2003-06-09 21:44:14 +00:00
parent 19c9bdbf60
commit 1e7fc22124
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/sparc/cpupara.pas
View File

@ -26,6 +26,7 @@ interface
uses uses
cpubase, cpubase,
aasmtai,
symconst,symbase,symtype,symdef,paramgr; symconst,symbase,symtype,symdef,paramgr;
type type
@ -33,7 +34,7 @@ interface
{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)}
function GetIntParaLoc(nr:longint):TParaLocation;override; function GetIntParaLoc(List:TAasmOutput;nr:longint):TParaLocation;override;
{Creates location information related to the parameter of the function} {Creates location information related to the parameter of the function}
procedure create_param_loc_info(p:TAbstractProcDef);override; procedure create_param_loc_info(p:TAbstractProcDef);override;
{Returns the location where the invisible parameter for structured function {Returns the location where the invisible parameter for structured function
@ -49,7 +50,7 @@ implementation
cpuinfo,cginfo,cgbase, cpuinfo,cginfo,cgbase,
defutil; defutil;
function TSparcParaManager.GetIntParaLoc(nr:longint):TParaLocation; function TSparcParaManager.GetIntParaLoc(List:TAasmOutput;nr:longint):TParaLocation;
begin begin
if nr<1 then if nr<1 then
InternalError(2002100806); InternalError(2002100806);
@ -311,7 +312,12 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.19 2003-06-01 21:38:06 peter 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
Revision 1.19 2003/06/01 21:38:06 peter
* getregisterfpu size parameter added * getregisterfpu size parameter added
* op_const_reg size parameter added * op_const_reg size parameter added
* sparc updates * sparc updates