From ad75daecbeadf59809c4309d8ee35282513d3e59 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 31 Aug 2001 14:32:03 +0000
Subject: [PATCH] [project @ 2001-08-31 14:32:03 by sewardj] Fix Linux compile
 b0rkage.  Darn.

MERGE TO STABLE BRANCH
---
 ghc/rts/Linker.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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: 
-- 
1.7.10.4