1 /* ----------------------------------------------------------------------- 2 darwin_closure.S - Copyright (c) 2002, 2003, 2004, Free Software Foundation, 3 Inc. based on ppc_closure.S 4 5 PowerPC Assembly glue. 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 THE AUTHOR 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 #define L(x) x 29 30 #if defined(__ppc64__) 31 #define MODE_CHOICE(x, y) y 32 #else 33 #define MODE_CHOICE(x, y) x 34 #endif 35 36 #define lgu MODE_CHOICE(lwzu, ldu) 37 38 #define g_long MODE_CHOICE(long, quad) /* usage is ".g_long" */ 39 40 #define LOG2_GPR_BYTES MODE_CHOICE(2,3) /* log2(GPR_BYTES) */ 41 42 .file "darwin_closure.S" 43 .text 44 .align LOG2_GPR_BYTES 45 .globl _ffi_closure_ASM 46 47 .text 48 .align LOG2_GPR_BYTES 49 _ffi_closure_ASM: 50 LFB1: 51 mflr r0 /* extract return address */ 52 stw r0,8(r1) /* save the return address */ 53 LCFI0: 54 /* 24 Bytes (Linkage Area) 55 32 Bytes (outgoing parameter area, always reserved) 56 104 Bytes (13*8 from FPR) 57 16 Bytes (result) 58 176 Bytes */ 59 60 stwu r1,-176(r1) /* skip over caller save area 61 keep stack aligned to 16. */ 62 LCFI1: 63 /* We want to build up an area for the parameters passed 64 in registers. (both floating point and integer) */ 65 66 /* We store gpr 3 to gpr 10 (aligned to 4) 67 in the parents outgoing area. */ 68 stw r3,200(r1) 69 stw r4,204(r1) 70 stw r5,208(r1) 71 stw r6,212(r1) 72 stw r7,216(r1) 73 stw r8,220(r1) 74 stw r9,224(r1) 75 stw r10,228(r1) 76 77 /* We save fpr 1 to fpr 13. (aligned to 8) */ 78 stfd f1,56(r1) 79 stfd f2,64(r1) 80 stfd f3,72(r1) 81 stfd f4,80(r1) 82 stfd f5,88(r1) 83 stfd f6,96(r1) 84 stfd f7,104(r1) 85 stfd f8,112(r1) 86 stfd f9,120(r1) 87 stfd f10,128(r1) 88 stfd f11,136(r1) 89 stfd f12,144(r1) 90 stfd f13,152(r1) 91 92 /* Set up registers for the routine that actually does the work 93 get the context pointer from the trampoline. */ 94 mr r3,r11 95 96 /* Now load up the pointer to the result storage. */ 97 addi r4,r1,160 98 99 /* Now load up the pointer to the saved gpr registers. */ 100 addi r5,r1,200 101 102 /* Now load up the pointer to the saved fpr registers. */ 103 addi r6,r1,56 104 105 /* Make the call. */ 106 bl Lffi_closure_helper_DARWIN$stub 107 108 /* Now r3 contains the return type 109 so use it to look up in a table 110 so we know how to deal with each type. */ 111 112 /* Look up the proper starting point in table 113 by using return type as offset. */ 114 addi r5,r1,160 /* Get pointer to results area. */ 115 bl Lget_ret_type0_addr /* Get pointer to Lret_type0 into LR. */ 116 mflr r4 /* Move to r4. */ 117 slwi r3,r3,4 /* Now multiply return type by 16. */ 118 add r3,r3,r4 /* Add contents of table to table address. */ 119 mtctr r3 120 bctr /* Jump to it. */ 121 LFE1: 122 /* Each of the ret_typeX code fragments has to be exactly 16 bytes long 123 (4 instructions). For cache effectiveness we align to a 16 byte boundary 124 first. */ 125 126 .align 4 127 128 nop 129 nop 130 nop 131 Lget_ret_type0_addr: 132 blrl 133 134 /* case FFI_TYPE_VOID */ 135 Lret_type0: 136 b Lfinish 137 nop 138 nop 139 nop 140 141 /* case FFI_TYPE_INT */ 142 Lret_type1: 143 lwz r3,0(r5) 144 b Lfinish 145 nop 146 nop 147 148 /* case FFI_TYPE_FLOAT */ 149 Lret_type2: 150 lfs f1,0(r5) 151 b Lfinish 152 nop 153 nop 154 155 /* case FFI_TYPE_DOUBLE */ 156 Lret_type3: 157 lfd f1,0(r5) 158 b Lfinish 159 nop 160 nop 161 162 /* case FFI_TYPE_LONGDOUBLE */ 163 Lret_type4: 164 lfd f1,0(r5) 165 lfd f2,8(r5) 166 b Lfinish 167 nop 168 169 /* case FFI_TYPE_UINT8 */ 170 Lret_type5: 171 lbz r3,3(r5) 172 b Lfinish 173 nop 174 nop 175 176 /* case FFI_TYPE_SINT8 */ 177 Lret_type6: 178 lbz r3,3(r5) 179 extsb r3,r3 180 b Lfinish 181 nop 182 183 /* case FFI_TYPE_UINT16 */ 184 Lret_type7: 185 lhz r3,2(r5) 186 b Lfinish 187 nop 188 nop 189 190 /* case FFI_TYPE_SINT16 */ 191 Lret_type8: 192 lha r3,2(r5) 193 b Lfinish 194 nop 195 nop 196 197 /* case FFI_TYPE_UINT32 */ 198 Lret_type9: 199 lwz r3,0(r5) 200 b Lfinish 201 nop 202 nop 203 204 /* case FFI_TYPE_SINT32 */ 205 Lret_type10: 206 lwz r3,0(r5) 207 b Lfinish 208 nop 209 nop 210 211 /* case FFI_TYPE_UINT64 */ 212 Lret_type11: 213 lwz r3,0(r5) 214 lwz r4,4(r5) 215 b Lfinish 216 nop 217 218 /* case FFI_TYPE_SINT64 */ 219 Lret_type12: 220 lwz r3,0(r5) 221 lwz r4,4(r5) 222 b Lfinish 223 nop 224 225 /* case FFI_TYPE_STRUCT */ 226 Lret_type13: 227 b Lfinish 228 nop 229 nop 230 nop 231 232 /* case FFI_TYPE_POINTER */ 233 Lret_type14: 234 lwz r3,0(r5) 235 b Lfinish 236 nop 237 nop 238 239 /* case done */ 240 Lfinish: 241 addi r1,r1,176 /* Restore stack pointer. */ 242 lwz r0,8(r1) /* Get return address. */ 243 mtlr r0 /* Reset link register. */ 244 blr 245 246 /* END(ffi_closure_ASM) */ 247 248 .data 249 .section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms+live_support 250 EH_frame1: 251 .set L$set$0,LECIE1-LSCIE1 252 .long L$set$0 ; Length of Common Information Entry 253 LSCIE1: 254 .long 0x0 ; CIE Identifier Tag 255 .byte 0x1 ; CIE Version 256 .ascii "zR\0" ; CIE Augmentation 257 .byte 0x1 ; uleb128 0x1; CIE Code Alignment Factor 258 .byte 0x7c ; sleb128 -4; CIE Data Alignment Factor 259 .byte 0x41 ; CIE RA Column 260 .byte 0x1 ; uleb128 0x1; Augmentation size 261 .byte 0x90 ; FDE Encoding (indirect pcrel) 262 .byte 0xc ; DW_CFA_def_cfa 263 .byte 0x1 ; uleb128 0x1 264 .byte 0x0 ; uleb128 0x0 265 .align LOG2_GPR_BYTES 266 LECIE1: 267 .globl _ffi_closure_ASM.eh 268 _ffi_closure_ASM.eh: 269 LSFDE1: 270 .set L$set$1,LEFDE1-LASFDE1 271 .long L$set$1 ; FDE Length 272 273 LASFDE1: 274 .long LASFDE1-EH_frame1 ; FDE CIE offset 275 .g_long LLFB1$non_lazy_ptr-. ; FDE initial location 276 .set L$set$3,LFE1-LFB1 277 .g_long L$set$3 ; FDE address range 278 .byte 0x0 ; uleb128 0x0; Augmentation size 279 .byte 0x4 ; DW_CFA_advance_loc4 280 .set L$set$3,LCFI1-LCFI0 281 .long L$set$3 282 .byte 0xe ; DW_CFA_def_cfa_offset 283 .byte 176,1 ; uleb128 176 284 .byte 0x4 ; DW_CFA_advance_loc4 285 .set L$set$4,LCFI0-LFB1 286 .long L$set$4 287 .byte 0x11 ; DW_CFA_offset_extended_sf 288 .byte 0x41 ; uleb128 0x41 289 .byte 0x7e ; sleb128 -2 290 .align LOG2_GPR_BYTES 291 LEFDE1: 292 .data 293 .align LOG2_GPR_BYTES 294 LDFCM0: 295 .section __TEXT,__picsymbolstub1,symbol_stubs,pure_instructions,32 296 .align LOG2_GPR_BYTES 297 Lffi_closure_helper_DARWIN$stub: 298 #if 1 299 .indirect_symbol _ffi_closure_helper_DARWIN 300 mflr r0 301 bcl 20,31,LO$ffi_closure_helper_DARWIN 302 LO$ffi_closure_helper_DARWIN: 303 mflr r11 304 addis r11,r11,ha16(L_ffi_closure_helper_DARWIN$lazy_ptr - LO$ffi_closure_helper_DARWIN) 305 mtlr r0 306 lgu r12,lo16(L_ffi_closure_helper_DARWIN$lazy_ptr - LO$ffi_closure_helper_DARWIN)(r11) 307 mtctr r12 308 bctr 309 .lazy_symbol_pointer 310 L_ffi_closure_helper_DARWIN$lazy_ptr: 311 .indirect_symbol _ffi_closure_helper_DARWIN 312 .g_long dyld_stub_binding_helper 313 #endif 314 .data 315 .align LOG2_GPR_BYTES 316 LLFB1$non_lazy_ptr: 317 .g_long LFB1 318
