[project @ 2004-10-03 16:50:01 by panne]

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

diff --git a/ghc/rts/PrimOps.cmm b/ghc/rts/PrimOps.cmm
index 4d51394..c9556f4 100644 (file)
--- a/ghc/rts/PrimOps.cmm
+++ b/ghc/rts/PrimOps.cmm
@@ -316,6 +316,7 @@ finalizzeWeakzh_fast
   LDV_RECORD_CREATE(w);
 
   f = StgWeak_finalizer(w);
+  StgDeadWeak_link(w) = StgWeak_link(w);
 
   /* return the finalizer */
   if (f == stg_NO_FINALIZER_closure) {
@@ -933,9 +934,9 @@ isEmptyMVarzh_fast
     /* args: R1 = MVar closure */
 
     if (GET_INFO(R1) == stg_EMPTY_MVAR_info) {
-       RET_N(0);
-    } else {
        RET_N(1);
+    } else {
+       RET_N(0);
     }
 }