1 /* ----------------------------------------------------------------------- 2 sysv.S - Copyright (c) 2004 Simon Posnjak 3 Copyright (c) 2005 Axis Communications AB 4 5 CRIS Foreign Function Interface 6 7 Permission is hereby granted, free of charge, to any person obtaining 8 a copy of this software and associated documentation files (the 9 ``Software''), to deal in the Software without restriction, including 10 without limitation the rights to use, copy, modify, merge, publish, 11 distribute, sublicense, and/or sell copies of the Software, and to 12 permit persons to whom the Software is furnished to do so, subject to 13 the following conditions: 14 15 The above copyright notice and this permission notice shall be included 16 in all copies or substantial portions of the Software. 17 18 THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS 19 OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 20 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 21 IN NO EVENT SHALL SIMON POSNJAK BE LIABLE FOR ANY CLAIM, DAMAGES OR 22 OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, 23 ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR 24 OTHER DEALINGS IN THE SOFTWARE. 25 ----------------------------------------------------------------------- */ 26 27 #define LIBFFI_ASM 28 #include <ffi.h> 29 #define CONCAT(x,y) x ## y 30 #define XCONCAT(x,y) CONCAT (x, y) 31 #define L(x) XCONCAT (__USER_LABEL_PREFIX__, x) 32 33 .text 34 35 ;; OK, when we get called we should have this (according to 36 ;; AXIS ETRAX 100LX Programmer's Manual chapter 6.3). 37 ;; 38 ;; R10: ffi_prep_args (func. pointer) 39 ;; R11: &ecif 40 ;; R12: cif->bytes 41 ;; R13: fig->flags 42 ;; sp+0: ecif.rvalue 43 ;; sp+4: fn (function pointer to the function that we need to call) 44 45 .globl L(ffi_call_SYSV) 46 .type L(ffi_call_SYSV),@function 47 .hidden L(ffi_call_SYSV) 48 49 L(ffi_call_SYSV): 50 ;; Save the regs to the stack. 51 push $srp 52 ;; Used for stack pointer saving. 53 push $r6 54 ;; Used for function address pointer. 55 push $r7 56 ;; Used for stack pointer saving. 57 push $r8 58 ;; We save fig->flags to stack we will need them after we 59 ;; call The Function. 60 push $r13 61 62 ;; Saving current stack pointer. 63 move.d $sp,$r8 64 move.d $sp,$r6 65 66 ;; Move address of ffi_prep_args to r13. 67 move.d $r10,$r13 68 69 ;; Make room on the stack for the args of fn. 70 sub.d $r12,$sp 71 72 ;; Function void ffi_prep_args(char *stack, extended_cif *ecif) parameters are: 73 ;; r10 <-- stack pointer 74 ;; r11 <-- &ecif (already there) 75 move.d $sp,$r10 76 77 ;; Call the function. 78 jsr $r13 79 80 ;; Save the size of the structures which are passed on stack. 81 move.d $r10,$r7 82 83 ;; Move first four args in to r10..r13. 84 move.d [$sp+0],$r10 85 move.d [$sp+4],$r11 86 move.d [$sp+8],$r12 87 move.d [$sp+12],$r13 88 89 ;; Adjust the stack and check if any parameters are given on stack. 90 addq 16,$sp 91 sub.d $r7,$r6 92 cmp.d $sp,$r6 93 94 bpl go_on 95 nop 96 97 go_on_no_params_on_stack: 98 move.d $r6,$sp 99 100 go_on: 101 ;; Discover if we need to put rval address in to r9. 102 move.d [$r8+0],$r7 103 cmpq FFI_TYPE_STRUCT,$r7 104 bne call_now 105 nop 106 107 ;; Move rval address to $r9. 108 move.d [$r8+20],$r9 109 110 call_now: 111 ;; Move address of The Function in to r7. 112 move.d [$r8+24],$r7 113 114 ;; Call The Function. 115 jsr $r7 116 117 ;; Reset stack. 118 move.d $r8,$sp 119 120 ;; Load rval type (fig->flags) in to r13. 121 pop $r13 122 123 ;; Detect rval type. 124 cmpq FFI_TYPE_VOID,$r13 125 beq epilogue 126 127 cmpq FFI_TYPE_STRUCT,$r13 128 beq epilogue 129 130 cmpq FFI_TYPE_DOUBLE,$r13 131 beq return_double_or_longlong 132 133 cmpq FFI_TYPE_UINT64,$r13 134 beq return_double_or_longlong 135 136 cmpq FFI_TYPE_SINT64,$r13 137 beq return_double_or_longlong 138 nop 139 140 ;; Just return the 32 bit value. 141 ba return 142 nop 143 144 return_double_or_longlong: 145 ;; Load half of the rval to r10 and the other half to r11. 146 move.d [$sp+16],$r13 147 move.d $r10,[$r13] 148 addq 4,$r13 149 move.d $r11,[$r13] 150 ba epilogue 151 nop 152 153 return: 154 ;; Load the rval to r10. 155 move.d [$sp+16],$r13 156 move.d $r10,[$r13] 157 158 epilogue: 159 pop $r8 160 pop $r7 161 pop $r6 162 Jump [$sp+] 163 164 .size ffi_call_SYSV,.-ffi_call_SYSV 165 166 /* Save R10..R13 into an array, somewhat like varargs. Copy the next 167 argument too, to simplify handling of any straddling parameter. 168 Save R9 and SP after those. Jump to function handling the rest. 169 Since this is a template, copied and the main function filled in by 170 the user. */ 171 172 .globl L(ffi_cris_trampoline_template) 173 .type L(ffi_cris_trampoline_template),@function 174 .hidden L(ffi_cris_trampoline_template) 175 176 L(ffi_cris_trampoline_template): 177 0: 178 /* The value we get for "PC" is right after the prefix instruction, 179 two bytes from the beginning, i.e. 0b+2. */ 180 move.d $r10,[$pc+2f-(0b+2)] 181 move.d $pc,$r10 182 1: 183 addq 2f-1b+4,$r10 184 move.d $r11,[$r10+] 185 move.d $r12,[$r10+] 186 move.d $r13,[$r10+] 187 move.d [$sp],$r11 188 move.d $r11,[$r10+] 189 move.d $r9,[$r10+] 190 move.d $sp,[$r10+] 191 subq FFI_CRIS_TRAMPOLINE_DATA_PART_SIZE,$r10 192 move.d 0,$r11 193 3: 194 jump 0 195 2: 196 .size ffi_cris_trampoline_template,.-0b 197 198 /* This macro create a constant usable as "extern const int \name" in 199 C from within libffi, when \name has no prefix decoration. */ 200 201 .macro const name,value 202 .globl \name 203 .type \name,@object 204 .hidden \name 205 \name: 206 .dword \value 207 .size \name,4 208 .endm 209 210 /* Constants for offsets within the trampoline. We could do this with 211 just symbols, avoiding memory contents and memory accesses, but the 212 C usage code would look a bit stranger. */ 213 214 const L(ffi_cris_trampoline_fn_offset),2b-4-0b 215 const L(ffi_cris_trampoline_closure_offset),3b-4-0b 216
