From: simonmar <unknown>
Date: Mon, 13 Mar 2000 12:11:44 +0000 (+0000)
Subject: [project @ 2000-03-13 12:11:43 by simonmar]
X-Git-Tag: Approximately_9120_patches~5002
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6200a0c525193a27e480b682a8e308df26c61032;p=ghc-hetmet.git

[project @ 2000-03-13 12:11:43 by simonmar]
Remove unsafeThawByteArray# primop (which was a no-op), and use
unsafeCoerce# instead.
---

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index 305c6f7..7be5595 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -157,7 +157,7 @@ data PrimOp
     | IndexOffForeignObjOp PrimRep
 
     | UnsafeFreezeArrayOp | UnsafeFreezeByteArrayOp
-    | UnsafeThawArrayOp   | UnsafeThawByteArrayOp
+    | UnsafeThawArrayOp
     | SizeofByteArrayOp   | SizeofMutableByteArrayOp
 
     -- Mutable variables
@@ -512,7 +512,6 @@ tagOf_PrimOp (WriteOffAddrOp Word64Rep)       = ILIT(200)
 tagOf_PrimOp UnsafeFreezeArrayOp	      = ILIT(201)
 tagOf_PrimOp UnsafeFreezeByteArrayOp	      = ILIT(202)
 tagOf_PrimOp UnsafeThawArrayOp		      = ILIT(203)
-tagOf_PrimOp UnsafeThawByteArrayOp	      = ILIT(204)
 tagOf_PrimOp SizeofByteArrayOp		      = ILIT(205)
 tagOf_PrimOp SizeofMutableByteArrayOp	      = ILIT(206)
 tagOf_PrimOp NewMVarOp			      = ILIT(207)
@@ -787,7 +786,6 @@ allThePrimOps
 	UnsafeFreezeArrayOp,
 	UnsafeFreezeByteArrayOp,
 	UnsafeThawArrayOp,
-	UnsafeThawByteArrayOp,
 	SizeofByteArrayOp,
 	SizeofMutableByteArrayOp,
 	NewMutVarOp,
@@ -1380,7 +1378,6 @@ primOpInfo (WriteOffAddrOp kind)
 unsafeFreezeArray#     :: MutArr# s a -> State# s -> (# State# s, Array# a #)
 unsafeFreezeByteArray# :: MutByteArr# s -> State# s -> (# State# s, ByteArray# #)
 unsafeThawArray#       :: Array# a -> State# s -> (# State# s, MutArr# s a #)
-unsafeThawByteArray#   :: ByteArray# -> State# s -> (# State# s, MutByteArr# s #)
 -}
 
 primOpInfo UnsafeFreezeArrayOp
@@ -1410,15 +1407,6 @@ primOpInfo UnsafeThawArrayOp
 	[mkArrayPrimTy elt, state]
 	(unboxedPair [state, mkMutableArrayPrimTy s elt])
 
-primOpInfo UnsafeThawByteArrayOp
-  = let { 
-	s = alphaTy; s_tv = alphaTyVar;
-	state = mkStatePrimTy s
-    } in
-    mkGenPrimOp SLIT("unsafeThawByteArray#") [s_tv]
-	[byteArrayPrimTy, state]
-	(unboxedPair [state, mkMutableByteArrayPrimTy s])
-
 ---------------------------------------------------------------------------
 primOpInfo SizeofByteArrayOp
   = mkGenPrimOp
@@ -2130,7 +2118,6 @@ primOpHasSideEffects WriteMutVarOp	   = True
 primOpHasSideEffects UnsafeFreezeArrayOp	= True
 primOpHasSideEffects UnsafeFreezeByteArrayOp	= True
 primOpHasSideEffects UnsafeThawArrayOp		= True
-primOpHasSideEffects UnsafeThawByteArrayOp	= True
 
 primOpHasSideEffects TakeMVarOp        = True
 primOpHasSideEffects PutMVarOp         = True
diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 4a0f952..1ce766d 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.45 2000/01/18 12:37:33 simonmar Exp $
+ * $Id: PrimOps.h,v 1.46 2000/03/13 12:11:43 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -595,7 +595,6 @@ extern I_ resetGenSymZh(void);
 	}
 
 #define unsafeFreezzeByteArrayzh(r,a)	r=(a)
-#define unsafeThawByteArrayzh(r,a)	r=(a)
 
 EF_(unsafeThawArrayzh_fast);
 
diff --git a/ghc/lib/std/PrelGHC.hi-boot b/ghc/lib/std/PrelGHC.hi-boot
index 6d86963..94075d6 100644
--- a/ghc/lib/std/PrelGHC.hi-boot
+++ b/ghc/lib/std/PrelGHC.hi-boot
@@ -295,7 +295,6 @@ __export PrelGHC
   unsafeFreezzeByteArrayzh	-- Ditto
 
   unsafeThawArrayzh
-  unsafeThawByteArrayzh
 
   sizzeofByteArrayzh		-- Ditto
   sizzeofMutableByteArrayzh	-- Ditto