[project @ 2000-12-15 10:37:50 by sewardj]

[ghc-hetmet.git] / ghc / compiler / prelude / primops.txt

diff --git a/ghc/compiler/prelude/primops.txt b/ghc/compiler/prelude/primops.txt
index 77f1a19..36f8438 100644 (file)
--- 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 #)