/* -----------------------------------------------------------------------------
- * $Id: Prelude.c,v 1.5 2000/04/03 17:27:10 sewardj Exp $
+ * $Id: Prelude.c,v 1.9 2000/08/07 23:37:23 qrczak Exp $
*
* (c) The GHC Team, 1998-2000
*
const StgClosure *ind_True_closure;
const StgClosure *ind_False_closure;
const StgClosure *ind_unpackCString_closure;
+const StgClosure *ind_runFinalizerBatch_closure;
+
const StgClosure *ind_stackOverflow_closure;
const StgClosure *ind_heapOverflow_closure;
const StgClosure *ind_PutFullMVar_closure;
const StgClosure *ind_BlockedOnDeadMVar_closure;
const StgClosure *ind_NonTermination_closure;
-const StgClosure *ind_mainIO_closure;
const StgInfoTable *ind_Czh_static_info;
const StgInfoTable *ind_Izh_static_info;
0,sizeofW(StgWord),0,CONSTR_NOCAF_STATIC,,EF_,0,0);
INFO_TABLE_CONSTR(hugs_standalone_StablePtr_static_info,Hugs_CONSTR_entry,
0,sizeofW(StgStablePtr),0,CONSTR_NOCAF_STATIC,,EF_,0,0);
+
+#ifdef XMLAMBDA
+/* The Inj constructor: data Inj = forall a. Inj a Int#
+ Since this one is not present in Haskell compiled stuff, we bind it statically.
+*/
+INFO_TABLE_CONSTR(xmlambda_Inj_con_info,Hugs_CONSTR_entry,
+ sizeofW(StgPtr),sizeofW(StgInt),0,CONSTR,,EF_,0,0);
+
+const StgInfoTable* ind_Inj_con_info = &xmlambda_Inj_con_info;
+#endif /* XMLAMBDA */
+
#endif
*/
void fixupRTStoPreludeRefs ( void*(*ask_hugs_dynamic_linker)(char*) )
{
+ (void)ask_hugs_dynamic_linker; /* keep gcc -Wall happy */
#if defined(INTERPRETER)
if (ask_hugs_dynamic_linker == NULL) {
/* Hugs standalone mode. */
ind_True_closure = NULL; /* True__closure; */
ind_False_closure = NULL; /* False_closure; */
+ ind_runFinalizerBatch_closure = NULL; /* runFinalizerBatch_closure; */
ind_PutFullMVar_closure = NULL; /* PutFullMVar_closure; */
ind_BlockedOnDeadMVar_closure = NULL; /* BlockedOnDeadMVar_closure; */
ind_NonTermination_closure = NULL; /* NonTermination_closure; */
= ask("PrelBase_True_closure");
ind_False_closure
= ask("PrelBase_False_closure");
+ ind_runFinalizerBatch_closure
+ = ask("PrelWeak_runFinalizzerBatch_closure");
ind_PutFullMVar_closure
= ask("PrelException_PutFullMVar_closure");
ind_BlockedOnDeadMVar_closure
{
int i;
- for(i=0;i<=255;i++)
+ for(i=0; i<=MAX_CHARLIKE-MIN_CHARLIKE; i++)
(CHARLIKE_closure[i]).header.info = Czh_static_info;
- for(i=0;i<=32;i++)
+ for(i=0; i<=MAX_INTLIKE-MIN_INTLIKE; i++)
(INTLIKE_closure[i]).header.info = Izh_static_info;
}
#endif