rts/parallel/ParTypes.h

   1 /* ---------------------------------------------------------------------------
   2  * Time-stamp: <Tue Nov 09 1999 16:31:38 Stardate: [-30]3873.44 hwloidl>
   3  *
   4  * Runtime system types for GUM
   5  *
   6  * ------------------------------------------------------------------------- */
   7
   8 #ifndef PARTYPES_H
   9 #define PARTYPES_H
  10
  11 #ifdef PAR /* all of it */
  12
  13 // now in Parallel.h
  14 //typedef struct hashtable  HashTable;
  15 //typedef struct hashlist   HashList;
  16
  17 /* Global addresses now live in Parallel.h (needed in Closures.h) */
  18 // gaddr
  19
  20 // now in Parallel.h
  21 /* (GA, LA) pairs
  22 typedef struct gala {
  23     globalAddr   ga;
  24     StgPtr       la;
  25     struct gala *next;
  26     rtsBool      preferred;
  27 } rtsGaLa;
  28 */
  29
  30 #if defined(GRAN)
  31 typedef unsigned long TIME;
  32 typedef unsigned char Proc;
  33 typedef unsigned char EVTTYPE;
  34 #endif
  35
  36 #endif /* PAR */
  37
  38 #endif /* ! PARTYPES_H */