1 /* 2 * Copyright (c) 2013 Miodrag Vallat. <miod (at) 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 * m88k Foreign Function Interface 26 */ 27 28 #define LIBFFI_ASM 29 #include <fficonfig.h> 30 #include <ffi.h> 31 32 .text 33 34 /* 35 * ffi_cacheflush_OBSD(unsigned int addr, %r2 36 * unsigned int size); %r3 37 */ 38 .align 4 39 .globl ffi_cacheflush_OBSD 40 .type ffi_cacheflush_OBSD,@function 41 ffi_cacheflush_OBSD: 42 tb0 0, %r0, 451 43 or %r0, %r0, %r0 44 jmp %r1 45 .size ffi_cacheflush_OBSD, . - ffi_cacheflush_OBSD 46 47 /* 48 * ffi_call_OBSD(unsigned bytes, %r2 49 * extended_cif *ecif, %r3 50 * unsigned flags, %r4 51 * void *rvalue, %r5 52 * void (*fn)()); %r6 53 */ 54 .align 4 55 .globl ffi_call_OBSD 56 .type ffi_call_OBSD,@function 57 ffi_call_OBSD: 58 subu %r31, %r31, 32 59 st %r30, %r31, 4 60 st %r1, %r31, 0 61 addu %r30, %r31, 32 62 63 | Save the few arguments we'll need after ffi_prep_args() 64 st.d %r4, %r31, 8 65 st %r6, %r31, 16 66 67 | Allocate room for the image of r2-r9, and the stack space for 68 | the args (rounded to a 16-byte boundary) 69 addu %r2, %r2, (8 * 4) + 15 70 clr %r2, %r2, 4<0> 71 subu %r31, %r31, %r2 72 73 | Fill register and stack image 74 or %r2, %r31, %r0 75 #ifdef PIC 76 bsr ffi_prep_args#plt 77 #else 78 bsr ffi_prep_args 79 #endif 80 81 | Save pointer to return struct address, if any 82 or %r12, %r2, %r0 83 84 | Get function pointer 85 subu %r4, %r30, 32 86 ld %r1, %r4, 16 87 88 | Fetch the register arguments 89 ld.d %r2, %r31, (0 * 4) 90 ld.d %r4, %r31, (2 * 4) 91 ld.d %r6, %r31, (4 * 4) 92 ld.d %r8, %r31, (6 * 4) 93 addu %r31, %r31, (8 * 4) 94 95 | Invoke the function 96 jsr %r1 97 98 | Restore stack now that we don't need the args anymore 99 subu %r31, %r30, 32 100 101 | Figure out what to return as the function's return value 102 ld %r5, %r31, 12 | rvalue 103 ld %r4, %r31, 8 | flags 104 105 bcnd eq0, %r5, 9f 106 107 bb0 0, %r4, 1f | CIF_FLAGS_INT 108 st %r2, %r5, 0 109 br 9f 110 111 1: 112 bb0 1, %r4, 1f | CIF_FLAGS_DINT 113 st.d %r2, %r5, 0 114 br 9f 115 116 1: 117 9: 118 ld %r1, %r31, 0 119 ld %r30, %r31, 4 120 jmp.n %r1 121 addu %r31, %r31, 32 122 .size ffi_call_OBSD, . - ffi_call_OBSD 123 124 /* 125 * ffi_closure_OBSD(ffi_closure *closure); %r13 126 */ 127 .align 4 128 .globl ffi_closure_OBSD 129 .type ffi_closure_OBSD, @function 130 ffi_closure_OBSD: 131 subu %r31, %r31, 16 132 st %r30, %r31, 4 133 st %r1, %r31, 0 134 addu %r30, %r31, 16 135 136 | Make room on the stack for saved register arguments and return 137 | value 138 subu %r31, %r31, (8 * 4) + (2 * 4) 139 st.d %r2, %r31, (0 * 4) 140 st.d %r4, %r31, (2 * 4) 141 st.d %r6, %r31, (4 * 4) 142 st.d %r8, %r31, (6 * 4) 143 144 | Invoke the closure function 145 or %r5, %r30, 0 | calling stack 146 addu %r4, %r31, 0 | saved registers 147 addu %r3, %r31, (8 * 4) | return value 148 or %r2, %r13, %r0 | closure 149 #ifdef PIC 150 bsr ffi_closure_OBSD_inner#plt 151 #else 152 bsr ffi_closure_OBSD_inner 153 #endif 154 155 | Figure out what to return as the function's return value 156 bb0 0, %r2, 1f | CIF_FLAGS_INT 157 ld %r2, %r31, (8 * 4) 158 br 9f 159 160 1: 161 bb0 1, %r2, 1f | CIF_FLAGS_DINT 162 ld.d %r2, %r31, (8 * 4) 163 br 9f 164 165 1: 166 9: 167 subu %r31, %r30, 16 168 ld %r1, %r31, 0 169 ld %r30, %r31, 4 170 jmp.n %r1 171 addu %r31, %r31, 16 172 .size ffi_closure_OBSD,.-ffi_closure_OBSD 173 174 /* 175 * ffi_closure_struct_OBSD(ffi_closure *closure); %r13 176 */ 177 .align 4 178 .globl ffi_closure_struct_OBSD 179 .type ffi_closure_struct_OBSD, @function 180 ffi_closure_struct_OBSD: 181 subu %r31, %r31, 16 182 st %r30, %r31, 4 183 st %r1, %r31, 0 184 addu %r30, %r31, 16 185 186 | Make room on the stack for saved register arguments 187 subu %r31, %r31, (8 * 4) 188 st.d %r2, %r31, (0 * 4) 189 st.d %r4, %r31, (2 * 4) 190 st.d %r6, %r31, (4 * 4) 191 st.d %r8, %r31, (6 * 4) 192 193 | Invoke the closure function 194 or %r5, %r30, 0 | calling stack 195 addu %r4, %r31, 0 | saved registers 196 or %r3, %r12, 0 | return value 197 or %r2, %r13, %r0 | closure 198 #ifdef PIC 199 bsr ffi_closure_OBSD_inner#plt 200 #else 201 bsr ffi_closure_OBSD_inner 202 #endif 203 204 subu %r31, %r30, 16 205 ld %r1, %r31, 0 206 ld %r30, %r31, 4 207 jmp.n %r1 208 addu %r31, %r31, 16 209 .size ffi_closure_struct_OBSD,.-ffi_closure_struct_OBSD 210
