From 0a0f71cce1eb81f34dbb8a0076998eee3729281e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Wed, 7 Dec 2016 18:41:11 +0100 Subject: [PATCH] ffi tests: do explicit cast --- src/tests/normal-tests/foreign-interface.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/tests/normal-tests/foreign-interface.lsp b/src/tests/normal-tests/foreign-interface.lsp index 4fbfe105f..0e23543d8 100644 --- a/src/tests/normal-tests/foreign-interface.lsp +++ b/src/tests/normal-tests/foreign-interface.lsp @@ -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))