summaryrefslogtreecommitdiff
path: root/libffi/src/powerpc/linux64_closure.S
diff options
context:
space:
mode:
Diffstat (limited to 'libffi/src/powerpc/linux64_closure.S')
-rw-r--r--libffi/src/powerpc/linux64_closure.S205
1 files changed, 0 insertions, 205 deletions
diff --git a/libffi/src/powerpc/linux64_closure.S b/libffi/src/powerpc/linux64_closure.S
deleted file mode 100644
index fa331db..0000000
--- a/libffi/src/powerpc/linux64_closure.S
+++ /dev/null
@@ -1,205 +0,0 @@
-#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