Mercurial > hg > CbC > CbC_gcc

comparison libffi/src/vax/elfbsd.S @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 /*
2 * Copyright (c) 2013 Miodrag Vallat. <miod@openbsd.org>
3 *
4 * Permission is hereby granted, free of charge, to any person obtaining
5 * a copy of this software and associated documentation files (the
6 * ``Software''), to deal in the Software without restriction, including
7 * without limitation the rights to use, copy, modify, merge, publish,
8 * distribute, sublicense, and/or sell copies of the Software, and to
9 * permit persons to whom the Software is furnished to do so, subject to
10 * the following conditions:
11 *
12 * The above copyright notice and this permission notice shall be included
13 * in all copies or substantial portions of the Software.
14 *
15 * THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
16 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18 * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19 * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22 */
23
24 /*
25 * vax Foreign Function Interface
26 */
27
28 #define LIBFFI_ASM
29 #include <fficonfig.h>
30 #include <ffi.h>
31
32 .text
33
34 /*
35 * void * %r0
36 * ffi_call_elfbsd(extended_cif *ecif, 4(%ap)
37 * unsigned bytes, 8(%ap)
38 * unsigned flags, 12(%ap)
39 * void *rvalue, 16(%ap)
40 * void (*fn)()); 20(%ap)
41 */
42 .globl ffi_call_elfbsd
43 .type ffi_call_elfbsd,@function
44 .align 2
45 ffi_call_elfbsd:
46 .word 0x00c # save R2 and R3
47
48 # Allocate stack space for the args
49 subl2 8(%ap), %sp
50
51 # Call ffi_prep_args
52 pushl %sp
53 pushl 4(%ap)
54 calls $2, ffi_prep_args
55
56 # Get function pointer
57 movl 20(%ap), %r1
58
59 # Build a CALLS frame
60 ashl $-2, 8(%ap), %r0
61 pushl %r0 # argument stack usage
62 movl %sp, %r0 # future %ap
63 # saved registers
64 bbc $11, 0(%r1), 1f
65 pushl %r11
66 1: bbc $10, 0(%r1), 1f
67 pushl %r10
68 1: bbc $9, 0(%r1), 1f
69 pushl %r9
70 1: bbc $8, 0(%r1), 1f
71 pushl %r8
72 1: bbc $7, 0(%r1), 1f
73 pushl %r7
74 1: bbc $6, 0(%r1), 1f
75 pushl %r6
76 1: bbc $5, 0(%r1), 1f
77 pushl %r5
78 1: bbc $4, 0(%r1), 1f
79 pushl %r4
80 1: bbc $3, 0(%r1), 1f
81 pushl %r3
82 1: bbc $2, 0(%r1), 1f
83 pushl %r2
84 1:
85 pushal 9f
86 pushl %fp
87 pushl %ap
88 movl 16(%ap), %r3 # struct return address, if needed
89 movl %r0, %ap
90 movzwl 4(%fp), %r0 # previous PSW, without the saved registers mask
91 bisl2 $0x20000000, %r0 # calls frame
92 movzwl 0(%r1), %r2
93 bicw2 $0xf003, %r2 # only keep R11-R2
94 ashl $16, %r2, %r2
95 bisl2 %r2, %r0 # saved register mask of the called function
96 pushl %r0
97 pushl $0
98 movl %sp, %fp
99
100 # Invoke the function
101 pushal 2(%r1) # skip procedure entry mask
102 movl %r3, %r1
103 bicpsw $0x000f
104 rsb
105
106 9:
107 # Copy return value if necessary
108 tstl 16(%ap)
109 jeql 9f
110 movl 16(%ap), %r2
111
112 bbc $0, 12(%ap), 1f # CIF_FLAGS_CHAR
113 movb %r0, 0(%r2)
114 brb 9f
115 1:
116 bbc $1, 12(%ap), 1f # CIF_FLAGS_SHORT
117 movw %r0, 0(%r2)
118 brb 9f
119 1:
120 bbc $2, 12(%ap), 1f # CIF_FLAGS_INT
121 movl %r0, 0(%r2)
122 brb 9f
123 1:
124 bbc $3, 12(%ap), 1f # CIF_FLAGS_DINT
125 movq %r0, 0(%r2)
126 brb 9f
127 1:
128 movl %r1, %r0 # might have been a struct
129 #brb 9f
130
131 9:
132 ret
133
134 /*
135 * ffi_closure_elfbsd(void);
136 * invoked with %r0: ffi_closure *closure
137 */
138 .globl ffi_closure_elfbsd
139 .type ffi_closure_elfbsd, @function
140 .align 2
141 ffi_closure_elfbsd:
142 .word 0
143
144 # Allocate room on stack for return value
145 subl2 $8, %sp
146
147 # Invoke the closure function
148 pushal 4(%ap) # calling stack
149 pushal 4(%sp) # return value
150 pushl %r0 # closure
151 calls $3, ffi_closure_elfbsd_inner
152
153 # Copy return value if necessary
154 bitb $1, %r0 # CIF_FLAGS_CHAR
155 beql 1f
156 movb 0(%sp), %r0
157 brb 9f
158 1:
159 bitb $2, %r0 # CIF_FLAGS_SHORT
160 beql 1f
161 movw 0(%sp), %r0
162 brb 9f
163 1:
164 bitb $4, %r0 # CIF_FLAGS_INT
165 beql 1f
166 movl 0(%sp), %r0
167 brb 9f
168 1:
169 bitb $8, %r0 # CIF_FLAGS_DINT
170 beql 1f
171 movq 0(%sp), %r0
172 #brb 9f
173 1:
174
175 9:
176 ret
177
178 /*
179 * ffi_closure_struct_elfbsd(void);
180 * invoked with %r0: ffi_closure *closure
181 * %r1: struct return address
182 */
183 .globl ffi_closure_struct_elfbsd
184 .type ffi_closure_struct_elfbsd, @function
185 .align 2
186 ffi_closure_struct_elfbsd:
187 .word 0
188
189 # Invoke the closure function
190 pushal 4(%ap) # calling stack
191 pushl %r1 # return value
192 pushl %r0 # closure
193 calls $3, ffi_closure_elfbsd_inner
194
195 ret