1#if defined(__ppc__) || defined(__ppc64__) 2 3/* ----------------------------------------------------------------------- 4 ppc-darwin.S - Copyright (c) 2000 John Hornkvist 5 Copyright (c) 2004 Free Software Foundation, Inc. 6 7 PowerPC Assembly glue. 8 9 Permission is hereby granted, free of charge, to any person obtaining 10 a copy of this software and associated documentation files (the 11 ``Software''), to deal in the Software without restriction, including 12 without limitation the rights to use, copy, modify, merge, publish, 13 distribute, sublicense, and/or sell copies of the Software, and to 14 permit persons to whom the Software is furnished to do so, subject to 15 the following conditions: 16 17 The above copyright notice and this permission notice shall be included 18 in all copies or substantial portions of the Software. 19 20 THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS 21 OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 22 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 23 IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR 24 OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, 25 ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR 26 OTHER DEALINGS IN THE SOFTWARE. 27 ----------------------------------------------------------------------- */ 28 29#define LIBFFI_ASM 30 31#include <fficonfig.h> 32#include <ffi.h> 33#include <ppc-darwin.h> 34#include <architecture/ppc/mode_independent_asm.h> 35 36.text 37 .align 2 38.globl _ffi_prep_args 39 40.text 41 .align 2 42.globl _ffi_call_DARWIN 43 44.text 45 .align 2 46_ffi_call_DARWIN: 47LFB0: 48 mr r12,r8 /* We only need r12 until the call, 49 so it doesn't have to be saved. */ 50 51LFB1: 52 /* Save the old stack pointer as AP. */ 53 mr r8,r1 54 55LCFI0: 56#if defined(__ppc64__) 57 /* Allocate the stack space we need. 58 r4 (size of input data) 59 48 bytes (linkage area) 60 40 bytes (saved registers) 61 8 bytes (extra FPR) 62 r4 + 96 bytes total 63 */ 64 65 addi r4,r4,-96 // Add our overhead. 66 li r0,-32 // Align to 32 bytes. 67 and r4,r4,r0 68#endif 69 stgux r1,r1,r4 // Grow the stack. 70 mflr r9 71 72 /* Save registers we use. */ 73#if defined(__ppc64__) 74 std r27,-40(r8) 75#endif 76 stg r28,MODE_CHOICE(-16,-32)(r8) 77 stg r29,MODE_CHOICE(-12,-24)(r8) 78 stg r30,MODE_CHOICE(-8,-16)(r8) 79 stg r31,MODE_CHOICE(-4,-8)(r8) 80 stg r9,SF_RETURN(r8) /* return address */ 81#if !defined(POWERPC_DARWIN) /* TOC unused in OS X */ 82 stg r2,MODE_CHOICE(20,40)(r1) 83#endif 84 85LCFI1: 86#if defined(__ppc64__) 87 mr r27,r3 // our extended_cif 88#endif 89 /* Save arguments over call. */ 90 mr r31,r5 /* flags, */ 91 mr r30,r6 /* rvalue, */ 92 mr r29,r7 /* function address, */ 93 mr r28,r8 /* our AP. */ 94 95LCFI2: 96 /* Call ffi_prep_args. */ 97 mr r4,r1 98 li r9,0 99 mtctr r12 /* r12 holds address of _ffi_prep_args. */ 100 bctrl 101#if !defined(POWERPC_DARWIN) /* TOC unused in OS X */ 102 lg r2,MODE_CHOICE(20,40)(r1) 103#endif 104 105 /* Now do the call. 106 Set up cr1 with bits 4-7 of the flags. */ 107 mtcrf 0x40,r31 108 109 /* Load all those argument registers. 110 We have set up a nice stack frame, just load it into registers. */ 111 lg r3,SF_ARG1(r1) 112 lg r4,SF_ARG2(r1) 113 lg r5,SF_ARG3(r1) 114 lg r6,SF_ARG4(r1) 115 nop 116 lg r7,SF_ARG5(r1) 117 lg r8,SF_ARG6(r1) 118 lg r9,SF_ARG7(r1) 119 lg r10,SF_ARG8(r1) 120 121 /* Load all the FP registers. */ 122 bf 6,L2 /* No floats to load. */ 123#if defined(__ppc64__) 124 lfd f1,MODE_CHOICE(-16,-40)-(14*8)(r28) 125 lfd f2,MODE_CHOICE(-16,-40)-(13*8)(r28) 126 lfd f3,MODE_CHOICE(-16,-40)-(12*8)(r28) 127 lfd f4,MODE_CHOICE(-16,-40)-(11*8)(r28) 128 nop 129 lfd f5,MODE_CHOICE(-16,-40)-(10*8)(r28) 130 lfd f6,MODE_CHOICE(-16,-40)-(9*8)(r28) 131 lfd f7,MODE_CHOICE(-16,-40)-(8*8)(r28) 132 lfd f8,MODE_CHOICE(-16,-40)-(7*8)(r28) 133 nop 134 lfd f9,MODE_CHOICE(-16,-40)-(6*8)(r28) 135 lfd f10,MODE_CHOICE(-16,-40)-(5*8)(r28) 136 lfd f11,MODE_CHOICE(-16,-40)-(4*8)(r28) 137 lfd f12,MODE_CHOICE(-16,-40)-(3*8)(r28) 138 nop 139 lfd f13,MODE_CHOICE(-16,-40)-(2*8)(r28) 140 lfd f14,MODE_CHOICE(-16,-40)-(1*8)(r28) 141#elif defined(__ppc__) 142 lfd f1,MODE_CHOICE(-16,-40)-(13*8)(r28) 143 lfd f2,MODE_CHOICE(-16,-40)-(12*8)(r28) 144 lfd f3,MODE_CHOICE(-16,-40)-(11*8)(r28) 145 lfd f4,MODE_CHOICE(-16,-40)-(10*8)(r28) 146 nop 147 lfd f5,MODE_CHOICE(-16,-40)-(9*8)(r28) 148 lfd f6,MODE_CHOICE(-16,-40)-(8*8)(r28) 149 lfd f7,MODE_CHOICE(-16,-40)-(7*8)(r28) 150 lfd f8,MODE_CHOICE(-16,-40)-(6*8)(r28) 151 nop 152 lfd f9,MODE_CHOICE(-16,-40)-(5*8)(r28) 153 lfd f10,MODE_CHOICE(-16,-40)-(4*8)(r28) 154 lfd f11,MODE_CHOICE(-16,-40)-(3*8)(r28) 155 lfd f12,MODE_CHOICE(-16,-40)-(2*8)(r28) 156 nop 157 lfd f13,MODE_CHOICE(-16,-40)-(1*8)(r28) 158#else 159#error undefined architecture 160#endif 161 162L2: 163 mr r12,r29 // Put the target address in r12 as specified. 164 mtctr r12 // Get the address to call into CTR. 165 nop 166 nop 167 bctrl // Make the call. 168 169 // Deal with the return value. 170#if defined(__ppc64__) 171 mtcrf 0x3,r31 // flags in cr6 and cr7 172 bt 27,L(st_return_value) 173#elif defined(__ppc__) 174 mtcrf 0x1,r31 // flags in cr7 175#else 176#error undefined architecture 177#endif 178 179 bt 30,L(done_return_value) 180 bt 29,L(fp_return_value) 181 stg r3,0(r30) 182#if defined(__ppc__) 183 bf 28,L(done_return_value) // Store the second long if necessary. 184 stg r4,4(r30) 185#endif 186 // Fall through 187 188L(done_return_value): 189 lg r1,0(r1) // Restore stack pointer. 190 // Restore the registers we used. 191 lg r9,SF_RETURN(r1) // return address 192 lg r31,MODE_CHOICE(-4,-8)(r1) 193 mtlr r9 194 lg r30,MODE_CHOICE(-8,-16)(r1) 195 lg r29,MODE_CHOICE(-12,-24)(r1) 196 lg r28,MODE_CHOICE(-16,-32)(r1) 197#if defined(__ppc64__) 198 ld r27,-40(r1) 199#endif 200 blr 201 202#if defined(__ppc64__) 203L(st_return_value): 204 // Grow the stack enough to fit the registers. Leave room for 8 args 205 // to trample the 1st 8 slots in param area. 206 stgu r1,-SF_ROUND(280)(r1) // 64 + 104 + 48 + 64 207 208 // Store GPRs 209 std r3,SF_ARG9(r1) 210 std r4,SF_ARG10(r1) 211 std r5,SF_ARG11(r1) 212 std r6,SF_ARG12(r1) 213 nop 214 std r7,SF_ARG13(r1) 215 std r8,SF_ARG14(r1) 216 std r9,SF_ARG15(r1) 217 std r10,SF_ARG16(r1) 218 219 // Store FPRs 220 nop 221 bf 26,L(call_struct_to_ram_form) 222 stfd f1,SF_ARG17(r1) 223 stfd f2,SF_ARG18(r1) 224 stfd f3,SF_ARG19(r1) 225 stfd f4,SF_ARG20(r1) 226 nop 227 stfd f5,SF_ARG21(r1) 228 stfd f6,SF_ARG22(r1) 229 stfd f7,SF_ARG23(r1) 230 stfd f8,SF_ARG24(r1) 231 nop 232 stfd f9,SF_ARG25(r1) 233 stfd f10,SF_ARG26(r1) 234 stfd f11,SF_ARG27(r1) 235 stfd f12,SF_ARG28(r1) 236 nop 237 stfd f13,SF_ARG29(r1) 238 239L(call_struct_to_ram_form): 240 ld r3,0(r27) // extended_cif->cif* 241 ld r3,16(r3) // ffi_cif->rtype* 242 addi r4,r1,SF_ARG9 // stored GPRs 243 addi r6,r1,SF_ARG17 // stored FPRs 244 li r5,0 // GPR size ptr (NULL) 245 li r7,0 // FPR size ptr (NULL) 246 li r8,0 // FPR count ptr (NULL) 247 li r10,0 // struct offset (NULL) 248 mr r9,r30 // return area 249 bl Lffi64_struct_to_ram_form$stub 250 lg r1,0(r1) // Restore stack pointer. 251 b L(done_return_value) 252#endif 253 254L(fp_return_value): 255 /* Do we have long double to store? */ 256 bf 31,L(fd_return_value) 257 stfd f1,0(r30) 258 stfd f2,8(r30) 259 b L(done_return_value) 260 261L(fd_return_value): 262 /* Do we have double to store? */ 263 bf 28,L(float_return_value) 264 stfd f1,0(r30) 265 b L(done_return_value) 266 267L(float_return_value): 268 /* We only have a float to store. */ 269 stfs f1,0(r30) 270 b L(done_return_value) 271 272LFE1: 273/* END(_ffi_call_DARWIN) */ 274 275/* Provide a null definition of _ffi_call_AIX. */ 276.text 277 .align 2 278.globl _ffi_call_AIX 279.text 280 .align 2 281_ffi_call_AIX: 282 blr 283/* END(_ffi_call_AIX) */ 284 285.section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms 286EH_frame1: 287 .set L$set$0,LECIE1-LSCIE1 288 .long L$set$0 ; Length of Common Information Entry 289LSCIE1: 290 .long 0x0 ; CIE Identifier Tag 291 .byte 0x1 ; CIE Version 292 .ascii "zR\0" ; CIE Augmentation 293 .byte 0x1 ; uleb128 0x1; CIE Code Alignment Factor 294 .byte 0x7c ; sleb128 -4; CIE Data Alignment Factor 295 .byte 0x41 ; CIE RA Column 296 .byte 0x1 ; uleb128 0x1; Augmentation size 297 .byte 0x10 ; FDE Encoding (pcrel) 298 .byte 0xc ; DW_CFA_def_cfa 299 .byte 0x1 ; uleb128 0x1 300 .byte 0x0 ; uleb128 0x0 301 .align LOG2_GPR_BYTES 302LECIE1: 303.globl _ffi_call_DARWIN.eh 304_ffi_call_DARWIN.eh: 305LSFDE1: 306 .set L$set$1,LEFDE1-LASFDE1 307 .long L$set$1 ; FDE Length 308 309LASFDE1: 310 .long LASFDE1-EH_frame1 ; FDE CIE offset 311 .g_long LFB0-. ; FDE initial location 312 .set L$set$3,LFE1-LFB0 313 .g_long L$set$3 ; FDE address range 314 .byte 0x0 ; uleb128 0x0; Augmentation size 315 .byte 0x4 ; DW_CFA_advance_loc4 316 .set L$set$4,LCFI0-LFB1 317 .long L$set$4 318 .byte 0xd ; DW_CFA_def_cfa_register 319 .byte 0x08 ; uleb128 0x08 320 .byte 0x4 ; DW_CFA_advance_loc4 321 .set L$set$5,LCFI1-LCFI0 322 .long L$set$5 323 .byte 0x11 ; DW_CFA_offset_extended_sf 324 .byte 0x41 ; uleb128 0x41 325 .byte 0x7e ; sleb128 -2 326 .byte 0x9f ; DW_CFA_offset, column 0x1f 327 .byte 0x1 ; uleb128 0x1 328 .byte 0x9e ; DW_CFA_offset, column 0x1e 329 .byte 0x2 ; uleb128 0x2 330 .byte 0x9d ; DW_CFA_offset, column 0x1d 331 .byte 0x3 ; uleb128 0x3 332 .byte 0x9c ; DW_CFA_offset, column 0x1c 333 .byte 0x4 ; uleb128 0x4 334 .byte 0x4 ; DW_CFA_advance_loc4 335 .set L$set$6,LCFI2-LCFI1 336 .long L$set$6 337 .byte 0xd ; DW_CFA_def_cfa_register 338 .byte 0x1c ; uleb128 0x1c 339 .align LOG2_GPR_BYTES 340LEFDE1: 341 342#if defined(__ppc64__) 343.section __TEXT,__picsymbolstub1,symbol_stubs,pure_instructions,32 344 .align LOG2_GPR_BYTES 345 346Lffi64_struct_to_ram_form$stub: 347 .indirect_symbol _ffi64_struct_to_ram_form 348 mflr r0 349 bcl 20,31,LO$ffi64_struct_to_ram_form 350 351LO$ffi64_struct_to_ram_form: 352 mflr r11 353 addis r11,r11,ha16(L_ffi64_struct_to_ram_form$lazy_ptr - LO$ffi64_struct_to_ram_form) 354 mtlr r0 355 lgu r12,lo16(L_ffi64_struct_to_ram_form$lazy_ptr - LO$ffi64_struct_to_ram_form)(r11) 356 mtctr r12 357 bctr 358 359.lazy_symbol_pointer 360L_ffi64_struct_to_ram_form$lazy_ptr: 361 .indirect_symbol _ffi64_struct_to_ram_form 362 .g_long dyld_stub_binding_helper 363 364#endif // __ppc64__ 365#endif // __ppc__ || __ppc64__ 366