projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change some TARGET checks to HOST checks
[ghc-hetmet.git]
/
includes
/
stg
/
TailCalls.h
diff --git
a/includes/stg/TailCalls.h
b/includes/stg/TailCalls.h
index
854c7b4
..
40c7ce7
100644
(file)
--- 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.
*
*
* 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
* ---------------------------------------------------------------------------*/
#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); \
#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)
goto *_procedure; \
} while(0)
-#endif /* hppa1_1_hp_hpux_TARGET */
+#endif /* hppa1_1_hp_hpux_HOST */
/* -----------------------------------------------------------------------------
Tail calling on PowerPC
/* -----------------------------------------------------------------------------
Tail calling on PowerPC