mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-25 01:37:19 +00:00
Code Issues 1 Releases Wiki Activity

Fix ffi/defbind for non-lazy bindings.

Browse Source 
Add testing to bind to symbols in current binary.
This commit is contained in:
Calvin Rose 2022-06-18 10:14:42 -05:00
parent a1aab4008f
commit d803561582
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/boot/boot.janet
View File

@ -3670,7 +3670,7 @@
(defn make-sig [] (defn make-sig []
(ffi/signature :default ret-type ;computed-type-args)) (ffi/signature :default ret-type ;computed-type-args))
(defn make-ptr [] (defn make-ptr []
(assert (ffi/lookup (llib) raw-symbol) "failed to find symbol")) (assert (ffi/lookup (if lazy (llib) lib) raw-symbol) "failed to find symbol"))
(if lazy (if lazy
~(defn ,name ,;meta [,;formal-args] ~(defn ,name ,;meta [,;formal-args]
(,ffi/call (,(delay (make-ptr))) (,(delay (make-sig))) ,;formal-args)) (,ffi/call (,(delay (make-ptr))) (,(delay (make-sig))) ,;formal-args))

11
test/suite0012.janet
View File

@ -28,5 +28,16 @@
(assert (= (thunk) 1) "delay 3") (assert (= (thunk) 1) "delay 3")
(assert (= counter 1) "delay 4") (assert (= counter 1) "delay 4")
# FFI check
(compwhen (dyn 'ffi/native)
(ffi/context))
(compwhen (dyn 'ffi/native)
(ffi/defbind memcpy :ptr [dest :ptr src :ptr n :size]))
(compwhen (dyn 'ffi/native)
(def buffer1 @"aaaa")
(def buffer2 @"bbbb")
(memcpy buffer1 buffer2 4)
(assert (= (string buffer1) "bbbb") "ffi 1 - memcpy"))
(end-suite) (end-suite)