Commit 521f2016 authored by Simon Marlow's avatar Simon Marlow

rts_isProfiled should be a visible API (fixes T2615(dyn))

parent a6049f03
...@@ -14,6 +14,9 @@ ...@@ -14,6 +14,9 @@
#ifndef RTS_PROF_CCS_H #ifndef RTS_PROF_CCS_H
#define RTS_PROF_CCS_H #define RTS_PROF_CCS_H
// Returns non-zero if the RTS is a profiling version
int rts_isProfiled(void);
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* Data Structures * Data Structures
* ---------------------------------------------------------------------------*/ * ---------------------------------------------------------------------------*/
......
...@@ -46,8 +46,6 @@ void printRtsInfo(void); ...@@ -46,8 +46,6 @@ void printRtsInfo(void);
/* Alternate to raise(3) for threaded rts, for OpenBSD */ /* Alternate to raise(3) for threaded rts, for OpenBSD */
int genericRaise(int sig); int genericRaise(int sig);
int rts_isProfiled(void);
#include "EndPrivate.h" #include "EndPrivate.h"
#endif /* RTSUTILS_H */ #endif /* RTSUTILS_H */
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment