From: sof <unknown>
Date: Fri, 25 Jul 1997 23:24:17 +0000 (+0000)
Subject: [project @ 1997-07-25 23:24:17 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~215
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=152107ddf0ccfdd52a1df3c0882fe90f4b68b66b;p=ghc-hetmet.git

[project @ 1997-07-25 23:24:17 by sof]
new value: all_toplev_ids_visible
---

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 8361737..9af5db2 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -101,7 +101,9 @@ module CmdLineOpts (
 	opt_WarnIncompletePatterns, opt_WarnOverlappedPatterns,
 	opt_PruneTyDecls, opt_PruneInstDecls,
 	opt_D_show_unused_imports,
-	opt_D_show_rn_stats
+	opt_D_show_rn_stats,
+	
+	all_toplev_ids_visible
     ) where
 
 IMPORT_1_3(Array(array, (//)))
@@ -362,6 +364,21 @@ opt_D_show_rn_stats		= lookUp SLIT("-dshow-rn-stats")
 -- opt_UnfoldingOverrideThreshold	= lookup_int "-funfolding-override-threshold"
 \end{code}
 
+
+\begin{code}
+all_toplev_ids_visible :: Bool
+all_toplev_ids_visible = 
+  not opt_OmitInterfacePragmas ||  -- Pragmas can make them visible
+  opt_EnsureSplittableC        ||  -- Splitting requires visiblilty
+  opt_AutoSccsOnAllToplevs	   -- ditto for profiling 
+				   -- (ToDo: fix up the auto-annotation
+				   -- pass in the desugarer to avoid having
+				   -- to do this)
+
+\end{code}
+
+
+
 \begin{code}
 classifyOpts :: ([CoreToDo],	-- Core-to-Core processing spec
 		 [StgToDo])	-- STG-to-STG   processing spec