| 1 | //===--- clock_gettime windows implementation -------------------*- C++ -*-===// |
| 2 | // |
| 3 | // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. |
| 4 | // See https://llvm.org/LICENSE.txt for license information. |
| 5 | // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception |
| 6 | // |
| 7 | //===----------------------------------------------------------------------===// |
| 8 | |
| 9 | #include "hdr/time_macros.h" |
| 10 | |
| 11 | #include "src/__support/CPP/atomic.h" |
| 12 | #include "src/__support/CPP/bit.h" |
| 13 | #include "src/__support/CPP/limits.h" |
| 14 | #include "src/__support/macros/optimization.h" |
| 15 | #include "src/__support/time/clock_gettime.h" |
| 16 | #include "src/__support/time/units.h" |
| 17 | #include "src/__support/time/windows/performance_counter.h" |
| 18 | |
| 19 | #define WIN32_LEAN_AND_MEAN |
| 20 | #define NOMINMAX |
| 21 | #include <Windows.h> |
| 22 | |
| 23 | namespace LIBC_NAMESPACE_DECL { |
| 24 | namespace internal { |
| 25 | ErrorOr<int> clock_gettime(clockid_t clockid, timespec *ts) { |
| 26 | using namespace time_units; |
| 27 | constexpr unsigned long long HNS_PER_SEC = 1_s_ns / 100ULL; |
| 28 | constexpr long long SEC_LIMIT = |
| 29 | cpp::numeric_limits<decltype(ts->tv_sec)>::max(); |
| 30 | ErrorOr<int> ret = 0; |
| 31 | switch (clockid) { |
| 32 | default: |
| 33 | ret = cpp::unexpected(EINVAL); |
| 34 | break; |
| 35 | |
| 36 | case CLOCK_MONOTONIC: { |
| 37 | // see |
| 38 | // https://learn.microsoft.com/en-us/windows/win32/sysinfo/acquiring-high-resolution-time-stamps |
| 39 | // Is the performance counter monotonic (non-decreasing)? |
| 40 | // Yes. performance_counter does not go backward. |
| 41 | [[clang::uninitialized]] LARGE_INTEGER buffer; |
| 42 | // On systems that run Windows XP or later, the function will always |
| 43 | // succeed and will thus never return zero. |
| 44 | ::QueryPerformanceCounter(&buffer); |
| 45 | long long freq = performance_counter::get_ticks_per_second(); |
| 46 | long long ticks = buffer.QuadPart; |
| 47 | long long tv_sec = ticks / freq; |
| 48 | long long tv_nsec = (ticks % freq) * 1_s_ns / freq; |
| 49 | if (LIBC_UNLIKELY(tv_sec > SEC_LIMIT)) { |
| 50 | ret = cpp::unexpected(EOVERFLOW); |
| 51 | break; |
| 52 | } |
| 53 | ts->tv_sec = static_cast<decltype(ts->tv_sec)>(tv_sec); |
| 54 | ts->tv_nsec = static_cast<decltype(ts->tv_nsec)>(tv_nsec); |
| 55 | break; |
| 56 | } |
| 57 | case CLOCK_REALTIME: { |
| 58 | // https://learn.microsoft.com/en-us/windows/win32/api/sysinfoapi/nf-sysinfoapi-getsystemtimepreciseasfiletime |
| 59 | // GetSystemTimePreciseAsFileTime |
| 60 | // This function is best suited for high-resolution time-of-day |
| 61 | // measurements, or time stamps that are synchronized to UTC |
| 62 | [[clang::uninitialized]] FILETIME file_time; |
| 63 | [[clang::uninitialized]] ULARGE_INTEGER time; |
| 64 | ::GetSystemTimePreciseAsFileTime(&file_time); |
| 65 | time.LowPart = file_time.dwLowDateTime; |
| 66 | time.HighPart = file_time.dwHighDateTime; |
| 67 | |
| 68 | // adjust to POSIX epoch (from Jan 1, 1601 to Jan 1, 1970) |
| 69 | constexpr unsigned long long POSIX_TIME_SHIFT = |
| 70 | (11644473600ULL * HNS_PER_SEC); |
| 71 | if (LIBC_UNLIKELY(POSIX_TIME_SHIFT > time.QuadPart)) { |
| 72 | ret = cpp::unexpected(EOVERFLOW); |
| 73 | break; |
| 74 | } |
| 75 | time.QuadPart -= (11644473600ULL * HNS_PER_SEC); |
| 76 | unsigned long long tv_sec = time.QuadPart / HNS_PER_SEC; |
| 77 | unsigned long long tv_nsec = (time.QuadPart % HNS_PER_SEC) * 100ULL; |
| 78 | if (LIBC_UNLIKELY(tv_sec > SEC_LIMIT)) { |
| 79 | ret = cpp::unexpected(EOVERFLOW); |
| 80 | break; |
| 81 | } |
| 82 | ts->tv_sec = static_cast<decltype(ts->tv_sec)>(tv_sec); |
| 83 | ts->tv_nsec = static_cast<decltype(ts->tv_nsec)>(tv_nsec); |
| 84 | break; |
| 85 | } |
| 86 | case CLOCK_PROCESS_CPUTIME_ID: |
| 87 | case CLOCK_THREAD_CPUTIME_ID: { |
| 88 | [[clang::uninitialized]] FILETIME creation_time; |
| 89 | [[clang::uninitialized]] FILETIME exit_time; |
| 90 | [[clang::uninitialized]] FILETIME kernel_time; |
| 91 | [[clang::uninitialized]] FILETIME user_time; |
| 92 | bool success; |
| 93 | if (clockid == CLOCK_PROCESS_CPUTIME_ID) { |
| 94 | // https://learn.microsoft.com/en-us/windows/win32/api/processthreadsapi/nf-processthreadsapi-getprocesstimes |
| 95 | success = ::GetProcessTimes(::GetCurrentProcess(), &creation_time, |
| 96 | &exit_time, &kernel_time, &user_time); |
| 97 | } else { |
| 98 | // https://learn.microsoft.com/en-us/windows/win32/api/processthreadsapi/nf-processthreadsapi-getthreadtimes |
| 99 | success = ::GetThreadTimes(::GetCurrentThread(), &creation_time, |
| 100 | &exit_time, &kernel_time, &user_time); |
| 101 | } |
| 102 | if (!success) { |
| 103 | ret = cpp::unexpected(EINVAL); |
| 104 | break; |
| 105 | } |
| 106 | // https://learn.microsoft.com/en-us/windows/win32/api/minwinbase/ns-minwinbase-filetime |
| 107 | // It is not recommended that you add and subtract values from the FILETIME |
| 108 | // structure to obtain relative times. Instead, you should copy the low- and |
| 109 | // high-order parts of the file time to a ULARGE_INTEGER structure, perform |
| 110 | // 64-bit arithmetic on the QuadPart member, and copy the LowPart and |
| 111 | // HighPart members into the FILETIME structure. |
| 112 | auto kernel_time_hns = cpp::bit_cast<ULARGE_INTEGER>(kernel_time); |
| 113 | auto user_time_hns = cpp::bit_cast<ULARGE_INTEGER>(user_time); |
| 114 | unsigned long long total_time_hns = |
| 115 | kernel_time_hns.QuadPart + user_time_hns.QuadPart; |
| 116 | |
| 117 | unsigned long long tv_sec = total_time_hns / HNS_PER_SEC; |
| 118 | unsigned long long tv_nsec = (total_time_hns % HNS_PER_SEC) * 100ULL; |
| 119 | |
| 120 | if (LIBC_UNLIKELY(tv_sec > SEC_LIMIT)) { |
| 121 | ret = cpp::unexpected(EOVERFLOW); |
| 122 | break; |
| 123 | } |
| 124 | |
| 125 | ts->tv_sec = static_cast<decltype(ts->tv_sec)>(tv_sec); |
| 126 | ts->tv_nsec = static_cast<decltype(ts->tv_nsec)>(tv_nsec); |
| 127 | |
| 128 | break; |
| 129 | } |
| 130 | } |
| 131 | return ret; |
| 132 | } |
| 133 | } // namespace internal |
| 134 | } // namespace LIBC_NAMESPACE_DECL |
| 135 | |