/* -----------------------------------------------------------------------------
- * $Id: Updates.hc,v 1.39 2003/03/27 13:54:32 simonmar Exp $
+ * $Id: Updates.hc,v 1.41 2003/07/28 15:57:40 simonmar Exp $
*
* (c) The GHC Team, 1998-2002
*
/* remove the update frame from the stack */ \
Sp += sizeofW(StgUpdateFrame); \
\
- /* Tick - it must be a con, all the paps are handled \
- * in stg_upd_PAP and PAP_entry below \
- */ \
+ /* ToDo: it might be a PAP, so we should check... */ \
TICK_UPD_CON_IN_NEW(sizeW_fromITBL(get_itbl(updatee))); \
\
UPD_SPEC_IND(updatee, ind_info, R1.cl, JMP_(ret)); \
VEC_POLY_INFO_TABLE( stg_upd_frame,
MK_SMALL_BITMAP(UPD_FRAME_WORDS, UPD_FRAME_BITMAP),
- 0/*srt*/, 0/*srt_off*/, 0/*srt_len*/,
+ 0/*srt*/, 0/*srt_off*/, 0/*srt_bitmap*/,
UPDATE_FRAME,, EF_);
/*-----------------------------------------------------------------------------
VEC_POLY_INFO_TABLE( stg_seq_frame,
MK_SMALL_BITMAP(0, 0),
- 0/*srt*/, 0/*srt_off*/, 0/*srt_len*/,
+ 0/*srt*/, 0/*srt_off*/, 0/*srt_bitmap*/,
RET_SMALL,, EF_);
IF_(stg_seq_frame_ret)