[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 (file)
--- 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;                                        \
    }