← 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/avr32/sysv.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/avr32/sysv.S
 
1
/* -----------------------------------------------------------------------
 
2
   sysv.S - Copyright (c) 2009  Bradley Smith <brad@brad-smith.co.uk>
 
3
 
 
4
   AVR32 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 NONINFRINGEMENT.
 
20
   IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 
21
   CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 
22
   TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 
23
   SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
24
   --------------------------------------------------------------------- */
 
25
 
 
26
#define LIBFFI_ASM
 
27
#include <fficonfig.h>
 
28
#include <ffi.h>
 
29
 
 
30
    /* r12:  ffi_prep_args
 
31
     * r11:  &ecif
 
32
     * r10:  size
 
33
     * r9:   cif->flags
 
34
     * r8:   ecif.rvalue
 
35
     * sp+0: cif->rstruct_flag
 
36
     * sp+4: fn */
 
37
 
 
38
    .text
 
39
    .align  1
 
40
    .globl  ffi_call_SYSV
 
41
    .type   ffi_call_SYSV, @function
 
42
ffi_call_SYSV:
 
43
    stm     --sp, r0,r1,lr
 
44
    stm     --sp, r8-r12
 
45
    mov     r0, sp
 
46
 
 
47
    /* Make room for all of the new args. */
 
48
    sub     sp, r10
 
49
    /* Pad to make way for potential skipped registers */
 
50
    sub     sp, 20
 
51
 
 
52
    /* Call ffi_prep_args(stack, &ecif). */
 
53
    /* r11 already set */
 
54
    mov     r1, r12
 
55
    mov     r12, sp
 
56
    icall   r1
 
57
 
 
58
    /* Save new argument size */
 
59
    mov     r1, r12
 
60
 
 
61
    /* Move first 5 parameters in registers. */
 
62
    ldm     sp++, r8-r12
 
63
 
 
64
    /* call (fn) (...). */
 
65
    ld.w    r1, r0[36]
 
66
    icall   r1
 
67
 
 
68
    /* Remove the space we pushed for the args. */
 
69
    mov     sp, r0
 
70
 
 
71
    /* Load r1 with the rstruct flag. */
 
72
    ld.w    r1, sp[32]
 
73
 
 
74
    /* Load r9 with the return type code. */
 
75
    ld.w    r9, sp[12]
 
76
 
 
77
    /* Load r8 with the return value pointer. */
 
78
    ld.w    r8, sp[16]
 
79
 
 
80
    /* If the return value pointer is NULL, assume no return value. */
 
81
    cp.w    r8, 0
 
82
    breq    .Lend
 
83
 
 
84
    /* Check if return type is actually a struct */
 
85
    cp.w    r1, 0
 
86
    breq    1f
 
87
 
 
88
    /* Return 8bit */
 
89
    cp.w    r9, FFI_TYPE_UINT8
 
90
    breq    .Lstore8
 
91
 
 
92
    /* Return 16bit */
 
93
    cp.w    r9, FFI_TYPE_UINT16
 
94
    breq    .Lstore16
 
95
 
 
96
1:
 
97
    /* Return 32bit */
 
98
    cp.w    r9, FFI_TYPE_UINT32
 
99
    breq    .Lstore32
 
100
    cp.w    r9, FFI_TYPE_UINT16
 
101
    breq    .Lstore32
 
102
    cp.w    r9, FFI_TYPE_UINT8
 
103
    breq    .Lstore32
 
104
 
 
105
    /* Return 64bit */
 
106
    cp.w    r9, FFI_TYPE_UINT64
 
107
    breq    .Lstore64
 
108
 
 
109
    /* Didn't match anything */
 
110
    bral    .Lend
 
111
 
 
112
.Lstore64:
 
113
    st.w    r8[0], r11
 
114
    st.w    r8[4], r10
 
115
    bral    .Lend
 
116
 
 
117
.Lstore32:
 
118
    st.w    r8[0], r12
 
119
    bral    .Lend
 
120
 
 
121
.Lstore16:
 
122
    st.h    r8[0], r12
 
123
    bral    .Lend
 
124
 
 
125
.Lstore8:
 
126
    st.b    r8[0], r12
 
127
    bral    .Lend
 
128
 
 
129
.Lend:
 
130
    sub     sp, -20
 
131
    ldm     sp++, r0,r1,pc
 
132
 
 
133
    .size   ffi_call_SYSV, . - ffi_call_SYSV
 
134
 
 
135
 
 
136
    /* r12:  __ctx
 
137
     * r11:  __rstruct_flag
 
138
     * r10:  __inner */
 
139
 
 
140
    .align  1
 
141
    .globl  ffi_closure_SYSV
 
142
    .type   ffi_closure_SYSV, @function
 
143
ffi_closure_SYSV:
 
144
    stm     --sp, r0,lr
 
145
    mov     r0, r11
 
146
    mov     r8, r10
 
147
    sub     r10, sp, -8
 
148
    sub     sp, 12
 
149
    st.w    sp[8], sp
 
150
    sub     r11, sp, -8
 
151
    icall   r8
 
152
 
 
153
    /* Check if return type is actually a struct */
 
154
    cp.w    r0, 0
 
155
    breq    1f
 
156
 
 
157
    /* Return 8bit */
 
158
    cp.w    r12, FFI_TYPE_UINT8
 
159
    breq    .Lget8
 
160
 
 
161
    /* Return 16bit */
 
162
    cp.w    r12, FFI_TYPE_UINT16
 
163
    breq    .Lget16
 
164
 
 
165
1:
 
166
    /* Return 32bit */
 
167
    cp.w    r12, FFI_TYPE_UINT32
 
168
    breq    .Lget32
 
169
    cp.w    r12, FFI_TYPE_UINT16
 
170
    breq    .Lget32
 
171
    cp.w    r12, FFI_TYPE_UINT8
 
172
    breq    .Lget32
 
173
 
 
174
    /* Return 64bit */
 
175
    cp.w    r12, FFI_TYPE_UINT64
 
176
    breq    .Lget64
 
177
 
 
178
    /* Didn't match anything */
 
179
    bral    .Lclend
 
180
 
 
181
.Lget64:
 
182
    ld.w    r11, sp[0]
 
183
    ld.w    r10, sp[4]
 
184
    bral    .Lclend
 
185
 
 
186
.Lget32:
 
187
    ld.w    r12, sp[0]
 
188
    bral    .Lclend
 
189
 
 
190
.Lget16:
 
191
    ld.uh   r12, sp[0]
 
192
    bral    .Lclend
 
193
 
 
194
.Lget8:
 
195
    ld.ub   r12, sp[0]
 
196
    bral    .Lclend
 
197
 
 
198
.Lclend:
 
199
    sub     sp, -12
 
200
    ldm     sp++, r0,lr
 
201
    sub     sp, -20
 
202
    mov     pc, lr
 
203
 
 
204
    .size   ffi_closure_SYSV, . - ffi_closure_SYSV
 
205
 
 
206
#if defined __ELF__ && defined __linux__
 
207
    .section    .note.GNU-stack,"",@progbits
 
208
#endif