diff options
| author | simonmar <unknown> | 2000-03-29 08:58:04 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-03-29 08:58:04 +0000 |
| commit | 576c7688debba13347476f914b55e3af0c510068 (patch) | |
| tree | ca184ef96bdd16cede041c1727b2aa03c635c969 | |
| parent | b9081e32c6d4c7cc05e6ccb75a9d41ad84083b94 (diff) | |
| download | haskell-576c7688debba13347476f914b55e3af0c510068.tar.gz | |
[project @ 2000-03-29 08:58:04 by simonmar]
freeze<blah>Array ==> freezeByteArray
| -rw-r--r-- | ghc/tests/codeGen/should_run/cg026.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/tests/codeGen/should_run/cg026.hs b/ghc/tests/codeGen/should_run/cg026.hs index ff9d19effd..c3edfa4074 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 () |