From: rrt <unknown>
Date: Tue, 27 Feb 2001 14:37:17 +0000 (+0000)
Subject: [project @ 2001-02-27 14:37:17 by rrt]
X-Git-Tag: Approximately_9120_patches~2530
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d424a4fb4f783f104245108fe9394bb06d5f46c0;p=ghc-hetmet.git

[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
--- 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
--- 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