X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Fstg%2FTailCalls.h;h=40c7ce73a3d00cbfa4170c080a0bf58995d2a217;hb=f07b01e57f4c08a68e22eb81f25c865d1d7c15c3;hp=854c7b4b186830d5edba146c435626cd804c3143;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/includes/stg/TailCalls.h b/includes/stg/TailCalls.h
index 854c7b4..40c7ce7 100644
--- a/includes/stg/TailCalls.h
+++ b/includes/stg/TailCalls.h
@@ -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