source: trunk/source/lib/ffi-win32.lisp @ 11553

Last change on this file since 11553 was 11553, checked in by rme, 11 years ago

Use common x8632 FFI code where applicable.

File size: 807 bytes
Line 
1(in-package "CCL")
2
3(defun win32::record-type-returns-structure-as-first-arg (rtype)
4  (x8632::record-type-returns-structure-as-first-arg rtype))
5
6(defun win32::expand-ff-call (callform args &key (arg-coerce #'null-coerce-foreign-arg) (result-coerce #'null-coerce-foreign-result))
7  (x8632::expand-ff-call callform args :arg-coerce arg-coerce :result-coerce result-coerce))
8
9(defun win32::generate-callback-bindings (stack-ptr fp-args-ptr argvars argspecs result-spec struct-result-name)
10  (x8632::generate-callback-bindings stack-ptr fp-args-ptr argvars argspecs result-spec struct-result-name))
11
12(defun win32::generate-callback-return-value (stack-ptr fp-args-ptr result return-type struct-return-arg)
13  (x8632::generate-callback-return-value stack-ptr fp-args-ptr result return-type struct-return-arg))
14
Note: See TracBrowser for help on using the repository browser.