Commit 022ec942 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-02-18 12:10:41 by simonmar]

Catch up with changes in other parts of the tree
parent edbab70c
......@@ -31,7 +31,7 @@ test "conc017" { myvtr("", "", "") }
test "conc018" { myvtr("", "", "") }
test "conc019" { myvtr("", "", "") }
test "conc020" { myvtr("", "", "") }
test "conc021" { $normalise_errmsg = True myvtr("", "", "250") }
test "conc021" { $normalise_errmsg = True myvtr("", "", "254") }
test "conc022" { myvtr("", "", "") }
test "conc023" { myvtr("", "", "") }
test "conc024" { myvtr("", "", "") }
......
module PrelMain where
module Main where
-- !!! test for uncaught exception
mainIO = error "wurble"
foreign export foo :: Int -> IO Int
foreign import ccall unsafe "foo" foo_imported :: Int -> IO Int
foo n = error "wurble"
main = foo_imported 3
conc021: main thread exited (uncaught exception)
conc021: fatal error: foo: uncaught exception
......@@ -4,9 +4,9 @@ import Concurrent
import Exception
import IO
import PrelIOBase
import PrelConc
import PrelGHC
import GHC.Exts ( fork# )
import GHC.IOBase ( IO(..) )
import GHC.Conc ( ThreadId(..) )
main = do
m <- newEmptyMVar
......
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