From: simonmar <unknown>
Date: Mon, 25 Apr 2005 13:17:59 +0000 (+0000)
Subject: [project @ 2005-04-25 13:17:59 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~677
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c63c56c217688c53eccd9aee1ebf1fd495f5f779;p=ghc-hetmet.git

[project @ 2005-04-25 13:17:59 by simonmar]
stg_raise: we should by using StgThunk_payload(), not StgClosure_payload()
---

diff --git a/ghc/rts/Exception.cmm b/ghc/rts/Exception.cmm
index 1c5d47c..f8d305e 100644
--- a/ghc/rts/Exception.cmm
+++ b/ghc/rts/Exception.cmm
@@ -311,7 +311,7 @@ catchzh_fast
 
 INFO_TABLE(stg_raise,1,0,THUNK,"raise","raise")
 {
-  R1 = StgClosure_payload(R1,0);
+  R1 = StgThunk_payload(R1,0);
   jump raisezh_fast;
 }