From 738f3423acb7ea6b9bde54b1b3e706bc16f3aed8 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 28 Mar 2001 16:33:55 +0000
Subject: [PATCH] [project @ 2001-03-28 16:33:55 by simonmar] remove this
 outdated, nonworking test

---
 ghc/tests/lib/should_run/stableptr002.hs     |   25 -------------------------
 ghc/tests/lib/should_run/stableptr002.stdout |    2 --
 2 files changed, 27 deletions(-)
 delete mode 100644 ghc/tests/lib/should_run/stableptr002.hs
 delete mode 100644 ghc/tests/lib/should_run/stableptr002.stdout

diff --git a/ghc/tests/lib/should_run/stableptr002.hs b/ghc/tests/lib/should_run/stableptr002.hs
deleted file mode 100644
index daf9678..0000000
--- a/ghc/tests/lib/should_run/stableptr002.hs
+++ /dev/null
@@ -1,25 +0,0 @@
-module Main where
-
-import Stable
-import PrelIOBase
-
--- Testing callbacks: the initial haskell thread calls out to C with
--- the address of a Haskell callback.  The C function runs the callback
--- (in a new thread) and returns.
-
--- The stable pointer operation 'performIO' does the job of calling
--- the callback for us.
-
--- for an extra stressful test, the callback also does an explicit GC
--- to make sure that the original thread saved away its state
--- properly.
-
-main = do
-  io <- makeStablePtr hello
-  _ccall_GC_ performIO io
-  putStr "finished"
-
-hello :: IO ()
-hello  = do
-  _ccall_GC_ performGC
-  putStr "hello world!\n"
diff --git a/ghc/tests/lib/should_run/stableptr002.stdout b/ghc/tests/lib/should_run/stableptr002.stdout
deleted file mode 100644
index 4545b6b..0000000
--- a/ghc/tests/lib/should_run/stableptr002.stdout
+++ /dev/null
@@ -1,2 +0,0 @@
-hello world!
-finished
\ No newline at end of file
-- 
1.7.10.4