OSDN Git Service

b608e9c0333a8a6843d7a39e87e5897826dc2540
[pf3gnuchains/gcc-fork.git] / libffi / src / powerpc / darwin.S
1 /* -----------------------------------------------------------------------
2    darwin.S - Copyright (c) 2000 John Hornkvist
3               Copyright (c) 2004 Free Software Foundation, 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, EXPRESS
19    OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
21    IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR
22    OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
23    ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
24    OTHER DEALINGS IN THE SOFTWARE.
25    ----------------------------------------------------------------------- */
26
27 #define LIBFFI_ASM
28 #include <fficonfig.h>
29 #include <ffi.h>
30 #define JUMPTARGET(name) name
31 #define L(x) x
32 .text
33         .align 2
34 .globl _ffi_prep_args
35
36 .text
37         .align 2
38 .globl _ffi_call_DARWIN
39 .text
40         .align 2
41 _ffi_call_DARWIN:
42 LFB0:
43         mr      r12,r8  /* We only need r12 until the call,
44                            so it doesn't have to be saved.  */
45 LFB1:
46         /* Save the old stack pointer as AP.  */
47         mr      r8,r1
48 LCFI0:
49         /* Allocate the stack space we need.  */
50         stwux   r1,r1,r4
51
52         /* Save registers we use.  */
53         mflr    r9
54
55         stw     r28,-16(r8)     
56         stw     r29,-12(r8)
57         stw     r30,-8(r8)
58         stw     r31,-4(r8)
59
60         stw     r9,8(r8)
61         stw     r2,20(r1)
62 LCFI1:
63
64         /* Save arguments over call.  */
65         mr      r31,r5  /* flags,  */
66         mr      r30,r6  /* rvalue,  */
67         mr      r29,r7  /* function address,  */
68         mr      r28,r8  /* our AP.  */
69 LCFI2:
70         /* Call ffi_prep_args.  */
71         mr      r4,r1
72         li      r9,0
73
74         mtctr   r12 /* r12 holds address of _ffi_prep_args.  */
75         bctrl
76         lwz     r2,20(r1)
77
78         /* Now do the call.
79            Set up cr1 with bits 4-7 of the flags.  */
80         mtcrf   0x40,r31
81         /* Get the address to call into CTR.  */
82         mtctr   r29
83         /* Load all those argument registers.
84            We have set up a nice stack frame, just load it into registers.  */
85         lwz     r3,20+(1*4)(r1)
86         lwz     r4,20+(2*4)(r1)
87         lwz     r5,20+(3*4)(r1)
88         lwz     r6,20+(4*4)(r1)
89         nop
90         lwz     r7,20+(5*4)(r1)
91         lwz     r8,20+(6*4)(r1)
92         lwz     r9,20+(7*4)(r1)
93         lwz     r10,20+(8*4)(r1)
94
95 L1:
96         /* Load all the FP registers.  */
97         bf      6,L2    /* No floats to load.  */
98         lfd     f1,-16-(13*8)(r28)
99         lfd     f2,-16-(12*8)(r28)
100         lfd     f3,-16-(11*8)(r28)
101         lfd     f4,-16-(10*8)(r28)
102         nop
103         lfd     f5,-16-(9*8)(r28)
104         lfd     f6,-16-(8*8)(r28)
105         lfd     f7,-16-(7*8)(r28)
106         lfd     f8,-16-(6*8)(r28)
107         nop
108         lfd     f9,-16-(5*8)(r28)
109         lfd     f10,-16-(4*8)(r28)
110         lfd     f11,-16-(3*8)(r28)
111         lfd     f12,-16-(2*8)(r28)
112         nop
113         lfd     f13,-16-(1*8)(r28)
114
115 L2:
116         mr      r12,r29 /* Put the target address in r12 as specified.  */
117         mtctr   r12
118         nop
119         nop
120         /* Make the call.  */
121         bctrl
122
123         /* Now, deal with the return value.  */
124         mtcrf   0x01,r31
125
126         bt      30,L(done_return_value)
127         bt      29,L(fp_return_value)
128         stw     r3,0(r30)
129         bf      28,L(done_return_value)
130         stw     r4,4(r30)
131
132         /* Fall through.  */
133
134 L(done_return_value):
135         /* Restore the registers we used and return.  */
136         lwz     r9,8(r28)
137         lwz     r31,-4(r28)
138         mtlr    r9
139         lwz     r30,-8(r28)
140         lwz     r29,-12(r28)
141         lwz     r28,-16(r28)
142         lwz     r1,0(r1)
143         blr
144
145 L(fp_return_value):
146         /* Do we have long double to store?  */
147         bf      31,L(fd_return_value)
148         stfd    f1,0(r30)
149         stfd    f2,8(r30)
150         b       L(done_return_value)
151
152 L(fd_return_value):
153         /* Do we have double to store?  */
154         bf      28,L(float_return_value)
155         stfd    f1,0(r30)
156         b       L(done_return_value)
157
158 L(float_return_value):
159         /* We only have a float to store.  */
160         stfs    f1,0(r30)
161         b       L(done_return_value)
162
163 LFE1:
164 /* END(_ffi_call_DARWIN)  */
165
166 /* Provide a null definition of _ffi_call_AIX.  */
167 .text
168         .align 2
169 .globl _ffi_call_AIX
170 .text
171         .align 2
172 _ffi_call_AIX:
173         blr
174 /* END(_ffi_call_AIX)  */
175
176 .data
177 .section __TEXT,__eh_frame,coalesced,no_toc+strip_static_syms
178 EH_frame1:
179         .set    L$set$0,LECIE1-LSCIE1
180         .long   L$set$0 ; Length of Common Information Entry
181 LSCIE1:
182         .long   0x0     ; CIE Identifier Tag
183         .byte   0x1     ; CIE Version
184         .ascii  "zR\0"  ; CIE Augmentation
185         .byte   0x1     ; uleb128 0x1; CIE Code Alignment Factor
186         .byte   0x7c    ; sleb128 -4; CIE Data Alignment Factor
187         .byte   0x41    ; CIE RA Column
188         .byte   0x1     ; uleb128 0x1; Augmentation size
189         .byte   0x90    ; FDE Encoding (indirect pcrel)
190         .byte   0xc     ; DW_CFA_def_cfa
191         .byte   0x1     ; uleb128 0x1
192         .byte   0x0     ; uleb128 0x0
193         .align  2
194 LECIE1:
195 .globl _ffi_call_DARWIN.eh
196 _ffi_call_DARWIN.eh:
197 LSFDE1:
198         .set    L$set$1,LEFDE1-LASFDE1
199         .long   L$set$1 ; FDE Length
200 LASFDE1:
201         .long   LASFDE1-EH_frame1 ; FDE CIE offset
202         .long   LLFB0$non_lazy_ptr-.    ; FDE initial location
203         .set    L$set$3,LFE1-LFB0
204         .long   L$set$3 ; FDE address range
205         .byte   0x0     ; uleb128 0x0; Augmentation size
206         .byte   0x4     ; DW_CFA_advance_loc4
207         .set    L$set$4,LCFI0-LFB1
208         .long   L$set$4
209         .byte   0xd     ; DW_CFA_def_cfa_register
210         .byte   0x08    ; uleb128 0x08
211         .byte   0x4     ; DW_CFA_advance_loc4
212         .set    L$set$5,LCFI1-LCFI0
213         .long   L$set$5
214         .byte   0x11    ; DW_CFA_offset_extended_sf
215         .byte   0x41    ; uleb128 0x41
216         .byte   0x7e    ; sleb128 -2
217         .byte   0x9f    ; DW_CFA_offset, column 0x1f
218         .byte   0x1     ; uleb128 0x1
219         .byte   0x9e    ; DW_CFA_offset, column 0x1e
220         .byte   0x2     ; uleb128 0x2
221         .byte   0x9d    ; DW_CFA_offset, column 0x1d
222         .byte   0x3     ; uleb128 0x3
223         .byte   0x9c    ; DW_CFA_offset, column 0x1c
224         .byte   0x4     ; uleb128 0x4
225         .byte   0x4     ; DW_CFA_advance_loc4
226         .set    L$set$6,LCFI2-LCFI1
227         .long   L$set$6
228         .byte   0xd     ; DW_CFA_def_cfa_register
229         .byte   0x1c    ; uleb128 0x1c
230         .align 2
231 LEFDE1:
232 .data
233         .align 2
234 LLFB0$non_lazy_ptr:
235         .long   LFB0