/* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.36 1999/12/08 14:21:52 simonmar Exp $
+ * $Id: PrimOps.hc,v 1.38 2000/01/13 12:40:15 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
#include "Rts.h"
-#ifdef COMPILER
-
#include "RtsFlags.h"
#include "StgStartup.h"
#include "SchedAPI.h"
#endif
if (info == &FULL_MVAR_info) {
- fprintf(stderr, "putMVar#: MVar already full.\n");
- stg_exit(EXIT_FAILURE);
+ barf("putMVar#: MVar already full");
}
mvar->value = R2.cl;
FE_
}
-#endif /* COMPILER */