ghc/rts/hooks/ShutdownEachPEHook.c

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