# define NULL_REG_MAP
# include "SMinternal.h"
+#if 1 /* ndef CONCURRENT */ /* HWL */
stackData stackInfo;
+#endif
P_ stks_space = 0;
STKO_SIZE(MainStkO) = RTSflags.GcFlags.stksSize + STKO_VHS;
STKO_SpB(MainStkO) = STKO_SuB(MainStkO) = STKO_BSTK_BOT(MainStkO) + BREL(1);
STKO_SpA(MainStkO) = STKO_SuA(MainStkO) = STKO_ASTK_BOT(MainStkO) + AREL(1);
- STKO_LINK(MainStkO) = Nil_closure;
+ STKO_LINK(MainStkO) = PrelBase_Z91Z93_closure;
STKO_RETURN(MainStkO) = NULL;
ASSERT(sanityChk_StkO(MainStkO));
+
+ if (RTSflags.GcFlags.trace)
+ fprintf(stderr, "STACK init: botA, spa: 0x%lx, 0x%lx\n botB, spb: 0x%lx, 0x%lx\n",
+ (W_) STKO_ASTK_BOT(MainStkO), (W_) STKO_SpA(MainStkO), (W_) STKO_BSTK_BOT(MainStkO), (W_) STKO_SpB(MainStkO));
#endif
}
# endif
/* Initialise Stack Info and pointers */
+#if 1 /* ndef CONCURRENT */ /* HWL */
stackInfo.botA = STK_A_FRAME_BASE(stks_space, RTSflags.GcFlags.stksSize);
stackInfo.botB = STK_B_FRAME_BASE(stks_space, RTSflags.GcFlags.stksSize);
if (RTSflags.GcFlags.trace)
fprintf(stderr, "STACK init: botA, spa: 0x%lx, 0x%lx\n botB, spb: 0x%lx, 0x%lx\n",
(W_) stackInfo.botA, (W_) MAIN_SpA, (W_) stackInfo.botB, (W_) MAIN_SpB);
+#endif /* !CONCURRENT */
return rtsTrue;
}