1 /* ----------------------------------------------------------------------- 2 v9.S - Copyright (c) 2000, 2003, 2004, 2008 Red Hat, Inc. 3 4 SPARC 64-bit Foreign Function Interface 5 6 Permission is hereby granted, free of charge, to any person obtaining 7 a copy of this software and associated documentation files (the 8 ``Software''), to deal in the Software without restriction, including 9 without limitation the rights to use, copy, modify, merge, publish, 10 distribute, sublicense, and/or sell copies of the Software, and to 11 permit persons to whom the Software is furnished to do so, subject to 12 the following conditions: 13 14 The above copyright notice and this permission notice shall be included 15 in all copies or substantial portions of the Software. 16 17 THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, 18 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 19 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 20 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 21 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 22 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 23 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 24 DEALINGS IN THE SOFTWARE. 25 ----------------------------------------------------------------------- */ 26 27 #define LIBFFI_ASM 28 #include <fficonfig.h> 29 #include <ffi.h> 30 31 #ifdef SPARC64 32 /* Only compile this in for 64bit builds, because otherwise the object file 33 will have inproper architecture due to used instructions. */ 34 35 #define STACKFRAME 176 /* Minimum stack framesize for SPARC 64-bit */ 36 #define STACK_BIAS 2047 37 #define ARGS (128) /* Offset of register area in frame */ 38 39 .text 40 .align 8 41 .globl ffi_call_v9 42 .globl _ffi_call_v9 43 44 ffi_call_v9: 45 _ffi_call_v9: 46 .LLFB1: 47 save %sp, -STACKFRAME, %sp 48 .LLCFI0: 49 50 sub %sp, %i2, %sp ! alloca() space in stack for frame to set up 51 add %sp, STACKFRAME+STACK_BIAS, %l0 ! %l0 has start of 52 ! frame to set up 53 54 mov %l0, %o0 ! call routine to set up frame 55 call %i0 56 mov %i1, %o1 ! (delay) 57 brz,pt %o0, 1f 58 ldx [%l0+ARGS], %o0 ! call foreign function 59 60 ldd [%l0+ARGS], %f0 61 ldd [%l0+ARGS+8], %f2 62 ldd [%l0+ARGS+16], %f4 63 ldd [%l0+ARGS+24], %f6 64 ldd [%l0+ARGS+32], %f8 65 ldd [%l0+ARGS+40], %f10 66 ldd [%l0+ARGS+48], %f12 67 ldd [%l0+ARGS+56], %f14 68 ldd [%l0+ARGS+64], %f16 69 ldd [%l0+ARGS+72], %f18 70 ldd [%l0+ARGS+80], %f20 71 ldd [%l0+ARGS+88], %f22 72 ldd [%l0+ARGS+96], %f24 73 ldd [%l0+ARGS+104], %f26 74 ldd [%l0+ARGS+112], %f28 75 ldd [%l0+ARGS+120], %f30 76 77 1: ldx [%l0+ARGS+8], %o1 78 ldx [%l0+ARGS+16], %o2 79 ldx [%l0+ARGS+24], %o3 80 ldx [%l0+ARGS+32], %o4 81 ldx [%l0+ARGS+40], %o5 82 call %i5 83 sub %l0, STACK_BIAS, %sp ! (delay) switch to frame 84 85 ! If the return value pointer is NULL, assume no return value. 86 brz,pn %i4, done 87 nop 88 89 cmp %i3, FFI_TYPE_INT 90 be,a,pt %icc, done 91 stx %o0, [%i4+0] ! (delay) 92 93 cmp %i3, FFI_TYPE_FLOAT 94 be,a,pn %icc, done 95 st %f0, [%i4+0] ! (delay) 96 97 cmp %i3, FFI_TYPE_DOUBLE 98 be,a,pn %icc, done 99 std %f0, [%i4+0] ! (delay) 100 101 cmp %i3, FFI_TYPE_STRUCT 102 be,pn %icc, dostruct 103 104 cmp %i3, FFI_TYPE_LONGDOUBLE 105 bne,pt %icc, done 106 nop 107 std %f0, [%i4+0] 108 std %f2, [%i4+8] 109 110 done: ret 111 restore 112 113 dostruct: 114 /* This will not work correctly for unions. */ 115 stx %o0, [%i4+0] 116 stx %o1, [%i4+8] 117 stx %o2, [%i4+16] 118 stx %o3, [%i4+24] 119 std %f0, [%i4+32] 120 std %f2, [%i4+40] 121 std %f4, [%i4+48] 122 std %f6, [%i4+56] 123 ret 124 restore 125 .LLFE1: 126 127 .ffi_call_v9_end: 128 .size ffi_call_v9,.ffi_call_v9_end-ffi_call_v9 129 130 131 #undef STACKFRAME 132 #define STACKFRAME 336 /* 16*8 register window + 133 6*8 args backing store + 134 20*8 locals */ 135 #define FP %fp+STACK_BIAS 136 137 /* ffi_closure_v9(...) 138 139 Receives the closure argument in %g1. */ 140 141 .text 142 .align 8 143 .globl ffi_closure_v9 144 145 ffi_closure_v9: 146 .LLFB2: 147 save %sp, -STACKFRAME, %sp 148 .LLCFI1: 149 150 ! Store all of the potential argument registers in va_list format. 151 stx %i0, [FP+128+0] 152 stx %i1, [FP+128+8] 153 stx %i2, [FP+128+16] 154 stx %i3, [FP+128+24] 155 stx %i4, [FP+128+32] 156 stx %i5, [FP+128+40] 157 158 ! Store possible floating point argument registers too. 159 std %f0, [FP-128] 160 std %f2, [FP-120] 161 std %f4, [FP-112] 162 std %f6, [FP-104] 163 std %f8, [FP-96] 164 std %f10, [FP-88] 165 std %f12, [FP-80] 166 std %f14, [FP-72] 167 std %f16, [FP-64] 168 std %f18, [FP-56] 169 std %f20, [FP-48] 170 std %f22, [FP-40] 171 std %f24, [FP-32] 172 std %f26, [FP-24] 173 std %f28, [FP-16] 174 std %f30, [FP-8] 175 176 ! Call ffi_closure_sparc_inner to do the bulk of the work. 177 mov %g1, %o0 178 add %fp, STACK_BIAS-160, %o1 179 add %fp, STACK_BIAS+128, %o2 180 call ffi_closure_sparc_inner_v9 181 add %fp, STACK_BIAS-128, %o3 182 183 ! Load up the return value in the proper type. 184 ! See ffi_prep_cif_machdep for the list of cases. 185 cmp %o0, FFI_TYPE_VOID 186 be,pn %icc, done1 187 188 cmp %o0, FFI_TYPE_INT 189 be,pn %icc, integer 190 191 cmp %o0, FFI_TYPE_FLOAT 192 be,a,pn %icc, done1 193 ld [FP-160], %f0 194 195 cmp %o0, FFI_TYPE_DOUBLE 196 be,a,pn %icc, done1 197 ldd [FP-160], %f0 198 199 #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE 200 cmp %o0, FFI_TYPE_LONGDOUBLE 201 be,a,pn %icc, longdouble1 202 ldd [FP-160], %f0 203 #endif 204 205 ! FFI_TYPE_STRUCT 206 ldx [FP-152], %i1 207 ldx [FP-144], %i2 208 ldx [FP-136], %i3 209 ldd [FP-160], %f0 210 ldd [FP-152], %f2 211 ldd [FP-144], %f4 212 ldd [FP-136], %f6 213 214 integer: 215 ldx [FP-160], %i0 216 217 done1: 218 ret 219 restore 220 221 #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE 222 longdouble1: 223 ldd [FP-152], %f2 224 ret 225 restore 226 #endif 227 .LLFE2: 228 229 .ffi_closure_v9_end: 230 .size ffi_closure_v9,.ffi_closure_v9_end-ffi_closure_v9 231 232 #ifdef HAVE_RO_EH_FRAME 233 .section ".eh_frame",#alloc 234 #else 235 .section ".eh_frame",#alloc,#write 236 #endif 237 .LLframe1: 238 .uaword .LLECIE1-.LLSCIE1 ! Length of Common Information Entry 239 .LLSCIE1: 240 .uaword 0x0 ! CIE Identifier Tag 241 .byte 0x1 ! CIE Version 242 .ascii "zR\0" ! CIE Augmentation 243 .byte 0x1 ! uleb128 0x1; CIE Code Alignment Factor 244 .byte 0x78 ! sleb128 -8; CIE Data Alignment Factor 245 .byte 0xf ! CIE RA Column 246 .byte 0x1 ! uleb128 0x1; Augmentation size 247 #ifdef HAVE_AS_SPARC_UA_PCREL 248 .byte 0x1b ! FDE Encoding (pcrel sdata4) 249 #else 250 .byte 0x50 ! FDE Encoding (aligned absolute) 251 #endif 252 .byte 0xc ! DW_CFA_def_cfa 253 .byte 0xe ! uleb128 0xe 254 .byte 0xff,0xf ! uleb128 0x7ff 255 .align 8 256 .LLECIE1: 257 .LLSFDE1: 258 .uaword .LLEFDE1-.LLASFDE1 ! FDE Length 259 .LLASFDE1: 260 .uaword .LLASFDE1-.LLframe1 ! FDE CIE offset 261 #ifdef HAVE_AS_SPARC_UA_PCREL 262 .uaword %r_disp32(.LLFB1) 263 .uaword .LLFE1-.LLFB1 ! FDE address range 264 #else 265 .align 8 266 .xword .LLFB1 267 .uaxword .LLFE1-.LLFB1 ! FDE address range 268 #endif 269 .byte 0x0 ! uleb128 0x0; Augmentation size 270 .byte 0x4 ! DW_CFA_advance_loc4 271 .uaword .LLCFI0-.LLFB1 272 .byte 0xd ! DW_CFA_def_cfa_register 273 .byte 0x1e ! uleb128 0x1e 274 .byte 0x2d ! DW_CFA_GNU_window_save 275 .byte 0x9 ! DW_CFA_register 276 .byte 0xf ! uleb128 0xf 277 .byte 0x1f ! uleb128 0x1f 278 .align 8 279 .LLEFDE1: 280 .LLSFDE2: 281 .uaword .LLEFDE2-.LLASFDE2 ! FDE Length 282 .LLASFDE2: 283 .uaword .LLASFDE2-.LLframe1 ! FDE CIE offset 284 #ifdef HAVE_AS_SPARC_UA_PCREL 285 .uaword %r_disp32(.LLFB2) 286 .uaword .LLFE2-.LLFB2 ! FDE address range 287 #else 288 .align 8 289 .xword .LLFB2 290 .uaxword .LLFE2-.LLFB2 ! FDE address range 291 #endif 292 .byte 0x0 ! uleb128 0x0; Augmentation size 293 .byte 0x4 ! DW_CFA_advance_loc4 294 .uaword .LLCFI1-.LLFB2 295 .byte 0xd ! DW_CFA_def_cfa_register 296 .byte 0x1e ! uleb128 0x1e 297 .byte 0x2d ! DW_CFA_GNU_window_save 298 .byte 0x9 ! DW_CFA_register 299 .byte 0xf ! uleb128 0xf 300 .byte 0x1f ! uleb128 0x1f 301 .align 8 302 .LLEFDE2: 303 #endif 304 305 #ifdef __linux__ 306 .section .note.GNU-stack,"",@progbits 307 #endif 308