From: sof <unknown>
Date: Wed, 1 May 2002 17:12:24 +0000 (+0000)
Subject: [project @ 2002-05-01 17:12:24 by sof]
X-Git-Tag: Approx_11550_changesets_converted~2069
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c5d7cfca30757811ed00bdbd8dff782b75821c0c;p=ghc-hetmet.git

[project @ 2002-05-01 17:12:24 by sof]
remove addDLL, now in InteractiveUI
---

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index 32a34f1..2e517b0 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -11,8 +11,7 @@ module Linker (
    loadObj,      -- :: String -> IO ()
    unloadObj,    -- :: String -> IO ()
    lookupSymbol, -- :: String -> IO (Maybe (Ptr a))
-   resolveObjs,  -- :: IO Bool
-   addDLL	 -- :: String -> IO (Ptr CChar)
+   resolveObjs   -- :: IO Bool
   )  where
 
 import Monad            ( when )
@@ -52,13 +51,6 @@ resolveObjs = do
    r <- c_resolveObjs
    return (r /= 0)  -- returns True <=> success
 
-addDLL :: String -> String -> IO (Ptr CChar)
-addDLL path lib = do
-  withCString path $ \c_path -> do
-  withCString lib $ \c_lib -> do
-    maybe_errmsg <- c_addDLL c_path c_lib
-    return maybe_errmsg
-
 -- ---------------------------------------------------------------------------
 -- Foreign declaractions to RTS entry points which does the real work;
 -- ---------------------------------------------------------------------------
@@ -78,6 +70,4 @@ foreign import "unloadObj" unsafe
 foreign import "resolveObjs" unsafe
    c_resolveObjs :: IO Int
 
-foreign import "addDLL" unsafe 
-   c_addDLL :: CString -> CString -> IO (Ptr CChar)
 \end{code}