X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2Fprimops.txt;fp=ghc%2Fcompiler%2Fprelude%2Fprimops.txt;h=36f8438245b946c2d78d7add9857a2bbc27bb2be;hb=8cf4a0fb1cd3c3583d51b80387240d0fb2bfc5d1;hp=77f1a1900cd8cc06a2b21e2d635d08af2348e574;hpb=c919b08841077b2c28deffa65a7d84a22aa6c6ba;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/primops.txt b/ghc/compiler/prelude/primops.txt
index 77f1a19..36f8438 100644
--- a/ghc/compiler/prelude/primops.txt
+++ b/ghc/compiler/prelude/primops.txt
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------
--- $Id: primops.txt,v 1.9 2000/12/12 12:19:57 simonmar Exp $
+-- $Id: primops.txt,v 1.10 2000/12/15 10:37:50 sewardj Exp $
 --
 -- Primitive Operations
 --
@@ -1111,7 +1111,7 @@ primop TouchOp "touch#" GenPrimOp
 ------------------------------------------------------------------------
 
 primop  NewBCOOp "newBCO#" GenPrimOp
-   ByteArr# -> ByteArr# -> MutArr# s a -> State# s -> (# State# s, BCO# #)
+   ByteArr# -> ByteArr# -> MutArr# s a -> MutArr# s a -> State# s -> (# State# s, BCO# #)
    with
    has_side_effects = True
    out_of_line      = True
@@ -1119,11 +1119,14 @@ primop  NewBCOOp "newBCO#" GenPrimOp
 primop  GetBCOPtrsOp "getBCOPtrs#" GenPrimOp
    BCO# -> State# s -> (# State# s, MutArr# s a #)
 
+primop  GetBCOItblsOp "getBCOItbls#" GenPrimOp
+   BCO# -> State# s -> (# State# s, MutArr# s a #)
+
 ------------------------------------------------------------------------
 --- Weak pointers                                                    ---
 ------------------------------------------------------------------------
 
--- note that tyvar "o" denoted openAlphaTyVar
+-- note that tyvar "o" denotes openAlphaTyVar
 
 primop  MkWeakOp "mkWeak#" GenPrimOp
    o -> b -> c -> State# RealWorld -> (# State# RealWorld, Weak# b #)