From: simonmar Date: Fri, 3 Sep 2004 10:11:57 +0000 (+0000) Subject: [project @ 2004-09-03 10:11:57 by simonmar] X-Git-Tag: Initial_conversion_from_CVS_complete~1641 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=aa07427aca52bcf2d76b8967aa27fe23fc8803bc;hp=dcb182ad063e95c9075bf2c8e34e7215fc38ef3d;p=ghc-hetmet.git [project @ 2004-09-03 10:11:57 by simonmar] Fix bug in isEmptyMVar# --- diff --git a/ghc/rts/PrimOps.cmm b/ghc/rts/PrimOps.cmm index 4d51394..d4a54c6 100644 --- a/ghc/rts/PrimOps.cmm +++ b/ghc/rts/PrimOps.cmm @@ -933,9 +933,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); } }