From eb6fb4cf7742dbdd10d1fa0702ff85b1c49084d4 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 13 Aug 2001 15:43:36 +0000 Subject: [PATCH] [project @ 2001-08-13 15:43:36 by simonmar] resolveObjs now returns a Bool, indicating success --- ghc/compiler/ghci/Linker.lhs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs index 5d16633..e7fb278 100644 --- a/ghc/compiler/ghci/Linker.lhs +++ b/ghc/compiler/ghci/Linker.lhs @@ -14,7 +14,7 @@ module Linker ( loadObj, -- :: String -> IO () unloadObj, -- :: String -> IO () lookupSymbol, -- :: String -> IO (Maybe (Ptr a)) - resolveObjs, -- :: IO () + resolveObjs, -- :: IO Bool addDLL -- :: String -> IO (Ptr CChar) ) where @@ -53,9 +53,7 @@ unloadObj str = do resolveObjs = do r <- c_resolveObjs - if (r == 0) - then panic "resolveObjs: failed" - else return () + return (r /= 0) -- returns True <=> success addDLL path lib = do maybe_errmsg <- c_addDLL (packString path) (packString lib) @@ -80,5 +78,4 @@ foreign import "initLinker" unsafe foreign import "addDLL" unsafe c_addDLL :: PackedString -> PackedString -> IO (Ptr CChar) - \end{code} -- 1.7.10.4