X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLinker.c;h=1d4711e9c4ef4f6080ea42e0e726fab51f0c9350;hb=2cc5b907318f97e19b28b2ad8ed9ff8c1f401dcc;hp=4eeaf51d2b73c5d0ee5d05b3dd89137b27c5c1da;hpb=c5ab800077547700cfacc6f9d0d3fe5e25f2a147;p=ghc-hetmet.git

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 4eeaf51..1d4711e 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.82 2002/02/04 16:30:20 sewardj Exp $
+ * $Id: Linker.c,v 1.83 2002/02/12 15:17:22 simonmar Exp $
  *
  * (c) The GHC Team, 2000, 2001
  *
@@ -161,7 +161,7 @@ typedef struct _RtsSymbolVal {
       Maybe_ForeignObj				\
       Maybe_Stable_Names			\
       Sym(StgReturn)				\
-      Sym(__stginit_PrelGHC)			\
+      Sym(__stginit_GHCziPrim)			\
       Sym(init_stack)				\
       SymX(__stg_chk_0)				\
       SymX(__stg_chk_1)				\