Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
22930733
Commit
22930733
authored
Mar 04, 2006
by
David Himmelstrup
Browse files
Allow hscCompileMake to target HscNothing.
parent
241eb302
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/HscMain.lhs
View file @
22930733
...
...
@@ -260,32 +260,18 @@ hscCompileMake :: Compiler (HscStatus, ModIface, ModDetails)
hscCompileMake hsc_env mod_summary
= compiler hsc_env mod_summary
where mkComp = hscMkCompiler norecompMake
backend = case hscTarget (hsc_dflags hsc_env) of
HscNothing -> hscCodeGenSimple (\(i, d, g) -> (NewHscRecomp False, i, d))
_other -> hscCodeGenMake
compiler
= case ms_hsc_src mod_summary of
ExtCoreFile
-> mkComp hscCoreFrontEnd hscNewBackEnd
hscCodeGenMake
-> mkComp hscCoreFrontEnd hscNewBackEnd
backend
HsSrcFile
-> mkComp hscFileFrontEnd hscNewBackEnd
hscCodeGenMake
-> mkComp hscFileFrontEnd hscNewBackEnd
backend
HsBootFile
-> mkComp hscFileFrontEnd hscNewBootBackEnd hscCodeGenIdentity
-- Same as 'hscCompileMake' but don't generate any actual code.
hscCompileMakeNothing :: Compiler (HscStatus, ModIface, ModDetails)
hscCompileMakeNothing hsc_env mod_summary
= compiler hsc_env mod_summary
where mkComp = hscMkCompiler norecompMake
codeGen = hscCodeGenSimple (\(i, d, g) -> (NewHscRecomp False, i, d))
compiler
= case ms_hsc_src mod_summary of
ExtCoreFile
-> mkComp hscCoreFrontEnd hscNewBackEnd
codeGen
HsSrcFile
-> mkComp hscFileFrontEnd hscNewBackEnd
codeGen
HsBootFile
-> mkComp hscFileFrontEnd hscNewBootBackEnd
hscCodeGenIdentity
-- Compile Haskell, extCore to bytecode.
hscCompileInteractive :: Compiler (InteractiveStatus, ModIface, ModDetails)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment