/* -----------------------------------------------------------------------------
- * $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
*
#ifdef USE_MINIINTERPRETER
-#define JMP_(cont) return(stgCast(StgFunPtr,cont))
+#define JMP_(cont) return((StgFunPtr)(cont))
#define FB_
#define FE_
#ifdef alpha_TARGET_ARCH
+#if IN_STG_CODE
register void *_procedure __asm__("$27");
+#endif
#define JMP_(cont) \
do { _procedure = (void *)(cont); \