blob: cc9cdc0dba7f58ec6dc196262258fc0a7d05bd65 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
/* -----------------------------------------------------------------------------
*
* User-overridable RTS hooks.
*
* ---------------------------------------------------------------------------*/
#include "Rts.h"
#ifdef PAR
void
InitEachPEHook (void)
{ /* In a GUM setup this is called on each
PE immediately before SynchroniseSystem.
It can be used to read in static data
to each PE which has to be available to
each PE. See GPH-Maple as an example how to
use this in combination with foreign language
code:
http://www.risc.uni-linz.ac.at/software/ghc-maple/
-- HWL
*/
}
#endif
|
