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

unbreak cross build

Browse Source
This commit is contained in:
Matthew Flatt 2021-02-17 11:09:54 -07:00
parent bf8741e727
commit 89130bd64f
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2004,12 +2004,16 @@
(define call-with-c-return
(let ([call (lambda (thunk) (thunk))])
(define-ftype ptr->ptr (function (ptr) ptr))
(let ([fptr (make-ftype-pointer ptr->ptr call)])
(let ([v (ftype-ref ptr->ptr () fptr)])
(unlock-object
(foreign-callable-code-object
(ftype-pointer-address fptr)))
v))))
(cond
[(not (eq? (machine-type) (#%$target-machine)))
(lambda (thunk) (#%error 'call-with-c-return "cannot use while cross-compiling"))]
[else
(let ([fptr (make-ftype-pointer ptr->ptr call)])
(let ([v (ftype-ref ptr->ptr () fptr)])
(unlock-object
(foreign-callable-code-object
(ftype-pointer-address fptr)))
v))])))
;; ----------------------------------------