From d424a4fb4f783f104245108fe9394bb06d5f46c0 Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Tue, 27 Feb 2001 14:37:17 +0000
Subject: [PATCH] [project @ 2001-02-27 14:37:17 by rrt] Update ffi001.stdout
 (was simply wrong) and change fed001.hs in line with
 library changes.

---
 ghc/tests/ccall/should_run/fed001.hs     |    3 ++-
 ghc/tests/ccall/should_run/ffi001.stdout |   17 +----------------
 2 files changed, 3 insertions(+), 17 deletions(-)

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