X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FLinker.c;h=64a367b5cc78014f30272a16f593f421ac9e1c8c;hb=1c169ab6d2d90c8a84abbbdf493021e562a13229;hp=9711716f08dbea3b9923a92a7c46f0c2aa271b48;hpb=36a1c1ebd3246b4e52aaa76eefbe6865be3d50a9;p=ghc-hetmet.git

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 9711716..64a367b 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.123 2003/06/26 20:48:59 panne Exp $
+ * $Id: Linker.c,v 1.124 2003/06/26 20:58:33 panne Exp $
  *
  * (c) The GHC Team, 2000-2003
  *
@@ -411,6 +411,7 @@ typedef struct _RtsSymbolVal {
       SymX(quotIntegerzh_fast)			\
       SymX(quotRemIntegerzh_fast)		\
       SymX(raisezh_fast)			\
+      SymX(raiseIOzh_fast)			\
       SymX(remIntegerzh_fast)			\
       SymX(resetNonBlockingFd)			\
       SymX(resumeThread)			\