X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2Fprimops.txt;fp=ghc%2Fcompiler%2Fprelude%2Fprimops.txt;h=264fec251199f7be68e656be64c2a7efed82c3c8;hb=343a20c03bcdcd01d1e208822b1d2cbc43caf33f;hp=9bee278c9a5ab3a9885cddafc9f540e8dac1d260;hpb=6db8367a09597a8e705be23a62fde8782c9ded60;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/primops.txt b/ghc/compiler/prelude/primops.txt
index 9bee278..264fec2 100644
--- a/ghc/compiler/prelude/primops.txt
+++ b/ghc/compiler/prelude/primops.txt
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------
--- $Id: primops.txt,v 1.13 2001/01/03 16:44:29 sewardj Exp $
+-- $Id: primops.txt,v 1.14 2001/01/15 09:55:41 sewardj Exp $
 --
 -- Primitive Operations
 --
@@ -43,13 +43,24 @@ defaults
 
 
 ------------------------------------------------------------------------
---- Support for the bytecode linker                                  ---
+--- Support for the bytecode interpreter and linker                  ---
 ------------------------------------------------------------------------
 
 -- Convert an Addr# to a followable type
 primop   AddrToHValueOp "addrToHValue#" GenPrimOp
    Addr# -> (# a #)
 
+primop   MkApUpd0_Op "mkApUpd0#" GenPrimOp
+   a -> (# a #)
+   with
+   out_of_line = True
+
+primop  NewBCOOp "newBCO#" GenPrimOp
+   ByteArr# -> ByteArr# -> Array# a -> ByteArr# -> State# s -> (# State# s, BCO# #)
+   with
+   has_side_effects = True
+   out_of_line      = True
+
 
 ------------------------------------------------------------------------
 --- Addr#                                                            ---
@@ -1098,16 +1109,6 @@ primop TouchOp "touch#" GenPrimOp
    with
    strictness       = { \ arity -> StrictnessInfo [wwLazy, wwPrim] False }
 
-------------------------------------------------------------------------
---- Bytecode objects                                                 ---
-------------------------------------------------------------------------
-
-primop  NewBCOOp "newBCO#" GenPrimOp
-   ByteArr# -> ByteArr# -> Array# a -> ByteArr# -> State# s -> (# State# s, BCO# #)
-   with
-   has_side_effects = True
-   out_of_line      = True
-
 
 ------------------------------------------------------------------------
 --- Weak pointers                                                    ---