mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 12:26:29 +00:00
75ff9d58c5
Estimated hours taken: 0.2 Import Peter Schachte's ROBDD package into the Mercury repository as `mercury/robdd'. Vendor tag is `robdd'. Release tag is `REL_1_0'.
41 lines
894 B
C
41 lines
894 B
C
/*****************************************************************
|
|
File : timing.c
|
|
RCS : $Id: timing.c,v 1.1 2000-03-10 05:17:23 dmo Exp $
|
|
Author :
|
|
Origin : Sat Aug 12 15:20:42 1995
|
|
Purpose : Provide timing information for benchmarking
|
|
Copyright: © 1995 Peter Schachte. All rights reserved.
|
|
|
|
*****************************************************************/
|
|
|
|
#include "timing.h"
|
|
|
|
#ifdef AMIGA
|
|
#include <time.h>
|
|
|
|
millisec milli_time(void)
|
|
{
|
|
return (millisec) (clock()/1000);
|
|
}
|
|
#else
|
|
/* assume it's unix, and we'll be using getrusage() */
|
|
|
|
#include <sys/time.h>
|
|
#include <sys/resource.h>
|
|
|
|
#if 0
|
|
#include <sys/rusage.h>
|
|
#else
|
|
void getrusage(int, struct rusage *);
|
|
#endif
|
|
|
|
millisec milli_time(void)
|
|
{
|
|
struct rusage p;
|
|
|
|
getrusage(RUSAGE_SELF, &p);
|
|
return (millisec)(p.ru_utime.tv_sec * 1000) +
|
|
(millisec)(p.ru_utime.tv_usec / 1000);
|
|
}
|
|
#endif
|