[project @ 2001-02-27 14:37:17 by rrt]

Update ffi001.stdout (was simply wrong) and change fed001.hs in line with
library changes.

diff --git a/ghc/tests/ccall/should_run/fed001.hs b/ghc/tests/ccall/should_run/fed001.hs
index eab8987..57a5281 100644 (file)
--- a/ghc/tests/ccall/should_run/fed001.hs
+++ b/ghc/tests/ccall/should_run/fed001.hs
@@ -1,8 +1,9 @@
 import Foreign
 import Monad
+import Addr
 
 newtype XPtr a = XPtr Addr
-unXPtr (XPtr x) = x
+unXPtr (XPtr (A# x)) = x
 
 type CInt  = Int32
 type CSize = Word32

diff --git a/ghc/tests/ccall/should_run/ffi001.stdout b/ghc/tests/ccall/should_run/ffi001.stdout
index 3758fb7..695e5e7 100644 (file)
--- a/ghc/tests/ccall/should_run/ffi001.stdout
+++ b/ghc/tests/ccall/should_run/ffi001.stdout
@@ -1,16 +1 @@
-{-# OPTIONS -fglasgow-exts #-}
-
--- !!! A simple FFI test
--- This one provoked a bogus renamer error in 4.08.1:
---     
-module Main where
-
-import Foreign
-
-foreign export ccall "gccd" mygcd :: Int -> Int -> Int 
-
-main = putStrLn "No bug"
-
-mygcd a b = if (a==b) then a 
-           else if (a<b) then mygcd a (b-a)
-           else mygcd (a-b) a
+No bug