From: brianlsmith@gmail.com <unknown>
Date: Fri, 29 Sep 2006 18:59:31 +0000 (+0000)
Subject: Remove casts from lvalues to allow compilation under GCC 4.0
X-Git-Tag: 2006-10-22~82
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=aa8e9422469f1ccb3c52444fa56aae34de799334

Remove casts from lvalues to allow compilation under GCC 4.0
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 93fca03..a8c0cdb 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -2492,14 +2492,14 @@ ocResolve_PEi386 ( ObjectCode* oc )
                    + sym->Value);
          } else {
             copyName ( sym->Name, strtab, symbol, 1000-1 );
-            (void*)S = lookupLocalSymbol( oc, symbol );
+            S = (UInt32) lookupLocalSymbol( oc, symbol );
             if ((void*)S != NULL) goto foundit;
-            (void*)S = lookupSymbol( symbol );
+            S = (UInt32) lookupSymbol( symbol );
             if ((void*)S != NULL) goto foundit;
             zapTrailingAtSign ( symbol );
-            (void*)S = lookupLocalSymbol( oc, symbol );
+            S = (UInt32) lookupLocalSymbol( oc, symbol );
             if ((void*)S != NULL) goto foundit;
-            (void*)S = lookupSymbol( symbol );
+            S = (UInt32) lookupSymbol( symbol );
             if ((void*)S != NULL) goto foundit;
 	    /* Newline first because the interactive linker has printed "linking..." */
             errorBelch("\n%s: unknown symbol `%s'", oc->fileName, symbol);