/* -----------------------------------------------------------------------------
- * $Id: Prelude.c,v 1.2 2000/03/14 14:34:47 sewardj Exp $
+ * $Id: Prelude.c,v 1.6 2000/04/14 16:47:43 panne Exp $
*
* (c) The GHC Team, 1998-2000
*
#include "Prelude.h"
#if defined(INTERPRETER)
-const StgClosure *ind_True_static_closure;
-const StgClosure *ind_False_static_closure;
+const StgClosure *ind_True_closure;
+const StgClosure *ind_False_closure;
const StgClosure *ind_unpackCString_closure;
const StgClosure *ind_stackOverflow_closure;
const StgClosure *ind_heapOverflow_closure;
-const StgClosure *ind_PutFullMVar_static_closure;
-const StgClosure *ind_NonTermination_static_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;
*/
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_static_closure = NULL; /* True_static_closure; */
- ind_False_static_closure = NULL; /* False_static_closure; */
- ind_PutFullMVar_static_closure = NULL; /* PutFullMVar_static_closure; */
- ind_NonTermination_static_closure = NULL; /* NonTermination_static_closure; */
- ind_unpackCString_closure = NULL; /* unpackCString_closure; */
+ ind_True_closure = NULL; /* True__closure; */
+ ind_False_closure = NULL; /* False_closure; */
+ ind_PutFullMVar_closure = NULL; /* PutFullMVar_closure; */
+ ind_BlockedOnDeadMVar_closure = NULL; /* BlockedOnDeadMVar_closure; */
+ ind_NonTermination_closure = NULL; /* NonTermination_closure; */
+ ind_unpackCString_closure = NULL; /* unpackCString_closure; */
ind_stackOverflow_closure = stackOverflow_closure;
ind_heapOverflow_closure = heapOverflow_closure;
/* Hugs combined mode. */
void*(*ask)(char*) = ask_hugs_dynamic_linker;
- ind_True_static_closure
- = ask("PrelBase_True_static_closure");
- ind_False_static_closure
- = ask("PrelBase_False_static_closure");
- ind_PutFullMVar_static_closure
- = ask("PrelException_PutFullMVar_static_closure");
- ind_NonTermination_static_closure
- = ask("PrelException_NonTermination_static_closure");
+ ind_True_closure
+ = ask("PrelBase_True_closure");
+ ind_False_closure
+ = ask("PrelBase_False_closure");
+ ind_PutFullMVar_closure
+ = ask("PrelException_PutFullMVar_closure");
+ ind_BlockedOnDeadMVar_closure
+ = ask("PrelException_BlockedOnDeadMVar_closure");
+ ind_NonTermination_closure
+ = ask("PrelException_NonTermination_closure");
ind_unpackCString_closure = ask("PrelPack_unpackCString_closure");
ind_stackOverflow_closure = ask("PrelException_stackOverflow_closure");