From: sewardj <unknown>
Date: Wed, 28 Apr 1999 12:42:45 +0000 (+0000)
Subject: [project @ 1999-04-28 12:42:45 by sewardj]
X-Git-Tag: Approximately_9120_patches~6279
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e797eb4c1e928e37c6f0314a065e92621b723b9f;p=ghc-hetmet.git

[project @ 1999-04-28 12:42:45 by sewardj]
Change PK_DBL and ASSIGN_DBL macros for sparc so they only reference their
arguments once.
---

diff --git a/ghc/includes/StgMacros.h b/ghc/includes/StgMacros.h
index 89d6cef..92feeae 100644
--- a/ghc/includes/StgMacros.h
+++ b/ghc/includes/StgMacros.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgMacros.h,v 1.8 1999/04/27 12:31:40 simonm Exp $
+ * $Id: StgMacros.h,v 1.9 1999/04/28 12:42:45 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -475,12 +475,15 @@ static inline StgDouble PK_DBL    (W_ p_src[])                 { return *(StgDou
  */
 #if sparc_TARGET_ARCH
 
-#define ASSIGN_DBL(dst,src) \
+#define ASSIGN_DBL(dst0,src) \
+    { StgPtr dst = (StgPtr)(dst0); \
       __asm__("st %2,%0\n\tst %R2,%1" : "=m" (((P_)(dst))[0]), \
-	"=m" (((P_)(dst))[1]) : "f" (src));
+	"=m" (((P_)(dst))[1]) : "f" (src)); \
+    }
 
-#define PK_DBL(src) \
-    ( { register double d; \
+#define PK_DBL(src0) \
+    ( { StgPtr src = (StgPtr)(src0); \
+        register double d; \
       __asm__("ld %1,%0\n\tld %2,%R0" : "=f" (d) : \
 	"m" (((P_)(src))[0]), "m" (((P_)(src))[1])); d; \
     } )