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

Allow optional thread cont arg

Browse source
This commit is contained in:
Justin Ethier 2020-08-12 18:49:02 -04:00
parent 53b8644e5d
commit 10630b4907
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runtime.c
View file

@ -6624,7 +6624,11 @@ void *Cyc_init_thread(object thread_and_thunk)
thd->scm_thread_obj = car(thread_and_thunk);
thd->gc_cont = cdr(thread_and_thunk);
thd->gc_num_args = 1;
thd->gc_args[0] = &Cyc_91end_91thread_67_primitive;
if (t->num_elements >= 7 && t->elements[6] != boolean_f) {
thd->gc_args[0] = t->elements[6];
} else {
thd->gc_args[0] = &Cyc_91end_91thread_67_primitive;
}
thd->thread_id = pthread_self();
// Copy thread params from the calling thread

2
srfi/18.sld
View file

@ -71,12 +71,14 @@
;; - name
;; - specific
;; - internal
;; - end of thread cont (or #f for default)
(vector
'cyc-thread-obj
thunk
(%alloc-thread-data) ;; Internal data for new thread
name-str
#f
#f
#f)))
(define (thread-name t) (vector-ref t 3))