From c7bb04e999e2bdcdb7d13bf2234b0471b4b9431c Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 13 May 2005 14:27:09 +0000
Subject: [PATCH] [project @ 2005-05-13 14:27:09 by simonmar] gcc 4.0.0 fix:
 avoid casted expression as lvalue

---
 ghc/rts/Interpreter.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
 	}
-- 
1.7.10.4