summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2012-08-21 09:48:22 +0100
committerSimon Marlow <marlowsd@gmail.com>2012-08-21 10:00:06 +0100
commitbb120dfda517b43e050fb628c7729469f4bc1f07 (patch)
tree7b5feee6448165585995a8bc0ed58913237338b4
parent106f0434144199276add8860c146c542cc67513b (diff)
downloadhaskell-bb120dfda517b43e050fb628c7729469f4bc1f07.tar.gz
move startProfTimer() and stopProfTimer() to the public headers
-rw-r--r--includes/rts/prof/CCS.h9
-rw-r--r--rts/Proftimer.h3
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 );