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

C++ does not like to convert function pointers to (void*)

Browse source
This commit is contained in:
jjgarcia 2004-05-17 07:43:51 +00:00
parent 24688d57f8
commit a437b627c1
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/cmptop.lsp
View file

@ -667,11 +667,11 @@
(new-local 0 fun funob)
(if macro
(if narg
(wt-nl "cl_def_c_macro(" fname "," cfun "," narg ");")
(wt-nl "cl_def_c_macro(" fname "," cfun ",-1);"))
(wt-nl "cl_def_c_macro(" fname ",(void*)" cfun "," narg ");")
(wt-nl "cl_def_c_macro(" fname ",(void*)" cfun ",-1);"))
(if narg
(wt-nl "cl_def_c_function(" fname "," cfun "," narg ");")
(wt-nl "cl_def_c_function_va(" fname "," cfun ");")))
(wt-nl "cl_def_c_function(" fname ",(void*)" cfun "," narg ");")
(wt-nl "cl_def_c_function_va(" fname ",(void*)" cfun ");")))
(close-inline-blocks)))
;;; ----------------------------------------------------------------------