From: simonmar <unknown>
Date: Fri, 13 Jun 2003 09:27:13 +0000 (+0000)
Subject: [project @ 2003-06-13 09:27:13 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~769
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4e1c7e2de7f7a7983003f19a85363a1e1f0170cc

[project @ 2003-06-13 09:27:13 by simonmar]
Force -fvia-C when profiling or ticky-ticky is on.
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 605f082..e0aa062 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1123,6 +1123,8 @@ hscMaybeAdjustLang current_hsc_lang = do
 	 | current_hsc_lang == HscInterpreted = current_hsc_lang
 	-- force -fvia-C if we are being asked for a .hc file
 	 | todo == StopBefore HCc  || keep_hc = HscC
+	-- force -fvia-C when profiling or ticky-ticky is on
+	 | opt_SccProfilingOn || opt_DoTickyProfiling = HscC
 	-- otherwise, stick to the plan
 	 | otherwise = current_hsc_lang
   return hsc_lang