[project @ 2000-05-12 16:56:54 by rrt]

[ghc-hetmet.git] / ghc / rts / Bytecodes.h

diff --git a/ghc/rts/Bytecodes.h b/ghc/rts/Bytecodes.h
index 7f4e985..f033a21 100644 (file)
--- a/ghc/rts/Bytecodes.h
+++ b/ghc/rts/Bytecodes.h
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: Bytecodes.h,v 1.11 1999/11/16 17:39:09 sewardj Exp $
+ * $Id: Bytecodes.h,v 1.15 2000/04/11 20:44:19 panne Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -32,6 +32,7 @@
     Ins(i_ALLOC_AP),          \
     Ins(i_ALLOC_PAP),         \
     Ins(i_ALLOC_CONSTR),      \
+    Ins(i_ALLOC_CONSTR_big),  \
     Ins(i_MKAP),              \
     Ins(i_MKAP_big),          \
     Ins(i_MKPAP),             \
@@ -389,7 +390,7 @@ typedef enum
 
 #ifdef PROVIDE_FOREIGN
     /* ForeignObj# operations */
-    , i_makeForeignObj
+    , i_mkForeignObj
 
     , indexCharOffForeignObj
     , indexIntOffForeignObj
@@ -419,17 +420,22 @@ typedef enum
 
 #ifdef PROVIDE_CONCURRENT
     /* Concurrency operations */
-    , i_fork
+    , i_forkIO
     , i_killThread
-    , i_sameMVar
+    , i_raiseInThread
     , i_delay
     , i_waitRead
     , i_waitWrite
+    , i_yield
+    , i_getThreadId
+    , i_cmpThreadIds
 #endif
+    , i_sameMVar
     , i_newMVar
     , i_takeMVar
     , i_putMVar
 
+
     /* CCall! */
     , i_ccall_ccall_Id
     , i_ccall_ccall_IO