mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

ffi tests: do explicit cast

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-07 18:41:11 +01:00
parent 42901b3c31
commit 0a0f71cce1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/tests/normal-tests/foreign-interface.lsp
View file

@ -57,7 +57,7 @@
(print
'(defun callback-user (callback arg)
(ffi:c-inline (callback arg) (:pointer-void :int) :int "
int (*foo)(int) = #0;
int (*foo)(int) = (int (*)(int))#0;
@(return) = foo(#1);
"
:one-liner nil :side-effects nil))
@ -86,7 +86,7 @@ int (*foo)(int) = #0;
(print
'(defun callback-user (callback arg)
(ffi:c-inline (callback arg) (:pointer-void :int) :int "
int (*foo)(int) = #0;
int (*foo)(int) = (int (*)(int))#0;
@(return) = foo(#1);
"
:one-liner nil :side-effects nil))