From 6cd9e5efc71c33176c5589dd05f43f3f8b2f8928 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 6 Jul 2003 22:10:56 +0000
Subject: [PATCH]   * big endian first allocates high

---
 compiler/sparc/cpupara.pas | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/compiler/sparc/cpupara.pas b/compiler/sparc/cpupara.pas
index 2ad98d017b..5565e1f364 100644
--- a/compiler/sparc/cpupara.pas
+++ b/compiler/sparc/cpupara.pas
@@ -148,15 +148,16 @@ implementation
             if NextIntReg<=RS_O5-ord(is_64bit) then
               begin
                 paraloc.loc:=LOC_REGISTER;
-                paraloc.registerlow.enum:=R_INTREGISTER;
-                paraloc.registerlow.number:=NextIntReg shl 8;
-                inc(NextIntReg);
+                { big endian }
                 if is_64bit then
                   begin
                     paraloc.registerhigh.enum:=R_INTREGISTER;
                     paraloc.registerhigh.number:=nextintreg shl 8;
                     inc(nextintreg);
                   end;
+                paraloc.registerlow.enum:=R_INTREGISTER;
+                paraloc.registerlow.number:=NextIntReg shl 8;
+                inc(NextIntReg);
               end
             else
               begin
@@ -187,9 +188,10 @@ implementation
                 hp.calleeparaloc:=paraloc;
                 if hp.calleeparaloc.loc=LOC_REGISTER then
                   begin
-                   inc(hp.calleeparaloc.registerlow.number,(RS_I0-RS_O0) shl 8);
-                   if is_64bit then
-                     inc(hp.calleeparaloc.registerhigh.number,(RS_I0-RS_O0) shl 8);
+                    { big endian }
+                    if is_64bit then
+                      inc(hp.calleeparaloc.registerhigh.number,(RS_I0-RS_O0) shl 8);
+                    inc(hp.calleeparaloc.registerlow.number,(RS_I0-RS_O0) shl 8);
                   end
                 else
                   begin
@@ -276,7 +278,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.24  2003-07-06 17:58:22  peter
+  Revision 1.25  2003-07-06 22:10:56  peter
+    * big endian first allocates high
+
+  Revision 1.24  2003/07/06 17:58:22  peter
     * framepointer fixes for sparc
     * parent framepointer code more generic