Change some TARGET checks to HOST checks
[ghc-hetmet.git] / includes / stg / TailCalls.h
index 854c7b4..40c7ce7 100644 (file)
@@ -1,9 +1,14 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 1998-1999
+ * (c) The GHC Team, 1998-2009
  *
  * Stuff for implementing proper tail jumps.
  *
+ * Do not #include this file directly: #include "Rts.h" instead.
+ *
+ * To understand the structure of the RTS headers, see the wiki:
+ *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
+ *
  * ---------------------------------------------------------------------------*/
 
 #ifndef TAILCALLS_H
@@ -177,7 +182,7 @@ but uses $$dyncall if necessary to cope, just in case you aren't.
 
    -------------------------------------------------------------------------- */
 
-#ifdef hppa1_1_hp_hpux_TARGET
+#ifdef hppa1_1_hp_hpux_HOST
 
 #define JMP_(cont)                              \
     do { void *_procedure = (void *)(cont);     \
@@ -186,7 +191,7 @@ but uses $$dyncall if necessary to cope, just in case you aren't.
          goto *_procedure;                      \
        } while(0)
 
-#endif /* hppa1_1_hp_hpux_TARGET */
+#endif /* hppa1_1_hp_hpux_HOST */
 
 /* -----------------------------------------------------------------------------
    Tail calling on PowerPC