projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-03-17 13:14:59 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
Exception.cmm
diff --git
a/ghc/rts/Exception.cmm
b/ghc/rts/Exception.cmm
index
0348d30
..
edabf54
100644
(file)
--- a/
ghc/rts/Exception.cmm
+++ b/
ghc/rts/Exception.cmm
@@
-285,7
+285,7
@@
catchzh_fast
/* Set up the catch frame */
Sp = Sp - SIZEOF_StgCatchFrame;
/* Set up the catch frame */
Sp = Sp - SIZEOF_StgCatchFrame;
- SET_HDR(Sp,stg_catch_frame_info,CCCS);
+ SET_HDR(Sp,stg_catch_frame_info,W_[CCCS]);
StgCatchFrame_handler(Sp) = R2;
StgCatchFrame_exceptions_blocked(Sp) =
StgCatchFrame_handler(Sp) = R2;
StgCatchFrame_exceptions_blocked(Sp) =
@@
-330,7
+330,7
@@
raisezh_fast
* the info was only displayed for an *uncaught* exception.
*/
if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags)) {
* the info was only displayed for an *uncaught* exception.
*/
if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags)) {
- foreign "C" fprintCCS(stderr,CCCS);
+ foreign "C" fprintCCS(stderr,W_[CCCS]);
}
#endif
}
#endif