/* ----------------------------------------------------------------------------- * * (c) The GHC Team 2005 * * Machine-dependent time measurement functions * * ---------------------------------------------------------------------------*/ // Not POSIX, due to use of ru_majflt in getPageFaults() // #include "PosixSource.h" #include "Rts.h" #include "GetTime.h" #include "Clock.h" #if defined(HAVE_SYS_RESOURCE_H) # include #endif #if defined(HAVE_SYS_TIMES_H) # include #endif #if ! (defined(HAVE_GETRUSAGE) || defined(HAVE_TIMES)) #error No implementation for getProcessCPUTime() available. #endif #if defined(darwin_HOST_OS) #include #include #include #include #endif #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_GETRUSAGE) // we'll implement getProcessCPUTime() and getProcessElapsedTime() // separately, using getrusage() and gettimeofday() respectively #if defined(darwin_HOST_OS) static uint64_t timer_scaling_factor_numer = 0; static uint64_t timer_scaling_factor_denom = 0; #endif void initializeTimer() { #if defined(darwin_HOST_OS) mach_timebase_info_data_t info; (void) mach_timebase_info(&info); timer_scaling_factor_numer = (uint64_t)info.numer; timer_scaling_factor_denom = (uint64_t)info.denom; #endif } #if defined(HAVE_CLOCK_GETTIME) static Time getClockTime(clockid_t clock) { struct timespec ts; int res = clock_gettime(clock, &ts); if (res == 0) { return SecondsToTime(ts.tv_sec) + NSToTime(ts.tv_nsec); } else { sysErrorBelch("clock_gettime"); stg_exit(EXIT_FAILURE); } } #endif Time getCurrentThreadCPUTime(void) { // N.B. Since macOS Catalina, Darwin supports clock_gettime but does not // support clock_getcpuclockid. Hence we prefer to use the Darwin-specific // path on Darwin, even if clock_gettime is available. #if defined(darwin_HOST_OS) thread_basic_info_data_t info = { }; mach_msg_type_number_t info_count = THREAD_BASIC_INFO_COUNT; kern_return_t kern_err = thread_info(mach_thread_self(), THREAD_BASIC_INFO, (thread_info_t) &info, &info_count); if (kern_err == KERN_SUCCESS) { return SecondsToTime(info.user_time.seconds) + USToTime(info.user_time.microseconds); } else { sysErrorBelch("getThreadCPUTime"); stg_exit(EXIT_FAILURE); } #elif defined(HAVE_CLOCK_GETTIME) && \ defined(CLOCK_PROCESS_CPUTIME_ID) && \ defined(HAVE_SYSCONF) static bool have_checked_usability = false; // The RELAXED operation is fine here as it's okay if we do the check below // more than once. if (!RELAXED_LOAD(&have_checked_usability)) { // The Linux clock_getres(2) manpage claims that some early versions of // Linux will return values which are uninterpretable in the presence // of migration across CPUs. They claim that clock_getcpuclockid(0) // will return ENOENT in this case. Check this. clockid_t clkid; if (clock_getcpuclockid(0, &clkid)) { sysErrorBelch("getCurrentThreadCPUTime: no supported"); stg_exit(EXIT_FAILURE); } RELAXED_STORE(&have_checked_usability, true); } return getClockTime(CLOCK_THREAD_CPUTIME_ID); #else #error I know of no means to find the CPU time of current thread on this platform. #endif } Time getProcessCPUTime(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_CPUTIME); checked_sysconf = 1; } if (sysconf_result != -1) { return getClockTime(CLOCK_PROCESS_CPUTIME_ID); } #endif // fallback to getrusage { struct rusage t; getrusage(RUSAGE_SELF, &t); return SecondsToTime(t.ru_utime.tv_sec) + USToTime(t.ru_utime.tv_usec); } } StgWord64 getMonotonicNSec(void) { #if defined(HAVE_CLOCK_GETTIME) return getClockTime(CLOCK_ID); #elif defined(darwin_HOST_OS) uint64_t time = mach_absolute_time(); return (time * timer_scaling_factor_numer) / timer_scaling_factor_denom; #else // use gettimeofday() struct timeval tv; if (gettimeofday(&tv, (struct timezone *) NULL) != 0) { debugBlech("getMonotonicNSec: gettimeofday failed: %s", strerror(errno)); }; return (StgWord64)tv.tv_sec * 1000000000 + (StgWord64)tv.tv_usec * 1000; #endif } Time getProcessElapsedTime(void) { return NSToTime(getMonotonicNSec()); } void getProcessTimes(Time *user, Time *elapsed) { *user = getProcessCPUTime(); *elapsed = getProcessElapsedTime(); } #elif defined(HAVE_TIMES) // we'll use the old times() API. Time getProcessCPUTime(void) { Time user, elapsed; getProcessTimes(&user,&elapsed); return user; } Time getProcessElapsedTime(void) { Time user, elapsed; getProcessTimes(&user,&elapsed); return elapsed; } void getProcessTimes(Time *user, Time *elapsed) { static uint32_t ClockFreq = 0; if (ClockFreq == 0) { #if defined(HAVE_SYSCONF) long ticks; ticks = sysconf(_SC_CLK_TCK); if ( ticks == -1 ) { sysErrorBelch("sysconf"); stg_exit(EXIT_FAILURE); } ClockFreq = ticks; #elif defined(CLK_TCK) /* defined by POSIX */ ClockFreq = CLK_TCK; #elif defined(HZ) ClockFreq = HZ; #elif defined(CLOCKS_PER_SEC) ClockFreq = CLOCKS_PER_SEC; #else errorBelch("can't get clock resolution"); stg_exit(EXIT_FAILURE); #endif } struct tms t; clock_t r = times(&t); *user = SecondsToTime(t.tms_utime) / ClockFreq; *elapsed = SecondsToTime(r) / ClockFreq; } #endif // HAVE_TIMES void getUnixEpochTime(StgWord64 *sec, StgWord32 *nsec) { #if defined(HAVE_GETTIMEOFDAY) struct timeval tv; gettimeofday(&tv, (struct timezone *) NULL); *sec = tv.tv_sec; *nsec = tv.tv_usec * 1000; #else /* Sigh, fall back to second resolution. */ time_t t; time(&t); *sec = t; *nsec = 0; #endif } W_ getPageFaults(void) { #if !defined(HAVE_GETRUSAGE) || defined(haiku_HOST_OS) return 0; #else struct rusage t; getrusage(RUSAGE_SELF, &t); return(t.ru_majflt); #endif }