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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-03-02 20:31:29 -05:00
parent 28aa84c52d
commit 69468b1480
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
atomics.sld
View file

@ -1,15 +1,15 @@
(define-library (atomics)
(export
atomic:get-fx
atomic:fx++
atomic:get
atomic:set!
)
(include-c-header "<ck_pr.h>")
(begin
;TODO: needed, unfortunately (define tmp 1)
(define-c atomic:fx++
"(void *data, int argc, closure _, object k, object num)"
" Cyc_check_fixnum(data, num);
ck_pr_add_ptr(&num, 2);
return_closcall1(data, k, num); ")
;TODO: won't work, ints are immutable
;(define-c atomic:fx++
; "(void *data, int argc, closure _, object k, object num)"
; " Cyc_check_fixnum(data, num);
; ck_pr_add_ptr(&num, 2);
; return_closcall1(data, k, num); ")
))