Browse Source

* fix compile problem related to modification
of the declareation of GetIntParaLoc in the
ancestor's declaration

mazen 22 years ago
parent
commit
1e7fc22124
1 changed files with 9 additions and 3 deletions
  1. 9 3
      compiler/sparc/cpupara.pas

+ 9 - 3
compiler/sparc/cpupara.pas

@@ -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