ghc/rts/parallel/ParTypes.h

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