; -----------------------------------------------------------------------
|
; sysv.S - Copyright (c) 1998 Red Hat, Inc.
|
;
|
; ARM Foreign Function Interface
|
;
|
; Permission is hereby granted, free of charge, to any person obtaining
|
; a copy of this software and associated documentation files (the
|
; ``Software''), to deal in the Software without restriction, including
|
; without limitation the rights to use, copy, modify, merge, publish,
|
; distribute, sublicense, and/or sell copies of the Software, and to
|
; permit persons to whom the Software is furnished to do so, subject to
|
; the following conditions:
|
;
|
; The above copyright notice and this permission notice shall be included
|
; in all copies or substantial portions of the Software.
|
;
|
; THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
; OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
; IN NO EVENT SHALL CYGNUS SOLUTIONS BE LIABLE FOR ANY CLAIM, DAMAGES OR
|
; OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
|
; ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
; OTHER DEALINGS IN THE SOFTWARE.
|
; ----------------------------------------------------------------------- */
|
|
;#define LIBFFI_ASM
|
;#include <fficonfig.h>
|
;#include <ffi.h>
|
;#ifdef HAVE_MACHINE_ASM_H
|
;#include <machine/asm.h>
|
;#else
|
;#ifdef __USER_LABEL_PREFIX__
|
;#define CONCAT1(a, b) CONCAT2(a, b)
|
;#define CONCAT2(a, b) a ## b
|
|
;/* Use the right prefix for global labels. */
|
;#define CNAME(x) CONCAT1 (__USER_LABEL_PREFIX__, x)
|
;#else
|
;#define CNAME(x) x
|
;#endif
|
;#define ENTRY(x) .globl CNAME(x); .type CNAME(x),%function; CNAME(x):
|
;#endif
|
|
|
FFI_TYPE_VOID EQU 0
|
FFI_TYPE_INT EQU 1
|
FFI_TYPE_FLOAT EQU 2
|
FFI_TYPE_DOUBLE EQU 3
|
;FFI_TYPE_LONGDOUBLE EQU 4
|
FFI_TYPE_UINT8 EQU 5
|
FFI_TYPE_SINT8 EQU 6
|
FFI_TYPE_UINT16 EQU 7
|
FFI_TYPE_SINT16 EQU 8
|
FFI_TYPE_UINT32 EQU 9
|
FFI_TYPE_SINT32 EQU 10
|
FFI_TYPE_UINT64 EQU 11
|
FFI_TYPE_SINT64 EQU 12
|
FFI_TYPE_STRUCT EQU 13
|
FFI_TYPE_POINTER EQU 14
|
|
; WinCE always uses software floating point (I think)
|
__SOFTFP__ EQU {TRUE}
|
|
|
AREA |.text|, CODE, ARM ; .text
|
|
|
; a1: ffi_prep_args
|
; a2: &ecif
|
; a3: cif->bytes
|
; a4: fig->flags
|
; sp+0: ecif.rvalue
|
; sp+4: fn
|
|
; This assumes we are using gas.
|
;ENTRY(ffi_call_SYSV)
|
|
EXPORT |ffi_call_SYSV|
|
|
|ffi_call_SYSV| PROC
|
|
; Save registers
|
stmfd sp!, {a1-a4, fp, lr}
|
mov fp, sp
|
|
; Make room for all of the new args.
|
sub sp, fp, a3
|
|
; Place all of the ffi_prep_args in position
|
mov ip, a1
|
mov a1, sp
|
; a2 already set
|
|
; And call
|
mov lr, pc
|
mov pc, ip
|
|
; move first 4 parameters in registers
|
ldr a1, [sp, #0]
|
ldr a2, [sp, #4]
|
ldr a3, [sp, #8]
|
ldr a4, [sp, #12]
|
|
; and adjust stack
|
ldr ip, [fp, #8]
|
cmp ip, #16
|
movge ip, #16
|
add sp, sp, ip
|
|
; call function
|
mov lr, pc
|
ldr pc, [fp, #28]
|
|
; Remove the space we pushed for the args
|
mov sp, fp
|
|
; Load a3 with the pointer to storage for the return value
|
ldr a3, [sp, #24]
|
|
; Load a4 with the return type code
|
ldr a4, [sp, #12]
|
|
; If the return value pointer is NULL, assume no return value.
|
cmp a3, #0
|
beq call_epilogue
|
|
; return INT
|
cmp a4, #FFI_TYPE_INT
|
streq a1, [a3]
|
beq call_epilogue
|
|
; return FLOAT
|
cmp a4, #FFI_TYPE_FLOAT
|
[ __SOFTFP__ ;ifdef __SOFTFP__
|
streq a1, [a3]
|
| ;else
|
stfeqs f0, [a3]
|
] ;endif
|
beq call_epilogue
|
|
; return DOUBLE or LONGDOUBLE
|
cmp a4, #FFI_TYPE_DOUBLE
|
[ __SOFTFP__ ;ifdef __SOFTFP__
|
stmeqia a3, {a1, a2}
|
| ;else
|
stfeqd f0, [a3]
|
] ;endif
|
beq call_epilogue
|
|
; return SINT64 or UINT64
|
cmp a4, #FFI_TYPE_SINT64
|
stmeqia a3, {a1, a2}
|
|
call_epilogue
|
ldmfd sp!, {a1-a4, fp, pc}
|
|
;.ffi_call_SYSV_end:
|
;.size CNAME(ffi_call_SYSV),.ffi_call_SYSV_end-CNAME(ffi_call_SYSV)
|
ENDP
|
|
|
RESERVE_RETURN EQU 16
|
|
; This function is called by the trampoline
|
; It is NOT callable from C
|
; ip = pointer to struct ffi_closure
|
|
IMPORT |ffi_closure_SYSV_inner|
|
|
EXPORT |ffi_closure_SYSV|
|
|ffi_closure_SYSV| PROC
|
|
; Store the argument registers on the stack
|
stmfd sp!, {a1-a4}
|
; Push the return address onto the stack
|
stmfd sp!, {lr}
|
|
mov a1, ip ; first arg = address of ffi_closure
|
add a2, sp, #4 ; second arg = sp+4 (points to saved a1)
|
|
; Allocate space for a non-struct return value
|
sub sp, sp, #RESERVE_RETURN
|
mov a3, sp ; third arg = return value address
|
|
; static unsigned int
|
; ffi_closure_SYSV_inner (ffi_closure *closure, char *in_args, void *rvalue)
|
bl ffi_closure_SYSV_inner
|
; a1 now contains the return type code
|
|
; At this point the return value is on the stack
|
; Transfer it to the correct registers if necessary
|
|
; return INT
|
cmp a1, #FFI_TYPE_INT
|
ldreq a1, [sp]
|
beq closure_epilogue
|
|
; return FLOAT
|
cmp a1, #FFI_TYPE_FLOAT
|
[ __SOFTFP__ ;ifdef __SOFTFP__
|
ldreq a1, [sp]
|
| ;else
|
stfeqs f0, [sp]
|
] ;endif
|
beq closure_epilogue
|
|
; return DOUBLE or LONGDOUBLE
|
cmp a1, #FFI_TYPE_DOUBLE
|
[ __SOFTFP__ ;ifdef __SOFTFP__
|
ldmeqia sp, {a1, a2}
|
| ;else
|
stfeqd f0, [sp]
|
] ;endif
|
beq closure_epilogue
|
|
; return SINT64 or UINT64
|
cmp a1, #FFI_TYPE_SINT64
|
ldmeqia sp, {a1, a2}
|
|
closure_epilogue
|
add sp, sp, #RESERVE_RETURN ; remove return value buffer
|
ldmfd sp!, {ip} ; ip = pop return address
|
add sp, sp, #16 ; remove saved argument registers {a1-a4} from the stack
|
mov pc, ip ; return
|
|
ENDP ; ffi_closure_SYSV
|
|
END
|
