/* -----------------------------------------------------------------------------
- * $Id: StgCRun.c,v 1.35 2002/06/07 09:40:10 matthewc Exp $
+ * $Id: StgCRun.c,v 1.38 2003/01/31 17:29:46 wolfgang Exp $
*
* (c) The GHC Team, 1998-2000
*
extern StgThreadReturnCode StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED)
{
while (f) {
- IF_DEBUG(evaluator,
+ IF_DEBUG(interpreter,
fprintf(stderr,"Jumping to ");
printPtr((P_)f); fflush(stdout);
fprintf(stderr,"\n");
"_StgRun:\n"
"\tmflr r0\n"
"\tbl saveFP # f14\n"
- "\tstmw r14,-216(r1)\n"
- "\tstwu r1,-8480(r1)\n"
+ "\tstmw r13,-220(r1)\n"
+ "\tstwu r1,-%0(r1)\n"
"\tmtctr r3\n"
"\tmr r12,r3\n"
"\tbctr\n"
".globl _StgReturn\n"
"_StgReturn:\n"
"\tmr r3,r14\n"
- "\tla r1,8480(r1)\n"
- "\tlmw r14,-216(r1)\n"
+ "\tla r1,%0(r1)\n"
+ "\tlmw r13,-220(r1)\n"
"\tb restFP # f14\n"
- );
+ : : "i"(RESERVED_C_STACK_BYTES+288 /*stack frame size*/));
}
#endif