ffi 1.16.3 → 1.17.0-java

data/ext/ffi_c/libffi/src/alpha/osf.S

@@ -1,282 +0,0 @@
-/* -----------------------------------------------------------------------
-   osf.S - Copyright (c) 1998, 2001, 2007, 2008, 2011, 2014 Red Hat
-
-   Alpha/OSF 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.
-   ----------------------------------------------------------------------- */
-
-#define LIBFFI_ASM
-#include <fficonfig.h>
-#include <ffi.h>
-#include <ffi_cfi.h>
-#include "internal.h"
-
-	.arch ev6
-	.text
-
-/* Aid in building a direct addressed jump table, 4 insns per entry.  */
-.macro E index
-	.align	4
-	.org	99b + \index * 16
-.endm
-
-/* ffi_call_osf (void *stack, void *frame, unsigned flags,
-		 void *raddr, void (*fnaddr)(void), void *closure)
-
-   Bit o trickiness here -- FRAME is the base of the stack frame
-   for this function.  This has been allocated by ffi_call.  We also
-   deallocate some of the stack that has been alloca'd.  */
-
-	.align	4
-	.globl	ffi_call_osf
-	.ent	ffi_call_osf
-	FFI_HIDDEN(ffi_call_osf)
-
-ffi_call_osf:
-	cfi_startproc
-	cfi_def_cfa($17, 32)
-	mov	$16, $30
-	stq	$26, 0($17)
-	stq	$15, 8($17)
-	mov	$17, $15
-	.prologue 0
-	cfi_def_cfa_register($15)
-	cfi_rel_offset($26, 0)
-	cfi_rel_offset($15, 8)
-
-	stq	$18, 16($17)		# save flags into frame
-	stq	$19, 24($17)		# save rvalue into frame
-	mov	$20, $27		# fn into place for call
-	mov	$21, $1			# closure into static chain
-
-	# Load up all of the (potential) argument registers.
-	ldq	$16, 0($30)
-	ldt	$f16, 0($30)
-	ldt	$f17, 8($30)
-	ldq	$17, 8($30)
-	ldt	$f18, 16($30)
-	ldq	$18, 16($30)
-	ldt	$f19, 24($30)
-	ldq	$19, 24($30)
-	ldt	$f20, 32($30)
-	ldq	$20, 32($30)
-	ldt	$f21, 40($30)
-	ldq	$21, 40($30)
-
-	# Deallocate the register argument area.
-	lda	$30, 48($30)
-
-	jsr	$26, ($27), 0
-0:
-	ldah	$29, 0($26)		!gpdisp!1
-	ldq	$2, 24($15)		# reload rvalue
-	lda	$29, 0($29)		!gpdisp!1
-	ldq	$3, 16($15)		# reload flags
-	lda	$1, 99f-0b($26)
-	ldq	$26, 0($15)
-	ldq	$15, 8($15)
-	cfi_restore($26)
-	cfi_restore($15)
-	cfi_def_cfa($sp, 0)
-	cmoveq	$2, ALPHA_ST_VOID, $3	# mash null rvalue to void
-	addq	$3, $3, $3
-	s8addq	$3, $1, $1		# 99f + stcode * 16
-	jmp	$31, ($1), $st_int
-
-	.align	4
-99:
-E ALPHA_ST_VOID
-	ret
-E ALPHA_ST_INT
-$st_int:
-	stq	$0, 0($2)
-	ret
-E ALPHA_ST_FLOAT
-	sts	$f0, 0($2)
-	ret
-E ALPHA_ST_DOUBLE
-	stt	$f0, 0($2)
-	ret
-E ALPHA_ST_CPLXF
-	sts	$f0, 0($2)
-	sts	$f1, 4($2)
-	ret
-E ALPHA_ST_CPLXD
-	stt	$f0, 0($2)
-	stt	$f1, 8($2)
-	ret
-
-	cfi_endproc
-	.end	ffi_call_osf
-
-/* ffi_closure_osf(...)
-
-   Receives the closure argument in $1.   */
-
-#define CLOSURE_FS	(16*8)
-
-	.align	4
-	.globl	ffi_go_closure_osf
-	.ent	ffi_go_closure_osf
-	FFI_HIDDEN(ffi_go_closure_osf)
-
-ffi_go_closure_osf:
-	cfi_startproc
-	ldgp	$29, 0($27)
-	subq	$30, CLOSURE_FS, $30
-	cfi_adjust_cfa_offset(CLOSURE_FS)
-	stq	$26, 0($30)
-	.prologue 1
-	cfi_rel_offset($26, 0)
-
-	stq	$16, 10*8($30)
-	stq	$17, 11*8($30)
-	stq	$18, 12*8($30)
-
-	ldq	$16, 8($1)			# load cif
-	ldq	$17, 16($1)			# load fun
-	mov	$1, $18				# closure is user_data
-	br	$do_closure
-
-	cfi_endproc
-	.end	ffi_go_closure_osf
-
-	.align	4
-	.globl	ffi_closure_osf
-	.ent	ffi_closure_osf
-	FFI_HIDDEN(ffi_closure_osf)
-
-ffi_closure_osf:
-	cfi_startproc
-	ldgp	$29, 0($27)
-	subq	$30, CLOSURE_FS, $30
-	cfi_adjust_cfa_offset(CLOSURE_FS)
-	stq	$26, 0($30)
-	.prologue 1
-	cfi_rel_offset($26, 0)
-
-	# Store all of the potential argument registers in va_list format.
-	stq	$16, 10*8($30)
-	stq	$17, 11*8($30)
-	stq	$18, 12*8($30)
-
-	ldq	$16, 24($1)			# load cif
-	ldq	$17, 32($1)			# load fun
-	ldq	$18, 40($1)			# load user_data
-
-$do_closure:
-	stq	$19, 13*8($30)
-	stq	$20, 14*8($30)
-	stq	$21, 15*8($30)
-	stt	$f16, 4*8($30)
-	stt	$f17, 5*8($30)
-	stt	$f18, 6*8($30)
-	stt	$f19, 7*8($30)
-	stt	$f20, 8*8($30)
-	stt	$f21, 9*8($30)
-
-	# Call ffi_closure_osf_inner to do the bulk of the work.
-	lda	$19, 2*8($30)
-	lda	$20, 10*8($30)
-	jsr	$26, ffi_closure_osf_inner
-0:
-	ldah	$29, 0($26)			!gpdisp!2
-	lda	$2, 99f-0b($26)
-	s4addq	$0, 0, $1			# ldcode * 4
-	ldq	$0, 16($30)			# preload return value
-	s4addq	$1, $2, $1			# 99f + ldcode * 16
-	lda	$29, 0($29)			!gpdisp!2
-	ldq	$26, 0($30)
-	cfi_restore($26)
-	jmp	$31, ($1), $load_32
-
-.macro epilogue
-	addq	$30, CLOSURE_FS, $30
-	cfi_adjust_cfa_offset(-CLOSURE_FS)
-	ret
-	.align	4
-	cfi_adjust_cfa_offset(CLOSURE_FS)
-.endm
-
-	.align 4
-99:
-E ALPHA_LD_VOID
-	epilogue
-
-E ALPHA_LD_INT64
-	epilogue
-
-E ALPHA_LD_INT32
-$load_32:
-	sextl	$0, $0
-	epilogue
-
-E ALPHA_LD_UINT16
-	zapnot	$0, 3, $0
-	epilogue
-
-E ALPHA_LD_SINT16
-#ifdef __alpha_bwx__
-	sextw	$0, $0
-#else
-	sll	$0, 48, $0
-	sra	$0, 48, $0
-#endif
-	epilogue
-
-E ALPHA_LD_UINT8
-	and	$0, 0xff, $0
-	epilogue
-
-E ALPHA_LD_SINT8
-#ifdef __alpha_bwx__
-	sextb	$0, $0
-#else
-	sll	$0, 56, $0
-	sra	$0, 56, $0
-#endif
-	epilogue
-
-E ALPHA_LD_FLOAT
-	lds	$f0, 16($sp)
-	epilogue
-
-E ALPHA_LD_DOUBLE
-	ldt	$f0, 16($sp)
-	epilogue
-
-E ALPHA_LD_CPLXF
-	lds	$f0, 16($sp)
-	lds	$f1, 20($sp)
-	epilogue
-
-E ALPHA_LD_CPLXD
-	ldt	$f0, 16($sp)
-	ldt	$f1, 24($sp)
-	epilogue
-
-	cfi_endproc
-	.end	ffi_closure_osf
-
-#if defined __ELF__ && defined __linux__
-	.section	.note.GNU-stack,"",@progbits
-#endif

data/ext/ffi_c/libffi/src/arc/arcompact.S

@@ -1,210 +0,0 @@
-/* -----------------------------------------------------------------------
-   arcompact.S - Copyright (c) 2013 Synposys, Inc. (www.synopsys.com)
-   
-   ARCompact 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 RENESAS TECHNOLOGY 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
-#define CNAME(x) x
-#define ENTRY(x) .globl CNAME(x)` .type CNAME(x),%function` CNAME(x):
-#endif
-
-#if __SIZEOF_POINTER__ == 8
-#define PTRS 8
-#define FLTS 8
-#define LARG ldl
-#define SARG stl
-#define ADDPTR addl
-#define MOVPTR movl_s
-#else
-#define PTRS 4
-#define FLTS 4
-#define LARG ld
-#define SARG st
-#define ADDPTR add
-#define MOVPTR mov_s
-#endif
-
-#define FRAME_LEN (8 * PTRS + 16)
-
-.text
-
-ENTRY(ffi_call_asm)
-        .cfi_startproc
-
-        /* Save registers.  */
-        .cfi_def_cfa r1, FRAME_LEN
-        SARG    fp, [r1, FRAME_LEN - 2*PTRS]
-        .cfi_offset fp, -2*PTRS
-        SARG    blink, [r1, FRAME_LEN - 1*PTRS]
-        .cfi_offset blink, -1*PTRS
-        ADDPTR  fp, r1, FRAME_LEN
-        MOVPTR  sp, r0
-        .cfi_def_cfa fp, 0
-
-        /* Load arguments.  */
-        MOVPTR  r11, r2      /* fn */
-        MOVPTR  r12, r3      /* closure */
-
-        /* Save arguments.  */
-        LARG    r0, [fp, -FRAME_LEN+0*PTRS]
-        LARG    r1, [fp, -FRAME_LEN+1*PTRS]
-        LARG    r2, [fp, -FRAME_LEN+2*PTRS]
-        LARG    r3, [fp, -FRAME_LEN+3*PTRS]
-        LARG    r4, [fp, -FRAME_LEN+4*PTRS]
-        LARG    r5, [fp, -FRAME_LEN+5*PTRS]
-        LARG    r6, [fp, -FRAME_LEN+6*PTRS]
-        LARG    r7, [fp, -FRAME_LEN+7*PTRS]
-
-        /* Call the function.  */
-        jl         [r11] 
-
-        /* Save return value (r0/r1)  */
-        SARG    r0, [fp, -FRAME_LEN+0*PTRS]
-        SARG    r1, [fp, -FRAME_LEN+1*PTRS]
-
-        /* Restore and return.  */
-        add     sp, fp, -FRAME_LEN
-        .cfi_def_cfa sp, FRAME_LEN
-        LARG    blink, [fp, -1*PTRS]
-        .cfi_restore blink
-        LARG    fp, [fp, -2*PTRS]
-        .cfi_restore fp
-        j_s     [blink]
-        .cfi_endproc
-        .size   ffi_call_asm, .-ffi_call_asm
-
-/*
-  ffi_closure_asm. Expects address of the passed-in ffi_closure in r8.
-  void ffi_closure_inner (ffi_cif *cif,
-		          void (*fun) (ffi_cif *, void *, void **, void *),
-		          void *user_data,
-		          size_t *stackargs, struct call_context *regargs)
-*/
-
-ENTRY(ffi_closure_asm)
-        .cfi_startproc
-
-        ADDPTR  sp, sp, -FRAME_LEN
-        .cfi_def_cfa_offset FRAME_LEN
-
-        /* Make a frame.  */
-        SARG    fp, [sp, FRAME_LEN-2*PTRS]
-        .cfi_offset fp, -2*PTRS
-        SARG    blink, [sp, FRAME_LEN-1*PTRS]
-        .cfi_offset blink, -1*PTRS
-        ADDPTR  fp, sp, FRAME_LEN
-
-        /* Save arguments.  */
-        SARG    r0, [sp, 0*PTRS]
-        SARG    r1, [sp, 1*PTRS]
-        SARG    r2, [sp, 2*PTRS]
-        SARG    r3, [sp, 3*PTRS]
-        SARG    r4, [sp, 4*PTRS]
-        SARG    r5, [sp, 5*PTRS]
-        SARG    r6, [sp, 6*PTRS]
-        SARG    r7, [sp, 7*PTRS]
-
-        /* Enter C.  */
-        LARG    r0, [r8, FFI_TRAMPOLINE_SIZE+0*PTRS]
-        LARG    r1, [r8, FFI_TRAMPOLINE_SIZE+1*PTRS]
-        LARG    r2, [r8, FFI_TRAMPOLINE_SIZE+2*PTRS]
-        ADDPTR  r3, sp, FRAME_LEN
-        MOVPTR  r4, sp
-
-        /* Call the C code.  */
-        bl      ffi_closure_inner
-        
-        /* Return values.  */
-        LARG    r0, [sp, 0*PTRS]
-        LARG    r1, [sp, 1*PTRS]
-
-        /* Restore and return.  */
-        LARG    blink, [sp, FRAME_LEN-1*PTRS]
-        .cfi_restore blink
-        LARG    fp, [sp, FRAME_LEN-2*PTRS]
-        .cfi_restore fp
-        ADDPTR  sp, sp, FRAME_LEN
-        .cfi_def_cfa_offset 0
-        j_s     [blink]
-        .cfi_endproc
-        .size ffi_closure_asm, .-ffi_closure_asm
-
-/*
-  ffi_go_closure_asm.  Expects address of the passed-in ffi_go_closure in r12.
-  void ffi_closure_inner (ffi_cif *cif,
-		          void (*fun) (ffi_cif *, void *, void **, void *),
-		          void *user_data,
-		          size_t *stackargs, struct call_context *regargs)
-*/
-
-ENTRY(ffi_go_closure_asm)
-        .cfi_startproc
-
-        ADDPTR  sp, sp, -FRAME_LEN
-        .cfi_def_cfa_offset FRAME_LEN
-
-        /* make a frame */
-        SARG    fp, [sp, FRAME_LEN-2*PTRS]
-        .cfi_offset fp, -2*PTRS
-        SARG    blink, [sp, FRAME_LEN-1*PTRS]
-        .cfi_offset blink, -1*PTRS
-        ADDPTR  fp, sp, FRAME_LEN
-
-        /* save arguments */
-        SARG    r0, [sp, 0*PTRS]
-        SARG    r1, [sp, 1*PTRS]
-        SARG    r2, [sp, 2*PTRS]
-        SARG    r3, [sp, 3*PTRS]
-        SARG    r4, [sp, 4*PTRS]
-        SARG    r5, [sp, 5*PTRS]
-        SARG    r6, [sp, 6*PTRS]
-        SARG    r7, [sp, 7*PTRS]
-
-        /* enter C */
-        LARG    r0, [r12, 1*PTRS]
-        LARG    r1, [r12, 2*PTRS]
-        MOVPTR  r2, r12
-        ADDPTR  r3, sp, FRAME_LEN
-        MOVPTR  r4, sp
-
-        bl      ffi_closure_inner
-
-        /* Return values. */
-        LARG    r0, [sp, 0*PTRS]
-        LARG    r1, [sp, 1*PTRS]
-
-
-        LARG    blink, [sp, FRAME_LEN-1*PTRS]
-        .cfi_restore blink
-        LARG    fp, [sp, FRAME_LEN-2*PTRS]
-        .cfi_restore fp
-        ADDPTR  sp, sp, FRAME_LEN
-        .cfi_def_cfa_offset 0
-        j_s     [blink]
-        .cfi_endproc
-        .size ffi_go_closure_asm, .-ffi_go_closure_asm