From f2d6587d0ec96b0bc7cef417afa37d3dd3dc03e9 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 15 Dec 2000 11:58:35 +0000
Subject: [PATCH] [project @ 2000-12-15 11:58:35 by sewardj] fix arg tys for
 newBCO#, and delete all other BCO related primops

---
 ghc/compiler/prelude/primops.txt |    9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

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                                                    ---
-- 
1.7.10.4