X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FBytecodes.h;h=07e717ad6c90580ea7b0f9a38ef7707ab5122596;hb=1773a3e1dd9f724eee5b9678d14f50329707dbcb;hp=8fdc7846a981128e904b4c0b3cb5eff5a1eddea3;hpb=1b39436bdf0dbc46008460669d1ac81a98df6c84;p=ghc-hetmet.git

diff --git a/ghc/rts/Bytecodes.h b/ghc/rts/Bytecodes.h
index 8fdc784..07e717a 100644
--- a/ghc/rts/Bytecodes.h
+++ b/ghc/rts/Bytecodes.h
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: Bytecodes.h,v 1.12 1999/11/18 12:10:25 sewardj Exp $
+ * $Id: Bytecodes.h,v 1.16 2000/06/15 13:23:51 daan Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -32,15 +32,28 @@
     Ins(i_ALLOC_AP),          \
     Ins(i_ALLOC_PAP),         \
     Ins(i_ALLOC_CONSTR),      \
+    Ins(i_ALLOC_CONSTR_big),  \
+    Ins(i_ALLOC_ROW),         \
+    Ins(i_ALLOC_ROW_big),     \
     Ins(i_MKAP),              \
     Ins(i_MKAP_big),          \
     Ins(i_MKPAP),             \
     Ins(i_PACK),              \
     Ins(i_PACK_big),          \
+    Ins(i_PACK_ROW),          \
+    Ins(i_PACK_ROW_big),      \
+    Ins(i_PACK_INJ),          \
+    Ins(i_PACK_INJ_big),      \
+    Ins(i_PACK_INJ_CONST),    \
     Ins(i_SLIDE),             \
     Ins(i_SLIDE_big),         \
     Ins(i_TEST),              \
+    Ins(i_TEST_INJ),          \
+    Ins(i_TEST_INJ_big),      \
+    Ins(i_TEST_INJ_CONST),    \
     Ins(i_UNPACK),            \
+    Ins(i_UNPACK_ROW),        \
+    Ins(i_UNPACK_INJ),        \
     Ins(i_VAR),               \
     Ins(i_VAR_big),           \
     Ins(i_CONST),             \
@@ -325,6 +338,12 @@ typedef enum
 
     , i_raise       
 
+#ifdef XMLAMBDA
+    /* row primitives. */
+    , i_rowInsertAt
+    , i_rowRemoveAt
+#endif
+
     /* Ref operations */
     , i_newRef
     , i_writeRef
@@ -389,7 +408,7 @@ typedef enum
 
 #ifdef PROVIDE_FOREIGN
     /* ForeignObj# operations */
-    , i_makeForeignObj
+    , i_mkForeignObj
 
     , indexCharOffForeignObj
     , indexIntOffForeignObj
@@ -419,19 +438,21 @@ typedef enum
 
 #ifdef PROVIDE_CONCURRENT
     /* Concurrency operations */
-    , i_fork
+    , i_forkIO
     , i_killThread
+    , i_raiseInThread
     , i_delay
     , i_waitRead
     , i_waitWrite
+    , i_yield
+    , i_getThreadId
+    , i_cmpThreadIds
 #endif
     , i_sameMVar
     , i_newMVar
     , i_takeMVar
     , i_putMVar
-    , i_getThreadId
-    , i_cmpThreadIds
-    , i_forkIO
+
 
     /* CCall! */
     , i_ccall_ccall_Id
@@ -441,7 +462,7 @@ typedef enum
 
     /* If you add a new primop to this table, check you don't
      * overflow the 256 limit.  That is MAX_Primop2 <= 255.
-     * Current value (30/10/98) = 0x42
+     * Current value (6/10/2000) = 0x44
      */
     , MAX_Primop2 = i_ccall_stdcall_IO
 } Primop2;