From: Julian Seward <jseward@acm.org>
Date: Sat, 26 Jun 2004 14:27:22 +0000 (+0000)
Subject: Deleted.
X-Git-Tag: svn/VALGRIND_3_0_1^2~1318
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f03d8c538e94866043bd5227e5f99882b92ef6cb;p=thirdparty%2Fvalgrind.git

Deleted.
This line, and those below, will be ignored--

D    Linker.hs


git-svn-id: svn://svn.valgrind.org/vex/trunk@16
---

diff --git a/VEX/Linker.hs b/VEX/Linker.hs
deleted file mode 100644
index f0a954fa8d..0000000000
--- a/VEX/Linker.hs
+++ /dev/null
@@ -1,26 +0,0 @@
-
-module Linker 	( linkObjects )
-
-where
-
-import Foreign.C.String
-import Foreign.Ptr
-
-foreign import ccall "linker_top_level_INIT" 
-                     linker_top_level_INIT :: IO ()
-
-foreign import ccall "linker_top_level_ADD"
-                     linker_top_level_ADD :: CString -> IO ()
-
-foreign import ccall "linker_top_level_LINK"
-                     linker_top_level_LINK :: IO (Ptr ())
-
-linkObjects :: [String] -> IO (Ptr ())
-linkObjects objs
-   = do linker_top_level_INIT
-        mapM add_obj objs
-        main_addr <- linker_top_level_LINK
-        return main_addr
-     where
-        add_obj :: String -> IO ()
-        add_obj obj_name = withCString obj_name linker_top_level_ADD