/* -----------------------------------------------------------------------
|
darwin.S - Copyright (c) 1996, 1998, 2001, 2002, 2003, 2005 Red Hat, Inc.
|
Copyright (C) 2008 Free Software Foundation, Inc.
|
|
X86 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 THE AUTHORS OR COPYRIGHT
|
HOLDERS 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.
|
-----------------------------------------------------------------------
|
*/
|
|
#ifndef __x86_64__
|
|
#define LIBFFI_ASM
|
#include <fficonfig.h>
|
#include <ffi.h>
|
|
.text
|
|
.globl _ffi_prep_args
|
|
.align 4
|
.globl _ffi_call_SYSV
|
|
_ffi_call_SYSV:
|
.LFB1:
|
pushl %ebp
|
.LCFI0:
|
movl %esp,%ebp
|
.LCFI1:
|
subl $8,%esp
|
/* Make room for all of the new args. */
|
movl 16(%ebp),%ecx
|
subl %ecx,%esp
|
|
movl %esp,%eax
|
|
/* Place all of the ffi_prep_args in position */
|
subl $8,%esp
|
pushl 12(%ebp)
|
pushl %eax
|
call *8(%ebp)
|
|
/* Return stack to previous state and call the function */
|
addl $16,%esp
|
|
call *28(%ebp)
|
|
/* Load %ecx with the return type code */
|
movl 20(%ebp),%ecx
|
|
/* Protect %esi. We're going to pop it in the epilogue. */
|
pushl %esi
|
|
/* If the return value pointer is NULL, assume no return value. */
|
cmpl $0,24(%ebp)
|
jne 0f
|
|
/* Even if there is no space for the return value, we are
|
obliged to handle floating-point values. */
|
cmpl $FFI_TYPE_FLOAT,%ecx
|
jne noretval
|
fstp %st(0)
|
|
jmp epilogue
|
0:
|
.align 4
|
call 1f
|
.Lstore_table:
|
.long noretval-.Lstore_table /* FFI_TYPE_VOID */
|
.long retint-.Lstore_table /* FFI_TYPE_INT */
|
.long retfloat-.Lstore_table /* FFI_TYPE_FLOAT */
|
.long retdouble-.Lstore_table /* FFI_TYPE_DOUBLE */
|
.long retlongdouble-.Lstore_table /* FFI_TYPE_LONGDOUBLE */
|
.long retuint8-.Lstore_table /* FFI_TYPE_UINT8 */
|
.long retsint8-.Lstore_table /* FFI_TYPE_SINT8 */
|
.long retuint16-.Lstore_table /* FFI_TYPE_UINT16 */
|
.long retsint16-.Lstore_table /* FFI_TYPE_SINT16 */
|
.long retint-.Lstore_table /* FFI_TYPE_UINT32 */
|
.long retint-.Lstore_table /* FFI_TYPE_SINT32 */
|
.long retint64-.Lstore_table /* FFI_TYPE_UINT64 */
|
.long retint64-.Lstore_table /* FFI_TYPE_SINT64 */
|
.long retstruct-.Lstore_table /* FFI_TYPE_STRUCT */
|
.long retint-.Lstore_table /* FFI_TYPE_POINTER */
|
.long retstruct1b-.Lstore_table /* FFI_TYPE_SMALL_STRUCT_1B */
|
.long retstruct2b-.Lstore_table /* FFI_TYPE_SMALL_STRUCT_2B */
|
1:
|
pop %esi
|
add (%esi, %ecx, 4), %esi
|
jmp *%esi
|
|
/* Sign/zero extend as appropriate. */
|
retsint8:
|
movsbl %al, %eax
|
jmp retint
|
|
retsint16:
|
movswl %ax, %eax
|
jmp retint
|
|
retuint8:
|
movzbl %al, %eax
|
jmp retint
|
|
retuint16:
|
movzwl %ax, %eax
|
jmp retint
|
|
retfloat:
|
/* Load %ecx with the pointer to storage for the return value */
|
movl 24(%ebp),%ecx
|
fstps (%ecx)
|
jmp epilogue
|
|
retdouble:
|
/* Load %ecx with the pointer to storage for the return value */
|
movl 24(%ebp),%ecx
|
fstpl (%ecx)
|
jmp epilogue
|
|
retlongdouble:
|
/* Load %ecx with the pointer to storage for the return value */
|
movl 24(%ebp),%ecx
|
fstpt (%ecx)
|
jmp epilogue
|
|
retint64:
|
/* Load %ecx with the pointer to storage for the return value */
|
movl 24(%ebp),%ecx
|
movl %eax,0(%ecx)
|
movl %edx,4(%ecx)
|
jmp epilogue
|
|
retstruct1b:
|
/* Load %ecx with the pointer to storage for the return value */
|
movl 24(%ebp),%ecx
|
movb %al,0(%ecx)
|
jmp epilogue
|
|
retstruct2b:
|
/* Load %ecx with the pointer to storage for the return value */
|
movl 24(%ebp),%ecx
|
movw %ax,0(%ecx)
|
jmp epilogue
|
|
retint:
|
/* Load %ecx with the pointer to storage for the return value */
|
movl 24(%ebp),%ecx
|
movl %eax,0(%ecx)
|
|
retstruct:
|
/* Nothing to do! */
|
|
noretval:
|
epilogue:
|
popl %esi
|
movl %ebp,%esp
|
popl %ebp
|
ret
|
|
.LFE1:
|
.ffi_call_SYSV_end:
|
|
.align 4
|
FFI_HIDDEN (ffi_closure_SYSV)
|
.globl _ffi_closure_SYSV
|
|
_ffi_closure_SYSV:
|
.LFB2:
|
pushl %ebp
|
.LCFI2:
|
movl %esp, %ebp
|
.LCFI3:
|
subl $40, %esp
|
leal -24(%ebp), %edx
|
movl %edx, -12(%ebp) /* resp */
|
leal 8(%ebp), %edx
|
movl %edx, 4(%esp) /* args = __builtin_dwarf_cfa () */
|
leal -12(%ebp), %edx
|
movl %edx, (%esp) /* &resp */
|
movl %ebx, 8(%esp)
|
.LCFI7:
|
call L_ffi_closure_SYSV_inner$stub
|
movl 8(%esp), %ebx
|
movl -12(%ebp), %ecx
|
cmpl $FFI_TYPE_INT, %eax
|
je .Lcls_retint
|
|
/* Handle FFI_TYPE_UINT8, FFI_TYPE_SINT8, FFI_TYPE_UINT16,
|
FFI_TYPE_SINT16, FFI_TYPE_UINT32, FFI_TYPE_SINT32. */
|
cmpl $FFI_TYPE_UINT64, %eax
|
jge 0f
|
cmpl $FFI_TYPE_UINT8, %eax
|
jge .Lcls_retint
|
|
0: cmpl $FFI_TYPE_FLOAT, %eax
|
je .Lcls_retfloat
|
cmpl $FFI_TYPE_DOUBLE, %eax
|
je .Lcls_retdouble
|
cmpl $FFI_TYPE_LONGDOUBLE, %eax
|
je .Lcls_retldouble
|
cmpl $FFI_TYPE_SINT64, %eax
|
je .Lcls_retllong
|
cmpl $FFI_TYPE_SMALL_STRUCT_1B, %eax
|
je .Lcls_retstruct1b
|
cmpl $FFI_TYPE_SMALL_STRUCT_2B, %eax
|
je .Lcls_retstruct2b
|
cmpl $FFI_TYPE_STRUCT, %eax
|
je .Lcls_retstruct
|
.Lcls_epilogue:
|
movl %ebp, %esp
|
popl %ebp
|
ret
|
.Lcls_retint:
|
movl (%ecx), %eax
|
jmp .Lcls_epilogue
|
.Lcls_retfloat:
|
flds (%ecx)
|
jmp .Lcls_epilogue
|
.Lcls_retdouble:
|
fldl (%ecx)
|
jmp .Lcls_epilogue
|
.Lcls_retldouble:
|
fldt (%ecx)
|
jmp .Lcls_epilogue
|
.Lcls_retllong:
|
movl (%ecx), %eax
|
movl 4(%ecx), %edx
|
jmp .Lcls_epilogue
|
.Lcls_retstruct1b:
|
movsbl (%ecx), %eax
|
jmp .Lcls_epilogue
|
.Lcls_retstruct2b:
|
movswl (%ecx), %eax
|
jmp .Lcls_epilogue
|
.Lcls_retstruct:
|
lea -8(%ebp),%esp
|
movl %ebp, %esp
|
popl %ebp
|
ret $4
|
.LFE2:
|
|
#if !FFI_NO_RAW_API
|
|
#define RAW_CLOSURE_CIF_OFFSET ((FFI_TRAMPOLINE_SIZE + 3) & ~3)
|
#define RAW_CLOSURE_FUN_OFFSET (RAW_CLOSURE_CIF_OFFSET + 4)
|
#define RAW_CLOSURE_USER_DATA_OFFSET (RAW_CLOSURE_FUN_OFFSET + 4)
|
#define CIF_FLAGS_OFFSET 20
|
|
.align 4
|
FFI_HIDDEN (ffi_closure_raw_SYSV)
|
.globl _ffi_closure_raw_SYSV
|
|
_ffi_closure_raw_SYSV:
|
.LFB3:
|
pushl %ebp
|
.LCFI4:
|
movl %esp, %ebp
|
.LCFI5:
|
pushl %esi
|
.LCFI6:
|
subl $36, %esp
|
movl RAW_CLOSURE_CIF_OFFSET(%eax), %esi /* closure->cif */
|
movl RAW_CLOSURE_USER_DATA_OFFSET(%eax), %edx /* closure->user_data */
|
movl %edx, 12(%esp) /* user_data */
|
leal 8(%ebp), %edx /* __builtin_dwarf_cfa () */
|
movl %edx, 8(%esp) /* raw_args */
|
leal -24(%ebp), %edx
|
movl %edx, 4(%esp) /* &res */
|
movl %esi, (%esp) /* cif */
|
call *RAW_CLOSURE_FUN_OFFSET(%eax) /* closure->fun */
|
movl CIF_FLAGS_OFFSET(%esi), %eax /* rtype */
|
cmpl $FFI_TYPE_INT, %eax
|
je .Lrcls_retint
|
|
/* Handle FFI_TYPE_UINT8, FFI_TYPE_SINT8, FFI_TYPE_UINT16,
|
FFI_TYPE_SINT16, FFI_TYPE_UINT32, FFI_TYPE_SINT32. */
|
cmpl $FFI_TYPE_UINT64, %eax
|
jge 0f
|
cmpl $FFI_TYPE_UINT8, %eax
|
jge .Lrcls_retint
|
0:
|
cmpl $FFI_TYPE_FLOAT, %eax
|
je .Lrcls_retfloat
|
cmpl $FFI_TYPE_DOUBLE, %eax
|
je .Lrcls_retdouble
|
cmpl $FFI_TYPE_LONGDOUBLE, %eax
|
je .Lrcls_retldouble
|
cmpl $FFI_TYPE_SINT64, %eax
|
je .Lrcls_retllong
|
.Lrcls_epilogue:
|
addl $36, %esp
|
popl %esi
|
popl %ebp
|
ret
|
.Lrcls_retint:
|
movl -24(%ebp), %eax
|
jmp .Lrcls_epilogue
|
.Lrcls_retfloat:
|
flds -24(%ebp)
|
jmp .Lrcls_epilogue
|
.Lrcls_retdouble:
|
fldl -24(%ebp)
|
jmp .Lrcls_epilogue
|
.Lrcls_retldouble:
|
fldt -24(%ebp)
|
jmp .Lrcls_epilogue
|
.Lrcls_retllong:
|
movl -24(%ebp), %eax
|
movl -20(%ebp), %edx
|
jmp .Lrcls_epilogue
|
.LFE3:
|
#endif
|
|
.section __IMPORT,__jump_table,symbol_stubs,self_modifying_code+pure_instructions,5
|
L_ffi_closure_SYSV_inner$stub:
|
.indirect_symbol _ffi_closure_SYSV_inner
|
hlt ; hlt ; hlt ; hlt ; hlt
|
|
|
.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support
|
EH_frame1:
|
.set L$set$0,LECIE1-LSCIE1
|
.long L$set$0
|
LSCIE1:
|
.long 0x0
|
.byte 0x1
|
.ascii "zR\0"
|
.byte 0x1
|
.byte 0x7c
|
.byte 0x8
|
.byte 0x1
|
.byte 0x10
|
.byte 0xc
|
.byte 0x5
|
.byte 0x4
|
.byte 0x88
|
.byte 0x1
|
.align 2
|
LECIE1:
|
.globl _ffi_call_SYSV.eh
|
_ffi_call_SYSV.eh:
|
LSFDE1:
|
.set L$set$1,LEFDE1-LASFDE1
|
.long L$set$1
|
LASFDE1:
|
.long LASFDE1-EH_frame1
|
.long .LFB1-.
|
.set L$set$2,.LFE1-.LFB1
|
.long L$set$2
|
.byte 0x0
|
.byte 0x4
|
.set L$set$3,.LCFI0-.LFB1
|
.long L$set$3
|
.byte 0xe
|
.byte 0x8
|
.byte 0x84
|
.byte 0x2
|
.byte 0x4
|
.set L$set$4,.LCFI1-.LCFI0
|
.long L$set$4
|
.byte 0xd
|
.byte 0x4
|
.align 2
|
LEFDE1:
|
.globl _ffi_closure_SYSV.eh
|
_ffi_closure_SYSV.eh:
|
LSFDE2:
|
.set L$set$5,LEFDE2-LASFDE2
|
.long L$set$5
|
LASFDE2:
|
.long LASFDE2-EH_frame1
|
.long .LFB2-.
|
.set L$set$6,.LFE2-.LFB2
|
.long L$set$6
|
.byte 0x0
|
.byte 0x4
|
.set L$set$7,.LCFI2-.LFB2
|
.long L$set$7
|
.byte 0xe
|
.byte 0x8
|
.byte 0x84
|
.byte 0x2
|
.byte 0x4
|
.set L$set$8,.LCFI3-.LCFI2
|
.long L$set$8
|
.byte 0xd
|
.byte 0x4
|
.align 2
|
LEFDE2:
|
|
#if !FFI_NO_RAW_API
|
|
.globl _ffi_closure_raw_SYSV.eh
|
_ffi_closure_raw_SYSV.eh:
|
LSFDE3:
|
.set L$set$10,LEFDE3-LASFDE3
|
.long L$set$10
|
LASFDE3:
|
.long LASFDE3-EH_frame1
|
.long .LFB3-.
|
.set L$set$11,.LFE3-.LFB3
|
.long L$set$11
|
.byte 0x0
|
.byte 0x4
|
.set L$set$12,.LCFI4-.LFB3
|
.long L$set$12
|
.byte 0xe
|
.byte 0x8
|
.byte 0x84
|
.byte 0x2
|
.byte 0x4
|
.set L$set$13,.LCFI5-.LCFI4
|
.long L$set$13
|
.byte 0xd
|
.byte 0x4
|
.byte 0x4
|
.set L$set$14,.LCFI6-.LCFI5
|
.long L$set$14
|
.byte 0x85
|
.byte 0x3
|
.align 2
|
LEFDE3:
|
|
#endif
|
|
#endif /* ifndef __x86_64__ */
|
