URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [libffi/] [src/] [sh64/] [sysv.S] - Blame information for rev 14

Details | Compare with Previous | View Log


/* -----------------------------------------------------------------------
   sysv.S - Copyright (c) 2003, 2004 Kaz Kojima
 
   SuperH SHmedia 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 
#include 
#ifdef HAVE_MACHINE_ASM_H
#include 
#else
/* XXX these lose for some platforms, I'm sure. */
#define CNAME(x) x
#define ENTRY(x) .globl CNAME(x); .type CNAME(x),%function; CNAME(x):
#endif
 
#ifdef __LITTLE_ENDIAN__
#define OFS_FLT 0
#else
#define OFS_FLT 4
#endif
 
        .section        .text..SHmedia32,"ax"
 
        # r2:   ffi_prep_args
        # r3:   &ecif
        # r4:   bytes
        # r5:   flags
        # r6:   flags2
        # r7:   rvalue
        # r8:   fn
 
        # This assumes we are using gas.
        .align  5
ENTRY(ffi_call_SYSV)
        # Save registers
.LFB1:
        addi.l  r15, -48, r15
.LCFI0:
        st.q    r15, 40, r32
        st.q    r15, 32, r31
        st.q    r15, 24, r30
        st.q    r15, 16, r29
        st.q    r15, 8, r28
        st.l    r15, 4, r18
        st.l    r15, 0, r14
.LCFI1:
        add.l   r15, r63, r14
.LCFI2:
#       add     r4, r63, r28
        add     r5, r63, r29
        add     r6, r63, r30
        add     r7, r63, r31
        add     r8, r63, r32
 
        addi    r4, (64 + 7), r4
        andi    r4, ~7, r4
        sub.l   r15, r4, r15
 
        ptabs/l r2, tr0
        add     r15, r63, r2
        blink   tr0, r18
 
        addi    r15, 64, r22
        movi    0, r0
        movi    0, r1
 
        pt/l    1f, tr1
        bnei/l  r29, FFI_TYPE_STRUCT, tr1
        ld.l    r15, 0, r19
        addi    r15, 8, r15
        addi    r0, 1, r0
1:
 
.L_pass:
        andi    r30, 3, r20
        shlri   r30, 2, r30
 
        pt/l    .L_call_it, tr0
        pt/l    .L_pass_i, tr1
        pt/l    .L_pass_f, tr2
 
        beqi/l  r20, FFI_TYPE_VOID, tr0
        beqi/l  r20, FFI_TYPE_INT, tr1
        beqi/l  r20, FFI_TYPE_FLOAT, tr2
 
.L_pass_d:
        addi    r0, 1, r0
        addi    r1, 1, r1
        andi    r1, ~1, r1
 
        pt/l    3f, tr0
        movi    12, r20
        bge/l   r1, r20, tr0
 
        pt/l    .L_pop_d, tr1
        pt/l    2f, tr0
        blink   tr1, r63
2:
        addi.l  r15, 8, r15
3:
        pt/l    .L_pass, tr0
        addi    r1, 2, r1
        blink   tr0, r63
 
.L_pop_d:
        pt/l    .L_pop_d_tbl, tr1
        gettr   tr1, r20
        shlli   r1, 2, r21
        add     r20, r21, r20
        ptabs/l r20, tr1
        blink   tr1, r63
 
.L_pop_d_tbl:
        fld.d   r15, 0, dr0
        blink   tr0, r63
        fld.d   r15, 0, dr2
        blink   tr0, r63
        fld.d   r15, 0, dr4
        blink   tr0, r63
        fld.d   r15, 0, dr6
        blink   tr0, r63
        fld.d   r15, 0, dr8
        blink   tr0, r63
        fld.d   r15, 0, dr10
        blink   tr0, r63
 
.L_pass_f:
        addi    r0, 1, r0
        pt/l    3f, tr0
        movi    12, r20
        bge/l   r1, r20, tr0
 
        pt/l    .L_pop_f, tr1
        pt/l    2f, tr0
        blink   tr1, r63
2:
        addi.l  r15, 8, r15
3:
        pt/l    .L_pass, tr0
        addi    r1, 1, r1
        blink   tr0, r63
 
.L_pop_f:
        pt/l    .L_pop_f_tbl, tr1
        gettr   tr1, r20
        shlli   r1, 3, r21
        add     r20, r21, r20
        ptabs/l r20, tr1
        blink   tr1, r63
 
.L_pop_f_tbl:
        fld.s   r15, OFS_FLT, fr0
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr1
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr2
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr3
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr4
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr5
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr6
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr7
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr8
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr9
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr10
        blink   tr0, r63
        fld.s   r15, OFS_FLT, fr11
        blink   tr0, r63
 
.L_pass_i:
        pt/l    3f, tr0
        movi    8, r20
        bge/l   r0, r20, tr0
 
        pt/l    .L_pop_i, tr1
        pt/l    2f, tr0
        blink   tr1, r63
2:
        addi.l  r15, 8, r15
3:
        pt/l    .L_pass, tr0
        addi    r0, 1, r0
        blink   tr0, r63
 
.L_pop_i:
        pt/l    .L_pop_i_tbl, tr1
        gettr   tr1, r20
        shlli   r0, 3, r21
        add     r20, r21, r20
        ptabs/l r20, tr1
        blink   tr1, r63
 
.L_pop_i_tbl:
        ld.q    r15, 0, r2
        blink   tr0, r63
        ld.q    r15, 0, r3
        blink   tr0, r63
        ld.q    r15, 0, r4
        blink   tr0, r63
        ld.q    r15, 0, r5
        blink   tr0, r63
        ld.q    r15, 0, r6
        blink   tr0, r63
        ld.q    r15, 0, r7
        blink   tr0, r63
        ld.q    r15, 0, r8
        blink   tr0, r63
        ld.q    r15, 0, r9
        blink   tr0, r63
 
.L_call_it:
        # call function
        pt/l    1f, tr1
        bnei/l  r29, FFI_TYPE_STRUCT, tr1
        add     r19, r63, r2
1:
        add     r22, r63, r15
        ptabs/l r32, tr0
        blink   tr0, r18
 
        pt/l    .L_ret_i, tr0
        pt/l    .L_ret_ll, tr1
        pt/l    .L_ret_d, tr2
        pt/l    .L_ret_f, tr3
        pt/l    .L_epilogue, tr4
 
        beqi/l  r29, FFI_TYPE_INT, tr0
        beqi/l  r29, FFI_TYPE_UINT32, tr0
        beqi/l  r29, FFI_TYPE_SINT64, tr1
        beqi/l  r29, FFI_TYPE_UINT64, tr1
        beqi/l  r29, FFI_TYPE_DOUBLE, tr2
        beqi/l  r29, FFI_TYPE_FLOAT, tr3
 
        pt/l    .L_ret_q, tr0
        pt/l    .L_ret_h, tr1
 
        beqi/l  r29, FFI_TYPE_UINT8, tr0
        beqi/l  r29, FFI_TYPE_UINT16, tr1
        blink   tr4, r63
 
.L_ret_d:
        fst.d   r31, 0, dr0
        blink   tr4, r63
 
.L_ret_ll:
        st.q    r31, 0, r2
        blink   tr4, r63
 
.L_ret_f:
        fst.s   r31, OFS_FLT, fr0
        blink   tr4, r63
 
.L_ret_q:
        st.b    r31, 0, r2
        blink   tr4, r63
 
.L_ret_h:
        st.w    r31, 0, r2
        blink   tr4, r63
 
.L_ret_i:
        st.l    r31, 0, r2
        # Fall
 
.L_epilogue:
        # Remove the space we pushed for the args
        add     r14, r63, r15
 
        ld.l    r15, 0, r14
        ld.l    r15, 4, r18
        ld.q    r15, 8, r28
        ld.q    r15, 16, r29
        ld.q    r15, 24, r30
        ld.q    r15, 32, r31
        ld.q    r15, 40, r32
        addi.l  r15, 48, r15
        ptabs   r18, tr0
        blink   tr0, r63
 
.LFE1:
.ffi_call_SYSV_end:
        .size    CNAME(ffi_call_SYSV),.ffi_call_SYSV_end-CNAME(ffi_call_SYSV)
 
        .align  5
ENTRY(ffi_closure_SYSV)
.LFB2:
        addi.l  r15, -136, r15
.LCFI3:
        st.l    r15, 12, r18
        st.l    r15, 8, r14
        st.l    r15, 4, r12
.LCFI4:
        add     r15, r63, r14
.LCFI5:
        /* Stack layout:
           ...
           64 bytes (register parameters)
           48 bytes (floating register parameters)
            8 bytes (result)
            4 bytes (r18)
            4 bytes (r14)
            4 bytes (r12)
            4 bytes (for align)
           <- new stack pointer
        */
        fst.d   r14, 24, dr0
        fst.d   r14, 32, dr2
        fst.d   r14, 40, dr4
        fst.d   r14, 48, dr6
        fst.d   r14, 56, dr8
        fst.d   r14, 64, dr10
        st.q    r14, 72, r2
        st.q    r14, 80, r3
        st.q    r14, 88, r4
        st.q    r14, 96, r5
        st.q    r14, 104, r6
        st.q    r14, 112, r7
        st.q    r14, 120, r8
        st.q    r14, 128, r9
 
        add     r1, r63, r2
        addi    r14, 16, r3
        addi    r14, 72, r4
        addi    r14, 24, r5
        addi    r14, 136, r6
#ifdef PIC
        movi    (((datalabel _GLOBAL_OFFSET_TABLE_-(.LPCS0-.)) >> 16) & 65535), r12
        shori   ((datalabel _GLOBAL_OFFSET_TABLE_-(.LPCS0-.)) & 65535), r12
.LPCS0: ptrel/u r12, tr0
        movi    ((ffi_closure_helper_SYSV@GOTPLT) & 65535), r1
        gettr   tr0, r12
        ldx.l   r1, r12, r1
        ptabs   r1, tr0
#else
        pt/l    ffi_closure_helper_SYSV, tr0
#endif
        blink   tr0, r18
 
        shlli   r2, 1, r1
        movi    (((datalabel .L_table) >> 16) & 65535), r2
        shori   ((datalabel .L_table) & 65535), r2
        ldx.w   r2, r1, r1
        add     r1, r2, r1
        pt/l    .L_case_v, tr1
        ptabs   r1, tr0
        blink   tr0, r63
 
        .align 2
.L_table:
        .word   .L_case_v - datalabel .L_table  /* FFI_TYPE_VOID */
        .word   .L_case_i - datalabel .L_table  /* FFI_TYPE_INT */
        .word   .L_case_f - datalabel .L_table  /* FFI_TYPE_FLOAT */
        .word   .L_case_d - datalabel .L_table  /* FFI_TYPE_DOUBLE */
        .word   .L_case_d - datalabel .L_table  /* FFI_TYPE_LONGDOUBLE */
        .word   .L_case_uq - datalabel .L_table /* FFI_TYPE_UINT8 */
        .word   .L_case_q - datalabel .L_table  /* FFI_TYPE_SINT8 */
        .word   .L_case_uh - datalabel .L_table /* FFI_TYPE_UINT16 */
        .word   .L_case_h - datalabel .L_table  /* FFI_TYPE_SINT16 */
        .word   .L_case_i - datalabel .L_table  /* FFI_TYPE_UINT32 */
        .word   .L_case_i - datalabel .L_table  /* FFI_TYPE_SINT32 */
        .word   .L_case_ll - datalabel .L_table /* FFI_TYPE_UINT64 */
        .word   .L_case_ll - datalabel .L_table /* FFI_TYPE_SINT64 */
        .word   .L_case_v - datalabel .L_table  /* FFI_TYPE_STRUCT */
        .word   .L_case_i - datalabel .L_table  /* FFI_TYPE_POINTER */
 
        .align 2
.L_case_d:
        fld.d   r14, 16, dr0
        blink   tr1, r63
.L_case_f:
        fld.s   r14, 16, fr0
        blink   tr1, r63
.L_case_ll:
        ld.q    r14, 16, r2
        blink   tr1, r63
.L_case_i:
        ld.l    r14, 16, r2
        blink   tr1, r63
.L_case_q:
        ld.b    r14, 16, r2
        blink   tr1, r63
.L_case_uq:
        ld.ub   r14, 16, r2
        blink   tr1, r63
.L_case_h:
        ld.w    r14, 16, r2
        blink   tr1, r63
.L_case_uh:
        ld.uw   r14, 16, r2
        blink   tr1, r63
.L_case_v:
        add.l   r14, r63, r15
        ld.l    r15, 4, r12
        ld.l    r15, 8, r14
        ld.l    r15, 12, r18
        addi.l  r15, 136, r15
        ptabs   r18, tr0
        blink   tr0, r63
 
.LFE2:
.ffi_closure_SYSV_end:
        .size    CNAME(ffi_closure_SYSV),.ffi_closure_SYSV_end-CNAME(ffi_closure_SYSV)
 
        .section        ".eh_frame","aw",@progbits
__FRAME_BEGIN__:
        .4byte  .LECIE1-.LSCIE1 /* Length of Common Information Entry */
.LSCIE1:
        .4byte  0x0     /* CIE Identifier Tag */
        .byte   0x1     /* CIE Version */
#ifdef PIC
        .ascii "zR\0"   /* CIE Augmentation */
#else
        .byte   0x0     /* CIE Augmentation */
#endif
        .uleb128 0x1    /* CIE Code Alignment Factor */
        .sleb128 -4     /* CIE Data Alignment Factor */
        .byte   0x12    /* CIE RA Column */
#ifdef PIC
        .uleb128 0x1    /* Augmentation size */
        .byte   0x10    /* FDE Encoding (pcrel) */
#endif
        .byte   0xc     /* DW_CFA_def_cfa */
        .uleb128 0xf
        .uleb128 0x0
        .align  2
.LECIE1:
.LSFDE1:
        .4byte  datalabel .LEFDE1-datalabel .LASFDE1    /* FDE Length */
.LASFDE1:
        .4byte  datalabel .LASFDE1-datalabel __FRAME_BEGIN__
#ifdef PIC
        .4byte  .LFB1-. /* FDE initial location */
#else
        .4byte  .LFB1   /* FDE initial location */
#endif
        .4byte  datalabel .LFE1-datalabel .LFB1 /* FDE address range */
#ifdef PIC
        .uleb128 0x0    /* Augmentation size */
#endif
        .byte   0x4     /* DW_CFA_advance_loc4 */
        .4byte  datalabel .LCFI0-datalabel .LFB1
        .byte   0xe     /* DW_CFA_def_cfa_offset */
        .uleb128 0x30
        .byte   0x4     /* DW_CFA_advance_loc4 */
        .4byte  datalabel .LCFI1-datalabel .LCFI0
        .byte   0x8e    /* DW_CFA_offset, column 0xe */
        .uleb128 0xc
        .byte   0x92    /* DW_CFA_offset, column 0x12 */
        .uleb128 0xb
        .byte   0x9c    /* DW_CFA_offset, column 0x1c */
        .uleb128 0xa
        .byte   0x9d    /* DW_CFA_offset, column 0x1d */
        .uleb128 0x8
        .byte   0x9e    /* DW_CFA_offset, column 0x1e */
        .uleb128 0x6
        .byte   0x9f    /* DW_CFA_offset, column 0x1f */
        .uleb128 0x4
        .byte   0xa0    /* DW_CFA_offset, column 0x20 */
        .uleb128 0x2
        .byte   0x4     /* DW_CFA_advance_loc4 */
        .4byte  datalabel .LCFI2-datalabel .LCFI1
        .byte   0xd     /* DW_CFA_def_cfa_register */
        .uleb128 0xe
        .align  2
.LEFDE1:
 
.LSFDE3:
        .4byte  datalabel .LEFDE3-datalabel .LASFDE3    /* FDE Length */
.LASFDE3:
        .4byte  datalabel .LASFDE3-datalabel __FRAME_BEGIN__
#ifdef PIC
        .4byte  .LFB2-. /* FDE initial location */
#else
        .4byte  .LFB2   /* FDE initial location */
#endif
        .4byte  datalabel .LFE2-datalabel .LFB2 /* FDE address range */
#ifdef PIC
        .uleb128 0x0    /* Augmentation size */
#endif
        .byte   0x4     /* DW_CFA_advance_loc4 */
        .4byte  datalabel .LCFI3-datalabel .LFB2
        .byte   0xe     /* DW_CFA_def_cfa_offset */
        .uleb128 0x88
        .byte   0x4     /* DW_CFA_advance_loc4 */
        .4byte  datalabel .LCFI4-datalabel .LCFI3
        .byte   0x8c    /* DW_CFA_offset, column 0xc */
        .uleb128 0x21
        .byte   0x8e    /* DW_CFA_offset, column 0xe */
        .uleb128 0x20
        .byte   0x92    /* DW_CFA_offset, column 0x12 */
        .uleb128 0x1f
        .byte   0x4     /* DW_CFA_advance_loc4 */
        .4byte  datalabel .LCFI5-datalabel .LCFI4
        .byte   0xd     /* DW_CFA_def_cfa_register */
        .uleb128 0xe
        .align  2
.LEFDE3:

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [libffi/] [src/] [sh64/] [sysv.S] - Blame information for rev 14

Line No.	Rev	Author	Line
1	14	jlechner	`/* -----------------------------------------------------------------------`
2			`sysv.S - Copyright (c) 2003, 2004 Kaz Kojima`
3
4			`SuperH SHmedia 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, EXPRESS
18			`OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF`
19			`MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.`
20			`IN NO EVENT SHALL CYGNUS SOLUTIONS BE LIABLE FOR ANY CLAIM, DAMAGES OR`
21			`OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,`
22			`ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR`
23			`OTHER DEALINGS IN THE SOFTWARE.`
24			`----------------------------------------------------------------------- */`
25
26			`#define LIBFFI_ASM`
27			`#include`
28			`#include`
29			`#ifdef HAVE_MACHINE_ASM_H`
30			`#include`
31			`#else`
32			`/* XXX these lose for some platforms, I'm sure. */`
33			`#define CNAME(x) x`
34			`#define ENTRY(x) .globl CNAME(x); .type CNAME(x),%function; CNAME(x):`
35			`#endif`
36
37			`#ifdef __LITTLE_ENDIAN__`
38			`#define OFS_FLT 0`
39			`#else`
40			`#define OFS_FLT 4`
41			`#endif`
42
43			`.section .text..SHmedia32,"ax"`
44
45			`# r2: ffi_prep_args`
46			`# r3: &ecif`
47			`# r4: bytes`
48			`# r5: flags`
49			`# r6: flags2`
50			`# r7: rvalue`
51			`# r8: fn`
52
53			`# This assumes we are using gas.`
54			`.align 5`
55			`ENTRY(ffi_call_SYSV)`
56			`# Save registers`
57			`.LFB1:`
58			`addi.l r15, -48, r15`
59			`.LCFI0:`
60			`st.q r15, 40, r32`
61			`st.q r15, 32, r31`
62			`st.q r15, 24, r30`
63			`st.q r15, 16, r29`
64			`st.q r15, 8, r28`
65			`st.l r15, 4, r18`
66			`st.l r15, 0, r14`
67			`.LCFI1:`
68			`add.l r15, r63, r14`
69			`.LCFI2:`
70			`# add r4, r63, r28`
71			`add r5, r63, r29`
72			`add r6, r63, r30`
73			`add r7, r63, r31`
74			`add r8, r63, r32`
75
76			`addi r4, (64 + 7), r4`
77			`andi r4, ~7, r4`
78			`sub.l r15, r4, r15`
79
80			`ptabs/l r2, tr0`
81			`add r15, r63, r2`
82			`blink tr0, r18`
83
84			`addi r15, 64, r22`
85			`movi 0, r0`
86			`movi 0, r1`
87
88			`pt/l 1f, tr1`
89			`bnei/l r29, FFI_TYPE_STRUCT, tr1`
90			`ld.l r15, 0, r19`
91			`addi r15, 8, r15`
92			`addi r0, 1, r0`
93			`1:`
94
95			`.L_pass:`
96			`andi r30, 3, r20`
97			`shlri r30, 2, r30`
98
99			`pt/l .L_call_it, tr0`
100			`pt/l .L_pass_i, tr1`
101			`pt/l .L_pass_f, tr2`
102
103			`beqi/l r20, FFI_TYPE_VOID, tr0`
104			`beqi/l r20, FFI_TYPE_INT, tr1`
105			`beqi/l r20, FFI_TYPE_FLOAT, tr2`
106
107			`.L_pass_d:`
108			`addi r0, 1, r0`
109			`addi r1, 1, r1`
110			`andi r1, ~1, r1`
111
112			`pt/l 3f, tr0`
113			`movi 12, r20`
114			`bge/l r1, r20, tr0`
115
116			`pt/l .L_pop_d, tr1`
117			`pt/l 2f, tr0`
118			`blink tr1, r63`
119			`2:`
120			`addi.l r15, 8, r15`
121			`3:`
122			`pt/l .L_pass, tr0`
123			`addi r1, 2, r1`
124			`blink tr0, r63`
125
126			`.L_pop_d:`
127			`pt/l .L_pop_d_tbl, tr1`
128			`gettr tr1, r20`
129			`shlli r1, 2, r21`
130			`add r20, r21, r20`
131			`ptabs/l r20, tr1`
132			`blink tr1, r63`
133
134			`.L_pop_d_tbl:`
135			`fld.d r15, 0, dr0`
136			`blink tr0, r63`
137			`fld.d r15, 0, dr2`
138			`blink tr0, r63`
139			`fld.d r15, 0, dr4`
140			`blink tr0, r63`
141			`fld.d r15, 0, dr6`
142			`blink tr0, r63`
143			`fld.d r15, 0, dr8`
144			`blink tr0, r63`
145			`fld.d r15, 0, dr10`
146			`blink tr0, r63`
147
148			`.L_pass_f:`
149			`addi r0, 1, r0`
150			`pt/l 3f, tr0`
151			`movi 12, r20`
152			`bge/l r1, r20, tr0`
153
154			`pt/l .L_pop_f, tr1`
155			`pt/l 2f, tr0`
156			`blink tr1, r63`
157			`2:`
158			`addi.l r15, 8, r15`
159			`3:`
160			`pt/l .L_pass, tr0`
161			`addi r1, 1, r1`
162			`blink tr0, r63`
163
164			`.L_pop_f:`
165			`pt/l .L_pop_f_tbl, tr1`
166			`gettr tr1, r20`
167			`shlli r1, 3, r21`
168			`add r20, r21, r20`
169			`ptabs/l r20, tr1`
170			`blink tr1, r63`
171
172			`.L_pop_f_tbl:`
173			`fld.s r15, OFS_FLT, fr0`
174			`blink tr0, r63`
175			`fld.s r15, OFS_FLT, fr1`
176			`blink tr0, r63`
177			`fld.s r15, OFS_FLT, fr2`
178			`blink tr0, r63`
179			`fld.s r15, OFS_FLT, fr3`
180			`blink tr0, r63`
181			`fld.s r15, OFS_FLT, fr4`
182			`blink tr0, r63`
183			`fld.s r15, OFS_FLT, fr5`
184			`blink tr0, r63`
185			`fld.s r15, OFS_FLT, fr6`
186			`blink tr0, r63`
187			`fld.s r15, OFS_FLT, fr7`
188			`blink tr0, r63`
189			`fld.s r15, OFS_FLT, fr8`
190			`blink tr0, r63`
191			`fld.s r15, OFS_FLT, fr9`
192			`blink tr0, r63`
193			`fld.s r15, OFS_FLT, fr10`
194			`blink tr0, r63`
195			`fld.s r15, OFS_FLT, fr11`
196			`blink tr0, r63`
197
198			`.L_pass_i:`
199			`pt/l 3f, tr0`
200			`movi 8, r20`
201			`bge/l r0, r20, tr0`
202
203			`pt/l .L_pop_i, tr1`
204			`pt/l 2f, tr0`
205			`blink tr1, r63`
206			`2:`
207			`addi.l r15, 8, r15`
208			`3:`
209			`pt/l .L_pass, tr0`
210			`addi r0, 1, r0`
211			`blink tr0, r63`
212
213			`.L_pop_i:`
214			`pt/l .L_pop_i_tbl, tr1`
215			`gettr tr1, r20`
216			`shlli r0, 3, r21`
217			`add r20, r21, r20`
218			`ptabs/l r20, tr1`
219			`blink tr1, r63`
220
221			`.L_pop_i_tbl:`
222			`ld.q r15, 0, r2`
223			`blink tr0, r63`
224			`ld.q r15, 0, r3`
225			`blink tr0, r63`
226			`ld.q r15, 0, r4`
227			`blink tr0, r63`
228			`ld.q r15, 0, r5`
229			`blink tr0, r63`
230			`ld.q r15, 0, r6`
231			`blink tr0, r63`
232			`ld.q r15, 0, r7`
233			`blink tr0, r63`
234			`ld.q r15, 0, r8`
235			`blink tr0, r63`
236			`ld.q r15, 0, r9`
237			`blink tr0, r63`
238
239			`.L_call_it:`
240			`# call function`
241			`pt/l 1f, tr1`
242			`bnei/l r29, FFI_TYPE_STRUCT, tr1`
243			`add r19, r63, r2`
244			`1:`
245			`add r22, r63, r15`
246			`ptabs/l r32, tr0`
247			`blink tr0, r18`
248
249			`pt/l .L_ret_i, tr0`
250			`pt/l .L_ret_ll, tr1`
251			`pt/l .L_ret_d, tr2`
252			`pt/l .L_ret_f, tr3`
253			`pt/l .L_epilogue, tr4`
254
255			`beqi/l r29, FFI_TYPE_INT, tr0`
256			`beqi/l r29, FFI_TYPE_UINT32, tr0`
257			`beqi/l r29, FFI_TYPE_SINT64, tr1`
258			`beqi/l r29, FFI_TYPE_UINT64, tr1`
259			`beqi/l r29, FFI_TYPE_DOUBLE, tr2`
260			`beqi/l r29, FFI_TYPE_FLOAT, tr3`
261
262			`pt/l .L_ret_q, tr0`
263			`pt/l .L_ret_h, tr1`
264
265			`beqi/l r29, FFI_TYPE_UINT8, tr0`
266			`beqi/l r29, FFI_TYPE_UINT16, tr1`
267			`blink tr4, r63`
268
269			`.L_ret_d:`
270			`fst.d r31, 0, dr0`
271			`blink tr4, r63`
272
273			`.L_ret_ll:`
274			`st.q r31, 0, r2`
275			`blink tr4, r63`
276
277			`.L_ret_f:`
278			`fst.s r31, OFS_FLT, fr0`
279			`blink tr4, r63`
280
281			`.L_ret_q:`
282			`st.b r31, 0, r2`
283			`blink tr4, r63`
284
285			`.L_ret_h:`
286			`st.w r31, 0, r2`
287			`blink tr4, r63`
288
289			`.L_ret_i:`
290			`st.l r31, 0, r2`
291			`# Fall`
292
293			`.L_epilogue:`
294			`# Remove the space we pushed for the args`
295			`add r14, r63, r15`
296
297			`ld.l r15, 0, r14`
298			`ld.l r15, 4, r18`
299			`ld.q r15, 8, r28`
300			`ld.q r15, 16, r29`
301			`ld.q r15, 24, r30`
302			`ld.q r15, 32, r31`
303			`ld.q r15, 40, r32`
304			`addi.l r15, 48, r15`
305			`ptabs r18, tr0`
306			`blink tr0, r63`
307
308			`.LFE1:`
309			`.ffi_call_SYSV_end:`
310			`.size CNAME(ffi_call_SYSV),.ffi_call_SYSV_end-CNAME(ffi_call_SYSV)`
311
312			`.align 5`
313			`ENTRY(ffi_closure_SYSV)`
314			`.LFB2:`
315			`addi.l r15, -136, r15`
316			`.LCFI3:`
317			`st.l r15, 12, r18`
318			`st.l r15, 8, r14`
319			`st.l r15, 4, r12`
320			`.LCFI4:`
321			`add r15, r63, r14`
322			`.LCFI5:`
323			`/* Stack layout:`
324			`...`
325			`64 bytes (register parameters)`
326			`48 bytes (floating register parameters)`
327			`8 bytes (result)`
328			`4 bytes (r18)`
329			`4 bytes (r14)`
330			`4 bytes (r12)`
331			`4 bytes (for align)`
332			`<- new stack pointer`
333			`*/`
334			`fst.d r14, 24, dr0`
335			`fst.d r14, 32, dr2`
336			`fst.d r14, 40, dr4`
337			`fst.d r14, 48, dr6`
338			`fst.d r14, 56, dr8`
339			`fst.d r14, 64, dr10`
340			`st.q r14, 72, r2`
341			`st.q r14, 80, r3`
342			`st.q r14, 88, r4`
343			`st.q r14, 96, r5`
344			`st.q r14, 104, r6`
345			`st.q r14, 112, r7`
346			`st.q r14, 120, r8`
347			`st.q r14, 128, r9`
348
349			`add r1, r63, r2`
350			`addi r14, 16, r3`
351			`addi r14, 72, r4`
352			`addi r14, 24, r5`
353			`addi r14, 136, r6`
354			`#ifdef PIC`
355			`movi (((datalabel _GLOBAL_OFFSET_TABLE_-(.LPCS0-.)) >> 16) & 65535), r12`
356			`shori ((datalabel _GLOBAL_OFFSET_TABLE_-(.LPCS0-.)) & 65535), r12`
357			`.LPCS0: ptrel/u r12, tr0`
358			`movi ((ffi_closure_helper_SYSV@GOTPLT) & 65535), r1`
359			`gettr tr0, r12`
360			`ldx.l r1, r12, r1`
361			`ptabs r1, tr0`
362			`#else`
363			`pt/l ffi_closure_helper_SYSV, tr0`
364			`#endif`
365			`blink tr0, r18`
366
367			`shlli r2, 1, r1`
368			`movi (((datalabel .L_table) >> 16) & 65535), r2`
369			`shori ((datalabel .L_table) & 65535), r2`
370			`ldx.w r2, r1, r1`
371			`add r1, r2, r1`
372			`pt/l .L_case_v, tr1`
373			`ptabs r1, tr0`
374			`blink tr0, r63`
375
376			`.align 2`
377			`.L_table:`
378			`.word .L_case_v - datalabel .L_table /* FFI_TYPE_VOID */`
379			`.word .L_case_i - datalabel .L_table /* FFI_TYPE_INT */`
380			`.word .L_case_f - datalabel .L_table /* FFI_TYPE_FLOAT */`
381			`.word .L_case_d - datalabel .L_table /* FFI_TYPE_DOUBLE */`
382			`.word .L_case_d - datalabel .L_table /* FFI_TYPE_LONGDOUBLE */`
383			`.word .L_case_uq - datalabel .L_table /* FFI_TYPE_UINT8 */`
384			`.word .L_case_q - datalabel .L_table /* FFI_TYPE_SINT8 */`
385			`.word .L_case_uh - datalabel .L_table /* FFI_TYPE_UINT16 */`
386			`.word .L_case_h - datalabel .L_table /* FFI_TYPE_SINT16 */`
387			`.word .L_case_i - datalabel .L_table /* FFI_TYPE_UINT32 */`
388			`.word .L_case_i - datalabel .L_table /* FFI_TYPE_SINT32 */`
389			`.word .L_case_ll - datalabel .L_table /* FFI_TYPE_UINT64 */`
390			`.word .L_case_ll - datalabel .L_table /* FFI_TYPE_SINT64 */`
391			`.word .L_case_v - datalabel .L_table /* FFI_TYPE_STRUCT */`
392			`.word .L_case_i - datalabel .L_table /* FFI_TYPE_POINTER */`
393
394			`.align 2`
395			`.L_case_d:`
396			`fld.d r14, 16, dr0`
397			`blink tr1, r63`
398			`.L_case_f:`
399			`fld.s r14, 16, fr0`
400			`blink tr1, r63`
401			`.L_case_ll:`
402			`ld.q r14, 16, r2`
403			`blink tr1, r63`
404			`.L_case_i:`
405			`ld.l r14, 16, r2`
406			`blink tr1, r63`
407			`.L_case_q:`
408			`ld.b r14, 16, r2`
409			`blink tr1, r63`
410			`.L_case_uq:`
411			`ld.ub r14, 16, r2`
412			`blink tr1, r63`
413			`.L_case_h:`
414			`ld.w r14, 16, r2`
415			`blink tr1, r63`
416			`.L_case_uh:`
417			`ld.uw r14, 16, r2`
418			`blink tr1, r63`
419			`.L_case_v:`
420			`add.l r14, r63, r15`
421			`ld.l r15, 4, r12`
422			`ld.l r15, 8, r14`
423			`ld.l r15, 12, r18`
424			`addi.l r15, 136, r15`
425			`ptabs r18, tr0`
426			`blink tr0, r63`
427
428			`.LFE2:`
429			`.ffi_closure_SYSV_end:`
430			`.size CNAME(ffi_closure_SYSV),.ffi_closure_SYSV_end-CNAME(ffi_closure_SYSV)`
431
432			`.section ".eh_frame","aw",@progbits`
433			`__FRAME_BEGIN__:`
434			`.4byte .LECIE1-.LSCIE1 /* Length of Common Information Entry */`
435			`.LSCIE1:`
436			`.4byte 0x0 /* CIE Identifier Tag */`
437			`.byte 0x1 /* CIE Version */`
438			`#ifdef PIC`
439			`.ascii "zR\0" /* CIE Augmentation */`
440			`#else`
441			`.byte 0x0 /* CIE Augmentation */`
442			`#endif`
443			`.uleb128 0x1 /* CIE Code Alignment Factor */`
444			`.sleb128 -4 /* CIE Data Alignment Factor */`
445			`.byte 0x12 /* CIE RA Column */`
446			`#ifdef PIC`
447			`.uleb128 0x1 /* Augmentation size */`
448			`.byte 0x10 /* FDE Encoding (pcrel) */`
449			`#endif`
450			`.byte 0xc /* DW_CFA_def_cfa */`
451			`.uleb128 0xf`
452			`.uleb128 0x0`
453			`.align 2`
454			`.LECIE1:`
455			`.LSFDE1:`
456			`.4byte datalabel .LEFDE1-datalabel .LASFDE1 /* FDE Length */`
457			`.LASFDE1:`
458			`.4byte datalabel .LASFDE1-datalabel __FRAME_BEGIN__`
459			`#ifdef PIC`
460			`.4byte .LFB1-. /* FDE initial location */`
461			`#else`
462			`.4byte .LFB1 /* FDE initial location */`
463			`#endif`
464			`.4byte datalabel .LFE1-datalabel .LFB1 /* FDE address range */`
465			`#ifdef PIC`
466			`.uleb128 0x0 /* Augmentation size */`
467			`#endif`
468			`.byte 0x4 /* DW_CFA_advance_loc4 */`
469			`.4byte datalabel .LCFI0-datalabel .LFB1`
470			`.byte 0xe /* DW_CFA_def_cfa_offset */`
471			`.uleb128 0x30`
472			`.byte 0x4 /* DW_CFA_advance_loc4 */`
473			`.4byte datalabel .LCFI1-datalabel .LCFI0`
474			`.byte 0x8e /* DW_CFA_offset, column 0xe */`
475			`.uleb128 0xc`
476			`.byte 0x92 /* DW_CFA_offset, column 0x12 */`
477			`.uleb128 0xb`
478			`.byte 0x9c /* DW_CFA_offset, column 0x1c */`
479			`.uleb128 0xa`
480			`.byte 0x9d /* DW_CFA_offset, column 0x1d */`
481			`.uleb128 0x8`
482			`.byte 0x9e /* DW_CFA_offset, column 0x1e */`
483			`.uleb128 0x6`
484			`.byte 0x9f /* DW_CFA_offset, column 0x1f */`
485			`.uleb128 0x4`
486			`.byte 0xa0 /* DW_CFA_offset, column 0x20 */`
487			`.uleb128 0x2`
488			`.byte 0x4 /* DW_CFA_advance_loc4 */`
489			`.4byte datalabel .LCFI2-datalabel .LCFI1`
490			`.byte 0xd /* DW_CFA_def_cfa_register */`
491			`.uleb128 0xe`
492			`.align 2`
493			`.LEFDE1:`
494
495			`.LSFDE3:`
496			`.4byte datalabel .LEFDE3-datalabel .LASFDE3 /* FDE Length */`
497			`.LASFDE3:`
498			`.4byte datalabel .LASFDE3-datalabel __FRAME_BEGIN__`
499			`#ifdef PIC`
500			`.4byte .LFB2-. /* FDE initial location */`
501			`#else`
502			`.4byte .LFB2 /* FDE initial location */`
503			`#endif`
504			`.4byte datalabel .LFE2-datalabel .LFB2 /* FDE address range */`
505			`#ifdef PIC`
506			`.uleb128 0x0 /* Augmentation size */`
507			`#endif`
508			`.byte 0x4 /* DW_CFA_advance_loc4 */`
509			`.4byte datalabel .LCFI3-datalabel .LFB2`
510			`.byte 0xe /* DW_CFA_def_cfa_offset */`
511			`.uleb128 0x88`
512			`.byte 0x4 /* DW_CFA_advance_loc4 */`
513			`.4byte datalabel .LCFI4-datalabel .LCFI3`
514			`.byte 0x8c /* DW_CFA_offset, column 0xc */`
515			`.uleb128 0x21`
516			`.byte 0x8e /* DW_CFA_offset, column 0xe */`
517			`.uleb128 0x20`
518			`.byte 0x92 /* DW_CFA_offset, column 0x12 */`
519			`.uleb128 0x1f`
520			`.byte 0x4 /* DW_CFA_advance_loc4 */`
521			`.4byte datalabel .LCFI5-datalabel .LCFI4`
522			`.byte 0xd /* DW_CFA_def_cfa_register */`
523			`.uleb128 0xe`
524			`.align 2`
525			`.LEFDE3:`