[project @ 2005-09-12 16:01:25 by simonmar]

stg_raise thunk should be THUNK_1_0 rather than THUNK.

diff --git a/ghc/rts/Exception.cmm b/ghc/rts/Exception.cmm
index f35a9c7..cb32518 100644 (file)
--- a/ghc/rts/Exception.cmm
+++ b/ghc/rts/Exception.cmm
@@ -323,7 +323,7 @@ catchzh_fast
  * It is used in raisezh_fast to update thunks on the update list
  * -------------------------------------------------------------------------- */
 
-INFO_TABLE(stg_raise,1,0,THUNK,"raise","raise")
+INFO_TABLE(stg_raise,1,0,THUNK_1_0,"raise","raise")
 {
   R1 = StgThunk_payload(R1,0);
   jump raisezh_fast;