mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-09 02:43:21 +00:00
d465fa53cb
Discussion of these changes can be found on the Mercury developers
mailing list archives from June 2018.
COPYING.LIB:
Add a special linking exception to the LGPL.
*:
Update references to COPYING.LIB.
Clean up some minor errors that have accumulated in copyright
messages.
90 lines
2.2 KiB
C
90 lines
2.2 KiB
C
// vim: ts=4 sw=4 expandtab ft=c
|
|
|
|
// Copyright (C) 1993-1994,1997,2000, 2005-2006 The University of Melbourne.
|
|
// Copyright (C) 2016, 2018 The Mercury team.
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
|
|
// file: timing.c
|
|
// main authors: fjh
|
|
//
|
|
// Timing routines.
|
|
|
|
#include "mercury_imp.h"
|
|
|
|
#ifdef MR_HAVE_SYS_TIMES_H
|
|
#include <sys/times.h> // for times() and `struct tms'
|
|
#endif
|
|
|
|
#ifdef MR_HAVE_SYS_TIME_H
|
|
#include <sys/time.h>
|
|
#endif
|
|
|
|
#ifdef MR_HAVE_TIME_H
|
|
#include <time.h>
|
|
#endif
|
|
|
|
#ifdef MR_WIN32_GETPROCESSTIMES
|
|
#include "mercury_windows.h"
|
|
#endif
|
|
|
|
#include "mercury_timing.h"
|
|
|
|
int
|
|
MR_get_user_cpu_milliseconds(void)
|
|
{
|
|
#if defined(MR_WIN32_GETPROCESSTIMES)
|
|
#define FILETIME_TO_MILLISEC(time, msec) \
|
|
do \
|
|
{ \
|
|
SYSTEMTIME tmp; \
|
|
FileTimeToSystemTime(&time, &tmp); \
|
|
msec = tmp.wMilliseconds + 1000 * \
|
|
(tmp.wSecond + 60 * (tmp.wMinute + 60 * tmp.wHour)); \
|
|
} while (0)
|
|
|
|
FILETIME creation_time;
|
|
FILETIME exit_time;
|
|
FILETIME kernel_time;
|
|
FILETIME user_time;
|
|
int user_msec;
|
|
int kernel_msec;
|
|
|
|
GetProcessTimes(GetCurrentProcess(),
|
|
&creation_time, &exit_time, &kernel_time, &user_time);
|
|
FILETIME_TO_MILLISEC(user_time, user_msec);
|
|
FILETIME_TO_MILLISEC(kernel_time, kernel_msec);
|
|
return user_msec + kernel_msec;
|
|
#elif defined(MR_HAVE_SYS_TIMES_H)
|
|
#ifdef MR_CLOCK_TICKS_PER_SECOND
|
|
const double ticks_per_millisecond = MR_CLOCK_TICKS_PER_SECOND / 1000.0;
|
|
struct tms t;
|
|
|
|
if (times(&t) == -1) {
|
|
return -1;
|
|
}
|
|
|
|
return (int) (t.tms_utime / ticks_per_millisecond);
|
|
#else
|
|
return -1;
|
|
#endif
|
|
#else
|
|
return -1;
|
|
#endif
|
|
}
|
|
|
|
int
|
|
MR_get_real_milliseconds(void)
|
|
{
|
|
#if defined(MR_HAVE_GETTIMEOFDAY)
|
|
struct timeval tv;
|
|
|
|
if (gettimeofday(&tv, NULL) == -1) {
|
|
return -1;
|
|
}
|
|
|
|
return (tv.tv_sec * 1000) + (tv.tv_usec / 1000);
|
|
#else
|
|
return -1;
|
|
#endif
|
|
}
|