mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 20:34:19 +00:00
8396edc4b2
Estimated hours taken: 1 Branches: main Let benchmark.report_stats/0 report real times on POSIX platforms. configure.in: Check for time.h and gettimeofday(). runtime/mercury_conf.h.in: Add MR_HAVE_TIME_H, MR_HAVE_GETTIMEOFDAY. Unrelated change: add MR_HAVE_PTHREAD_H. runtime/mercury_timing.c: runtime/mercury_timing.h: Add `MR_get_real_milliseconds'. runtime/mercury_wrapper.c: runtime/mercury_wrapper.h: Rename MR_time_* globals to MR_user_time_*. Add and initialise MR_real_time_* globals. library/benchmarking.m: Output real times in ML_report_stats(). Correct spelling of milliseconds. java/runtime/Native.c: java/runtime/Native.java.in: trace/mercury_trace_declarative.c: Correct spelling of milliseconds.
117 lines
2.4 KiB
C
117 lines
2.4 KiB
C
/*
|
|
** Copyright (C) 2004, 2006 The University of Melbourne.
|
|
** This file may only be copied under the terms of the GNU Library General
|
|
** Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
*/
|
|
|
|
/*
|
|
** File: Native.c - Native code for java/runtime/Native.java
|
|
*/
|
|
|
|
#include <jni.h>
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: clock
|
|
* Signature: ()I
|
|
*/
|
|
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_clock(JNIEnv *, jclass);
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: clocks_per_sec
|
|
* Signature: ()I
|
|
*/
|
|
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_clocks_1per_1sec(
|
|
JNIEnv *, jclass);
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: times
|
|
* Signature: ()[I
|
|
*/
|
|
JNIEXPORT jintArray JNICALL Java_mercury_runtime_Native_times(
|
|
JNIEnv *, jclass);
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: clk_tck
|
|
* Signature: ()I
|
|
*/
|
|
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_clk_1tck(JNIEnv *, jclass);
|
|
|
|
/*
|
|
* Class: Native
|
|
* Method: get_user_cpu_milliseconds
|
|
* Signature: ()I
|
|
*/
|
|
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_get_1user_1cpu_1milliseconds(
|
|
JNIEnv *, jclass);
|
|
|
|
#include "mercury_imp.h"
|
|
#include "mercury_timing.h"
|
|
|
|
#include <time.h>
|
|
#ifdef MR_HAVE_SYS_TYPES_H
|
|
#include <sys/types.h>
|
|
#endif
|
|
#ifdef MR_HAVE_SYS_TIMES_H
|
|
#include <sys/times.h>
|
|
#endif
|
|
#ifdef MR_HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif
|
|
|
|
JNIEXPORT jint JNICALL
|
|
Java_mercury_runtime_Native_clock(JNIEnv *env, jclass obj) {
|
|
return (MR_Integer) clock();
|
|
}
|
|
|
|
JNIEXPORT jint JNICALL
|
|
Java_mercury_runtime_Native_clocks_1per_1sec(JNIEnv *env, jclass obj) {
|
|
return CLOCKS_PER_SEC;
|
|
}
|
|
|
|
JNIEXPORT jintArray JNICALL
|
|
Java_mercury_runtime_Native_times(JNIEnv *env, jclass obj) {
|
|
jint intarray[5];
|
|
jintArray result;
|
|
|
|
#ifdef MR_HAVE_POSIX_TIMES
|
|
struct tms t;
|
|
|
|
intarray[0] = (MR_Integer) times(&t);
|
|
intarray[1] = (MR_Integer) t.tms_utime;
|
|
intarray[2] = (MR_Integer) t.tms_stime;
|
|
intarray[3] = (MR_Integer) t.tms_cutime;
|
|
intarray[4] = (MR_Integer) t.tms_cstime;
|
|
#else
|
|
intarray[0] = -1;
|
|
#endif
|
|
|
|
result = (*env)->NewIntArray(env, 5);
|
|
if (result != NULL) {
|
|
(*env)->SetIntArrayRegion(env, result, 0, 5, intarray);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
JNIEXPORT jint JNICALL Java_mercury_runtime_Native_clk_1tck(
|
|
JNIEnv *env, jclass obj)
|
|
{
|
|
#if defined(MR_CLOCK_TICKS_PER_SECOND)
|
|
return MR_CLOCK_TICKS_PER_SECOND;
|
|
#else
|
|
return -1;
|
|
#endif
|
|
}
|
|
|
|
JNIEXPORT jint JNICALL
|
|
Java_mercury_runtime_Native_get_1user_1cpu_1milliseconds(
|
|
JNIEnv *env, jclass obj)
|
|
{
|
|
return MR_get_user_cpu_milliseconds();
|
|
}
|
|
|