accessors to RTS flag values -- #5364

Summary: Implementation of #5364. Mostly boilerplate, reading FILE fields is missing.

Test Plan:
- Get some feedback on missing parts. (FILE fields)
- Get some feedback on module name.
- Get some feedback on other things.
- Get code reviewed.
- Make sure test suite is passing. (I haven't run it myself)

Reviewers: hvr, austin, ezyang

Reviewed By: ezyang

Subscribers: ekmett, simonmar, ezyang, carter, thomie

Differential Revision: https://phabricator.haskell.org/D306

GHC Trac Issues: #5364

Conflicts:
	includes/rts/Flags.h

1 files changed, 42 insertions, 0 deletions

diff --git a/libraries/base/cbits/rts.c b/libraries/base/cbits/rts.c
new file mode 100644
index 0000000000..dcc7365fb3
--- /dev/null
+++ b/libraries/base/cbits/rts.c
@@ -0,0 +1,42 @@
+#include "Rts.h"
+#include "rts/Flags.h"
+
+GC_FLAGS *getGcFlags()
+{
+    return &RtsFlags.GcFlags;
+}
+
+CONCURRENT_FLAGS *getConcFlags()
+{
+    return &RtsFlags.ConcFlags;
+}
+
+MISC_FLAGS *getMiscFlags()
+{
+    return &RtsFlags.MiscFlags;
+}
+
+DEBUG_FLAGS *getDebugFlags()
+{
+    return &RtsFlags.DebugFlags;
+}
+
+COST_CENTRE_FLAGS *getCcFlags()
+{
+    return &RtsFlags.CcFlags;
+}
+
+PROFILING_FLAGS *getProfFlags()
+{
+    return &RtsFlags.ProfFlags;
+}
+
+TRACE_FLAGS *getTraceFlags()
+{
+    return &RtsFlags.TraceFlags;
+}
+
+TICKY_FLAGS *getTickyFlags()
+{
+    return &RtsFlags.TickyFlags;
+}