/* -----------------------------------------------------------------------------
*
- * (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
-------------------------------------------------------------------------- */
-#ifdef hppa1_1_hp_hpux_TARGET
+#ifdef hppa1_1_hp_hpux_HOST
#define JMP_(cont) \
do { void *_procedure = (void *)(cont); \
goto *_procedure; \
} while(0)
-#endif /* hppa1_1_hp_hpux_TARGET */
+#endif /* hppa1_1_hp_hpux_HOST */
/* -----------------------------------------------------------------------------
Tail calling on PowerPC