diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-21 09:48:22 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-21 10:00:06 +0100 |
| commit | bb120dfda517b43e050fb628c7729469f4bc1f07 (patch) | |
| tree | 7b5feee6448165585995a8bc0ed58913237338b4 | |
| parent | 106f0434144199276add8860c146c542cc67513b (diff) | |
| download | haskell-bb120dfda517b43e050fb628c7729469f4bc1f07.tar.gz | |
move startProfTimer() and stopProfTimer() to the public headers
| -rw-r--r-- | includes/rts/prof/CCS.h | 9 | ||||
| -rw-r--r-- | rts/Proftimer.h | 3 |
2 files changed, 9 insertions, 3 deletions
diff --git a/includes/rts/prof/CCS.h b/includes/rts/prof/CCS.h index e6c746b4bc..37285672b8 100644 --- a/includes/rts/prof/CCS.h +++ b/includes/rts/prof/CCS.h @@ -78,6 +78,15 @@ typedef struct CostCentreStack_ { /* ----------------------------------------------------------------------------- + * Start and stop the profiling timer. These can be called from + * Haskell to restrict the profile to portion(s) of the execution. + * See the module GHC.Profiling. + * ---------------------------------------------------------------------------*/ + +void stopProfTimer ( void ); +void startProfTimer ( void ); + +/* ----------------------------------------------------------------------------- * The rest is PROFILING only... * ---------------------------------------------------------------------------*/ diff --git a/rts/Proftimer.h b/rts/Proftimer.h index a8d16b45f4..4bb063fbbc 100644 --- a/rts/Proftimer.h +++ b/rts/Proftimer.h @@ -9,9 +9,6 @@ #ifndef PROFTIMER_H #define PROFTIMER_H -void stopProfTimer ( void ); -void startProfTimer ( void ); - #include "BeginPrivate.h" void initProfTimer ( void ); |
