* fix compile problem for sparc

compiler/sparc/cpubase.pas

@@ -227,11 +227,12 @@ type
         TLocation isn't used, because contains a lot of unnessary fields.
       }
       tparalocation = packed record
-         size : TCGSize;
+         Size : TCGSize;
          { The location type where the parameter is passed, usually
            LOC_REFERENCE,LOC_REGISTER or LOC_FPUREGISTER
          }
-         loc  : TCGLoc;
+         Loc  : TCGLoc;
+         LocHigh : TCGLoc;
          {Word alignment on stack 4 --> 32 bit}
          Alignment:Byte;
          case TCGLoc of
@@ -551,7 +552,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.60  2004-01-12 22:11:39  peter
+  Revision 1.61  2004-02-25 14:25:47  mazen
+  * fix compile problem for sparc
+
+  Revision 1.60  2004/01/12 22:11:39  peter
     * use localalign info for alignment for locals and temps
     * sparc fpu flags branching added
     * moved powerpc copy_valye_openarray to generic

compiler/sparc/cpupara.pas

@@ -103,6 +103,7 @@ implementation
         if nr<1 then
           InternalError(2002100806);
         FillChar(GetIntParaLoc,SizeOf(TParaLocation),0);
+        result.lochigh:=LOC_INVALID;
         Dec(nr);
         with GetIntParaLoc do
          begin
@@ -239,6 +240,7 @@ implementation
 {$ifndef cpu64bit}
             if paraloc.size in [OS_64,OS_S64] then
              begin
+               paraloc.lochigh:=LOC_REGISTER;
                if side=callerside then
                  paraloc.register64.reglo:=NR_FUNCTION_RESULT64_LOW_REG
                else
@@ -294,7 +296,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.35  2003-11-10 19:05:50  peter
+  Revision 1.36  2004-02-25 14:25:47  mazen
+  * fix compile problem for sparc
+
+  Revision 1.35  2003/11/10 19:05:50  peter
     * fixed alias/colouring > 255
 
   Revision 1.34  2003/10/24 11:25:32  mazen

compiler/sparc/cpupi.pas

@@ -33,8 +33,6 @@ interface
 
   type
     TSparcProcInfo=class(tcgprocinfo)
-    private
-      maxpushedparasize : longint;
     public
       constructor create(aparent:tprocinfo);override;
       procedure allocate_push_parasize(size:longint);override;
@@ -89,7 +87,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.23  2004-01-12 22:11:39  peter
+  Revision 1.24  2004-02-25 14:25:47  mazen
+  * fix compile problem for sparc
+
+  Revision 1.23  2004/01/12 22:11:39  peter
     * use localalign info for alignment for locals and temps
     * sparc fpu flags branching added
     * moved powerpc copy_valye_openarray to generic