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-06-27 18:28:31 by sof]
[ghc-hetmet.git]
/
ghc
/
rts
/
Exception.hc
diff --git
a/ghc/rts/Exception.hc
b/ghc/rts/Exception.hc
index
a62f62e
..
2350aa3
100644
(file)
--- a/
ghc/rts/Exception.hc
+++ b/
ghc/rts/Exception.hc
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: Exception.hc,v 1.27 2003/05/14 09:13:59 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
*
@@
-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_
+}