Commit 5b06422d authored by sewardj's avatar sewardj
Browse files

[project @ 2002-02-21 16:57:38 by sewardj]

new-library-ise some of these
parent 0cb5d9fb
......@@ -28,27 +28,27 @@ test "cg020" { vtr("", "", "") }
test "cg021" { vtr("", "", "") }
test "cg022" { vtr("", "", "") }
test "cg024" { vtr("", "", "") }
test "cg025" { vtr("-package lang -package text", "cg025.hs", "1") }
test "cg026" { vtr("-package lang -fglasgow-exts -fvia-C", "", "") }
test "cg025" { vtr("", "cg025.hs", "1") }
test "cg026" { vtr("-fglasgow-exts -fvia-C", "", "") }
test "cg027" { vtr("", "", "") }
test "cg028" { vtr("", "", "") }
test "cg029" { vtr("-package lang -fglasgow-exts", "", "") }
test "cg030" { vtr("-package lang -fglasgow-exts", "", "") }
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", "", "") }
test "cg034" { vtr("", "", "") }
test "cg035" { vtr("-package lang -fglasgow-exts", "", "") }
test "cg035" { vtr("-fglasgow-exts", "", "") }
test "cg036" { vtr("", "", "") }
test "cg037" { vtr("", "", "") }
test "cg038" { vtr("", "", "") }
test "cg039" { vtr("", "", "") }
test "cg040" { vtr("", "", "") }
test "cg042" { vtr("-package lang -fglasgow-exts", "", "") }
test "cg042" { vtr("-fglasgow-exts", "", "") }
test "cg043" { vtr("", "", "") }
test "cg044" { vtr("-cpp -package lang", "", "" ) }
test "cg044" { vtr("-cpp", "", "" ) }
-- -O is tmporary, until we fix the problems with seq#...
-- -O is temporary, until we fix the problems with seq#...
test "cg045" { vtr( "-O", "", "1") }
test "cg046" { vtr("", "", "") }
test "cg047" { vtr("", "", "") }
......
-- !!! move arguments around on the stacks, mainly the B stack
import PrelBase ( Float#, Double#, Int#, Int(..) )
import GHC.Base ( Float#, Double#, Int#, Int(..) )
main = print foo
......
module Main ( main ) where
import PrelBase
import GHC.Base
data CList = CNil | CCons Int# CList
......
-- !!! test of datatype with many unboxed fields
--
import PrelGHC( Float# )
import PrelFloat
import GHC.Base( Float# )
import GHC.Float
main = print (selectee1 + selectee2)
......
......@@ -3,7 +3,7 @@ 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
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")
......
module PrelMain(mainIO) where
import ST
import CString
import GHC.ST
import Data.PackedString
mainIO = _ccall_ puts (packString "123\n") >> return ()
......@@ -3,7 +3,8 @@
--
module Main ( main ) where
import PrelBase
--import PrelBase
import GHC.Base
main = do
putStr (shows (sum ([1..1{-30-}]++[1..1{-40-}]++[11,22])) "\n")
......
-- !! pattern-matching failure on functions that return Int#
import PrelBase --ghc1.3
--import PrelBase --ghc1.3
import GHC.Base
main = putStr (shows (I# (foo bar1 bar2)) "\n")
where
......
-- !! worker/wrapper turns ( \ <absent> -> Int# ) function
-- !! into Int# -- WRONG
import PrelBase --ghc1.3
--import PrelBase --ghc1.3
import GHC.Base
main = putStr (shows true_or_false "\n")
where
......
module Main (main) where
import IOExts ( unsafePerformIO )
import System.IO.Unsafe ( unsafePerformIO )
c :: Double -> Double
c x = cos x
......
......@@ -2,7 +2,7 @@
module Main(main) where
import Char
import ST
import GHC.ST
import MutableArray
reverse_if_bigendian :: [a] -> [a]
......
......@@ -2,8 +2,8 @@
module Main (main,myseq) where
import PrelGHC
import PrelErr
import GHC.Prim
import GHC.Err
main :: IO ()
main = seq (error "hello world!" :: Int) (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