From 195ba1d903ed5a8cbd1cafa46ad4259532e35eb8 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 18 Apr 2000 16:26:07 +0000
Subject: [PATCH] [project @ 2000-04-18 16:25:05 by simonmar] CCallable [Char]
 is no longer supported.

---
 ghc/tests/codeGen/should_run/cg029.hs | 3 ++-
 ghc/tests/codeGen/should_run/cg030.hs | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/ghc/tests/codeGen/should_run/cg029.hs b/ghc/tests/codeGen/should_run/cg029.hs
index 9748af459b87..faa9f2f35a33 100644
--- a/ghc/tests/codeGen/should_run/cg029.hs
+++ b/ghc/tests/codeGen/should_run/cg029.hs
@@ -3,9 +3,10 @@ module Main(main) where
 -- In 0.19, we lost the ability to do ccalls with more than 6 arguments
 -- on the Sparc.  Just to make sure it never happens again...
 
+import CString
 
 main = 
-	_ccall_ printf "Testing %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d\n"
+	_ccall_ printf (packString "Testing %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d\n")
 	(01::Int) (02::Int) (03::Int) (04::Int) (05::Int) (06::Int) (07::Int) (08::Int)
 	(11::Int) (12::Int) (13::Int) (14::Int) (15::Int) (16::Int) (17::Int) (18::Int)
 	(21::Int) (22::Int) (23::Int) (24::Int) (25::Int) (26::Int) (27::Int) (28::Int)
diff --git a/ghc/tests/codeGen/should_run/cg030.hs b/ghc/tests/codeGen/should_run/cg030.hs
index 95947ce92b12..62ca02543d1a 100644
--- a/ghc/tests/codeGen/should_run/cg030.hs
+++ b/ghc/tests/codeGen/should_run/cg030.hs
@@ -1,5 +1,6 @@
 module PrelMain(mainIO) where
 
 import ST
+import CString
 
-mainIO = _ccall_ puts "123\n" >> return ()
+mainIO = _ccall_ puts (packString "123\n") >> return ()
-- 
GitLab