From: simonmar <unknown>
Date: Mon, 12 Sep 2005 16:01:25 +0000 (+0000)
Subject: [project @ 2005-09-12 16:01:25 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~222
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4e4df3e09a9718734aaf3c57810a3006d3b99c28;p=ghc-hetmet.git

[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
--- 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;