From: panne <unknown>
Date: Thu, 26 Jun 2003 20:48:59 +0000 (+0000)
Subject: [project @ 2003-06-26 20:48:59 by panne]
X-Git-Tag: Approx_11550_changesets_converted~733
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=140e373e1319078e1f3b084f2e2b39a35cf39d45

[project @ 2003-06-26 20:48:59 by panne]
Warning police: Fixed Sym macro to generate a real function prototype
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 03fc676..9711716 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.122 2003/06/24 08:29:13 stolz Exp $
+ * $Id: Linker.c,v 1.123 2003/06/26 20:48:59 panne Exp $
  *
  * (c) The GHC Team, 2000-2003
  *
@@ -575,7 +575,7 @@ typedef struct _RtsSymbolVal {
 #endif
 
 /* entirely bogus claims about types of these symbols */
-#define Sym(vvv)  extern void vvv();
+#define Sym(vvv)  extern void vvv(void);
 #define SymX(vvv) /**/
 #define SymX_redirect(vvv,xxx) /**/
 RTS_SYMBOLS