X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLinker.c;h=fe2f3ca0430c56b47d6dc17f140166ee9f0e9b3d;hb=433cdcade29d3a887e4db32b241b98a0eadb39d0;hp=a12ad22214871ee7e481f621adcd2f6230408a13;hpb=6ea86573500e4a576d22feec71e36cf27c94aaa9;p=ghc-hetmet.git

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index a12ad22..fe2f3ca 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.53 2001/07/22 03:28:25 chak Exp $
+ * $Id: Linker.c,v 1.54 2001/07/26 03:13:37 ken Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -515,6 +515,9 @@ lookupSymbol( char *lbl )
            if (sym != NULL) return sym;
         }
         return NULL;
+#       else
+        ASSERT(2+2 == 5);
+        return NULL;
 #       endif
     } else {
 	return val;