1/* ----------------------------------------------------------------------- 2 osf.S - Copyright (c) 1998, 2001, 2007, 2008 Red Hat 3 4 Alpha/OSF 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 .arch ev6 32 .text 33 34/* ffi_call_osf (void *args, unsigned long bytes, unsigned flags, 35 void *raddr, void (*fnaddr)(void)); 36 37 Bit o trickiness here -- ARGS+BYTES is the base of the stack frame 38 for this function. This has been allocated by ffi_call. We also 39 deallocate some of the stack that has been alloca'd. */ 40 41 .align 3 42 .globl ffi_call_osf 43 .ent ffi_call_osf 44 FFI_HIDDEN(ffi_call_osf) 45 46ffi_call_osf: 47 .frame $15, 32, $26, 0 48 .mask 0x4008000, -32 49$LFB1: 50 addq $16,$17,$1 51 mov $16, $30 52 stq $26, 0($1) 53 stq $15, 8($1) 54 stq $18, 16($1) 55 mov $1, $15 56$LCFI1: 57 .prologue 0 58 59 stq $19, 24($1) 60 mov $20, $27 61 62 # Load up all of the (potential) argument registers. 63 ldq $16, 0($30) 64 ldt $f16, 0($30) 65 ldt $f17, 8($30) 66 ldq $17, 8($30) 67 ldt $f18, 16($30) 68 ldq $18, 16($30) 69 ldt $f19, 24($30) 70 ldq $19, 24($30) 71 ldt $f20, 32($30) 72 ldq $20, 32($30) 73 ldt $f21, 40($30) 74 ldq $21, 40($30) 75 76 # Deallocate the register argument area. 77 lda $30, 48($30) 78 79 jsr $26, ($27), 0 80 ldgp $29, 0($26) 81 82 # If the return value pointer is NULL, assume no return value. 83 ldq $19, 24($15) 84 ldq $18, 16($15) 85 ldq $26, 0($15) 86$LCFI2: 87 beq $19, $noretval 88 89 # Store the return value out in the proper type. 90 cmpeq $18, FFI_TYPE_INT, $1 91 bne $1, $retint 92 cmpeq $18, FFI_TYPE_FLOAT, $2 93 bne $2, $retfloat 94 cmpeq $18, FFI_TYPE_DOUBLE, $3 95 bne $3, $retdouble 96 97 .align 3 98$noretval: 99 ldq $15, 8($15) 100 ret 101 102 .align 4 103$retint: 104 stq $0, 0($19) 105 nop 106 ldq $15, 8($15) 107 ret 108 109 .align 4 110$retfloat: 111 sts $f0, 0($19) 112 nop 113 ldq $15, 8($15) 114 ret 115 116 .align 4 117$retdouble: 118 stt $f0, 0($19) 119 nop 120 ldq $15, 8($15) 121 ret 122$LFE1: 123 124 .end ffi_call_osf 125 126/* ffi_closure_osf(...) 127 128 Receives the closure argument in $1. */ 129 130 .align 3 131 .globl ffi_closure_osf 132 .ent ffi_closure_osf 133 FFI_HIDDEN(ffi_closure_osf) 134 135ffi_closure_osf: 136 .frame $30, 16*8, $26, 0 137 .mask 0x4000000, -16*8 138$LFB2: 139 ldgp $29, 0($27) 140 subq $30, 16*8, $30 141$LCFI5: 142 stq $26, 0($30) 143$LCFI6: 144 .prologue 1 145 146 # Store all of the potential argument registers in va_list format. 147 stt $f16, 4*8($30) 148 stt $f17, 5*8($30) 149 stt $f18, 6*8($30) 150 stt $f19, 7*8($30) 151 stt $f20, 8*8($30) 152 stt $f21, 9*8($30) 153 stq $16, 10*8($30) 154 stq $17, 11*8($30) 155 stq $18, 12*8($30) 156 stq $19, 13*8($30) 157 stq $20, 14*8($30) 158 stq $21, 15*8($30) 159 160 # Call ffi_closure_osf_inner to do the bulk of the work. 161 mov $1, $16 162 lda $17, 2*8($30) 163 lda $18, 10*8($30) 164 jsr $26, ffi_closure_osf_inner 165 ldgp $29, 0($26) 166 ldq $26, 0($30) 167 168 # Load up the return value in the proper type. 169 lda $1, $load_table 170 s4addq $0, $1, $1 171 ldl $1, 0($1) 172 addq $1, $29, $1 173 jmp $31, ($1), $load_32 174 175 .align 4 176$load_none: 177 addq $30, 16*8, $30 178 ret 179 180 .align 4 181$load_float: 182 lds $f0, 16($30) 183 nop 184 addq $30, 16*8, $30 185 ret 186 187 .align 4 188$load_double: 189 ldt $f0, 16($30) 190 nop 191 addq $30, 16*8, $30 192 ret 193 194 .align 4 195$load_u8: 196#ifdef __alpha_bwx__ 197 ldbu $0, 16($30) 198 nop 199#else 200 ldq $0, 16($30) 201 and $0, 255, $0 202#endif 203 addq $30, 16*8, $30 204 ret 205 206 .align 4 207$load_s8: 208#ifdef __alpha_bwx__ 209 ldbu $0, 16($30) 210 sextb $0, $0 211#else 212 ldq $0, 16($30) 213 sll $0, 56, $0 214 sra $0, 56, $0 215#endif 216 addq $30, 16*8, $30 217 ret 218 219 .align 4 220$load_u16: 221#ifdef __alpha_bwx__ 222 ldwu $0, 16($30) 223 nop 224#else 225 ldq $0, 16($30) 226 zapnot $0, 3, $0 227#endif 228 addq $30, 16*8, $30 229 ret 230 231 .align 4 232$load_s16: 233#ifdef __alpha_bwx__ 234 ldwu $0, 16($30) 235 sextw $0, $0 236#else 237 ldq $0, 16($30) 238 sll $0, 48, $0 239 sra $0, 48, $0 240#endif 241 addq $30, 16*8, $30 242 ret 243 244 .align 4 245$load_32: 246 ldl $0, 16($30) 247 nop 248 addq $30, 16*8, $30 249 ret 250 251 .align 4 252$load_64: 253 ldq $0, 16($30) 254 nop 255 addq $30, 16*8, $30 256 ret 257$LFE2: 258 259 .end ffi_closure_osf 260 261#ifdef __ELF__ 262.section .rodata 263#else 264.rdata 265#endif 266$load_table: 267 .gprel32 $load_none # FFI_TYPE_VOID 268 .gprel32 $load_32 # FFI_TYPE_INT 269 .gprel32 $load_float # FFI_TYPE_FLOAT 270 .gprel32 $load_double # FFI_TYPE_DOUBLE 271 .gprel32 $load_none # FFI_TYPE_LONGDOUBLE 272 .gprel32 $load_u8 # FFI_TYPE_UINT8 273 .gprel32 $load_s8 # FFI_TYPE_SINT8 274 .gprel32 $load_u16 # FFI_TYPE_UINT16 275 .gprel32 $load_s16 # FFI_TYPE_SINT16 276 .gprel32 $load_32 # FFI_TYPE_UINT32 277 .gprel32 $load_32 # FFI_TYPE_SINT32 278 .gprel32 $load_64 # FFI_TYPE_UINT64 279 .gprel32 $load_64 # FFI_TYPE_SINT64 280 .gprel32 $load_none # FFI_TYPE_STRUCT 281 .gprel32 $load_64 # FFI_TYPE_POINTER 282 283/* Assert that the table above is in sync with ffi.h. */ 284 285#if FFI_TYPE_FLOAT != 2 \ 286 || FFI_TYPE_DOUBLE != 3 \ 287 || FFI_TYPE_UINT8 != 5 \ 288 || FFI_TYPE_SINT8 != 6 \ 289 || FFI_TYPE_UINT16 != 7 \ 290 || FFI_TYPE_SINT16 != 8 \ 291 || FFI_TYPE_UINT32 != 9 \ 292 || FFI_TYPE_SINT32 != 10 \ 293 || FFI_TYPE_UINT64 != 11 \ 294 || FFI_TYPE_SINT64 != 12 \ 295 || FFI_TYPE_STRUCT != 13 \ 296 || FFI_TYPE_POINTER != 14 \ 297 || FFI_TYPE_LAST != 14 298#error "osf.S out of sync with ffi.h" 299#endif 300 301#ifdef __ELF__ 302 .section .eh_frame,EH_FRAME_FLAGS,@progbits 303__FRAME_BEGIN__: 304 .4byte $LECIE1-$LSCIE1 # Length of Common Information Entry 305$LSCIE1: 306 .4byte 0x0 # CIE Identifier Tag 307 .byte 0x1 # CIE Version 308 .ascii "zR\0" # CIE Augmentation 309 .byte 0x1 # uleb128 0x1; CIE Code Alignment Factor 310 .byte 0x78 # sleb128 -8; CIE Data Alignment Factor 311 .byte 26 # CIE RA Column 312 .byte 0x1 # uleb128 0x1; Augmentation size 313 .byte 0x1b # FDE Encoding (pcrel sdata4) 314 .byte 0xc # DW_CFA_def_cfa 315 .byte 30 # uleb128 column 30 316 .byte 0 # uleb128 offset 0 317 .align 3 318$LECIE1: 319$LSFDE1: 320 .4byte $LEFDE1-$LASFDE1 # FDE Length 321$LASFDE1: 322 .4byte $LASFDE1-__FRAME_BEGIN__ # FDE CIE offset 323 .4byte $LFB1-. # FDE initial location 324 .4byte $LFE1-$LFB1 # FDE address range 325 .byte 0x0 # uleb128 0x0; Augmentation size 326 327 .byte 0x4 # DW_CFA_advance_loc4 328 .4byte $LCFI1-$LFB1 329 .byte 0x9a # DW_CFA_offset, column 26 330 .byte 4 # uleb128 4*-8 331 .byte 0x8f # DW_CFA_offset, column 15 332 .byte 0x3 # uleb128 3*-8 333 .byte 0xc # DW_CFA_def_cfa 334 .byte 15 # uleb128 column 15 335 .byte 32 # uleb128 offset 32 336 337 .byte 0x4 # DW_CFA_advance_loc4 338 .4byte $LCFI2-$LCFI1 339 .byte 0xda # DW_CFA_restore, column 26 340 .align 3 341$LEFDE1: 342 343$LSFDE3: 344 .4byte $LEFDE3-$LASFDE3 # FDE Length 345$LASFDE3: 346 .4byte $LASFDE3-__FRAME_BEGIN__ # FDE CIE offset 347 .4byte $LFB2-. # FDE initial location 348 .4byte $LFE2-$LFB2 # FDE address range 349 .byte 0x0 # uleb128 0x0; Augmentation size 350 351 .byte 0x4 # DW_CFA_advance_loc4 352 .4byte $LCFI5-$LFB2 353 .byte 0xe # DW_CFA_def_cfa_offset 354 .byte 0x80,0x1 # uleb128 128 355 356 .byte 0x4 # DW_CFA_advance_loc4 357 .4byte $LCFI6-$LCFI5 358 .byte 0x9a # DW_CFA_offset, column 26 359 .byte 16 # uleb128 offset 16*-8 360 .align 3 361$LEFDE3: 362 363#ifdef __linux__ 364 .section .note.GNU-stack,"",@progbits 365#endif 366#endif 367