/* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.h,v 1.3 1999/01/13 17:25:54 simonm Exp $
+ * $Id: StgMiscClosures.h,v 1.4 1999/01/15 12:47:19 sewardj Exp $
*
* Entry code for various built-in closure types.
*
/* closures */
-extern const StgClosure END_TSO_QUEUE_closure;
-extern const StgClosure END_MUT_LIST_closure;
-extern const StgClosure dummy_ret_closure;
+extern StgClosure END_TSO_QUEUE_closure;
+extern StgClosure END_MUT_LIST_closure;
+extern StgClosure dummy_ret_closure;
extern StgIntCharlikeClosure CHARLIKE_closure[];
extern StgIntCharlikeClosure INTLIKE_closure[];
/* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.hc,v 1.3 1999/01/13 17:25:46 simonm Exp $
+ * $Id: StgMiscClosures.hc,v 1.4 1999/01/15 12:47:20 sewardj Exp $
*
* Entry code for various built-in closure types.
*
INFO_TABLE_CONSTR(END_TSO_QUEUE_info,END_TSO_QUEUE_entry,0,0,0,CONSTR_NOCAF_STATIC,const,EF_,0,0);
NON_ENTERABLE_ENTRY_CODE(END_TSO_QUEUE);
-SET_STATIC_HDR(END_TSO_QUEUE_closure,END_TSO_QUEUE_info,0/*CC*/,const,EI_)
+SET_STATIC_HDR(END_TSO_QUEUE_closure,END_TSO_QUEUE_info,0/*CC*/,,EI_)
};
/* -----------------------------------------------------------------------------
INFO_TABLE_CONSTR(END_MUT_LIST_info,END_MUT_LIST_entry,0,0,0,CONSTR_NOCAF_STATIC,const,EF_,0,0);
NON_ENTERABLE_ENTRY_CODE(END_MUT_LIST);
-SET_STATIC_HDR(END_MUT_LIST_closure,END_MUT_LIST_info,0/*CC*/,const,EI_)
+SET_STATIC_HDR(END_MUT_LIST_closure,END_MUT_LIST_info,0/*CC*/,,EI_)
};
INFO_TABLE(MUT_CONS_info, MUT_CONS_entry, 1, 1, MUT_VAR, const, EF_, 0, 0);
Sp++;
JMP_(ENTRY_CODE(ret_addr));
}
-SET_STATIC_HDR(dummy_ret_closure,dummy_ret_info,CCS_DONTZuCARE,const,EI_)
+SET_STATIC_HDR(dummy_ret_closure,dummy_ret_info,CCS_DONTZuCARE,,EI_)
};
/* -----------------------------------------------------------------------------