[project @ 2000-01-13 14:33:57 by hwloidl]

[ghc-hetmet.git] / ghc / includes / RtsTypes.h

diff --git a/ghc/includes/RtsTypes.h b/ghc/includes/RtsTypes.h
new file mode 100644 (file)
index 0000000..10c4bde
--- /dev/null
+++ b/ghc/includes/RtsTypes.h
@@ -0,0 +1,76 @@
+/*
+  Time-stamp: <Mon Nov 22 1999 21:29:44 Stardate: [-30]3939.47 hwloidl>
+
+  RTS specific types.
+*/
+
+/* -------------------------------------------------------------------------
+   Generally useful typedefs
+   ------------------------------------------------------------------------- */
+
+#ifndef RTS_TYPES_H
+#define RTS_TYPES_H
+
+typedef unsigned int  nat;           /* at least 32 bits (like int) */
+typedef unsigned long lnat;          /* at least 32 bits            */
+typedef unsigned long long ullong;   /* at least 32 bits            */
+
+/* ullong (64|128-bit) type: only include if needed (not ANSI) */
+#if defined(__GNUC__) 
+#define LL(x) (x##LL)
+#else
+#define LL(x) (x##L)
+#endif
+  
+typedef enum { 
+    rtsFalse = 0, 
+    rtsTrue 
+} rtsBool;
+
+/* 
+   Types specific to the parallel runtime system.
+*/
+
+#if defined(PAR)
+/* types only needed in the parallel system */
+typedef struct hashtable ParHashTable;
+typedef struct hashlist ParHashList;
+
+// typedef double REAL_TIME;
+// typedef W_ TIME;
+// typedef GlobalTaskId Proc;
+typedef int           GlobalTaskId;
+typedef ullong        rtsTime;
+typedef GlobalTaskId  PEs;
+typedef unsigned int  rtsWeight;
+typedef int           rtsPacket;
+typedef int           OpCode;
+
+/* Global addresses i.e. unique ids in a parallel setup; needed in Closures.h*/
+typedef struct {
+  union {
+    StgPtr plc;
+    struct {
+      GlobalTaskId gtid;
+      int slot;
+    } gc;
+  } payload;
+  rtsWeight weight;
+} globalAddr;
+
+/* (GA, LA) pairs */
+typedef struct gala {
+    globalAddr ga;
+    StgPtr la;
+    struct gala *next;
+    rtsBool preferred;
+} GALA;
+
+#elif defined(GRAN)
+
+typedef lnat      rtsTime;
+typedef StgWord   PEs;
+
+#endif
+
+#endif /* RTS_TYPES_H */