The linker is initialised from the Haskell world now.
-----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.41 2001/02/11 14:33:27 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.42 2001/02/12 11:38:49 sewardj Exp $
--
-- GHC Interactive User Interface
--
-- link in the available packages
pkgs <- getPackageInfo
+ initLinker
linkPackages (reverse pkgs)
(cmstate, ok, mods) <-
\begin{code}
{-# OPTIONS -#include "Linker.h" #-}
module Linker (
+ initLinker, -- :: IO ()
loadObj, -- :: String -> IO ()
unloadObj, -- :: String -> IO ()
lookupSymbol, -- :: String -> IO (Maybe (Ptr a))
foreign import "resolveObjs" unsafe
c_resolveObjs :: IO Int
+
+foreign import "initLinker" unsafe
+ initLinker :: IO ()
\end{code}