Commit 323ca12e authored by simonm's avatar simonm
Browse files

[project @ 1999-03-01 17:40:55 by simonm]

hppa1.1 support, first cut.
parent 44d30487
/* -----------------------------------------------------------------------------
* $Id: TailCalls.h,v 1.3 1999/02/05 16:02:31 simonm Exp $
* $Id: TailCalls.h,v 1.4 1999/03/01 17:40:55 simonm Exp $
*
* (c) The GHC Team, 1998-1999
*
......@@ -89,13 +89,26 @@ register void *_procedure __asm__("$27");
#endif alpha_TARGET_ARCH
/*
/* -----------------------------------------------------------------------------
Tail calling on HP
-------------------------------------------------------------------------- */
#ifdef hppa1_1_hp_hpux_TARGET
#define JMP_(cont) \
do { void *_procedure = (void *)(cont); \
goto *_procedure; \
} while(0)
#endif /* hppa1_1_hp_hpux_TARGET */
/* -----------------------------------------------------------------------------
FUNBEGIN and FUNEND.
These are markers indicating the start and end of Real Code in a
function. All instructions between the actual start and end of the
function and these markers is shredded by the mangler.
*/
-------------------------------------------------------------------------- */
#ifndef FB_
#define FB_ __asm__ volatile ("--- BEGIN ---");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment