← Back to branch summary

~ubuntu-branches/ubuntu/trusty/mozjs24/trusty-proposed

« back to all changes in this revision

Viewing changes to js/src/ctypes/libffi/src/powerpc/aix_closure.S

  • Committer: Package Import Robot
  • Author(s): Tim Lunn
  • Date: 2014-02-11 21:55:34 UTC
  • Revision ID: package-import@ubuntu.com-20140211215534-m1zyq5aj59md3y07
Tags: upstream-24.2.0
Import upstream version 24.2.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
js/src/ctypes/libffi/src/powerpc/aix_closure.S
 
1
/* -----------------------------------------------------------------------
 
2
   aix_closure.S - Copyright (c) 2002, 2003, 2009 Free Software Foundation, Inc.
 
3
   based on darwin_closure.S
 
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
        .set r0,0
 
28
        .set r1,1
 
29
        .set r2,2
 
30
        .set r3,3
 
31
        .set r4,4
 
32
        .set r5,5
 
33
        .set r6,6
 
34
        .set r7,7
 
35
        .set r8,8
 
36
        .set r9,9
 
37
        .set r10,10
 
38
        .set r11,11
 
39
        .set r12,12
 
40
        .set r13,13
 
41
        .set r14,14
 
42
        .set r15,15
 
43
        .set r16,16
 
44
        .set r17,17
 
45
        .set r18,18
 
46
        .set r19,19
 
47
        .set r20,20
 
48
        .set r21,21
 
49
        .set r22,22
 
50
        .set r23,23
 
51
        .set r24,24
 
52
        .set r25,25
 
53
        .set r26,26
 
54
        .set r27,27
 
55
        .set r28,28
 
56
        .set r29,29
 
57
        .set r30,30
 
58
        .set r31,31
 
59
        .set f0,0
 
60
        .set f1,1
 
61
        .set f2,2
 
62
        .set f3,3
 
63
        .set f4,4
 
64
        .set f5,5
 
65
        .set f6,6
 
66
        .set f7,7
 
67
        .set f8,8
 
68
        .set f9,9
 
69
        .set f10,10
 
70
        .set f11,11
 
71
        .set f12,12
 
72
        .set f13,13
 
73
        .set f14,14
 
74
        .set f15,15
 
75
        .set f16,16
 
76
        .set f17,17
 
77
        .set f18,18
 
78
        .set f19,19
 
79
        .set f20,20
 
80
        .set f21,21
 
81
 
 
82
#define LIBFFI_ASM
 
83
#define JUMPTARGET(name) name
 
84
#define L(x) x
 
85
        .file "aix_closure.S"
 
86
        .toc
 
87
LC..60:
 
88
        .tc L..60[TC],L..60
 
89
        .csect .text[PR]
 
90
        .align 2
 
91
 
 
92
.csect .text[PR]
 
93
        .align 2
 
94
        .globl ffi_closure_ASM
 
95
        .globl .ffi_closure_ASM
 
96
.csect ffi_closure_ASM[DS]
 
97
ffi_closure_ASM:
 
98
#ifdef __64BIT__
 
99
        .llong .ffi_closure_ASM, TOC[tc0], 0
 
100
        .csect .text[PR]
 
101
.ffi_closure_ASM:
 
102
/* we want to build up an area for the parameters passed */
 
103
/* in registers (both floating point and integer) */
 
104
 
 
105
        /* we store gpr 3 to gpr 10 (aligned to 4)
 
106
        in the parents outgoing area  */
 
107
        std   r3, 48+(0*8)(r1)
 
108
        std   r4, 48+(1*8)(r1)
 
109
        std   r5, 48+(2*8)(r1)
 
110
        std   r6, 48+(3*8)(r1)
 
111
        mflr  r0
 
112
 
 
113
        std   r7, 48+(4*8)(r1)
 
114
        std   r8, 48+(5*8)(r1)
 
115
        std   r9, 48+(6*8)(r1)
 
116
        std   r10, 48+(7*8)(r1)
 
117
        std   r0, 16(r1)        /* save the return address */
 
118
 
 
119
 
 
120
        /* 48  Bytes (Linkage Area) */
 
121
        /* 64  Bytes (params) */
 
122
        /* 16  Bytes (result) */
 
123
        /* 104 Bytes (13*8 from FPR) */
 
124
        /* 8   Bytes (alignment) */
 
125
        /* 240 Bytes */
 
126
 
 
127
        stdu  r1, -240(r1)      /* skip over caller save area
 
128
                                   keep stack aligned to 16  */
 
129
 
 
130
        /* next save fpr 1 to fpr 13 (aligned to 8) */
 
131
        stfd  f1, 128+(0*8)(r1)
 
132
        stfd  f2, 128+(1*8)(r1)
 
133
        stfd  f3, 128+(2*8)(r1)
 
134
        stfd  f4, 128+(3*8)(r1)
 
135
        stfd  f5, 128+(4*8)(r1)
 
136
        stfd  f6, 128+(5*8)(r1)
 
137
        stfd  f7, 128+(6*8)(r1)
 
138
        stfd  f8, 128+(7*8)(r1)
 
139
        stfd  f9, 128+(8*8)(r1)
 
140
        stfd  f10, 128+(9*8)(r1)
 
141
        stfd  f11, 128+(10*8)(r1)
 
142
        stfd  f12, 128+(11*8)(r1)
 
143
        stfd  f13, 128+(12*8)(r1)
 
144
 
 
145
        /* set up registers for the routine that actually does the work */
 
146
        /* get the context pointer from the trampoline */
 
147
        mr r3, r11
 
148
 
 
149
        /* now load up the pointer to the result storage */
 
150
        addi r4, r1, 112
 
151
 
 
152
        /* now load up the pointer to the saved gpr registers */
 
153
        addi r5, r1, 288
 
154
 
 
155
        /* now load up the pointer to the saved fpr registers */
 
156
        addi r6, r1, 128
 
157
 
 
158
        /* make the call */
 
159
        bl .ffi_closure_helper_DARWIN
 
160
        nop
 
161
 
 
162
        /* now r3 contains the return type */
 
163
        /* so use it to look up in a table */
 
164
        /* so we know how to deal with each type */
 
165
 
 
166
        /* look up the proper starting point in table  */
 
167
        /* by using return type as offset */
 
168
        ld      r4, LC..60(2)   /* get address of jump table */
 
169
        sldi    r3, r3, 4       /* now multiply return type by 16 */
 
170
        ld      r0, 240+16(r1)  /* load return address */
 
171
        add     r3, r3, r4      /* add contents of table to table address */
 
172
        mtctr   r3
 
173
        bctr                    /* jump to it */
 
174
 
 
175
/* Each fragment must be exactly 16 bytes long (4 instructions).
 
176
   Align to 16 byte boundary for cache and dispatch efficiency.  */
 
177
        .align 4
 
178
 
 
179
L..60:
 
180
/* case FFI_TYPE_VOID */
 
181
        mtlr r0
 
182
        addi r1, r1, 240
 
183
        blr
 
184
        nop
 
185
 
 
186
/* case FFI_TYPE_INT */
 
187
        lwa r3, 112+4(r1)
 
188
        mtlr r0
 
189
        addi r1, r1, 240
 
190
        blr
 
191
 
 
192
/* case FFI_TYPE_FLOAT */
 
193
        lfs f1, 112+0(r1)
 
194
        mtlr r0
 
195
        addi r1, r1, 240
 
196
        blr
 
197
 
 
198
/* case FFI_TYPE_DOUBLE */
 
199
        lfd f1, 112+0(r1)
 
200
        mtlr r0
 
201
        addi r1, r1, 240
 
202
        blr
 
203
 
 
204
/* case FFI_TYPE_LONGDOUBLE */
 
205
        lfd f1, 112+0(r1)
 
206
        mtlr r0
 
207
        lfd f2, 112+8(r1)
 
208
        b L..finish
 
209
 
 
210
/* case FFI_TYPE_UINT8 */
 
211
        lbz r3, 112+7(r1)
 
212
        mtlr r0
 
213
        addi r1, r1, 240
 
214
        blr
 
215
 
 
216
/* case FFI_TYPE_SINT8 */
 
217
        lbz r3, 112+7(r1)
 
218
        mtlr r0
 
219
        extsb r3, r3
 
220
        b L..finish
 
221
 
 
222
/* case FFI_TYPE_UINT16 */
 
223
        lhz r3, 112+6(r1)
 
224
        mtlr r0
 
225
L..finish:
 
226
        addi r1, r1, 240
 
227
        blr
 
228
 
 
229
/* case FFI_TYPE_SINT16 */
 
230
        lha r3, 112+6(r1)
 
231
        mtlr r0
 
232
        addi r1, r1, 240
 
233
        blr
 
234
 
 
235
/* case FFI_TYPE_UINT32 */
 
236
        lwz r3, 112+4(r1)
 
237
        mtlr r0
 
238
        addi r1, r1, 240
 
239
        blr
 
240
 
 
241
/* case FFI_TYPE_SINT32 */
 
242
        lwa r3, 112+4(r1)
 
243
        mtlr r0
 
244
        addi r1, r1, 240
 
245
        blr
 
246
 
 
247
/* case FFI_TYPE_UINT64 */
 
248
        ld r3, 112+0(r1)
 
249
        mtlr r0
 
250
        addi r1, r1, 240
 
251
        blr
 
252
 
 
253
/* case FFI_TYPE_SINT64 */
 
254
        ld r3, 112+0(r1)
 
255
        mtlr r0
 
256
        addi r1, r1, 240
 
257
        blr
 
258
 
 
259
/* case FFI_TYPE_STRUCT */
 
260
        mtlr r0
 
261
        addi r1, r1, 240
 
262
        blr
 
263
        nop
 
264
 
 
265
/* case FFI_TYPE_POINTER */
 
266
        ld r3, 112+0(r1)
 
267
        mtlr r0
 
268
        addi r1, r1, 240
 
269
        blr
 
270
 
 
271
#else /* ! __64BIT__ */
 
272
        
 
273
        .long .ffi_closure_ASM, TOC[tc0], 0
 
274
        .csect .text[PR]
 
275
.ffi_closure_ASM:
 
276
/* we want to build up an area for the parameters passed */
 
277
/* in registers (both floating point and integer) */
 
278
 
 
279
        /* we store gpr 3 to gpr 10 (aligned to 4)
 
280
        in the parents outgoing area  */
 
281
        stw   r3, 24+(0*4)(r1)
 
282
        stw   r4, 24+(1*4)(r1)
 
283
        stw   r5, 24+(2*4)(r1)
 
284
        stw   r6, 24+(3*4)(r1)
 
285
        mflr  r0
 
286
 
 
287
        stw   r7, 24+(4*4)(r1)
 
288
        stw   r8, 24+(5*4)(r1)
 
289
        stw   r9, 24+(6*4)(r1)
 
290
        stw   r10, 24+(7*4)(r1)
 
291
        stw   r0, 8(r1)
 
292
 
 
293
        /* 24 Bytes (Linkage Area) */
 
294
        /* 32 Bytes (params) */
 
295
        /* 16  Bytes (result) */
 
296
        /* 104 Bytes (13*8 from FPR) */
 
297
        /* 176 Bytes */
 
298
 
 
299
        stwu  r1, -176(r1)      /* skip over caller save area
 
300
                                   keep stack aligned to 16  */
 
301
 
 
302
        /* next save fpr 1 to fpr 13 (aligned to 8) */
 
303
        stfd  f1, 72+(0*8)(r1)
 
304
        stfd  f2, 72+(1*8)(r1)
 
305
        stfd  f3, 72+(2*8)(r1)
 
306
        stfd  f4, 72+(3*8)(r1)
 
307
        stfd  f5, 72+(4*8)(r1)
 
308
        stfd  f6, 72+(5*8)(r1)
 
309
        stfd  f7, 72+(6*8)(r1)
 
310
        stfd  f8, 72+(7*8)(r1)
 
311
        stfd  f9, 72+(8*8)(r1)
 
312
        stfd  f10, 72+(9*8)(r1)
 
313
        stfd  f11, 72+(10*8)(r1)
 
314
        stfd  f12, 72+(11*8)(r1)
 
315
        stfd  f13, 72+(12*8)(r1)
 
316
 
 
317
        /* set up registers for the routine that actually does the work */
 
318
        /* get the context pointer from the trampoline */
 
319
        mr r3, r11
 
320
 
 
321
        /* now load up the pointer to the result storage */
 
322
        addi r4, r1, 56
 
323
 
 
324
        /* now load up the pointer to the saved gpr registers */
 
325
        addi r5, r1, 200
 
326
 
 
327
        /* now load up the pointer to the saved fpr registers */
 
328
        addi r6, r1, 72
 
329
 
 
330
        /* make the call */
 
331
        bl .ffi_closure_helper_DARWIN
 
332
        nop
 
333
 
 
334
        /* now r3 contains the return type */
 
335
        /* so use it to look up in a table */
 
336
        /* so we know how to deal with each type */
 
337
 
 
338
        /* look up the proper starting point in table  */
 
339
        /* by using return type as offset */
 
340
        lwz     r4, LC..60(2)   /* get address of jump table */
 
341
        slwi    r3, r3, 4       /* now multiply return type by 4 */
 
342
        lwz     r0, 176+8(r1)   /* load return address */
 
343
        add     r3, r3, r4      /* add contents of table to table address */
 
344
        mtctr   r3
 
345
        bctr                    /* jump to it */
 
346
 
 
347
/* Each fragment must be exactly 16 bytes long (4 instructions).
 
348
   Align to 16 byte boundary for cache and dispatch efficiency.  */
 
349
        .align 4
 
350
 
 
351
L..60:
 
352
/* case FFI_TYPE_VOID */
 
353
        mtlr r0
 
354
        addi r1, r1, 176
 
355
        blr
 
356
        nop
 
357
 
 
358
/* case FFI_TYPE_INT */
 
359
        lwz r3, 56+0(r1)
 
360
        mtlr r0
 
361
        addi r1, r1, 176
 
362
        blr
 
363
 
 
364
/* case FFI_TYPE_FLOAT */
 
365
        lfs f1, 56+0(r1)
 
366
        mtlr r0
 
367
        addi r1, r1, 176
 
368
        blr
 
369
 
 
370
/* case FFI_TYPE_DOUBLE */
 
371
        lfd f1, 56+0(r1)
 
372
        mtlr r0
 
373
        addi r1, r1, 176
 
374
        blr
 
375
 
 
376
/* case FFI_TYPE_LONGDOUBLE */
 
377
        lfd f1, 56+0(r1)
 
378
        mtlr r0
 
379
        lfd f2, 56+8(r1)
 
380
        b L..finish
 
381
 
 
382
/* case FFI_TYPE_UINT8 */
 
383
        lbz r3, 56+3(r1)
 
384
        mtlr r0
 
385
        addi r1, r1, 176
 
386
        blr
 
387
 
 
388
/* case FFI_TYPE_SINT8 */
 
389
        lbz r3, 56+3(r1)
 
390
        mtlr r0
 
391
        extsb r3, r3
 
392
        b L..finish
 
393
 
 
394
/* case FFI_TYPE_UINT16 */
 
395
        lhz r3, 56+2(r1)
 
396
        mtlr r0
 
397
        addi r1, r1, 176
 
398
        blr
 
399
 
 
400
/* case FFI_TYPE_SINT16 */
 
401
        lha r3, 56+2(r1)
 
402
        mtlr r0
 
403
        addi r1, r1, 176
 
404
        blr
 
405
 
 
406
/* case FFI_TYPE_UINT32 */
 
407
        lwz r3, 56+0(r1)
 
408
        mtlr r0
 
409
        addi r1, r1, 176
 
410
        blr
 
411
 
 
412
/* case FFI_TYPE_SINT32 */
 
413
        lwz r3, 56+0(r1)
 
414
        mtlr r0
 
415
        addi r1, r1, 176
 
416
        blr
 
417
 
 
418
/* case FFI_TYPE_UINT64 */
 
419
        lwz r3, 56+0(r1)
 
420
        mtlr r0
 
421
        lwz r4, 56+4(r1)
 
422
        b L..finish
 
423
 
 
424
/* case FFI_TYPE_SINT64 */
 
425
        lwz r3, 56+0(r1)
 
426
        mtlr r0
 
427
        lwz r4, 56+4(r1)
 
428
        b L..finish
 
429
 
 
430
/* case FFI_TYPE_STRUCT */
 
431
        mtlr r0
 
432
        addi r1, r1, 176
 
433
        blr
 
434
        nop
 
435
 
 
436
/* case FFI_TYPE_POINTER */
 
437
        lwz r3, 56+0(r1)
 
438
        mtlr r0
 
439
L..finish:
 
440
        addi r1, r1, 176
 
441
        blr
 
442
#endif
 
443
/* END(ffi_closure_ASM) */