From 7bb0f34f7e8e75d19a730891de6fe76ce96860d5 Mon Sep 17 00:00:00 2001
From: igloo <unknown>
Date: Sat, 9 Jul 2005 00:13:14 +0000
Subject: [PATCH] [project @ 2005-07-09 00:13:14 by igloo] Fix building on
 IA64.

Please merge to stable.
---
 ghc/rts/Adjustor.c |    2 +-
 ghc/rts/Linker.c   |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c
index 4eed033..0c45f8c 100644
--- a/ghc/rts/Adjustor.c
+++ b/ghc/rts/Adjustor.c
@@ -188,7 +188,7 @@ stgAllocStable(size_t size_in_bytes, StgStablePtr *stable)
   *stable = getStablePtr((StgPtr)arr);
 
   /* and return a ptr to the goods inside the array */
-  return(BYTE_ARR_CTS(arr));
+  return(&(arr->payload));
 }
 #endif
 
diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 52412dc..cb68522 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -3263,7 +3263,7 @@ ia64_extract_instruction(Elf64_Xword *target)
 {
    Elf64_Xword w1, w2;
    int slot = (Elf_Addr)target & 3;
-   (Elf_Addr)target &= ~3;
+   target = (Elf_Addr)target & ~3;
 
    w1 = *target;
    w2 = *(target+1);
@@ -3285,7 +3285,7 @@ static void
 ia64_deposit_instruction(Elf64_Xword *target, Elf64_Xword value)
 {
    int slot = (Elf_Addr)target & 3;
-   (Elf_Addr)target &= ~3;
+   target = (Elf_Addr)target & ~3;
 
    switch (slot)
    {
-- 
1.7.10.4