From fd5a86e3cd43042a1f5b5108f6818989e898cf40 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 15 Dec 2000 17:14:39 +0000
Subject: [PATCH] [project @ 2000-12-15 17:14:38 by sewardj] more BCO# wibbles

---
 ghc/compiler/main/HscMain.lhs    |    2 +-
 ghc/compiler/prelude/primops.txt |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 119e060..9c01b76 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -372,7 +372,7 @@ myCoreToStg dflags this_mod tidy_binds env_tc
       -- simplifier, which for reasons I don't understand, persists
       -- thoroughout code generation
 
-      let bcos = byteCodeGen dflags tidy_binds local_tycons local_classes
+      --let bcos = byteCodeGen dflags tidy_binds local_tycons local_classes
 
       -- _scc_     "Core2Stg"
       stg_binds <- coreToStg dflags this_mod tidy_binds
diff --git a/ghc/compiler/prelude/primops.txt b/ghc/compiler/prelude/primops.txt
index c97202b..3550ff6 100644
--- a/ghc/compiler/prelude/primops.txt
+++ b/ghc/compiler/prelude/primops.txt
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------
--- $Id: primops.txt,v 1.11 2000/12/15 11:58:35 sewardj Exp $
+-- $Id: primops.txt,v 1.12 2000/12/15 17:14:39 sewardj Exp $
 --
 -- Primitive Operations
 --
@@ -1111,7 +1111,7 @@ primop TouchOp "touch#" GenPrimOp
 ------------------------------------------------------------------------
 
 primop  NewBCOOp "newBCO#" GenPrimOp
-   ByteArr# -> ByteArr# -> MutArr# s a -> ByteArr# -> State# s -> (# State# s, BCO# #)
+   ByteArr# -> ByteArr# -> Array# a -> ByteArr# -> State# s -> (# State# s, BCO# #)
    with
    has_side_effects = True
    out_of_line      = True
-- 
1.7.10.4