Remove a redundant type sig
[ghc-hetmet.git] / rts / parallel / Dist.h
1 #ifndef __DIST_H
2 #define __DIST_H
3
4 #ifdef DIST 
5
6 #include "Rts.h"
7
8 typedef StgWord32 StgPEId;
9
10 // interface functions for Haskell Language calls
11 StgWord32 cGetPECount(void);
12 StgPEId cGetPEId(StgWord32 n);
13 StgPEId cGetMyPEId(void);
14 StgPEId cGetCertainOwner(StgClosure *mv);
15 void cRevalIO(StgClosure *job,StgPEId p);
16 StgPEId cGetHostOwner(StgByteArray h);
17
18 #endif /* DIST */
19
20 #endif /* __DIST_H */