diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-09-01 18:18:15 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-09 08:42:31 -0400 |
commit | accdb24a086b80fe74776246aa33bce5a920e3c8 (patch) | |
tree | 1204e3b93332d6f54d2b5f71cc2794bdc9bd4a2d /includes | |
parent | fd984d68e5ec4b04bc79395c099434e653eb1060 (diff) | |
download | haskell-accdb24a086b80fe74776246aa33bce5a920e3c8.tar.gz |
Expose RTS-only ways (#18651)
Some RTS ways are exposed via settings (ghcThreaded, ghcDebugged) but
not all. It's simpler if the RTS exposes them all itself.
Diffstat (limited to 'includes')
-rw-r--r-- | includes/Rts.h | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/includes/Rts.h b/includes/Rts.h index 589ef8b82c..5768e0eb7d 100644 --- a/includes/Rts.h +++ b/includes/Rts.h @@ -263,6 +263,15 @@ int rts_isProfiled(void); // Returns non-zero if the RTS is a dynamically-linked version int rts_isDynamic(void); +// Returns non-zero if the RTS is a threaded version +int rts_isThreaded(void); + +// Returns non-zero if the RTS is a debugged version +int rts_isDebugged(void); + +// Returns non-zero if the RTS is a tracing version (event log) +int rts_isTracing(void); + /* ----------------------------------------------------------------------------- RTS Exit codes -------------------------------------------------------------------------- */ |