From 2152a538c840bb2ae736426c48c4c2a0ab0b759a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 13 Jan 2005 16:04:18 +0000
Subject: [PATCH] [project @ 2005-01-13 16:04:18 by simonmar] slight
 simplification

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

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