suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

expander: fix registry-lock retry path

Browse Source 
Provoking the retry path is extremely difficult, so it's unlikely to
have caused any problem so far.
This commit is contained in:
Matthew Flatt 2018-03-06 09:46:26 -07:00
parent 80ae3394aa
commit 82b5ec8d18
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/namespace/registry.rkt
View File

@ -28,7 +28,7 @@
void] void]
[else [else
;; CAS failed; take it from the top ;; CAS failed; take it from the top
(loop)])) (lambda () (loop))]))
(lambda () (lambda ()
(semaphore-post sema))))] (semaphore-post sema))))]
[(eq? (current-thread) (cdr v)) [(eq? (current-thread) (cdr v))

2
racket/src/racket/src/startup.inc
View File

@ -12064,7 +12064,7 @@ static const char *startup_source =
"(lambda()" "(lambda()"
"(if(box-cas! lock-box_0 v_31 lock_0)" "(if(box-cas! lock-box_0 v_31 lock_0)"
"(let-values()(begin(proc_2) void))" "(let-values()(begin(proc_2) void))"
"(let-values()(loop_74))))" "(let-values()(lambda()(loop_74)))))"
"(lambda()(semaphore-post sema_0)))))))" "(lambda()(semaphore-post sema_0)))))))"
"(if(eq?(current-thread)(cdr v_31))" "(if(eq?(current-thread)(cdr v_31))"
"(let-values()(proc_2))" "(let-values()(proc_2))"