projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e74cd01
)
[project @ 2000-12-05 12:15:19 by rrt]
author
rrt
<unknown>
Tue, 5 Dec 2000 12:15:19 +0000
(12:15 +0000)
committer
rrt
<unknown>
Tue, 5 Dec 2000 12:15:19 +0000
(12:15 +0000)
Declare no_hs_main
ghc/compiler/main/DriverPipeline.hs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/DriverPipeline.hs
b/ghc/compiler/main/DriverPipeline.hs
index
5d3aeb0
..
68e1981
100644
(file)
--- a/
ghc/compiler/main/DriverPipeline.hs
+++ b/
ghc/compiler/main/DriverPipeline.hs
@@
-1,5
+1,5
@@
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.36 2000/12/04 16:42:14 rrt Exp $
+-- $Id: DriverPipeline.hs,v 1.37 2000/12/05 12:15:19 rrt Exp $
--
-- GHC Driver
--
--
-- GHC Driver
--
@@
-653,6
+653,8
@@
run_phase SplitAs basename _suff _input_fn _output_fn
-----------------------------------------------------------------------------
-- Linking
-----------------------------------------------------------------------------
-- Linking
+GLOBAL_VAR(no_hs_main, False, Bool)
+
doLink :: [String] -> IO ()
doLink o_files = do
ln <- readIORef v_Pgm_l
doLink :: [String] -> IO ()
doLink o_files = do
ln <- readIORef v_Pgm_l