From: simonmar <unknown>
Date: Wed, 29 Mar 2000 08:58:04 +0000 (+0000)
Subject: [project @ 2000-03-29 08:58:04 by simonmar]
X-Git-Tag: Approximately_9120_patches~4882
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=576c7688debba13347476f914b55e3af0c510068;p=ghc-hetmet.git

[project @ 2000-03-29 08:58:04 by simonmar]
freeze<blah>Array ==> freezeByteArray
---

diff --git a/ghc/tests/codeGen/should_run/cg026.hs b/ghc/tests/codeGen/should_run/cg026.hs
index ff9d19e..c3edfa4 100644
--- a/ghc/tests/codeGen/should_run/cg026.hs
+++ b/ghc/tests/codeGen/should_run/cg026.hs
@@ -55,7 +55,7 @@ test_ints
 	  fill_in arr# 0# (size# -# 1#) >>
 
 	    -- freeze the puppy:
-	  freezeIntArray arr#
+	  freezeByteArray arr#
 	)
 
     fill_in :: MutableByteArray s Int -> Int# -> Int# -> ST s ()
@@ -92,7 +92,7 @@ test_addrs
 	  fill_in arr# 0# (size# -# 1#) >>
 
 	    -- freeze the puppy:
-	  freezeAddrArray arr#
+	  freezeByteArray arr#
 	)
 
     fill_in :: MutableByteArray s Int -> Int# -> Int# -> ST s ()
@@ -133,7 +133,7 @@ test_floats
 	  fill_in arr# 0# (size# -# 1#) >>
 
 	    -- freeze the puppy:
-	  freezeFloatArray arr#
+	  freezeByteArray arr#
 	)
 
     fill_in :: MutableByteArray s Int -> Int# -> Int# -> ST s ()
@@ -174,7 +174,7 @@ test_doubles
 	  fill_in arr# 0# (size# -# 1#) >>
 
 	    -- freeze the puppy:
-	  freezeDoubleArray arr#
+	  freezeByteArray arr#
 	)
 
     fill_in :: MutableByteArray s Int -> Int# -> Int# -> ST s ()