Made some code #ifdef GHCI, so that it will compile without GHCI enabled.
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.92 2001/07/23 20:19:53 sof Exp $
+-- $Id: DriverPipeline.hs,v 1.93 2001/07/24 04:52:49 ken Exp $
-- as our "unlinked" object.
HscInterpreted ->
case maybe_interpreted_code of
-- as our "unlinked" object.
HscInterpreted ->
case maybe_interpreted_code of
Just (bcos,itbl_env) -> do tm <- getClockTime
return ([BCOs bcos itbl_env], tm)
Just (bcos,itbl_env) -> do tm <- getClockTime
return ([BCOs bcos itbl_env], tm)
Nothing -> panic "compile: no interpreted code"
-- we're in batch mode: finish the compilation pipeline.
Nothing -> panic "compile: no interpreted code"
-- we're in batch mode: finish the compilation pipeline.
ModIface -- new iface (if any compilation was done)
Bool -- stub_h exists
Bool -- stub_c exists
ModIface -- new iface (if any compilation was done)
Bool -- stub_h exists
Bool -- stub_c exists
(Maybe ([UnlinkedBCO],ItblEnv)) -- interpreted code, if any
(Maybe ([UnlinkedBCO],ItblEnv)) -- interpreted code, if any
+#else
+ (Maybe ()) -- no interpreted code whatsoever
+#endif
-- no errors or warnings; the individual passes
-- (parse/rename/typecheck) print messages themselves
-- no errors or warnings; the individual passes
-- (parse/rename/typecheck) print messages themselves
; (stub_h_exists, stub_c_exists, maybe_bcos, final_iface )
<- if toInterp
; (stub_h_exists, stub_c_exists, maybe_bcos, final_iface )
<- if toInterp
then do
----------------- Generate byte code ------------------
(bcos,itbl_env) <- byteCodeGen dflags binds
then do
----------------- Generate byte code ------------------
(bcos,itbl_env) <- byteCodeGen dflags binds
maybe_checked_iface new_iface tidy_details
return ( False, False, Just (bcos,itbl_env), final_iface )
maybe_checked_iface new_iface tidy_details
return ( False, False, Just (bcos,itbl_env), final_iface )
+#else
+ then error "GHC not compiled with interpreter"
+#endif
else do
----------------- Convert to STG ------------------
else do
----------------- Convert to STG ------------------