projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-08-08 08:08:47 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
Exception.hc
diff --git
a/ghc/rts/Exception.hc
b/ghc/rts/Exception.hc
index
fea85dd
..
2350aa3
100644
(file)
--- a/
ghc/rts/Exception.hc
+++ b/
ghc/rts/Exception.hc
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: Exception.hc,v 1.26 2002/12/11 15:36:42 simonmar Exp $
+ * $Id: Exception.hc,v 1.29 2003/06/26 20:47:08 panne Exp $
*
* (c) The GHC Team, 1998-2000
*
*
* (c) The GHC Team, 1998-2000
*
@@
-280,7
+280,7
@@
CATCH_FRAME_ENTRY_TEMPLATE(stg_catch_frame_7_ret,RET_VEC(Sp[SP_OFF],7));
VEC_POLY_INFO_TABLE(stg_catch_frame, \
MK_SMALL_BITMAP(CATCH_FRAME_WORDS, CATCH_FRAME_BITMAP), \
VEC_POLY_INFO_TABLE(stg_catch_frame, \
MK_SMALL_BITMAP(CATCH_FRAME_WORDS, CATCH_FRAME_BITMAP), \
- NULL/*srt*/, 0/*srt_off*/, 0/*srt_len*/, CATCH_FRAME,, EF_);
+ NULL/*srt*/, 0/*srt_off*/, 0/*srt_bitmap*/, CATCH_FRAME,, EF_);
/* -----------------------------------------------------------------------------
* The catch infotable
/* -----------------------------------------------------------------------------
* The catch infotable
@@
-350,7
+350,7
@@
FN_(raisezh_fast)
StgPtr p;
StgClosure *raise_closure;
FB_
StgPtr p;
StgClosure *raise_closure;
FB_
- /* args : R1 = exception */
+ /* args : R1.p :: Exception */
#if defined(PROFILING)
#if defined(PROFILING)
@@
-459,3
+459,11
@@
FN_(raisezh_fast)
JMP_(stg_ap_p_ret);
FE_
}
JMP_(stg_ap_p_ret);
FE_
}
+
+FN_(raiseIOzh_fast)
+{
+ FB_
+ /* Args :: R1.p :: Exception */
+ JMP_(raisezh_fast);
+ FE_
+}