From: simonmar <unknown>
Date: Tue, 11 Apr 2000 11:02:31 +0000 (+0000)
Subject: [project @ 2000-04-11 11:02:31 by simonmar]
X-Git-Tag: Approximately_9120_patches~4748
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5ffba4e2eac0a76ffbe8d98b672fcc39201a591f;p=ghc-hetmet.git

[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
--- 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 ""
 	)