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/win32 | |
| 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/win32')
| -rw-r--r-- | rts/win32/GetTime.c | 13 |
1 files changed, 0 insertions, 13 deletions
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) { |