From 3632cd73aea509a079721dc9f590fc296b229b2f Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 10 Sep 2002 21:24:38 +0000
Subject: [PATCH]   * fixed a_param64_ref

---
 compiler/cg64f32.pas | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

diff --git a/compiler/cg64f32.pas b/compiler/cg64f32.pas
index c7f7af679f..e226cbaccf 100644
--- a/compiler/cg64f32.pas
+++ b/compiler/cg64f32.pas
@@ -442,16 +442,22 @@ unit cg64f32;
     procedure tcg64f32.a_param64_ref(list : taasmoutput;const r : treference;const locpara : tparalocation);
       var
         tmpref: treference;
+        tmploc: tparalocation;
       begin
-{$warning FIX ME}
         tmpref := r;
         inc(tmpref.offset,4);
-        cg.a_param_ref(list,OS_32,tmpref,locpara);
-        { the nr+1 needs definitivly a fix FK }
-        { maybe the parameter numbering needs }
-        { to take care of this on 32 Bit      }
-        { systems FK                          }
-        cg.a_param_ref(list,OS_32,r,locpara);
+        tmploc := locpara;
+        tmploc.registerlow:=tmploc.registerhigh;
+        if target_info.endian = endian_big then
+          begin
+            cg.a_param_ref(list,OS_32,tmpref,tmploc);
+            cg.a_param_ref(list,OS_32,r,locpara);
+          end
+        else
+          begin
+            cg.a_param_ref(list,OS_32,tmpref,locpara);
+            cg.a_param_ref(list,OS_32,r,locpara);
+          end;
       end;
 
 
@@ -732,7 +738,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.28  2002-09-07 15:25:00  peter
+  Revision 1.29  2002-09-10 21:24:38  jonas
+    * fixed a_param64_ref
+
+  Revision 1.28  2002/09/07 15:25:00  peter
     * old logs removed and tabs fixed
 
   Revision 1.27  2002/08/19 18:17:47  carl