X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrimOps.hc;h=84ecf27840eef35e6f7d4553a3d30cd204a07813;hb=5706d07c74e75cb1cf6125f6d758f11264fa04ef;hp=8d9be51ae4e95f3c54da81f886a4df3b34df9163;hpb=cae7e8ce5c4f627277e1c01bcac22b523ede857c;p=ghc-hetmet.git diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc index 8d9be51..84ecf27 100644 --- a/ghc/rts/PrimOps.hc +++ b/ghc/rts/PrimOps.hc @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: PrimOps.hc,v 1.27 1999/05/13 17:31:11 simonm Exp $ + * $Id: PrimOps.hc,v 1.28 1999/07/14 13:42:28 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -867,7 +867,6 @@ FN_(putMVarzh_fast) mvar = (StgMVar *)R1.p; if (GET_INFO(mvar) == &FULL_MVAR_info) { - fflush(stdout); fprintf(stderr, "putMVar#: MVar already full.\n"); stg_exit(EXIT_FAILURE); }