From 576c7688debba13347476f914b55e3af0c510068 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 29 Mar 2000 08:58:04 +0000
Subject: [PATCH] [project @ 2000-03-29 08:58:04 by simonmar]
 freeze<blah>Array ==> freezeByteArray

---
 ghc/tests/codeGen/should_run/cg026.hs |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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