From: simonmar <unknown>
Date: Mon, 12 Feb 2001 12:22:01 +0000 (+0000)
Subject: [project @ 2001-02-12 12:22:01 by simonmar]
X-Git-Tag: Approximately_9120_patches~2673
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3cf7519556ab1b4c7aa49094a0a8d73f06828979;p=ghc-hetmet.git

[project @ 2001-02-12 12:22:01 by simonmar]
add some assertions
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 940f39e..4f2a456 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.22 2001/02/11 17:51:07 simonmar Exp $
+ * $Id: Linker.c,v 1.23 2001/02/12 12:22:01 simonmar Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -285,6 +285,7 @@ void *
 lookupSymbol( char *lbl )
 {
     SymbolVal *val;
+    ASSERT(symhash != NULL);
     val = lookupStrHashTable(symhash, lbl);
 
     if (val == NULL) {
@@ -415,6 +416,9 @@ unloadObj( char *path )
 {
     ObjectCode *oc, *prev;
 
+    ASSERT(symhash != NULL);
+    ASSERT(objects != NULL);
+
     prev = NULL;
     for (oc = objects; oc; prev = oc, oc = oc->next) {
 	if (!strcmp(oc->fileName,path)) {
@@ -1290,6 +1294,8 @@ ocGetNames_ELF ( ObjectCode* oc )
    Elf32_Shdr* shdr       = (Elf32_Shdr*) (ehdrC + ehdr->e_shoff);
    char*       sh_strtab  = ehdrC + shdr[ehdr->e_shstrndx].sh_offset;
 
+   ASSERT(symhash != NULL);
+
    if (!strtab) {
       belch("ocGetNames_ELF: no strtab");
       return 0;