mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
Added notes regarding mutex lock issue
This commit is contained in:
parent
9d3466efd1
commit
926fa1a9e1
1 changed files with 6 additions and 1 deletions
|
@ -29,6 +29,11 @@
|
|||
(let loop ()
|
||||
;(write (list (null? *queue*) *queue*))
|
||||
(define sleep? #f)
|
||||
;; 2 issues here:
|
||||
;; - the mutex-lock seems to skip over cond; there is some kind of
|
||||
;; control flow problem
|
||||
;; - try compiling this but commenting out the Cyc_mutex_lock
|
||||
;; code in the C. there is a gc_move bag tag error at runtime
|
||||
(mutex-lock! *lock*)`
|
||||
(cond
|
||||
((not (null? *queue*))
|
||||
|
@ -39,7 +44,7 @@
|
|||
(set! sleep? #t)))
|
||||
(mutex-unlock! *lock*)
|
||||
(if sleep? (thread-sleep! 1000))
|
||||
; (loop)
|
||||
(loop)
|
||||
))
|
||||
|
||||
;(thread-start! (make-thread producer))
|
||||
|
|
Loading…
Add table
Reference in a new issue