projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-06-23 10:33:03 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
Main.lhs
diff --git
a/ghc/compiler/main/Main.lhs
b/ghc/compiler/main/Main.lhs
index
2406609
..
9a62fae
100644
(file)
--- a/
ghc/compiler/main/Main.lhs
+++ b/
ghc/compiler/main/Main.lhs
@@
-87,13
+87,18
@@
doIt (core_cmds, stg_cmds)
= doIfSet opt_Verbose
(hPutStr stderr "Glasgow Haskell Compiler, version " >>
hPutStr stderr compiler_version >>
= doIfSet opt_Verbose
(hPutStr stderr "Glasgow Haskell Compiler, version " >>
hPutStr stderr compiler_version >>
- hPutStr stderr ", for Haskell 98\n") >>
+ hPutStr stderr ", for Haskell 98\n" >>
+ hPutStr stderr "\tcompiled by GHC version " >>
+ hPutStr stderr booter_version >>
+ hPutStr stderr "\n") >>
-------------------------- Reader ----------------
-------------------------- Reader ----------------
- show_pass "Reader" >>
- _scc_ "Reader"
+ show_pass "Parser" >>
+ _scc_ "Parser"
parseModule >>= \ (mod_name, rdr_module) ->
parseModule >>= \ (mod_name, rdr_module) ->
+ dumpIfSet opt_D_dump_parsed "Parser" (ppr rdr_module) >>
+
dumpIfSet opt_D_source_stats "Source Statistics"
(ppSourceStats False rdr_module) >>
dumpIfSet opt_D_source_stats "Source Statistics"
(ppSourceStats False rdr_module) >>
@@
-358,6
+363,11
@@
compiler_version =
go ls@[x,y] = '.':ls
go (x:xs) = x:go xs
go ls@[x,y] = '.':ls
go (x:xs) = x:go xs
+booter_version
+ = case "\
+ \ __GLASGOW_HASKELL__" of
+ ' ':n:ns -> n:'.':ns
+ ' ':m -> m
\end{code}
\begin{code}
\end{code}
\begin{code}