From 4e1c7e2de7f7a7983003f19a85363a1e1f0170cc Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 13 Jun 2003 09:27:13 +0000
Subject: [PATCH] [project @ 2003-06-13 09:27:13 by simonmar] Force -fvia-C
 when profiling or ticky-ticky is on.

---
 ghc/compiler/main/DriverPipeline.hs |    2 ++
 1 file changed, 2 insertions(+)

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
-- 
1.7.10.4