From b982291d5ca7b247e15bc11e8719e02615c15c58 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 7 Sep 2001 16:08:31 +0000
Subject: [PATCH] [project @ 2001-09-07 16:08:31 by sewardj] Fix compilation
 with -DDEBUG.

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

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 9160aea..a6e92c1 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.65 2001/09/04 18:29:21 ken Exp $
+ * $Id: Linker.c,v 1.66 2001/09/07 16:08:31 sewardj Exp $
  *
  * (c) The GHC Team, 2000, 2001
  *
@@ -1896,12 +1896,12 @@ do_Elf32_Rela_relocations ( ObjectCode* oc, char* ehdrC,
    for (j = 0; j < nent; j++) {
       Elf32_Addr  offset = rtab[j].r_offset;
       Elf32_Word  info   = rtab[j].r_info;
+      Elf32_Sword addend = rtab[j].r_addend;
       Elf32_Addr  P  = ((Elf32_Addr)targ) + offset;
+      Elf32_Addr  A  = addend;
       Elf32_Addr  S;
 #     if defined(sparc_TARGET_ARCH)
       /* This #ifdef only serves to avoid unused-var warnings. */
-      Elf32_Sword addend = rtab[j].r_addend;
-      Elf32_Addr  A  = addend;
       Elf32_Word* pP = (Elf32_Word*)P;
       Elf32_Word  w1, w2;
 #     endif
-- 
1.7.10.4