//@cindex shutdownParallelSystem void shutdownParallelSystem(StgInt n) { /* use the file specified via -S */ FILE *sf = RtsFlags.GcFlags.statsFile; IF_PAR_DEBUG(verbose, if (n==0) belch("==== entered shutdownParallelSystem ..."); else belch("==== entered shutdownParallelSystem (ERROR %d)...", n); );
void closeCondition( Condition* pCond ) { if ( CloseHandle(*pCond) == 0 ) { belch("closeCondition: failed to close"); } return; }
void initCondition( Condition* pCond ) { HANDLE h = CreateEvent(NULL, FALSE, /* auto reset */ FALSE, /* initially not signalled */ NULL); /* unnamed => process-local. */ if ( h == NULL ) { belch("initCondition: unable to create"); } *pCond = h; return; }