From: sewardj <unknown>
Date: Thu, 15 Feb 2001 17:22:15 +0000 (+0000)
Subject: [project @ 2001-02-15 17:22:15 by sewardj]
X-Git-Tag: Approximately_9120_patches~2616
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b8644e3d49014e2f06db088936b643f9d62c7573;p=ghc-hetmet.git

[project @ 2001-02-15 17:22:15 by sewardj]
Correct usage info for tryPutMVar#.
---

diff --git a/ghc/compiler/prelude/primops.txt b/ghc/compiler/prelude/primops.txt
index 1d3d99a..5ea03c4 100644
--- a/ghc/compiler/prelude/primops.txt
+++ b/ghc/compiler/prelude/primops.txt
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------
--- $Id: primops.txt,v 1.16 2001/02/14 12:59:35 simonmar Exp $
+-- $Id: primops.txt,v 1.17 2001/02/15 17:22:15 sewardj Exp $
 --
 -- Primitive Operations
 --
@@ -1020,7 +1020,7 @@ primop  TryPutMVarOp "tryPutMVar#" GenPrimOp
    MVar# s a -> a -> State# s -> (# State# s, Int# #)
    with
    strictness       = { \ arity -> StrictnessInfo [wwPrim, wwLazy, wwPrim] False }
-   usage            = { mangle PutMVarOp [mkM, mkM, mkP] mkR }
+   usage            = { mangle TryPutMVarOp [mkM, mkM, mkP] mkR }
    has_side_effects = True
    out_of_line      = True