[project @ 2005-03-10 14:03:28 by simonmar]

[ghc-hetmet.git] / ghc / rts / Exception.cmm

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