[project @ 2000-03-29 08:59:28 by simonmar]

freezeDoubleArray ==> freezeByteArray

diff --git a/ghc/tests/codeGen/should_run/cg042.hs b/ghc/tests/codeGen/should_run/cg042.hs
index f128dfa..16a1413 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg042.hs
+++ b/ghc/tests/codeGen/should_run/cg042.hs
@@ -33,7 +33,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 ()