X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FBytecodes.h;h=e502b8f06eed8ca53a2a1701dc00c71674ef3591;hb=510a79799cc155612d098e87bdc8062d0cd47978;hp=c52d51c4ecda5b7244df8eb9e5badbdac79dc2d8;hpb=6642714ec59883c1edd31e9e5b485e99f0edd952;p=ghc-hetmet.git

diff --git a/ghc/rts/Bytecodes.h b/ghc/rts/Bytecodes.h
index c52d51c..e502b8f 100644
--- a/ghc/rts/Bytecodes.h
+++ b/ghc/rts/Bytecodes.h
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: Bytecodes.h,v 1.8 1999/10/26 17:27:30 sewardj Exp $
+ * $Id: Bytecodes.h,v 1.14 2000/03/20 04:26:24 andy Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -27,10 +27,12 @@
     Ins(i_INTERNAL_ERROR),    \
     Ins(i_PANIC),             \
     Ins(i_STK_CHECK),         \
+    Ins(i_STK_CHECK_big),     \
     Ins(i_ARG_CHECK),         \
     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),             \
@@ -412,18 +414,27 @@ typedef enum
     /* foreign export dynamic support */
     , i_createAdjThunkARCH
 
+    /* misc handy hacks */
+    , i_getArgc
+    , i_getArgv
+
 #ifdef PROVIDE_CONCURRENT
     /* Concurrency operations */
-    , i_fork
+    , i_forkIO
     , i_killThread
-    , i_sameMVar
-    , i_newMVar
-    , i_takeMVar
-    , i_putMVar
+    , 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