Commit 02b09499 authored by simonmar's avatar simonmar

[project @ 2005-03-17 13:14:59 by simonmar]

Fix +RTS -xc, which is broken in 6.4.
parent b8ced282
......@@ -285,7 +285,7 @@ catchzh_fast
/* 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) =
......@@ -330,7 +330,7 @@ raisezh_fast
* 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment