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

add note to a broken test

Browse Source 
The test doesn't go wrong so often that its crucial to fix now,
but it should be fixd in the near future.
This commit is contained in:
Matthew Flatt 2019-10-08 08:30:05 -06:00
parent 84827d04aa
commit dce39cf24b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-test-core/tests/racket/foreign-test.rktl
View File

@ -278,6 +278,10 @@
((ffi 'hoho (_fun _int (_fun _int -> (_fun _int -> _int)) -> _int)) ((ffi 'hoho (_fun _int (_fun _int -> (_fun _int -> _int)) -> _int))
3 (lambda (x) (lambda (y) (+ y (* x x)))))) 3 (lambda (x) (lambda (y) (+ y (* x x))))))
;; --- ;; ---
;; FIXME: this test is broken, because the array allocated by `(_list io _int len)`
;; has no reason to stay in place; a GC during the callback may move it.
;; The solution is probably to extend `_list` so that an allocation mode like
;; 'atomic-interior can be supplied.
(let ([qsort (get-ffi-obj 'qsort #f (let ([qsort (get-ffi-obj 'qsort #f
(_fun (l : (_list io _int len)) (_fun (l : (_list io _int len))
(len : _int = (length l)) (len : _int = (length l))