1 /* ----------------------------------------------------------------------- 2 sysv.h - Copyright (c) 2003 Jakub Jelinek <jakub (at) redhat.com> 3 Copyright (c) 2008 Red Hat, Inc. 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, 19 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 20 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 21 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 22 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 23 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 24 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 25 DEALINGS IN THE SOFTWARE. 26 ----------------------------------------------------------------------- */ 27 #define LIBFFI_ASM 28 #include <fficonfig.h> 29 #include <ffi.h> 30 #include <powerpc/asm.h> 31 32 .file "ppc_closure.S" 33 34 #ifndef __powerpc64__ 35 36 ENTRY(ffi_closure_SYSV) 37 .LFB1: 38 stwu %r1,-144(%r1) 39 .LCFI0: 40 mflr %r0 41 .LCFI1: 42 stw %r0,148(%r1) 43 44 # we want to build up an areas for the parameters passed 45 # in registers (both floating point and integer) 46 47 # so first save gpr 3 to gpr 10 (aligned to 4) 48 stw %r3, 16(%r1) 49 stw %r4, 20(%r1) 50 stw %r5, 24(%r1) 51 stw %r6, 28(%r1) 52 stw %r7, 32(%r1) 53 stw %r8, 36(%r1) 54 stw %r9, 40(%r1) 55 stw %r10,44(%r1) 56 57 #ifndef __NO_FPRS__ 58 # next save fpr 1 to fpr 8 (aligned to 8) 59 stfd %f1, 48(%r1) 60 stfd %f2, 56(%r1) 61 stfd %f3, 64(%r1) 62 stfd %f4, 72(%r1) 63 stfd %f5, 80(%r1) 64 stfd %f6, 88(%r1) 65 stfd %f7, 96(%r1) 66 stfd %f8, 104(%r1) 67 #endif 68 69 # set up registers for the routine that actually does the work 70 # get the context pointer from the trampoline 71 mr %r3,%r11 72 73 # now load up the pointer to the result storage 74 addi %r4,%r1,112 75 76 # now load up the pointer to the saved gpr registers 77 addi %r5,%r1,16 78 79 # now load up the pointer to the saved fpr registers */ 80 addi %r6,%r1,48 81 82 # now load up the pointer to the outgoing parameter 83 # stack in the previous frame 84 # i.e. the previous frame pointer + 8 85 addi %r7,%r1,152 86 87 # make the call 88 bl ffi_closure_helper_SYSV@local 89 .Lret: 90 # now r3 contains the return type 91 # so use it to look up in a table 92 # so we know how to deal with each type 93 94 # look up the proper starting point in table 95 # by using return type as offset 96 97 mflr %r4 # move address of .Lret to r4 98 slwi %r3,%r3,4 # now multiply return type by 16 99 addi %r4, %r4, .Lret_type0 - .Lret 100 lwz %r0,148(%r1) 101 add %r3,%r3,%r4 # add contents of table to table address 102 mtctr %r3 103 bctr # jump to it 104 .LFE1: 105 106 # Each of the ret_typeX code fragments has to be exactly 16 bytes long 107 # (4 instructions). For cache effectiveness we align to a 16 byte boundary 108 # first. 109 .align 4 110 # case FFI_TYPE_VOID 111 .Lret_type0: 112 mtlr %r0 113 addi %r1,%r1,144 114 blr 115 nop 116 117 # case FFI_TYPE_INT 118 lwz %r3,112+0(%r1) 119 mtlr %r0 120 .Lfinish: 121 addi %r1,%r1,144 122 blr 123 124 # case FFI_TYPE_FLOAT 125 lfs %f1,112+0(%r1) 126 mtlr %r0 127 addi %r1,%r1,144 128 blr 129 130 # case FFI_TYPE_DOUBLE 131 lfd %f1,112+0(%r1) 132 mtlr %r0 133 addi %r1,%r1,144 134 blr 135 136 # case FFI_TYPE_LONGDOUBLE 137 lfd %f1,112+0(%r1) 138 lfd %f2,112+8(%r1) 139 mtlr %r0 140 b .Lfinish 141 142 # case FFI_TYPE_UINT8 143 lbz %r3,112+3(%r1) 144 mtlr %r0 145 addi %r1,%r1,144 146 blr 147 148 # case FFI_TYPE_SINT8 149 lbz %r3,112+3(%r1) 150 extsb %r3,%r3 151 mtlr %r0 152 b .Lfinish 153 154 # case FFI_TYPE_UINT16 155 lhz %r3,112+2(%r1) 156 mtlr %r0 157 addi %r1,%r1,144 158 blr 159 160 # case FFI_TYPE_SINT16 161 lha %r3,112+2(%r1) 162 mtlr %r0 163 addi %r1,%r1,144 164 blr 165 166 # case FFI_TYPE_UINT32 167 lwz %r3,112+0(%r1) 168 mtlr %r0 169 addi %r1,%r1,144 170 blr 171 172 # case FFI_TYPE_SINT32 173 lwz %r3,112+0(%r1) 174 mtlr %r0 175 addi %r1,%r1,144 176 blr 177 178 # case FFI_TYPE_UINT64 179 lwz %r3,112+0(%r1) 180 lwz %r4,112+4(%r1) 181 mtlr %r0 182 b .Lfinish 183 184 # case FFI_TYPE_SINT64 185 lwz %r3,112+0(%r1) 186 lwz %r4,112+4(%r1) 187 mtlr %r0 188 b .Lfinish 189 190 # case FFI_TYPE_STRUCT 191 mtlr %r0 192 addi %r1,%r1,144 193 blr 194 nop 195 196 # case FFI_TYPE_POINTER 197 lwz %r3,112+0(%r1) 198 mtlr %r0 199 addi %r1,%r1,144 200 blr 201 202 # case FFI_TYPE_UINT128 203 lwz %r3,112+0(%r1) 204 lwz %r4,112+4(%r1) 205 lwz %r5,112+8(%r1) 206 bl .Luint128 207 208 # The return types below are only used when the ABI type is FFI_SYSV. 209 # case FFI_SYSV_TYPE_SMALL_STRUCT + 1. One byte struct. 210 lbz %r3,112+0(%r1) 211 mtlr %r0 212 addi %r1,%r1,144 213 blr 214 215 # case FFI_SYSV_TYPE_SMALL_STRUCT + 2. Two byte struct. 216 lhz %r3,112+0(%r1) 217 mtlr %r0 218 addi %r1,%r1,144 219 blr 220 221 # case FFI_SYSV_TYPE_SMALL_STRUCT + 3. Three byte struct. 222 lwz %r3,112+0(%r1) 223 srwi %r3,%r3,8 224 mtlr %r0 225 b .Lfinish 226 227 # case FFI_SYSV_TYPE_SMALL_STRUCT + 4. Four byte struct. 228 lwz %r3,112+0(%r1) 229 mtlr %r0 230 addi %r1,%r1,144 231 blr 232 233 # case FFI_SYSV_TYPE_SMALL_STRUCT + 5. Five byte struct. 234 lwz %r3,112+0(%r1) 235 lwz %r4,112+4(%r1) 236 li %r5,24 237 b .Lstruct567 238 239 # case FFI_SYSV_TYPE_SMALL_STRUCT + 6. Six byte struct. 240 lwz %r3,112+0(%r1) 241 lwz %r4,112+4(%r1) 242 li %r5,16 243 b .Lstruct567 244 245 # case FFI_SYSV_TYPE_SMALL_STRUCT + 7. Seven byte struct. 246 lwz %r3,112+0(%r1) 247 lwz %r4,112+4(%r1) 248 li %r5,8 249 b .Lstruct567 250 251 # case FFI_SYSV_TYPE_SMALL_STRUCT + 8. Eight byte struct. 252 lwz %r3,112+0(%r1) 253 lwz %r4,112+4(%r1) 254 mtlr %r0 255 b .Lfinish 256 257 .Lstruct567: 258 subfic %r6,%r5,32 259 srw %r4,%r4,%r5 260 slw %r6,%r3,%r6 261 srw %r3,%r3,%r5 262 or %r4,%r6,%r4 263 mtlr %r0 264 addi %r1,%r1,144 265 blr 266 267 .Luint128: 268 lwz %r6,112+12(%r1) 269 mtlr %r0 270 addi %r1,%r1,144 271 blr 272 273 END(ffi_closure_SYSV) 274 275 .section ".eh_frame",EH_FRAME_FLAGS,@progbits 276 .Lframe1: 277 .4byte .LECIE1-.LSCIE1 # Length of Common Information Entry 278 .LSCIE1: 279 .4byte 0x0 # CIE Identifier Tag 280 .byte 0x1 # CIE Version 281 #if defined _RELOCATABLE || defined __PIC__ 282 .ascii "zR\0" # CIE Augmentation 283 #else 284 .ascii "\0" # CIE Augmentation 285 #endif 286 .uleb128 0x1 # CIE Code Alignment Factor 287 .sleb128 -4 # CIE Data Alignment Factor 288 .byte 0x41 # CIE RA Column 289 #if defined _RELOCATABLE || defined __PIC__ 290 .uleb128 0x1 # Augmentation size 291 .byte 0x1b # FDE Encoding (pcrel sdata4) 292 #endif 293 .byte 0xc # DW_CFA_def_cfa 294 .uleb128 0x1 295 .uleb128 0x0 296 .align 2 297 .LECIE1: 298 .LSFDE1: 299 .4byte .LEFDE1-.LASFDE1 # FDE Length 300 .LASFDE1: 301 .4byte .LASFDE1-.Lframe1 # FDE CIE offset 302 #if defined _RELOCATABLE || defined __PIC__ 303 .4byte .LFB1-. # FDE initial location 304 #else 305 .4byte .LFB1 # FDE initial location 306 #endif 307 .4byte .LFE1-.LFB1 # FDE address range 308 #if defined _RELOCATABLE || defined __PIC__ 309 .uleb128 0x0 # Augmentation size 310 #endif 311 .byte 0x4 # DW_CFA_advance_loc4 312 .4byte .LCFI0-.LFB1 313 .byte 0xe # DW_CFA_def_cfa_offset 314 .uleb128 144 315 .byte 0x4 # DW_CFA_advance_loc4 316 .4byte .LCFI1-.LCFI0 317 .byte 0x11 # DW_CFA_offset_extended_sf 318 .uleb128 0x41 319 .sleb128 -1 320 .align 2 321 .LEFDE1: 322 323 #endif 324 325 #if defined __ELF__ && defined __linux__ 326 .section .note.GNU-stack,"",@progbits 327 #endif 328
