diff options
| author | Sergei Trofimovich <siarheit@google.com> | 2016-02-07 16:59:03 +0000 |
|---|---|---|
| committer | Sergei Trofimovich <siarheit@google.com> | 2016-02-07 20:27:03 +0000 |
| commit | 256c1b3922ffed686e80c051d3d59ed8581993be (patch) | |
| tree | 006d12364a730ad41beb275a50cddbc31bfffa68 /rts | |
| parent | 4f283a6f84e76b3e8e1041eab1bbb9f8c63ce3fd (diff) | |
| download | haskell-256c1b3922ffed686e80c051d3d59ed8581993be.tar.gz | |
rts: drop unused getThreadCPUTime
Use of this helper function was removed in:
commit 3c9fc104337a142fe4f375d30d7a6b81d55a70c1
Author: Brian Brooks <brooks.brian@gmail.com>
Date: Thu Jul 10 02:55:33 2014 -0500
Avoid unnecessary clock_gettime() syscalls in GC stats.
Noticed by uselex.rb:
getThreadCPUTime: [R]: exported from:
./rts/dist/build/posix/GetTime.p_o
Signed-off-by: Sergei Trofimovich <siarheit@google.com>
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/GetTime.h | 1 | ||||
| -rw-r--r-- | rts/posix/GetTime.c | 30 | ||||
| -rw-r--r-- | rts/win32/GetTime.c | 13 |
3 files changed, 0 insertions, 44 deletions
diff --git a/rts/GetTime.h b/rts/GetTime.h index 32c3754829..4aaddd00fe 100644 --- a/rts/GetTime.h +++ b/rts/GetTime.h @@ -14,7 +14,6 @@ void initializeTimer (void); Time getProcessCPUTime (void); -Time getThreadCPUTime (void); Time getProcessElapsedTime (void); void getProcessTimes (Time *user, Time *elapsed); diff --git a/rts/posix/GetTime.c b/rts/posix/GetTime.c index def78a4ac0..24d0d50e8a 100644 --- a/rts/posix/GetTime.c +++ b/rts/posix/GetTime.c @@ -171,36 +171,6 @@ void getProcessTimes(Time *user, Time *elapsed) #endif // HAVE_TIMES -Time getThreadCPUTime(void) -{ -#if !defined(BE_CONSERVATIVE) && \ - defined(HAVE_CLOCK_GETTIME) && \ - defined(_SC_CPUTIME) && \ - defined(CLOCK_PROCESS_CPUTIME_ID) && \ - defined(HAVE_SYSCONF) - { - static int checked_sysconf = 0; - static int sysconf_result = 0; - - if (!checked_sysconf) { - sysconf_result = sysconf(_SC_THREAD_CPUTIME); - checked_sysconf = 1; - } - if (sysconf_result != -1) { - // clock_gettime() gives us per-thread CPU time. It isn't - // reliable on Linux, but it's the best we have. - struct timespec ts; - int res; - res = clock_gettime(CLOCK_THREAD_CPUTIME_ID, &ts); - if (res == 0) { - return SecondsToTime(ts.tv_sec) + NSToTime(ts.tv_nsec); - } - } - } -#endif - return getProcessCPUTime(); -} - void getUnixEpochTime(StgWord64 *sec, StgWord32 *nsec) { #if defined(HAVE_GETTIMEOFDAY) diff --git a/rts/win32/GetTime.c b/rts/win32/GetTime.c index 3600839bca..6a452487cb 100644 --- a/rts/win32/GetTime.c +++ b/rts/win32/GetTime.c @@ -100,19 +100,6 @@ getProcessElapsedTime(void) return NSToTime(getMonotonicNSec()); } -Time -getThreadCPUTime(void) -{ - FILETIME creationTime, exitTime, userTime, kernelTime = {0,0}; - - if (!GetThreadTimes(GetCurrentThread(), &creationTime, - &exitTime, &kernelTime, &userTime)) { - return 0; - } - - return fileTimeToRtsTime(userTime); -} - void getUnixEpochTime(StgWord64 *sec, StgWord32 *nsec) { |