Commit b9ed91f5 authored by simonmar's avatar simonmar

[project @ 2002-03-18 14:51:54 by simonmar]

update tests; cg029 moved to ccall/should_run, and cg030 is removed
(test case is already covered by other tests in ccall).
parent 44aa3465
......@@ -29,11 +29,9 @@ test "cg021" { vtr("", "", "") }
test "cg022" { vtr("", "", "") }
test "cg024" { vtr("", "", "") }
test "cg025" { vtr("", "cg025.hs", "1") }
test "cg026" { vtr("-fglasgow-exts -fvia-C", "", "") }
test "cg026" { vtr("-fglasgow-exts -package lang -fvia-C", "", "") }
test "cg027" { vtr("", "", "") }
test "cg028" { vtr("", "", "") }
test "cg029" { vtr("-fglasgow-exts", "", "") }
test "cg030" { vtr("-fglasgow-exts", "", "") }
test "cg031" { vtr("-fglasgow-exts", "", "") }
test "cg032" { vtr("-fglasgow-exts", "", "") }
test "cg033" { vtr("-fglasgow-exts", "", "") }
......@@ -44,9 +42,9 @@ test "cg037" { vtr("", "", "") }
test "cg038" { vtr("", "", "") }
test "cg039" { vtr("", "", "") }
test "cg040" { vtr("", "", "") }
test "cg042" { vtr("-fglasgow-exts", "", "") }
test "cg042" { vtr("-fglasgow-exts -package lang", "", "") }
test "cg043" { vtr("", "", "") }
test "cg044" { vtr("-cpp", "", "" ) }
test "cg044" { vtr("-cpp -package lang", "", "" ) }
-- -O is temporary, until we fix the problems with seq#...
test "cg045" { vtr( "-O", "", "1") }
......
......@@ -2,7 +2,9 @@
--
module Main ( main ) where
import PrelBase
import GHC.Exts
import Char ( chr )
import Addr
import ST
import ST
......
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 Data.PackedString
main =
_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)
(31::Int) (32::Int) (33::Int) (34::Int) (35::Int) (36::Int) (37::Int) (38::Int)
>>
return ()
Testing 1 2 3 4 5 6 7 8 11 12 13 14 15 16 17 18 21 22 23 24 25 26 27 28 31 32 33 34 35 36 37 38
module PrelMain(mainIO) where
import GHC.ST
import Data.PackedString
mainIO = _ccall_ puts (packString "123\n") >> return ()
......@@ -2,8 +2,7 @@
--
module Main ( main ) where
import PrelBase --ghc1.3
import IOExts
import GHC.Exts
import ByteArray
import MutableArray
import ST
......
......@@ -2,20 +2,15 @@
module Main(main) where
import Char
import GHC.ST
import ST
import MutableArray
#include "config.h"
reverse_if_bigendian :: [a] -> [a]
#ifdef sparc_sun_solaris2
#ifdef WORDS_BIGENDIAN
reverse_if_bigendian = reverse
#endif
#ifdef i386_unknown_linux
reverse_if_bigendian = id
#endif
#ifdef i386_unknown_mingw32
reverse_if_bigendian = id
#endif
#ifdef alpha_dec_osf3
#else
reverse_if_bigendian = id
#endif
......
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