From: simonmar <unknown>
Date: Fri, 13 May 2005 14:27:09 +0000 (+0000)
Subject: [project @ 2005-05-13 14:27:09 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~558
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c7bb04e999e2bdcdb7d13bf2234b0471b4b9431c;p=ghc-hetmet.git

[project @ 2005-05-13 14:27:09 by simonmar]
gcc 4.0.0 fix: avoid casted expression as lvalue
---

diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c
index d4a4830..72e6506 100644
--- a/ghc/rts/Interpreter.c
+++ b/ghc/rts/Interpreter.c
@@ -43,7 +43,7 @@
 
 #define BCO_NEXT      instrs[bciPtr++]
 #define BCO_PTR(n)    (W_)ptrs[n]
-#define BCO_LIT(n)    (W_)literals[n]
+#define BCO_LIT(n)    literals[n]
 #define BCO_ITBL(n)   itbls[n]
 
 #define LOAD_STACK_POINTERS					\
@@ -902,7 +902,7 @@ run_BCO:
 	    int n_words = BCO_NEXT;
 	    Sp -= n_words;
 	    for (i = 0; i < n_words; i++) {
-		Sp[i] = BCO_LIT(o_lits+i);
+		Sp[i] = (W_)BCO_LIT(o_lits+i);
 	    }
 	    goto nextInsn;
 	}