* Copyright (c) 1994-1998.
*
* $RCSfile: Evaluator.c,v $
- * $Revision: 1.56 $
- * $Date: 2000/06/23 12:09:00 $
+ * $Revision: 1.57 $
+ * $Date: 2000/10/09 10:28:33 $
* ---------------------------------------------------------------------------*/
#include "Rts.h"
SSS; \
cap->rCurrentTSO->sp = gSp; \
cap->rCurrentTSO->su = gSu; \
- cap->rCurrentTSO->splim = gSpLim; \
return retVal; \
}
gSp = cap->rCurrentTSO->sp;
gSu = cap->rCurrentTSO->su;
- gSpLim = cap->rCurrentTSO->splim;
+ gSpLim = cap->rCurrentTSO->stack + RESERVED_STACK_WORDS;
#ifdef DEBUG
/* use the t values to check that Su/Sp/SpLim do not change unexpectedly */
cap->rCurrentTSO->why_blocked = BlockedOnDelay;
ACQUIRE_LOCK(&sched_mutex);
-#if defined(HAVE_SETITIMER) || defined(mingw32_TARGET_OS)
+#if defined(HAVE_SETITIMER) /* || defined(mingw32_TARGET_OS) */
cap->rCurrentTSO->block_info.delay
= hugsBlock.delay + ticks_since_select;
#else
Case(i_VAR_WORD_big):
Case(i_RETADDR_big):
Case(i_ALLOC_PAP):
-
+#ifndef XMLAMBDA
Case(i_UNPACK_INJ):
Case(i_UNPACK_ROW):
Case(i_TEST_INJ_CONST):
Case(i_PACK_ROW):
Case(i_ALLOC_ROW_big):
Case(i_ALLOC_ROW):
-
+#endif
bciPtr--;
printf ( "\n\n" );
disInstr ( bco, PC );
/* -----------------------------------------------------------------------------
- * $Id: ForeignCall.c,v 1.18 2000/08/07 23:37:23 qrczak Exp $
+ * $Id: ForeignCall.c,v 1.19 2000/10/09 10:28:33 daan Exp $
*
* (c) The GHC Team 1994-1999.
*
PushPtr((StgPtr)(*bco));
cap->rCurrentTSO->sp = MainRegTable.rSp;
cap->rCurrentTSO->su = MainRegTable.rSu;
- cap->rCurrentTSO->splim = MainRegTable.rSpLim;
token = suspendThread(cap);
#if i386_TARGET_ARCH
cap = resumeThread(token);
MainRegTable.rSp = cap->rCurrentTSO->sp;
MainRegTable.rSu = cap->rCurrentTSO->su;
- MainRegTable.rSpLim = cap->rCurrentTSO->splim;
*bco=(StgBCO*)PopPtr();
/* INT, WORD, ADDR, STABLE don't need to do a word-size check