[project @ 2000-04-11 11:02:31 by simonmar]

String isn't a valid _ccall_ argument type anymore.

diff --git a/ghc/tests/codeGen/should_run/cg026.hs b/ghc/tests/codeGen/should_run/cg026.hs
index c3edfa4..b537fbd 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg026.hs
+++ b/ghc/tests/codeGen/should_run/cg026.hs
@@ -10,6 +10,7 @@ import MutableArray
 import ByteArray
 import Addr
 import Int( Num(fromInt) )
+import CString (packString)
        
 import Ratio
 import Array
@@ -31,7 +32,7 @@ test_chars
   = let str = reverse "Now is the time for all good men to come to...\n"
     in
     unsafePerformIO (
-       _ccall_ fprintf (``stdout''::Addr) "%d %s\n" (93::Int) str >>
+       _ccall_ fprintf (``stdout''::Addr) (packString "%d %s\n") (93::Int) (packString str) >>
        _ccall_ fflush  (``stdout''::Addr)  >>
        return ""
        )