From: simonmar <unknown>
Date: Thu, 13 Jan 2005 16:04:18 +0000 (+0000)
Subject: [project @ 2005-01-13 16:04:18 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1246
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2152a538c840bb2ae736426c48c4c2a0ab0b759a;p=ghc-hetmet.git

[project @ 2005-01-13 16:04:18 by simonmar]
slight simplification
---

diff --git a/ghc/rts/Exception.cmm b/ghc/rts/Exception.cmm
index e8cd4cd..0348d30 100644
--- a/ghc/rts/Exception.cmm
+++ b/ghc/rts/Exception.cmm
@@ -210,8 +210,7 @@ killThreadzh_fast
    {						\
       W_ rval;					\
       rval = Sp(0);				\
-      Sp_adj(1);				\
-      Sp = Sp + SIZEOF_StgCatchFrame - WDS(1);  \
+      Sp = Sp + SIZEOF_StgCatchFrame;		\
       Sp(0) = rval;				\
       jump ret;					\
    }