X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FilxGen%2Ftests%2Ftest21.hs;fp=ghc%2Fcompiler%2FilxGen%2Ftests%2Ftest21.hs;h=0000000000000000000000000000000000000000;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hp=1870f22b97193f5b5e50f677926db168cd395ef9;hpb=28a464a75e14cece5db40f2765a29348273ff2d2;p=ghc-hetmet.git

diff --git a/ghc/compiler/ilxGen/tests/test21.hs b/ghc/compiler/ilxGen/tests/test21.hs
deleted file mode 100644
index 1870f22..0000000
--- a/ghc/compiler/ilxGen/tests/test21.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-{-# OPTIONS -fno-implicit-prelude  #-}
-
-import PrelIOBase
-import PrelIO
-import PrelBase
-import PrelAddr
-
-foreign import "libHS_cbits" "getErrStr__"  unsafe ggetErrStr__  :: Int -> IO Addr 
-
-main = putStr (uunsafePerformIO (ggetErrStr__ 4))
-
-uunsafePerformIO	:: IO Addr -> [Char]
-uunsafePerformIO (IO m) = case m realWorld# of (# _, (A# r) #)   -> (unpackCString#  r)