Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Moved from gettimeofday() to the more precise clock_gettime()

Browse source
This commit is contained in:
Arthur Maciel 2021-03-01 23:13:59 -03:00
parent 209050b2d4
commit 5fb3d69560
1 changed files with 8 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scheme/time.sld
View file

@ -10,12 +10,9 @@
(export (export
current-second current-second
current-jiffy current-jiffy
jiffies-per-second jiffies-per-second)
) (include-c-header "<time.h>")
(include-c-header "<sys/time.h>") (import (scheme base))
(import (scheme base)
)
;; TODO: get an FFI syntax for including C header files, even if it is not needed for this library
(begin (begin
(define-c current-second (define-c current-second
"(void *data, int argc, closure _, object k)" "(void *data, int argc, closure _, object k)"
@ -23,12 +20,13 @@
time_t t = time(NULL); time_t t = time(NULL);
double_value(&box) = t; double_value(&box) = t;
return_closcall1(data, k, &box); ") return_closcall1(data, k, &box); ")
(define-c current-jiffy (define-c current-jiffy
"(void *data, int argc, closure _, object k)" "(void *data, int argc, closure _, object k)"
" struct timeval tv; " struct timespec now;
make_double(box, 0.0); make_double(box, 0.0);
gettimeofday(&tv, NULL); /* TODO: longer-term consider using clock_gettime instead */ clock_gettime(CLOCK_MONOTONIC, &now);
long long jiffy = (tv.tv_sec)*1000000LL + tv.tv_usec; long long jiffy = (now.tv_sec)*1000000LL + tv.tv_nsec/1000; // nano->microseconds
/* Future consideration: /* Future consideration:
mp_int bn_tmp, bn_tmp2, bn_tmp3; mp_int bn_tmp, bn_tmp2, bn_tmp3;
mp_init(&bn_tmp); mp_init(&bn_tmp);
@ -50,5 +48,4 @@
"(void *data, int argc, closure _, object k)" "(void *data, int argc, closure _, object k)"
" int n = 1000000; " int n = 1000000;
object obj = obj_int2obj(n); object obj = obj_int2obj(n);
return_closcall1(data, k, obj); ") return_closcall1(data, k, obj); ")))
))