| #define LIBFFI_ASM |
| #include <fficonfig.h> |
| #include <ffi.h> |
| |
| .file "linux64_closure.S" |
| |
| #ifdef __powerpc64__ |
| .hidden ffi_closure_LINUX64, .ffi_closure_LINUX64 |
| .globl ffi_closure_LINUX64, .ffi_closure_LINUX64 |
| .section ".opd","aw" |
| .align 3 |
| ffi_closure_LINUX64: |
| .quad .ffi_closure_LINUX64,.TOC.@tocbase,0 |
| .size ffi_closure_LINUX64,24 |
| .type .ffi_closure_LINUX64,@function |
| .text |
| .ffi_closure_LINUX64: |
| .LFB1: |
| # save general regs into parm save area |
| std %r3, 48(%r1) |
| std %r4, 56(%r1) |
| std %r5, 64(%r1) |
| std %r6, 72(%r1) |
| mflr %r0 |
| |
| std %r7, 80(%r1) |
| std %r8, 88(%r1) |
| std %r9, 96(%r1) |
| std %r10, 104(%r1) |
| std %r0, 16(%r1) |
| |
| # mandatory 48 bytes special reg save area + 64 bytes parm save area |
| # + 16 bytes retval area + 13*8 bytes fpr save area + round to 16 |
| stdu %r1, -240(%r1) |
| .LCFI0: |
| |
| # next save fpr 1 to fpr 13 |
| stfd %f1, 128+(0*8)(%r1) |
| stfd %f2, 128+(1*8)(%r1) |
| stfd %f3, 128+(2*8)(%r1) |
| stfd %f4, 128+(3*8)(%r1) |
| stfd %f5, 128+(4*8)(%r1) |
| stfd %f6, 128+(5*8)(%r1) |
| stfd %f7, 128+(6*8)(%r1) |
| stfd %f8, 128+(7*8)(%r1) |
| stfd %f9, 128+(8*8)(%r1) |
| stfd %f10, 128+(9*8)(%r1) |
| stfd %f11, 128+(10*8)(%r1) |
| stfd %f12, 128+(11*8)(%r1) |
| stfd %f13, 128+(12*8)(%r1) |
| |
| # set up registers for the routine that actually does the work |
| # get the context pointer from the trampoline |
| mr %r3, %r11 |
| |
| # now load up the pointer to the result storage |
| addi %r4, %r1, 112 |
| |
| # now load up the pointer to the parameter save area |
| # in the previous frame |
| addi %r5, %r1, 240 + 48 |
| |
| # now load up the pointer to the saved fpr registers */ |
| addi %r6, %r1, 128 |
| |
| # make the call |
| bl .ffi_closure_helper_LINUX64 |
| .Lret: |
| |
| # now r3 contains the return type |
| # so use it to look up in a table |
| # so we know how to deal with each type |
| |
| # look up the proper starting point in table |
| # by using return type as offset |
| mflr %r4 # move address of .Lret to r4 |
| sldi %r3, %r3, 4 # now multiply return type by 16 |
| addi %r4, %r4, .Lret_type0 - .Lret |
| ld %r0, 240+16(%r1) |
| add %r3, %r3, %r4 # add contents of table to table address |
| mtctr %r3 |
| bctr # jump to it |
| |
| # Each of the ret_typeX code fragments has to be exactly 16 bytes long |
| # (4 instructions). For cache effectiveness we align to a 16 byte boundary |
| # first. |
| .align 4 |
| |
| .Lret_type0: |
| # case FFI_TYPE_VOID |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| nop |
| # case FFI_TYPE_INT |
| lwa %r3, 112+4(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_FLOAT |
| lfs %f1, 112+0(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_DOUBLE |
| lfd %f1, 112+0(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_LONGDOUBLE |
| lfd %f1, 112+0(%r1) |
| mtlr %r0 |
| lfd %f2, 112+8(%r1) |
| b .Lfinish |
| # case FFI_TYPE_UINT8 |
| lbz %r3, 112+7(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_SINT8 |
| lbz %r3, 112+7(%r1) |
| extsb %r3,%r3 |
| mtlr %r0 |
| b .Lfinish |
| # case FFI_TYPE_UINT16 |
| lhz %r3, 112+6(%r1) |
| mtlr %r0 |
| .Lfinish: |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_SINT16 |
| lha %r3, 112+6(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_UINT32 |
| lwz %r3, 112+4(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_SINT32 |
| lwa %r3, 112+4(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_UINT64 |
| ld %r3, 112+0(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_SINT64 |
| ld %r3, 112+0(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # case FFI_TYPE_STRUCT |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| nop |
| # case FFI_TYPE_POINTER |
| ld %r3, 112+0(%r1) |
| mtlr %r0 |
| addi %r1, %r1, 240 |
| blr |
| # esac |
| .LFE1: |
| .long 0 |
| .byte 0,12,0,1,128,0,0,0 |
| .size .ffi_closure_LINUX64,.-.ffi_closure_LINUX64 |
| |
| .section .eh_frame,EH_FRAME_FLAGS,@progbits |
| .Lframe1: |
| .4byte .LECIE1-.LSCIE1 # Length of Common Information Entry |
| .LSCIE1: |
| .4byte 0x0 # CIE Identifier Tag |
| .byte 0x1 # CIE Version |
| .ascii "zR\0" # CIE Augmentation |
| .uleb128 0x1 # CIE Code Alignment Factor |
| .sleb128 -8 # CIE Data Alignment Factor |
| .byte 0x41 # CIE RA Column |
| .uleb128 0x1 # Augmentation size |
| .byte 0x14 # FDE Encoding (pcrel udata8) |
| .byte 0xc # DW_CFA_def_cfa |
| .uleb128 0x1 |
| .uleb128 0x0 |
| .align 3 |
| .LECIE1: |
| .LSFDE1: |
| .4byte .LEFDE1-.LASFDE1 # FDE Length |
| .LASFDE1: |
| .4byte .LASFDE1-.Lframe1 # FDE CIE offset |
| .8byte .LFB1-. # FDE initial location |
| .8byte .LFE1-.LFB1 # FDE address range |
| .uleb128 0x0 # Augmentation size |
| .byte 0x2 # DW_CFA_advance_loc1 |
| .byte .LCFI0-.LFB1 |
| .byte 0xe # DW_CFA_def_cfa_offset |
| .uleb128 240 |
| .byte 0x11 # DW_CFA_offset_extended_sf |
| .uleb128 0x41 |
| .sleb128 -2 |
| .align 3 |
| .LEFDE1: |
| #endif |
