diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-10-23 16:54:22 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-10-23 16:54:22 +0000 |
| commit | 28cb2d6d40264796fb84da1f352490fd2b8eb27f (patch) | |
| tree | dad732659400989ce4f498b5b1d4098f5a22aafd /rts/Exception.cmm | |
| parent | c91279a1e4fd631d42ad903eaf699a96c22f380e (diff) | |
| download | haskell-28cb2d6d40264796fb84da1f352490fd2b8eb27f.tar.gz | |
Follow GHC.Bool/GHC.Types merge
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index f85e2e97e5..581dafdf4f 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -13,7 +13,7 @@ #include "Cmm.h" #include "RaiseAsync.h" -import ghczmprim_GHCziBool_True_closure; +import ghczmprim_GHCziTypes_True_closure; /* ----------------------------------------------------------------------------- Exception Primitives @@ -498,8 +498,8 @@ retry_pop_stack: Sp(5) = exception; Sp(4) = stg_raise_ret_info; Sp(3) = exception; // the AP_STACK - Sp(2) = ghczmprim_GHCziBool_True_closure; // dummy breakpoint info - Sp(1) = ghczmprim_GHCziBool_True_closure; // True <=> a breakpoint + Sp(2) = ghczmprim_GHCziTypes_True_closure; // dummy breakpoint info + Sp(1) = ghczmprim_GHCziTypes_True_closure; // True <=> a breakpoint R1 = ioAction; jump RET_LBL(stg_ap_pppv); } |