/*
|
* Copyright (c) 2013 Miodrag Vallat. <miod@openbsd.org>
|
*
|
* 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.
|
*/
|
|
/*
|
* vax Foreign Function Interface
|
*/
|
|
#define LIBFFI_ASM
|
#include <fficonfig.h>
|
#include <ffi.h>
|
|
.text
|
|
/*
|
* void * %r0
|
* ffi_call_elfbsd(extended_cif *ecif, 4(%ap)
|
* unsigned bytes, 8(%ap)
|
* unsigned flags, 12(%ap)
|
* void *rvalue, 16(%ap)
|
* void (*fn)()); 20(%ap)
|
*/
|
.globl ffi_call_elfbsd
|
.type ffi_call_elfbsd,@function
|
.align 2
|
ffi_call_elfbsd:
|
.word 0x00c # save R2 and R3
|
|
# Allocate stack space for the args
|
subl2 8(%ap), %sp
|
|
# Call ffi_prep_args
|
pushl %sp
|
pushl 4(%ap)
|
calls $2, ffi_prep_args
|
|
# Get function pointer
|
movl 20(%ap), %r1
|
|
# Build a CALLS frame
|
ashl $-2, 8(%ap), %r0
|
pushl %r0 # argument stack usage
|
movl %sp, %r0 # future %ap
|
# saved registers
|
bbc $11, 0(%r1), 1f
|
pushl %r11
|
1: bbc $10, 0(%r1), 1f
|
pushl %r10
|
1: bbc $9, 0(%r1), 1f
|
pushl %r9
|
1: bbc $8, 0(%r1), 1f
|
pushl %r8
|
1: bbc $7, 0(%r1), 1f
|
pushl %r7
|
1: bbc $6, 0(%r1), 1f
|
pushl %r6
|
1: bbc $5, 0(%r1), 1f
|
pushl %r5
|
1: bbc $4, 0(%r1), 1f
|
pushl %r4
|
1: bbc $3, 0(%r1), 1f
|
pushl %r3
|
1: bbc $2, 0(%r1), 1f
|
pushl %r2
|
1:
|
pushal 9f
|
pushl %fp
|
pushl %ap
|
movl 16(%ap), %r3 # struct return address, if needed
|
movl %r0, %ap
|
movzwl 4(%fp), %r0 # previous PSW, without the saved registers mask
|
bisl2 $0x20000000, %r0 # calls frame
|
movzwl 0(%r1), %r2
|
bicw2 $0xf003, %r2 # only keep R11-R2
|
ashl $16, %r2, %r2
|
bisl2 %r2, %r0 # saved register mask of the called function
|
pushl %r0
|
pushl $0
|
movl %sp, %fp
|
|
# Invoke the function
|
pushal 2(%r1) # skip procedure entry mask
|
movl %r3, %r1
|
bicpsw $0x000f
|
rsb
|
|
9:
|
# Copy return value if necessary
|
tstl 16(%ap)
|
jeql 9f
|
movl 16(%ap), %r2
|
|
bbc $0, 12(%ap), 1f # CIF_FLAGS_CHAR
|
movb %r0, 0(%r2)
|
brb 9f
|
1:
|
bbc $1, 12(%ap), 1f # CIF_FLAGS_SHORT
|
movw %r0, 0(%r2)
|
brb 9f
|
1:
|
bbc $2, 12(%ap), 1f # CIF_FLAGS_INT
|
movl %r0, 0(%r2)
|
brb 9f
|
1:
|
bbc $3, 12(%ap), 1f # CIF_FLAGS_DINT
|
movq %r0, 0(%r2)
|
brb 9f
|
1:
|
movl %r1, %r0 # might have been a struct
|
#brb 9f
|
|
9:
|
ret
|
|
/*
|
* ffi_closure_elfbsd(void);
|
* invoked with %r0: ffi_closure *closure
|
*/
|
.globl ffi_closure_elfbsd
|
.type ffi_closure_elfbsd, @function
|
.align 2
|
ffi_closure_elfbsd:
|
.word 0
|
|
# Allocate room on stack for return value
|
subl2 $8, %sp
|
|
# Invoke the closure function
|
pushal 4(%ap) # calling stack
|
pushal 4(%sp) # return value
|
pushl %r0 # closure
|
calls $3, ffi_closure_elfbsd_inner
|
|
# Copy return value if necessary
|
bitb $1, %r0 # CIF_FLAGS_CHAR
|
beql 1f
|
movb 0(%sp), %r0
|
brb 9f
|
1:
|
bitb $2, %r0 # CIF_FLAGS_SHORT
|
beql 1f
|
movw 0(%sp), %r0
|
brb 9f
|
1:
|
bitb $4, %r0 # CIF_FLAGS_INT
|
beql 1f
|
movl 0(%sp), %r0
|
brb 9f
|
1:
|
bitb $8, %r0 # CIF_FLAGS_DINT
|
beql 1f
|
movq 0(%sp), %r0
|
#brb 9f
|
1:
|
|
9:
|
ret
|
|
/*
|
* ffi_closure_struct_elfbsd(void);
|
* invoked with %r0: ffi_closure *closure
|
* %r1: struct return address
|
*/
|
.globl ffi_closure_struct_elfbsd
|
.type ffi_closure_struct_elfbsd, @function
|
.align 2
|
ffi_closure_struct_elfbsd:
|
.word 0
|
|
# Invoke the closure function
|
pushal 4(%ap) # calling stack
|
pushl %r1 # return value
|
pushl %r0 # closure
|
calls $3, ffi_closure_elfbsd_inner
|
|
ret
|
