diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2015-11-18 12:22:02 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-11-18 12:53:50 +0100 |
| commit | 6b3d5b5990b9b306e13575e60d7e1c8ce264b0ef (patch) | |
| tree | 3d7ac58f233767e78de8eec6bde7f81ec46f6485 /rts/RtsStartup.c | |
| parent | f9e17fd70d466fc00825f7324c944609f5c09251 (diff) | |
| download | haskell-6b3d5b5990b9b306e13575e60d7e1c8ce264b0ef.tar.gz | |
rts: Kill PAPI support
This hasn't been used for a very long time and will soon be superceded
by perf_events support.
Test Plan: validate
Reviewers: austin, simonmar
Reviewed By: austin, simonmar
Subscribers: thomie, erikd
Differential Revision: https://phabricator.haskell.org/D1493
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 35e52aa36e..ac4460e329 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -6,11 +6,6 @@ * * ---------------------------------------------------------------------------*/ -// PAPI uses caddr_t, which is not POSIX -#ifndef USE_PAPI -#include "PosixSource.h" -#endif - #include "Rts.h" #include "RtsAPI.h" #include "HsFFI.h" @@ -60,10 +55,6 @@ #include <locale.h> #endif -#if USE_PAPI -#include "Papi.h" -#endif - // Count of how many outstanding hs_init()s there have been. static int hs_init_count = 0; @@ -168,10 +159,6 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config) /* Initialise the stats department, phase 1 */ initStats1(); -#ifdef USE_PAPI - papi_init(); -#endif - /* initTracing must be after setupRtsFlags() */ #ifdef TRACING initTracing(); |