summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2008-07-30 12:01:34 +0000
committerIan Lynagh <igloo@earth.li>2008-07-30 12:01:34 +0000
commitaa9a4f1053d3c554629a2ec25955e7530c95b892 (patch)
tree7d9839bc410e92c7b0a6e35713fbbf03673338be /rts
parent179a3a7bd67ccc816e3b934eff770fb49c4cc456 (diff)
downloadhaskell-aa9a4f1053d3c554629a2ec25955e7530c95b892.tar.gz
Follow extensible exception changes
Diffstat (limited to 'rts')
-rw-r--r--rts/Prelude.h8
-rw-r--r--rts/PrimOps.cmm4
-rw-r--r--rts/package.conf.in8
3 files changed, 10 insertions, 10 deletions
diff --git a/rts/Prelude.h b/rts/Prelude.h
index 2acd02dfd1..f483650e7c 100644
--- a/rts/Prelude.h
+++ b/rts/Prelude.h
@@ -39,8 +39,8 @@ PRELUDE_CLOSURE(base_GHCziIOBase_stackOverflow_closure);
PRELUDE_CLOSURE(base_GHCziIOBase_heapOverflow_closure);
PRELUDE_CLOSURE(base_GHCziIOBase_BlockedOnDeadMVar_closure);
PRELUDE_CLOSURE(base_GHCziIOBase_BlockedIndefinitely_closure);
-PRELUDE_CLOSURE(base_GHCziIOBase_nonTermination_closure);
-PRELUDE_CLOSURE(base_GHCziIOBase_NestedAtomically_closure);
+PRELUDE_CLOSURE(base_ControlziException_nonTermination_closure);
+PRELUDE_CLOSURE(base_ControlziException_nestedAtomically_closure);
PRELUDE_CLOSURE(base_GHCziConc_ensureIOManagerIsRunning_closure);
@@ -89,8 +89,8 @@ PRELUDE_INFO(base_GHCziStable_StablePtr_con_info);
#define heapOverflow_closure DLL_IMPORT_DATA_REF(base_GHCziIOBase_heapOverflow_closure)
#define BlockedOnDeadMVar_closure DLL_IMPORT_DATA_REF(base_GHCziIOBase_BlockedOnDeadMVar_closure)
#define BlockedIndefinitely_closure DLL_IMPORT_DATA_REF(base_GHCziIOBase_BlockedIndefinitely_closure)
-#define nonTermination_closure DLL_IMPORT_DATA_REF(base_GHCziIOBase_nonTermination_closure)
-#define NestedAtomically_closure DLL_IMPORT_DATA_REF(base_GHCziIOBase_NestedAtomically_closure)
+#define nonTermination_closure DLL_IMPORT_DATA_REF(base_ControlziException_nonTermination_closure)
+#define NestedAtomically_closure DLL_IMPORT_DATA_REF(base_ControlziException_nestedAtomically_closure)
#define Czh_static_info DLL_IMPORT_DATA_REF(base_GHCziBase_Czh_static_info)
#define Fzh_static_info DLL_IMPORT_DATA_REF(base_GHCziFloat_Fzh_static_info)
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 99d71abbf2..b8d8ccc5a9 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -49,7 +49,7 @@ import __gmpz_com;
import pthread_mutex_lock;
import pthread_mutex_unlock;
#endif
-import base_GHCziIOBase_NestedAtomically_closure;
+import base_ControlziException_nestedAtomically_closure;
import EnterCriticalSection;
import LeaveCriticalSection;
@@ -1251,7 +1251,7 @@ atomicallyzh_fast
/* Nested transactions are not allowed; raise an exception */
if (old_trec != NO_TREC) {
- R1 = base_GHCziIOBase_NestedAtomically_closure;
+ R1 = base_ControlziException_nestedAtomically_closure;
jump raisezh_fast;
}
diff --git a/rts/package.conf.in b/rts/package.conf.in
index 045ec1f923..4dd824e35d 100644
--- a/rts/package.conf.in
+++ b/rts/package.conf.in
@@ -105,11 +105,11 @@ ld-options:
, "-u", "_base_GHCziPack_unpackCString_closure"
, "-u", "_base_GHCziIOBase_stackOverflow_closure"
, "-u", "_base_GHCziIOBase_heapOverflow_closure"
- , "-u", "_base_GHCziIOBase_nonTermination_closure"
+ , "-u", "_base_ControlziException_nonTermination_closure"
, "-u", "_base_GHCziIOBase_BlockedOnDeadMVar_closure"
, "-u", "_base_GHCziIOBase_BlockedIndefinitely_closure"
, "-u", "_base_GHCziIOBase_Deadlock_closure"
- , "-u", "_base_GHCziIOBase_NestedAtomically_closure"
+ , "-u", "_base_ControlziException_nestedAtomically_closure"
, "-u", "_base_GHCziWeak_runFinalizzerBatch_closure"
#else
"-u", "base_GHCziBase_Izh_static_info"
@@ -139,11 +139,11 @@ ld-options:
, "-u", "base_GHCziPack_unpackCString_closure"
, "-u", "base_GHCziIOBase_stackOverflow_closure"
, "-u", "base_GHCziIOBase_heapOverflow_closure"
- , "-u", "base_GHCziIOBase_nonTermination_closure"
+ , "-u", "base_ControlziException_nonTermination_closure"
, "-u", "base_GHCziIOBase_BlockedOnDeadMVar_closure"
, "-u", "base_GHCziIOBase_BlockedIndefinitely_closure"
, "-u", "base_GHCziIOBase_Deadlock_closure"
- , "-u", "base_GHCziIOBase_NestedAtomically_closure"
+ , "-u", "base_ControlziException_nestedAtomically_closure"
, "-u", "base_GHCziWeak_runFinalizzerBatch_closure"
#endif