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

cs: repair for callbacks that might throw exceptions

Browse Source 
The callable used to trigger stack unwinding was unlocked during
initialization, but it shouldn't be.
This commit is contained in:
Matthew Flatt 2021-03-19 07:03:45 -06:00
parent 3952355d30
commit a50aa9d164
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/cs/rumble/foreign.ss
View File

@ -2010,9 +2010,7 @@
[else [else
(let ([fptr (make-ftype-pointer ptr->ptr call)]) (let ([fptr (make-ftype-pointer ptr->ptr call)])
(let ([v (ftype-ref ptr->ptr () fptr)]) (let ([v (ftype-ref ptr->ptr () fptr)])
(unlock-object ;; must leave the callable code object locked
(foreign-callable-code-object
(ftype-pointer-address fptr)))
v))]))) v))])))
;; ---------------------------------------- ;; ----------------------------------------