accessors to RTS flag values -- #5364
[ghc.git] / libraries / base / cbits / rts.c
1 #include "Rts.h"
2 #include "rts/Flags.h"
3
4 GC_FLAGS *getGcFlags()
5 {
6 return &RtsFlags.GcFlags;
7 }
8
9 CONCURRENT_FLAGS *getConcFlags()
10 {
11 return &RtsFlags.ConcFlags;
12 }
13
14 MISC_FLAGS *getMiscFlags()
15 {
16 return &RtsFlags.MiscFlags;
17 }
18
19 DEBUG_FLAGS *getDebugFlags()
20 {
21 return &RtsFlags.DebugFlags;
22 }
23
24 COST_CENTRE_FLAGS *getCcFlags()
25 {
26 return &RtsFlags.CcFlags;
27 }
28
29 PROFILING_FLAGS *getProfFlags()
30 {
31 return &RtsFlags.ProfFlags;
32 }
33
34 TRACE_FLAGS *getTraceFlags()
35 {
36 return &RtsFlags.TraceFlags;
37 }
38
39 TICKY_FLAGS *getTickyFlags()
40 {
41 return &RtsFlags.TickyFlags;
42 }