From aa51f1a4f7200cf701795e0e4cb01acda063cc16 Mon Sep 17 00:00:00 2001 From: sewardj Date: Fri, 24 Mar 2000 15:19:29 +0000 Subject: [PATCH] [project @ 2000-03-24 15:19:29 by sewardj] For INTERPRETER, track recent changes of _static_closure ==> _closure. --- ghc/rts/Prelude.c | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/ghc/rts/Prelude.c b/ghc/rts/Prelude.c index daf141d..a3e191f 100644 --- a/ghc/rts/Prelude.c +++ b/ghc/rts/Prelude.c @@ -1,6 +1,6 @@ /* ----------------------------------------------------------------------------- - * $Id: Prelude.c,v 1.3 2000/03/16 17:27:13 simonmar Exp $ + * $Id: Prelude.c,v 1.4 2000/03/24 15:19:29 sewardj Exp $ * * (c) The GHC Team, 1998-2000 * @@ -18,8 +18,8 @@ const StgClosure *ind_unpackCString_closure; const StgClosure *ind_stackOverflow_closure; const StgClosure *ind_heapOverflow_closure; const StgClosure *ind_PutFullMVar_static_closure; -const StgClosure *ind_BlockedOnDeadMVar_static_closure; -const StgClosure *ind_NonTermination_static_closure; +const StgClosure *ind_BlockedOnDeadMVar_closure; +const StgClosure *ind_NonTermination_closure; const StgClosure *ind_mainIO_closure; const StgInfoTable *ind_Czh_static_info; @@ -99,12 +99,12 @@ void fixupRTStoPreludeRefs ( void*(*ask_hugs_dynamic_linker)(char*) ) 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_BlockedOnDeadMVar_static_closure = NULL; /* BlockedOnDeadMVar_static_closure; */ - ind_NonTermination_static_closure = NULL; /* NonTermination_static_closure; */ - ind_unpackCString_closure = NULL; /* unpackCString_closure; */ + 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_BlockedOnDeadMVar_closure = NULL; /* BlockedOnDeadMVar_static_closure; */ + ind_NonTermination_closure = NULL; /* NonTermination_static_closure; */ + ind_unpackCString_closure = NULL; /* unpackCString_closure; */ ind_stackOverflow_closure = stackOverflow_closure; ind_heapOverflow_closure = heapOverflow_closure; @@ -137,10 +137,10 @@ void fixupRTStoPreludeRefs ( void*(*ask_hugs_dynamic_linker)(char*) ) = ask("PrelBase_False_static_closure"); ind_PutFullMVar_static_closure = ask("PrelException_PutFullMVar_static_closure"); - ind_BlockedOnDeadMVar_static_closure - = ask("PrelException_BlockedOnDeadMVar_static_closure"); - ind_NonTermination_static_closure - = ask("PrelException_NonTermination_static_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"); -- 1.7.10.4