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

Fix compiler warnings

Browse source
This commit is contained in:
Justin Ethier 2019-12-23 19:24:17 -05:00
parent 59bb0b4f41
commit 34ece856d8
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
srfi/18.sld
View file

@ -215,14 +215,13 @@
(define-c %mutex-timedlock! (define-c %mutex-timedlock!
"(void *data, int argc, closure _, object k, object obj, object timeout)" "(void *data, int argc, closure _, object k, object obj, object timeout)"
" mutex m = (mutex) obj; " mutex m = (mutex) obj;
struct timespec tim;
double value;
Cyc_check_mutex(data, obj); Cyc_check_mutex(data, obj);
Cyc_check_num(data, timeout); Cyc_check_num(data, timeout);
#ifdef __APPLE__ #ifdef __APPLE__
int result = pthread_mutex_lock(&(m->lock)); int result = pthread_mutex_lock(&(m->lock));
#else #else
value = unbox_number(timeout); struct timespec tim;
double value = unbox_number(timeout);
set_thread_blocked(data, k); set_thread_blocked(data, k);
clock_gettime(CLOCK_REALTIME, &tim); clock_gettime(CLOCK_REALTIME, &tim);
//clock_gettime(CLOCK_MONOTONIC, &tim); //clock_gettime(CLOCK_MONOTONIC, &tim);