[project @ 1998-12-02 13:17:09 by simonm]
[ghc-hetmet.git] / ghc / rts / gum / PEOpCodes.h
diff --git a/ghc/rts/gum/PEOpCodes.h b/ghc/rts/gum/PEOpCodes.h
new file mode 100644 (file)
index 0000000..8380f46
--- /dev/null
@@ -0,0 +1,52 @@
+#ifndef PEOPCODES_H
+#define PEOPCODES_H
+
+/************************************************************************
+*                         PEOpCodes.h                                   *
+*                                                                      *
+*      This file contains definitions for all the GUM PE Opcodes       *
+*       It's based on the GRAPH for PVM version                         *
+*       Phil Trinder, Glasgow University 8th December 1994              *
+*                                                                      *
+************************************************************************/
+
+#define REPLY_OK               0x00
+
+/*Startup + Shutdown*/
+#define        PP_SYSMAN_TID           0x50
+#define        PP_MAIN_TASK            0x51
+#define        PP_FINISH               0x52
+#define        PP_PETIDS               0x53
+
+/* Stats stuff */
+#define        PP_STATS                0x54
+#define PP_STATS_ON            0x55
+#define PP_STATS_OFF           0x56
+
+#define PP_FAIL                        0x57
+
+/*Garbage Collection*/
+#define PP_GC_INIT              0x58
+#define PP_FULL_SYSTEM          0x59
+#define PP_GC_POLL              0x5a
+
+/*GUM Messages*/
+#define PP_FETCH                0x5b
+#define PP_RESUME               0x5c
+#define PP_ACK                  0x5d
+#define PP_FISH                 0x5e
+#define PP_SCHEDULE             0x5f
+#define PP_FREE                        0x60
+
+#define        MIN_PEOPS               0x50
+#define        MAX_PEOPS               0x60
+
+#define        PEOP_NAMES              "Init", "IOInit", \
+                               "Finish", "PETIDS", \
+                                "Stats", "Stats_On", "Stats_Off", \
+                               "Fail", \
+                                "GCInit", "FullSystem", "GCPoll", \
+                                "Fetch","Resume","ACK","Fish","Schedule", \
+                               "Free"
+
+#endif /* PEOPCODES_H */