Commit bb120dfd authored by Simon Marlow's avatar Simon Marlow
Browse files

move startProfTimer() and stopProfTimer() to the public headers

parent 106f0434
...@@ -77,6 +77,15 @@ typedef struct CostCentreStack_ { ...@@ -77,6 +77,15 @@ typedef struct CostCentreStack_ {
} CostCentreStack; } 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... * The rest is PROFILING only...
* ---------------------------------------------------------------------------*/ * ---------------------------------------------------------------------------*/
......
...@@ -9,9 +9,6 @@ ...@@ -9,9 +9,6 @@
#ifndef PROFTIMER_H #ifndef PROFTIMER_H
#define PROFTIMER_H #define PROFTIMER_H
void stopProfTimer ( void );
void startProfTimer ( void );
#include "BeginPrivate.h" #include "BeginPrivate.h"
void initProfTimer ( void ); void initProfTimer ( void );
......
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