ghc/rts/hooks/ShutdownEachPEHook.c

   1 /* -----------------------------------------------------------------------------
   2  * $Id: ShutdownEachPEHook.c,v 1.1 2001/03/22 03:51:11 hwloidl Exp $
   3  *
   4  * User-overridable RTS hooks.
   5  *
   6  * ---------------------------------------------------------------------------*/
   7
   8 #include "Rts.h"
   9
  10 #ifdef PAR
  11 void
  12 ShutdownEachPEHook (void)
  13 { /* In a GUM setup this routine is called at the end of
  14      shutdownParallelSystem on each PE. Useful for
  15      cleaning up stuff, especially when interfacing
  16      with foreign language code.
  17      -- HWL
  18   */
  19 }
  20 #endif