diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-09-15 08:39:41 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-09-15 08:39:41 +0000 |
| commit | 521f2016cb881842c4b30b9f460ac612e691ac23 (patch) | |
| tree | fe8dd1dbfe76afa0d0b3e08874609bea78a6d5be | |
| parent | a6049f031d1693ac8a365d9b2adb02a6f835de47 (diff) | |
| download | haskell-521f2016cb881842c4b30b9f460ac612e691ac23.tar.gz | |
rts_isProfiled should be a visible API (fixes T2615(dyn))
| -rw-r--r-- | includes/rts/prof/CCS.h | 3 | ||||
| -rw-r--r-- | rts/RtsUtils.h | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/includes/rts/prof/CCS.h b/includes/rts/prof/CCS.h index 90224d72a0..b210991017 100644 --- a/includes/rts/prof/CCS.h +++ b/includes/rts/prof/CCS.h @@ -14,6 +14,9 @@ #ifndef 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 * ---------------------------------------------------------------------------*/ diff --git a/rts/RtsUtils.h b/rts/RtsUtils.h index 24033b9482..1bf840bb88 100644 --- a/rts/RtsUtils.h +++ b/rts/RtsUtils.h @@ -46,8 +46,6 @@ void printRtsInfo(void); /* Alternate to raise(3) for threaded rts, for OpenBSD */ int genericRaise(int sig); -int rts_isProfiled(void); - #include "EndPrivate.h" #endif /* RTSUTILS_H */ |