Commit 195ba1d9 authored by simonmar's avatar simonmar

[project @ 2000-04-18 16:25:05 by simonmar]

CCallable [Char] is no longer supported.
parent 40f2c680
......@@ -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)
......
module PrelMain(mainIO) where
import ST
import CString
mainIO = _ccall_ puts "123\n" >> return ()
mainIO = _ccall_ puts (packString "123\n") >> return ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment