From: sewardj <unknown>
Date: Fri, 31 Aug 2001 14:32:03 +0000 (+0000)
Subject: [project @ 2001-08-31 14:32:03 by sewardj]
X-Git-Tag: Approximately_9120_patches~1037
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ad75daecbeadf59809c4309d8ee35282513d3e59;p=ghc-hetmet.git

[project @ 2001-08-31 14:32:03 by sewardj]
Fix Linux compile b0rkage.  Darn.

MERGE TO STABLE BRANCH
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 63684dc..1f958cb 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.61 2001/08/31 11:44:12 sewardj Exp $
+ * $Id: Linker.c,v 1.62 2001/08/31 14:32:03 sewardj Exp $
  *
  * (c) The GHC Team, 2000, 2001
  *
@@ -1923,7 +1923,7 @@ do_Elf32_Rela_relocations ( ObjectCode* oc, char* ehdrC,
       }
       IF_DEBUG(linker,fprintf ( stderr, "Reloc: P = %p   S = %p   A = %p\n",
                                         (void*)P, (void*)S, (void*)A )); 
-      checkProddableBlock ( oc, pP );
+      checkProddableBlock ( oc, P );
       switch (ELF32_R_TYPE(info)) {
 #        if defined(sparc_TARGET_ARCH)
          case R_SPARC_WDISP30: