| /* ----------------------------------------------------------------------- |
| sysv.h - Copyright (c) 2003 Jakub Jelinek <jakub@redhat.com> |
| Copyright (c) 2008 Red Hat, Inc. |
| |
| PowerPC64 Assembly glue. |
| |
| Permission is hereby granted, free of charge, to any person obtaining |
| a copy of this software and associated documentation files (the |
| ``Software''), to deal in the Software without restriction, including |
| without limitation the rights to use, copy, modify, merge, publish, |
| distribute, sublicense, and/or sell copies of the Software, and to |
| permit persons to whom the Software is furnished to do so, subject to |
| the following conditions: |
| |
| The above copyright notice and this permission notice shall be included |
| in all copies or substantial portions of the Software. |
| |
| THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, |
| EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
| MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
| NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT |
| HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, |
| WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
| OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER |
| DEALINGS IN THE SOFTWARE. |
| ----------------------------------------------------------------------- */ |
| #define LIBFFI_ASM |
| #include <fficonfig.h> |
| #include <ffi.h> |
| |
| .file "linux64_closure.S" |
| |
| #ifdef __powerpc64__ |
| FFI_HIDDEN (ffi_closure_LINUX64) |
| FFI_HIDDEN (.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 |
| |
| #if defined __ELF__ && defined __linux__ |
| .section .note.GNU-stack,"",@progbits |
| #endif |
