From: sewardj <unknown>
Date: Fri, 15 Dec 2000 11:58:35 +0000 (+0000)
Subject: [project @ 2000-12-15 11:58:35 by sewardj]
X-Git-Tag: Approximately_9120_patches~3093
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f2d6587d0ec96b0bc7cef417afa37d3dd3dc03e9;p=ghc-hetmet.git

[project @ 2000-12-15 11:58:35 by sewardj]
fix arg tys for newBCO#, and delete all other BCO related primops
---

diff --git a/ghc/compiler/prelude/primops.txt b/ghc/compiler/prelude/primops.txt
index 36f8438..c97202b 100644
--- a/ghc/compiler/prelude/primops.txt
+++ b/ghc/compiler/prelude/primops.txt
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------
--- $Id: primops.txt,v 1.10 2000/12/15 10:37:50 sewardj Exp $
+-- $Id: primops.txt,v 1.11 2000/12/15 11:58:35 sewardj Exp $
 --
 -- Primitive Operations
 --
@@ -1111,16 +1111,11 @@ primop TouchOp "touch#" GenPrimOp
 ------------------------------------------------------------------------
 
 primop  NewBCOOp "newBCO#" GenPrimOp
-   ByteArr# -> ByteArr# -> MutArr# s a -> MutArr# s a -> State# s -> (# State# s, BCO# #)
+   ByteArr# -> ByteArr# -> MutArr# s a -> ByteArr# -> State# s -> (# State# s, BCO# #)
    with
    has_side_effects = True
    out_of_line      = True
 
-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                                                    ---