[project @ 1998-11-09 08:42:36 by sof]

avoid uncessary gcc warning

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index be886a4..52b177b 100644 (file)
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -596,7 +596,7 @@ fexportEntry c_nm helper args res cc =
 
   startTemplate =
     vcat 
-      [ text "extern realWorldZh_closure;"
+      [ text "extern void* realWorldZh_closure;"
       , ptext SLIT("STGFUN") <> parens (h_stub_nm)
       , lbrace
       ,  ptext SLIT("FUNBEGIN;")