From 77473fed866b69364296c4ce9cb59f6b8748adc6 Mon Sep 17 00:00:00 2001
From: mazen <mazen@freepascal.org>
Date: Wed, 25 Feb 2004 14:25:47 +0000
Subject: [PATCH] * fix compile problem for sparc

---
 compiler/sparc/cpubase.pas | 10 +++++++---
 compiler/sparc/cpupara.pas |  7 ++++++-
 compiler/sparc/cpupi.pas   |  7 ++++---
 3 files changed, 17 insertions(+), 7 deletions(-)

diff --git a/compiler/sparc/cpubase.pas b/compiler/sparc/cpubase.pas
index e7d1118f3e..3539ee0484 100644
--- a/compiler/sparc/cpubase.pas
+++ b/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
diff --git a/compiler/sparc/cpupara.pas b/compiler/sparc/cpupara.pas
index b18c3bb1cb..5d9e678d69 100644
--- a/compiler/sparc/cpupara.pas
+++ b/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
diff --git a/compiler/sparc/cpupi.pas b/compiler/sparc/cpupi.pas
index 5c06c95985..1ba6184370 100644
--- a/compiler/sparc/cpupi.pas
+++ b/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