← Back to branch summary

~ubuntu-branches/ubuntu/trusty/python3.4/trusty-proposed

« back to all changes in this revision

Viewing changes to Modules/_ctypes/libffi/src/powerpc/ppc_closure.S

  • Committer: Package Import Robot
  • Author(s): Matthias Klose
  • Date: 2013-11-25 09:44:27 UTC
  • Revision ID: package-import@ubuntu.com-20131125094427-lzxj8ap5w01lmo7f
Tags: upstream-3.4~b1
Import upstream version 3.4~b1

Show diffs side-by-side

added added

removed removed

Lines of Context:
Modules/_ctypes/libffi/src/powerpc/ppc_closure.S
 
1
/* -----------------------------------------------------------------------
 
2
   sysv.h - Copyright (c) 2003 Jakub Jelinek <jakub@redhat.com>
 
3
            Copyright (c) 2008 Red Hat, 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,
 
19
   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 
20
   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
 
21
   NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
 
22
   HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
 
23
   WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 
24
   OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 
25
   DEALINGS IN THE SOFTWARE.
 
26
   ----------------------------------------------------------------------- */
 
27
#define LIBFFI_ASM
 
28
#include <fficonfig.h>
 
29
#include <ffi.h>
 
30
#include <powerpc/asm.h>
 
31
 
 
32
        .file   "ppc_closure.S"
 
33
 
 
34
#ifndef __powerpc64__
 
35
 
 
36
ENTRY(ffi_closure_SYSV)
 
37
.LFB1:
 
38
        stwu %r1,-144(%r1)
 
39
.LCFI0:
 
40
        mflr %r0
 
41
.LCFI1:
 
42
        stw %r0,148(%r1)
 
43
 
 
44
# we want to build up an areas for the parameters passed
 
45
# in registers (both floating point and integer)
 
46
 
 
47
        # so first save gpr 3 to gpr 10 (aligned to 4)
 
48
        stw   %r3, 16(%r1)
 
49
        stw   %r4, 20(%r1)
 
50
        stw   %r5, 24(%r1)
 
51
        stw   %r6, 28(%r1)
 
52
        stw   %r7, 32(%r1)
 
53
        stw   %r8, 36(%r1)
 
54
        stw   %r9, 40(%r1)
 
55
        stw   %r10,44(%r1)
 
56
 
 
57
#ifndef __NO_FPRS__
 
58
        # next save fpr 1 to fpr 8 (aligned to 8)
 
59
        stfd  %f1, 48(%r1)
 
60
        stfd  %f2, 56(%r1)
 
61
        stfd  %f3, 64(%r1)
 
62
        stfd  %f4, 72(%r1)
 
63
        stfd  %f5, 80(%r1)
 
64
        stfd  %f6, 88(%r1)
 
65
        stfd  %f7, 96(%r1)
 
66
        stfd  %f8, 104(%r1)
 
67
#endif
 
68
 
 
69
        # set up registers for the routine that actually does the work
 
70
        # get the context pointer from the trampoline
 
71
        mr %r3,%r11
 
72
 
 
73
        # now load up the pointer to the result storage
 
74
        addi %r4,%r1,112
 
75
 
 
76
        # now load up the pointer to the saved gpr registers
 
77
        addi %r5,%r1,16
 
78
 
 
79
        # now load up the pointer to the saved fpr registers */
 
80
        addi %r6,%r1,48
 
81
 
 
82
        # now load up the pointer to the outgoing parameter
 
83
        # stack in the previous frame
 
84
        # i.e. the previous frame pointer + 8
 
85
        addi %r7,%r1,152
 
86
 
 
87
        # make the call
 
88
        bl ffi_closure_helper_SYSV@local
 
89
.Lret:
 
90
        # now r3 contains the return type
 
91
        # so use it to look up in a table
 
92
        # so we know how to deal with each type
 
93
 
 
94
        # look up the proper starting point in table
 
95
        # by using return type as offset
 
96
 
 
97
        mflr %r4                # move address of .Lret to r4
 
98
        slwi %r3,%r3,4          # now multiply return type by 16
 
99
        addi %r4, %r4, .Lret_type0 - .Lret
 
100
        lwz %r0,148(%r1)
 
101
        add %r3,%r3,%r4         # add contents of table to table address
 
102
        mtctr %r3
 
103
        bctr                    # jump to it
 
104
.LFE1:
 
105
 
 
106
# Each of the ret_typeX code fragments has to be exactly 16 bytes long
 
107
# (4 instructions). For cache effectiveness we align to a 16 byte boundary
 
108
# first.
 
109
        .align 4
 
110
# case FFI_TYPE_VOID
 
111
.Lret_type0:
 
112
        mtlr %r0
 
113
        addi %r1,%r1,144
 
114
        blr
 
115
        nop
 
116
 
 
117
# case FFI_TYPE_INT
 
118
        lwz %r3,112+0(%r1)
 
119
        mtlr %r0
 
120
.Lfinish:
 
121
        addi %r1,%r1,144
 
122
        blr
 
123
 
 
124
# case FFI_TYPE_FLOAT
 
125
#ifndef __NO_FPRS__
 
126
        lfs %f1,112+0(%r1)
 
127
        mtlr %r0
 
128
        addi %r1,%r1,144
 
129
#else
 
130
        nop
 
131
        nop
 
132
        nop
 
133
#endif
 
134
        blr
 
135
 
 
136
# case FFI_TYPE_DOUBLE
 
137
#ifndef __NO_FPRS__
 
138
        lfd %f1,112+0(%r1)
 
139
        mtlr %r0
 
140
        addi %r1,%r1,144
 
141
#else
 
142
        nop
 
143
        nop
 
144
        nop
 
145
#endif
 
146
        blr
 
147
 
 
148
# case FFI_TYPE_LONGDOUBLE
 
149
#ifndef __NO_FPRS__
 
150
        lfd %f1,112+0(%r1)
 
151
        lfd %f2,112+8(%r1)
 
152
        mtlr %r0
 
153
        b .Lfinish
 
154
#else
 
155
        nop
 
156
        nop
 
157
        nop
 
158
        blr
 
159
#endif
 
160
 
 
161
# case FFI_TYPE_UINT8
 
162
        lbz %r3,112+3(%r1)
 
163
        mtlr %r0
 
164
        addi %r1,%r1,144
 
165
        blr
 
166
 
 
167
# case FFI_TYPE_SINT8
 
168
        lbz %r3,112+3(%r1)
 
169
        extsb %r3,%r3
 
170
        mtlr %r0
 
171
        b .Lfinish
 
172
 
 
173
# case FFI_TYPE_UINT16
 
174
        lhz %r3,112+2(%r1)
 
175
        mtlr %r0
 
176
        addi %r1,%r1,144
 
177
        blr
 
178
 
 
179
# case FFI_TYPE_SINT16
 
180
        lha %r3,112+2(%r1)
 
181
        mtlr %r0
 
182
        addi %r1,%r1,144
 
183
        blr
 
184
 
 
185
# case FFI_TYPE_UINT32
 
186
        lwz %r3,112+0(%r1)
 
187
        mtlr %r0
 
188
        addi %r1,%r1,144
 
189
        blr
 
190
 
 
191
# case FFI_TYPE_SINT32
 
192
        lwz %r3,112+0(%r1)
 
193
        mtlr %r0
 
194
        addi %r1,%r1,144
 
195
        blr
 
196
 
 
197
# case FFI_TYPE_UINT64
 
198
        lwz %r3,112+0(%r1)
 
199
        lwz %r4,112+4(%r1)
 
200
        mtlr %r0
 
201
        b .Lfinish
 
202
 
 
203
# case FFI_TYPE_SINT64
 
204
        lwz %r3,112+0(%r1)
 
205
        lwz %r4,112+4(%r1)
 
206
        mtlr %r0
 
207
        b .Lfinish
 
208
 
 
209
# case FFI_TYPE_STRUCT
 
210
        mtlr %r0
 
211
        addi %r1,%r1,144
 
212
        blr
 
213
        nop
 
214
 
 
215
# case FFI_TYPE_POINTER
 
216
        lwz %r3,112+0(%r1)
 
217
        mtlr %r0
 
218
        addi %r1,%r1,144
 
219
        blr
 
220
 
 
221
# case FFI_TYPE_UINT128
 
222
        lwz %r3,112+0(%r1)
 
223
        lwz %r4,112+4(%r1)
 
224
        lwz %r5,112+8(%r1)
 
225
        bl .Luint128
 
226
 
 
227
# The return types below are only used when the ABI type is FFI_SYSV.
 
228
# case FFI_SYSV_TYPE_SMALL_STRUCT + 1. One byte struct.
 
229
        lbz %r3,112+0(%r1)
 
230
        mtlr %r0
 
231
        addi %r1,%r1,144
 
232
        blr
 
233
 
 
234
# case FFI_SYSV_TYPE_SMALL_STRUCT + 2. Two byte struct.
 
235
        lhz %r3,112+0(%r1)
 
236
        mtlr %r0
 
237
        addi %r1,%r1,144
 
238
        blr
 
239
 
 
240
# case FFI_SYSV_TYPE_SMALL_STRUCT + 3. Three byte struct.
 
241
        lwz %r3,112+0(%r1)
 
242
        srwi %r3,%r3,8
 
243
        mtlr %r0
 
244
        b .Lfinish
 
245
 
 
246
# case FFI_SYSV_TYPE_SMALL_STRUCT + 4. Four byte struct.
 
247
        lwz %r3,112+0(%r1)
 
248
        mtlr %r0
 
249
        addi %r1,%r1,144
 
250
        blr
 
251
 
 
252
# case FFI_SYSV_TYPE_SMALL_STRUCT + 5. Five byte struct.
 
253
        lwz %r3,112+0(%r1)
 
254
        lwz %r4,112+4(%r1)
 
255
        li %r5,24
 
256
        b .Lstruct567
 
257
 
 
258
# case FFI_SYSV_TYPE_SMALL_STRUCT + 6. Six byte struct.
 
259
        lwz %r3,112+0(%r1)
 
260
        lwz %r4,112+4(%r1)
 
261
        li %r5,16
 
262
        b .Lstruct567
 
263
 
 
264
# case FFI_SYSV_TYPE_SMALL_STRUCT + 7. Seven byte struct.
 
265
        lwz %r3,112+0(%r1)
 
266
        lwz %r4,112+4(%r1)
 
267
        li %r5,8
 
268
        b .Lstruct567
 
269
 
 
270
# case FFI_SYSV_TYPE_SMALL_STRUCT + 8. Eight byte struct.
 
271
        lwz %r3,112+0(%r1)
 
272
        lwz %r4,112+4(%r1)
 
273
        mtlr %r0
 
274
        b .Lfinish
 
275
 
 
276
.Lstruct567:
 
277
        subfic %r6,%r5,32
 
278
        srw %r4,%r4,%r5
 
279
        slw %r6,%r3,%r6
 
280
        srw %r3,%r3,%r5
 
281
        or %r4,%r6,%r4
 
282
        mtlr %r0
 
283
        addi %r1,%r1,144
 
284
        blr
 
285
 
 
286
.Luint128:
 
287
        lwz %r6,112+12(%r1)
 
288
        mtlr %r0
 
289
        addi %r1,%r1,144
 
290
        blr
 
291
 
 
292
END(ffi_closure_SYSV)
 
293
 
 
294
        .section        ".eh_frame",EH_FRAME_FLAGS,@progbits
 
295
.Lframe1:
 
296
        .4byte  .LECIE1-.LSCIE1  # Length of Common Information Entry
 
297
.LSCIE1:
 
298
        .4byte  0x0      # CIE Identifier Tag
 
299
        .byte   0x1      # CIE Version
 
300
#if defined _RELOCATABLE || defined __PIC__
 
301
        .ascii "zR\0"    # CIE Augmentation
 
302
#else
 
303
        .ascii "\0"      # CIE Augmentation
 
304
#endif
 
305
        .uleb128 0x1     # CIE Code Alignment Factor
 
306
        .sleb128 -4      # CIE Data Alignment Factor
 
307
        .byte   0x41     # CIE RA Column
 
308
#if defined _RELOCATABLE || defined __PIC__
 
309
        .uleb128 0x1     # Augmentation size
 
310
        .byte   0x1b     # FDE Encoding (pcrel sdata4)
 
311
#endif
 
312
        .byte   0xc      # DW_CFA_def_cfa
 
313
        .uleb128 0x1
 
314
        .uleb128 0x0
 
315
        .align 2
 
316
.LECIE1:
 
317
.LSFDE1:
 
318
        .4byte  .LEFDE1-.LASFDE1         # FDE Length
 
319
.LASFDE1:
 
320
        .4byte  .LASFDE1-.Lframe1        # FDE CIE offset
 
321
#if defined _RELOCATABLE || defined __PIC__
 
322
        .4byte  .LFB1-.  # FDE initial location
 
323
#else
 
324
        .4byte  .LFB1    # FDE initial location
 
325
#endif
 
326
        .4byte  .LFE1-.LFB1      # FDE address range
 
327
#if defined _RELOCATABLE || defined __PIC__
 
328
        .uleb128 0x0     # Augmentation size
 
329
#endif
 
330
        .byte   0x4      # DW_CFA_advance_loc4
 
331
        .4byte  .LCFI0-.LFB1
 
332
        .byte   0xe      # DW_CFA_def_cfa_offset
 
333
        .uleb128 144
 
334
        .byte   0x4      # DW_CFA_advance_loc4
 
335
        .4byte  .LCFI1-.LCFI0
 
336
        .byte   0x11     # DW_CFA_offset_extended_sf
 
337
        .uleb128 0x41
 
338
        .sleb128 -1
 
339
        .align 2
 
340
.LEFDE1:
 
341
 
 
342
#endif
 
343
 
 
344
#if defined __ELF__ && defined __linux__
 
345
        .section        .note.GNU-stack,"",@progbits
 
346
#endif