X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLinkerInternals.h;h=f1e2677851861488c7bfb3f3be069add9b303da2;hb=153b9cb9b11e05c4edb1b6bc0a7b972660e41f70;hp=2ce7fbc7b145b447f18209358a76158b65f661a8;hpb=bfdd44b2bfec3d819fd5ce19279832c25f096bb4;p=ghc-hetmet.git

diff --git a/ghc/rts/LinkerInternals.h b/ghc/rts/LinkerInternals.h
index 2ce7fbc..f1e2677 100644
--- a/ghc/rts/LinkerInternals.h
+++ b/ghc/rts/LinkerInternals.h
@@ -39,7 +39,7 @@ typedef
 /* Jump Islands are sniplets of machine code required for relative
  * address relocations on the PowerPC.
  */
-#ifdef powerpc_TARGET_ARCH
+#ifdef powerpc_HOST_ARCH
 typedef struct {
     short lis_r12, hi_addr;
     short ori_r12_r12, lo_addr;
@@ -82,13 +82,13 @@ typedef struct _ObjectCode {
        outside one of these is an error in the linker. */
     ProddableBlock* proddables;
 
-#ifdef ia64_TARGET_ARCH
+#ifdef ia64_HOST_ARCH
     /* Procedure Linkage Table for this object */
     void *plt;
     unsigned int pltIndex;
 #endif
 
-#ifdef powerpc_TARGET_ARCH
+#ifdef powerpc_HOST_ARCH
     ppcJumpIsland   *jump_islands;
     unsigned long   island_start_symbol;
     unsigned long   n_islands;