/* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.142 2002/09/17 12:11:44 simonmar Exp $
+ * $Id: GC.c,v 1.143 2002/09/18 06:34:07 mthomas Exp $
*
* (c) The GHC Team 1998-1999
*
Now, Now));
#endif
+#ifndef mingw32_TARGET_OS
// block signals
blockUserSignals();
+#endif
// tell the stats department that we've started a GC
stat_startGC();
// ok, GC over: tell the stats department what happened.
stat_endGC(allocated, collected, live, copied, N);
+#ifndef mingw32_TARGET_OS
// unblock signals again
unblockUserSignals();
+#endif
//PAR_TICKY_TP();
}
/* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.154 2002/09/17 12:20:15 simonmar Exp $
+ * $Id: Schedule.c,v 1.155 2002/09/18 06:34:07 mthomas Exp $
*
* (c) The GHC Team, 1998-2000
*
markSparkQueue(evac);
#endif
+#ifndef mingw32_TARGET_OS
// mark the signal handlers (signals should be already blocked)
markSignalHandlers(evac);
+#endif
}
/* -----------------------------------------------------------------------------