From: simonmar <unknown>
Date: Tue, 14 Mar 2000 09:31:48 +0000 (+0000)
Subject: [project @ 2000-03-14 09:31:48 by simonmar]
X-Git-Tag: Approximately_9120_patches~4988
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=64dfa4a8f6385f7b7aa1101e30217aa4fc4b19dd;p=ghc-hetmet.git

[project @ 2000-03-14 09:31:48 by simonmar]
oops, missed one instance of UnsafeThawByteArrayOp.
---

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index 353bd33..945b73b 100644
--- a/ghc/compiler/nativeGen/StixPrim.lhs
+++ b/ghc/compiler/nativeGen/StixPrim.lhs
@@ -111,8 +111,6 @@ primCode [lhs] UnsafeFreezeArrayOp [rhs]
 
 primCode [lhs] UnsafeFreezeByteArrayOp [rhs]
   = simpleCoercion PtrRep lhs rhs
-primCode [lhs] UnsafeThawByteArrayOp [rhs]
-  = simpleCoercion PtrRep lhs rhs
 \end{code}
 
 Returning the size of (mutable) byte arrays is just