From 5c67b7e313b2455ca65d5aa5970d86889145e97e Mon Sep 17 00:00:00 2001 From: Lemmih Date: Sat, 18 Mar 2006 17:18:48 +0000 Subject: [PATCH] Don't generate stub files when -fno-code is given. --- ghc/compiler/main/CodeOutput.lhs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs index 0148ca4..8e4abbc 100644 --- a/ghc/compiler/main/CodeOutput.lhs +++ b/ghc/compiler/main/CodeOutput.lhs @@ -61,7 +61,11 @@ codeOutput :: DynFlags -> IO (Bool{-stub_h_exists-}, Bool{-stub_c_exists-}) codeOutput dflags this_mod location foreign_stubs pkg_deps flat_abstractC - = + | HscNothing <- hscTarget dflags + -- We aren't interested in any code when HscNothing is our target. + = return (False, False) + | otherwise + = -- You can have C (c_output) or assembly-language (ncg_output), -- but not both. [Allowing for both gives a space leak on -- flat_abstractC. WDP 94/10] -- 1.7.10.4