packageHsLibs :: DynFlags -> PackageConfig -> [String]
packageHsLibs dflags p = map (mkDynName . addSuffix) (hsLibraries p)
where
- non_dyn_ways = filter ((/= WayDyn) . wayName) (ways dflags)
+ ways0 = ways dflags
+
+ ways1 = filter ((/= WayDyn) . wayName) ways0
-- the name of a shared library is libHSfoo-ghc<version>.so
-- we leave out the _dyn, because it is superfluous
- tag = mkBuildTag (filter (not . wayRTSOnly) non_dyn_ways)
- rts_tag = mkBuildTag non_dyn_ways
+ -- debug RTS includes support for -ticky and -eventlog
+ ways2 | WayDebug `elem` map wayName ways1
+ = filter ((`notElem` [WayTicky,WayEventLog]) . wayName) ways1
+ | otherwise
+ = ways1
+
+ tag = mkBuildTag (filter (not . wayRTSOnly) ways2)
+ rts_tag = mkBuildTag ways2
mkDynName | opt_Static = id
| otherwise = (++ ("-ghc" ++ cProjectVersion))
#define USING_LIBBFD 1
#endif
-/* DEBUG implies TRACING
+/* DEBUG implies TRACING and TICKY_TICKY
*/
#if defined(DEBUG)
#define TRACING
+#define TICKY_TICKY
#endif
/* -----------------------------------------------------------------------------
keep them consistent with the macros that use them (which are
defined in Cmm.h. */
-#ifdef TICKY_TICKY
/* same trick as in the former StgTicky.h: recycle the same declarations
for both extern decls (which are included everywhere)
and initializations (which only happen once) */
/* End of counter declarations. */
-#endif /* TICKY_TICKY */
-
/* This is ugly, but the story is:
We got rid of StgTicky.h, which was previously
defining these macros for the benefit of C code
* Ticky-ticky profiling
*-------------------------------------------------------------------------- */
-#if defined(TICKY_TICKY)
-
#define TICKY_C /* define those variables */
#include "PosixSource.h"
#include "Rts.h"
+/* Catch-all top-level counter struct. Allocations from CAFs will go
+ * here.
+ */
+StgEntCounter top_ct
+ = { 0, 0, 0,
+ "TOP", "",
+ 0, 0, NULL };
+
+/* Data structure used in ``registering'' one of these counters. */
+
+StgEntCounter *ticky_entry_ctrs = NULL; /* root of list of them */
+
+/* We want Haskell code compiled with -ticky to be linkable with any
+ * version of the RTS, so we have to make sure all the symbols that
+ * ticky-compiled code may refer to are defined by every RTS. (#3439)
+ * Hence the #ifdef is here, rather than up above.
+ */
+#if defined(TICKY_TICKY)
+
#include "Ticky.h"
/* -----------------------------------------------------------------------------
PR_CTR(GC_WORDS_COPIED_ctr);
}
-/* Data structure used in ``registering'' one of these counters. */
-
-StgEntCounter *ticky_entry_ctrs = NULL; /* root of list of them */
-
/* To print out all the registered-counter info: */
static void
}
}
-
-/* Catch-all top-level counter struct. Allocations from CAFs will go
- * here.
- */
-StgEntCounter top_ct
- = { 0, 0, 0,
- "TOP", "",
- 0, 0, NULL };
-
#endif /* TICKY_TICKY */