From 4e4df3e09a9718734aaf3c57810a3006d3b99c28 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 12 Sep 2005 16:01:25 +0000
Subject: [PATCH] [project @ 2005-09-12 16:01:25 by simonmar] stg_raise thunk
 should be THUNK_1_0 rather than THUNK.

---
 ghc/rts/Exception.cmm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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