|
Last change
on this file since 11553 was
11553,
checked in by rme, 12 years ago
|
|
Use common x8632 FFI code where applicable.
|
|
File size:
839 bytes
|
| Line | |
|---|
| 1 | (in-package "CCL") |
|---|
| 2 | |
|---|
| 3 | (defun x86-freebsd32::record-type-returns-structure-as-first-arg (rtype) |
|---|
| 4 | (x8632::record-type-returns-structure-as-first-arg rtype)) |
|---|
| 5 | |
|---|
| 6 | (defun x86-freebsd32::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 x86-freebsd32::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 x86-freebsd32::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.
