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

Merge pull request #451 from arthurmaciel/master

Browse source 
@arthurmaciel Moved from gettimeofday() to the more precise clock_gettime()
This commit is contained in:
Justin Ethier 2021-03-03 21:20:51 -05:00 • committed by GitHub
commit 39c93e33be
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
scheme/time.sld
View file

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