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

Callback functions must appear in the headers so that they can be called by other compiled functios.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-04-24 10:39:22 +02:00
parent 8378517f67
commit a588dcb62c
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpcbk.lsp
View file

@ -86,15 +86,18 @@
(:stdcall "__stdcall ")
(t (cmperr "DEFCALLBACK does not support ~A as calling convention"
call-type)))))
(wt-nl-h "static " return-type-name " " fmod c-name "(")
(wt-nl1 "static " return-type-name " " fmod c-name "(")
(loop for n from 0
and type in arg-types
with comma = ""
do
(progn
(wt-h comma (rep-type-name (ffi::%convert-to-arg-type type)) " var" n)
(wt comma (rep-type-name (ffi::%convert-to-arg-type type)) " var" n)
(setf comma ",")))
(wt ")")
(wt-h ");")
(wt-nl1 "{")
(when return-p
(wt-nl return-type-name " output;"))