source: trunk/source/lib/ffi-solarisx8664.lisp

Last change on this file was 16685, checked in by rme, 4 years ago

Update copyright/license headers in files.

File size: 1.6 KB
Line 
1;;;-*- Mode: Lisp; Package: CCL -*-
2;;;
3;;; Copyright 2008-2009 Clozure Associates
4;;;
5;;; Licensed under the Apache License, Version 2.0 (the "License");
6;;; you may not use this file except in compliance with the License.
7;;; You may obtain a copy of the License at
8;;;
9;;;     http://www.apache.org/licenses/LICENSE-2.0
10;;;
11;;; Unless required by applicable law or agreed to in writing, software
12;;; distributed under the License is distributed on an "AS IS" BASIS,
13;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14;;; See the License for the specific language governing permissions and
15;;; limitations under the License.
16
17
18(in-package "CCL")
19
20;;; It looks like x86-64 Linux, FreeBSD, Darwin, and Solaris all share
21;;; the same ABI.
22
23(defun x86-solaris64::record-type-returns-structure-as-first-arg (rtype)
24  (x8664::record-type-returns-structure-as-first-arg rtype))
25
26
27
28(defun x86-solaris64::expand-ff-call (callform args &key (arg-coerce #'null-coerce-foreign-arg) (result-coerce #'null-coerce-foreign-result))
29  (x8664::expand-ff-call callform args :arg-coerce arg-coerce :result-coerce result-coerce))
30                           
31
32(defun x86-solaris64::generate-callback-bindings (stack-ptr fp-args-ptr argvars argspecs result-spec struct-return-name)
33  (x8664::generate-callback-bindings stack-ptr fp-args-ptr argvars argspecs result-spec struct-return-name))
34
35(defun x86-solaris64::generate-callback-return-value (stack-ptr fp-args-ptr result return-type struct-return-arg)
36  (x8664::generate-callback-return-value stack-ptr fp-args-ptr result return-type struct-return-arg))
Note: See TracBrowser for help on using the repository browser.