projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-08-13 13:04:50 by simonmar]
[ghc-hetmet.git]
/
ghc
/
includes
/
TailCalls.h
diff --git
a/ghc/includes/TailCalls.h
b/ghc/includes/TailCalls.h
index
950d8f1
..
a61695e
100644
(file)
--- a/
ghc/includes/TailCalls.h
+++ b/
ghc/includes/TailCalls.h
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: TailCalls.h,v 1.13 2003/08/29 16:00:26 simonmar Exp $
+ * $Id: TailCalls.h,v 1.16 2004/08/13 13:09:41 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
*
* (c) The GHC Team, 1998-1999
*
@@
-16,7
+16,7
@@
#ifdef USE_MINIINTERPRETER
#ifdef USE_MINIINTERPRETER
-#define JMP_(cont) return(stgCast(StgFunPtr,cont))
+#define JMP_(cont) return((StgFunPtr)(cont))
#define FB_
#define FE_
#define FB_
#define FE_
@@
-98,7
+98,9
@@
extern void __DISCARD__(void);
#ifdef alpha_TARGET_ARCH
#ifdef alpha_TARGET_ARCH
+#if IN_STG_CODE
register void *_procedure __asm__("$27");
register void *_procedure __asm__("$27");
+#endif
#define JMP_(cont) \
do { _procedure = (void *)(cont); \
#define JMP_(cont) \
do { _procedure = (void *)(cont); \