| /* ----------------------------------------------------------------------- |
| v8.S - Copyright (c) 1996, 1997, 2003, 2004 Red Hat, Inc. |
| |
| SPARC Foreign Function Interface |
| |
| 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 CYGNUS SOLUTIONS 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> |
| |
| #define STACKFRAME 96 /* Minimum stack framesize for SPARC */ |
| #define ARGS (64+4) /* Offset of register area in frame */ |
| |
| .text |
| .align 8 |
| .globl ffi_call_v8 |
| .globl _ffi_call_v8 |
| |
| ffi_call_v8: |
| _ffi_call_v8: |
| .LLFB1: |
| save %sp, -STACKFRAME, %sp |
| .LLCFI0: |
| |
| sub %sp, %i2, %sp ! alloca() space in stack for frame to set up |
| add %sp, STACKFRAME, %l0 ! %l0 has start of |
| ! frame to set up |
| |
| mov %l0, %o0 ! call routine to set up frame |
| call %i0 |
| mov %i1, %o1 ! (delay) |
| |
| ld [%l0+ARGS], %o0 ! call foreign function |
| ld [%l0+ARGS+4], %o1 |
| ld [%l0+ARGS+8], %o2 |
| ld [%l0+ARGS+12], %o3 |
| ld [%l0+ARGS+16], %o4 |
| ld [%l0+ARGS+20], %o5 |
| call %i5 |
| mov %l0, %sp ! (delay) switch to frame |
| nop ! STRUCT returning functions skip 12 instead of 8 bytes |
| |
| ! If the return value pointer is NULL, assume no return value. |
| tst %i4 |
| bz done |
| nop |
| |
| cmp %i3, FFI_TYPE_INT |
| be,a done |
| st %o0, [%i4] ! (delay) |
| |
| cmp %i3, FFI_TYPE_FLOAT |
| be,a done |
| st %f0, [%i4+0] ! (delay) |
| |
| cmp %i3, FFI_TYPE_SINT64 |
| be longlong |
| |
| cmp %i3, FFI_TYPE_DOUBLE |
| bne done |
| nop |
| st %f0, [%i4+0] |
| st %f1, [%i4+4] |
| |
| done: |
| ret |
| restore |
| |
| longlong: |
| st %o0, [%i4+0] |
| st %o1, [%i4+4] |
| ret |
| restore |
| .LLFE1: |
| |
| .ffi_call_v8_end: |
| .size ffi_call_v8,.ffi_call_v8_end-ffi_call_v8 |
| |
| |
| #undef STACKFRAME |
| #define STACKFRAME 104 /* 16*4 register window + |
| 1*4 struct return + |
| 6*4 args backing store + |
| 3*4 locals */ |
| |
| /* ffi_closure_v8(...) |
| |
| Receives the closure argument in %g2. */ |
| |
| .text |
| .align 8 |
| .globl ffi_closure_v8 |
| |
| ffi_closure_v8: |
| #ifdef HAVE_AS_REGISTER_PSEUDO_OP |
| .register %g2, #scratch |
| #endif |
| .LLFB2: |
| save %sp, -STACKFRAME, %sp |
| .LLCFI1: |
| |
| ! Store all of the potential argument registers in va_list format. |
| st %i0, [%fp+68+0] |
| st %i1, [%fp+68+4] |
| st %i2, [%fp+68+8] |
| st %i3, [%fp+68+12] |
| st %i4, [%fp+68+16] |
| st %i5, [%fp+68+20] |
| |
| ! Call ffi_closure_sparc_inner to do the bulk of the work. |
| mov %g2, %o0 |
| add %fp, -8, %o1 |
| call ffi_closure_sparc_inner_v8 |
| add %fp, 64, %o2 |
| |
| ! Load up the return value in the proper type. |
| ! See ffi_prep_cif_machdep for the list of cases. |
| cmp %o0, FFI_TYPE_VOID |
| be done1 |
| |
| cmp %o0, FFI_TYPE_INT |
| be integer |
| |
| cmp %o0, FFI_TYPE_FLOAT |
| be,a done1 |
| ld [%fp-8], %f0 |
| |
| cmp %o0, FFI_TYPE_DOUBLE |
| be,a done1 |
| ldd [%fp-8], %f0 |
| |
| #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE |
| cmp %o0, FFI_TYPE_LONGDOUBLE |
| be done2 |
| #endif |
| |
| cmp %o0, FFI_TYPE_STRUCT |
| be done2 |
| |
| ! FFI_TYPE_SINT64 |
| ld [%fp-4], %i1 |
| |
| integer: |
| ld [%fp-8], %i0 |
| |
| done1: |
| jmp %i7+8 |
| restore |
| done2: |
| ! Skip 'unimp'. |
| jmp %i7+12 |
| restore |
| .LLFE2: |
| |
| .ffi_closure_v8_end: |
| .size ffi_closure_v8,.ffi_closure_v8_end-ffi_closure_v8 |
| |
| #ifdef SPARC64 |
| #define WS 8 |
| #define nword xword |
| #define uanword uaxword |
| #else |
| #define WS 4 |
| #define nword long |
| #define uanword uaword |
| #endif |
| |
| #ifdef HAVE_RO_EH_FRAME |
| .section ".eh_frame",#alloc |
| #else |
| .section ".eh_frame",#alloc,#write |
| #endif |
| .LLframe1: |
| .uaword .LLECIE1-.LLSCIE1 ! Length of Common Information Entry |
| .LLSCIE1: |
| .uaword 0x0 ! CIE Identifier Tag |
| .byte 0x1 ! CIE Version |
| .ascii "zR\0" ! CIE Augmentation |
| .byte 0x1 ! uleb128 0x1; CIE Code Alignment Factor |
| .byte 0x80-WS ! sleb128 -WS; CIE Data Alignment Factor |
| .byte 0xf ! CIE RA Column |
| .byte 0x1 ! uleb128 0x1; Augmentation size |
| #ifdef HAVE_AS_SPARC_UA_PCREL |
| .byte 0x1b ! FDE Encoding (pcrel sdata4) |
| #else |
| .byte 0x50 ! FDE Encoding (aligned absolute) |
| #endif |
| .byte 0xc ! DW_CFA_def_cfa |
| .byte 0xe ! uleb128 0xe |
| .byte 0x0 ! uleb128 0x0 |
| .align WS |
| .LLECIE1: |
| .LLSFDE1: |
| .uaword .LLEFDE1-.LLASFDE1 ! FDE Length |
| .LLASFDE1: |
| .uaword .LLASFDE1-.LLframe1 ! FDE CIE offset |
| #ifdef HAVE_AS_SPARC_UA_PCREL |
| .uaword %r_disp32(.LLFB1) |
| .uaword .LLFE1-.LLFB1 ! FDE address range |
| #else |
| .align WS |
| .nword .LLFB1 |
| .uanword .LLFE1-.LLFB1 ! FDE address range |
| #endif |
| .byte 0x0 ! uleb128 0x0; Augmentation size |
| .byte 0x4 ! DW_CFA_advance_loc4 |
| .uaword .LLCFI0-.LLFB1 |
| .byte 0xd ! DW_CFA_def_cfa_register |
| .byte 0x1e ! uleb128 0x1e |
| .byte 0x2d ! DW_CFA_GNU_window_save |
| .byte 0x9 ! DW_CFA_register |
| .byte 0xf ! uleb128 0xf |
| .byte 0x1f ! uleb128 0x1f |
| .align WS |
| .LLEFDE1: |
| .LLSFDE2: |
| .uaword .LLEFDE2-.LLASFDE2 ! FDE Length |
| .LLASFDE2: |
| .uaword .LLASFDE2-.LLframe1 ! FDE CIE offset |
| #ifdef HAVE_AS_SPARC_UA_PCREL |
| .uaword %r_disp32(.LLFB2) |
| .uaword .LLFE2-.LLFB2 ! FDE address range |
| #else |
| .align WS |
| .nword .LLFB2 |
| .uanword .LLFE2-.LLFB2 ! FDE address range |
| #endif |
| .byte 0x0 ! uleb128 0x0; Augmentation size |
| .byte 0x4 ! DW_CFA_advance_loc4 |
| .uaword .LLCFI1-.LLFB2 |
| .byte 0xd ! DW_CFA_def_cfa_register |
| .byte 0x1e ! uleb128 0x1e |
| .byte 0x2d ! DW_CFA_GNU_window_save |
| .byte 0x9 ! DW_CFA_register |
| .byte 0xf ! uleb128 0xf |
| .byte 0x1f ! uleb128 0x1f |
| .align WS |
| .LLEFDE2: |