/* -----------------------------------------------------------------------------
- * $Id: StgCRun.c,v 1.7 1999/07/27 13:29:08 simonmar Exp $
+ * $Id: StgCRun.c,v 1.8 1999/11/03 15:00:21 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
#if 0
-extern StgThreadReturnCode StgRun(StgFunPtr f)
+extern StgThreadReturnCode StgRun(StgFunPtr f, StgRegTable *basereg)
{
jmp_buf save_buf;
/* Save jmp_environment for previous call to miniInterpret */
#else
-extern StgThreadReturnCode StgRun(StgFunPtr f)
+extern StgThreadReturnCode StgRun(StgFunPtr f, StgRegTable *basereg)
{
char* nm;
while ( f ) {
#ifdef sparc_TARGET_ARCH
StgThreadReturnCode
-StgRun(StgFunPtr f) {
+StgRun(StgFunPtr f, StgRegTable *basereg) {
StgChar space[RESERVED_C_STACK_BYTES+sizeof(void *)];
register void *i7 __asm__("%i7");
#ifdef alpha_TARGET_ARCH
StgThreadReturnCode
-StgRun(StgFunPtr f)
+StgRun(StgFunPtr f, StgRegTable *basereg)
{
__asm__ volatile ("stq $9,-8($30)\n\t"
"stq $10,-16($30)\n\t"
#ifdef hppa1_1_TARGET_ARCH
StgThreadReturnCode
-StgRun(StgFunPtr f)
+StgRun(StgFunPtr f, StgRegTable *basereg)
{
StgChar space[RESERVED_C_STACK_BYTES+16*sizeof(long)+10*sizeof(double)];
StgThreadReturnCode ret;