1
/* -----------------------------------------------------------------------
2
n32.S - Copyright (c) 1996, 1998, 2005 Red Hat, Inc.
4
MIPS Foreign Function Interface
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:
14
The above copyright notice and this permission notice shall be included
15
in all copies or substantial portions of the Software.
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 THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
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
----------------------------------------------------------------------- */
28
#include <fficonfig.h>
31
/* Only build this code if we are compiling for n32 */
33
#if defined(FFI_MIPS_N32)
41
#define SIZEOF_FRAME ( 8 * FFI_SIZEOF_ARG )
50
.frame $fp, SIZEOF_FRAME, ra
51
.mask 0xc0000000,-FFI_SIZEOF_ARG
55
SUBU $sp, SIZEOF_FRAME # Frame size
57
REG_S $fp, SIZEOF_FRAME - 2*FFI_SIZEOF_ARG($sp) # Save frame pointer
58
REG_S ra, SIZEOF_FRAME - 1*FFI_SIZEOF_ARG($sp) # Save return address
62
move t9, callback # callback function pointer
63
REG_S bytes, 2*FFI_SIZEOF_ARG($fp) # bytes
64
REG_S flags, 3*FFI_SIZEOF_ARG($fp) # flags
65
REG_S raddr, 4*FFI_SIZEOF_ARG($fp) # raddr
66
REG_S fn, 5*FFI_SIZEOF_ARG($fp) # fn
68
# Allocate at least 4 words in the argstack
70
bge bytes, 4 * FFI_SIZEOF_ARG, bigger
71
LI v0, 4 * FFI_SIZEOF_ARG
75
ADDU t4, v0, 2 * FFI_SIZEOF_ARG -1 # make sure it is aligned
76
and v0, t4, -2 * FFI_SIZEOF_ARG # to a proper boundry.
79
SUBU $sp, $sp, v0 # move the stack pointer to reflect the
82
move a0, $sp # 4 * FFI_SIZEOF_ARG
83
ADDU a3, $fp, 3 * FFI_SIZEOF_ARG
88
# Copy the stack pointer to t9
91
# Fix the stack if there are more than 8 64bit slots worth
94
# Load the number of bytes
95
REG_L t6, 2*FFI_SIZEOF_ARG($fp)
97
# Is it bigger than 8 * FFI_SIZEOF_ARG?
98
daddiu t8, t6, -(8 * FFI_SIZEOF_ARG)
105
REG_L t6, 3*FFI_SIZEOF_ARG($fp) # load the flags word into t6.
107
and t4, t6, ((1<<FFI_FLAG_BITS)-1)
109
REG_L a0, 0*FFI_SIZEOF_ARG(t9)
112
bne t4, FFI_TYPE_FLOAT, arg1_doublep
113
l.s $f12, 0*FFI_SIZEOF_ARG(t9)
116
l.d $f12, 0*FFI_SIZEOF_ARG(t9)
119
SRL t4, t6, 1*FFI_FLAG_BITS
120
and t4, ((1<<FFI_FLAG_BITS)-1)
122
REG_L a1, 1*FFI_SIZEOF_ARG(t9)
125
bne t4, FFI_TYPE_FLOAT, arg2_doublep
126
l.s $f13, 1*FFI_SIZEOF_ARG(t9)
129
l.d $f13, 1*FFI_SIZEOF_ARG(t9)
132
SRL t4, t6, 2*FFI_FLAG_BITS
133
and t4, ((1<<FFI_FLAG_BITS)-1)
135
REG_L a2, 2*FFI_SIZEOF_ARG(t9)
138
bne t4, FFI_TYPE_FLOAT, arg3_doublep
139
l.s $f14, 2*FFI_SIZEOF_ARG(t9)
142
l.d $f14, 2*FFI_SIZEOF_ARG(t9)
145
SRL t4, t6, 3*FFI_FLAG_BITS
146
and t4, ((1<<FFI_FLAG_BITS)-1)
148
REG_L a3, 3*FFI_SIZEOF_ARG(t9)
151
bne t4, FFI_TYPE_FLOAT, arg4_doublep
152
l.s $f15, 3*FFI_SIZEOF_ARG(t9)
155
l.d $f15, 3*FFI_SIZEOF_ARG(t9)
158
SRL t4, t6, 4*FFI_FLAG_BITS
159
and t4, ((1<<FFI_FLAG_BITS)-1)
161
REG_L a4, 4*FFI_SIZEOF_ARG(t9)
164
bne t4, FFI_TYPE_FLOAT, arg5_doublep
165
l.s $f16, 4*FFI_SIZEOF_ARG(t9)
168
l.d $f16, 4*FFI_SIZEOF_ARG(t9)
171
SRL t4, t6, 5*FFI_FLAG_BITS
172
and t4, ((1<<FFI_FLAG_BITS)-1)
174
REG_L a5, 5*FFI_SIZEOF_ARG(t9)
177
bne t4, FFI_TYPE_FLOAT, arg6_doublep
178
l.s $f17, 5*FFI_SIZEOF_ARG(t9)
181
l.d $f17, 5*FFI_SIZEOF_ARG(t9)
184
SRL t4, t6, 6*FFI_FLAG_BITS
185
and t4, ((1<<FFI_FLAG_BITS)-1)
187
REG_L a6, 6*FFI_SIZEOF_ARG(t9)
190
bne t4, FFI_TYPE_FLOAT, arg7_doublep
191
l.s $f18, 6*FFI_SIZEOF_ARG(t9)
194
l.d $f18, 6*FFI_SIZEOF_ARG(t9)
197
SRL t4, t6, 7*FFI_FLAG_BITS
198
and t4, ((1<<FFI_FLAG_BITS)-1)
200
REG_L a7, 7*FFI_SIZEOF_ARG(t9)
203
bne t4, FFI_TYPE_FLOAT, arg8_doublep
204
l.s $f19, 7*FFI_SIZEOF_ARG(t9)
207
l.d $f19, 7*FFI_SIZEOF_ARG(t9)
211
# Load the function pointer
212
REG_L t9, 5*FFI_SIZEOF_ARG($fp)
214
# If the return value pointer is NULL, assume no return value.
215
REG_L t5, 4*FFI_SIZEOF_ARG($fp)
218
# Shift the return type flag over
219
SRL t6, 8*FFI_FLAG_BITS
221
bne t6, FFI_TYPE_INT, retfloat
223
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
228
bne t6, FFI_TYPE_FLOAT, retdouble
230
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
235
bne t6, FFI_TYPE_DOUBLE, retstruct_d
237
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
242
bne t6, FFI_TYPE_STRUCT_D, retstruct_f
244
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
249
bne t6, FFI_TYPE_STRUCT_F, retstruct_d_d
251
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
256
bne t6, FFI_TYPE_STRUCT_DD, retstruct_f_f
258
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
264
bne t6, FFI_TYPE_STRUCT_FF, retstruct_d_f
266
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
272
bne t6, FFI_TYPE_STRUCT_DF, retstruct_f_d
274
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
280
bne t6, FFI_TYPE_STRUCT_FD, retstruct_small
282
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
288
bne t6, FFI_TYPE_STRUCT_SMALL, retstruct_small2
290
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
295
bne t6, FFI_TYPE_STRUCT_SMALL2, retstruct
297
REG_L t4, 4*FFI_SIZEOF_ARG($fp)
309
REG_L $fp, SIZEOF_FRAME - 2*FFI_SIZEOF_ARG($sp) # Restore frame pointer
310
REG_L ra, SIZEOF_FRAME - 1*FFI_SIZEOF_ARG($sp) # Restore return address
311
ADDU $sp, SIZEOF_FRAME # Fix stack pointer
317
/* ffi_closure_N32. Expects address of the passed-in ffi_closure in t0
318
($12). Stores any arguments passed in registers onto the stack,
319
then calls ffi_closure_mips_inner_N32, which then decodes
324
20 - Start of parameters, original sp
325
19 - Called function a7 save
326
18 - Called function a6 save
327
17 - Called function a5 save
328
16 - Called function a4 save
329
15 - Called function a3 save
330
14 - Called function a2 save
331
13 - Called function a1 save
332
12 - Called function a0 save
333
11 - Called function f19
334
10 - Called function f18
335
9 - Called function f17
336
8 - Called function f16
337
7 - Called function f15
338
6 - Called function f14
339
5 - Called function f13
340
4 - Called function f12
341
3 - return value high (v1 or $f2)
342
2 - return value low (v0 or $f0)
344
0 - gp save our sp points here
347
#define SIZEOF_FRAME2 (20 * FFI_SIZEOF_ARG)
349
#define A7_OFF2 (19 * FFI_SIZEOF_ARG)
350
#define A6_OFF2 (18 * FFI_SIZEOF_ARG)
351
#define A5_OFF2 (17 * FFI_SIZEOF_ARG)
352
#define A4_OFF2 (16 * FFI_SIZEOF_ARG)
353
#define A3_OFF2 (15 * FFI_SIZEOF_ARG)
354
#define A2_OFF2 (14 * FFI_SIZEOF_ARG)
355
#define A1_OFF2 (13 * FFI_SIZEOF_ARG)
356
#define A0_OFF2 (12 * FFI_SIZEOF_ARG)
358
#define F19_OFF2 (11 * FFI_SIZEOF_ARG)
359
#define F18_OFF2 (10 * FFI_SIZEOF_ARG)
360
#define F17_OFF2 (9 * FFI_SIZEOF_ARG)
361
#define F16_OFF2 (8 * FFI_SIZEOF_ARG)
362
#define F15_OFF2 (7 * FFI_SIZEOF_ARG)
363
#define F14_OFF2 (6 * FFI_SIZEOF_ARG)
364
#define F13_OFF2 (5 * FFI_SIZEOF_ARG)
365
#define F12_OFF2 (4 * FFI_SIZEOF_ARG)
367
#define V1_OFF2 (3 * FFI_SIZEOF_ARG)
368
#define V0_OFF2 (2 * FFI_SIZEOF_ARG)
370
#define RA_OFF2 (1 * FFI_SIZEOF_ARG)
371
#define GP_OFF2 (0 * FFI_SIZEOF_ARG)
374
.globl ffi_closure_N32
378
.frame $sp, SIZEOF_FRAME2, ra
379
.mask 0x90000000,-(SIZEOF_FRAME2 - RA_OFF2)
381
SUBU $sp, SIZEOF_FRAME2
383
.cpsetup t9, GP_OFF2, ffi_closure_N32
384
REG_S ra, RA_OFF2($sp) # Save return address
386
# Store all possible argument registers. If there are more than
387
# fit in registers, then they were stored on the stack.
388
REG_S a0, A0_OFF2($sp)
389
REG_S a1, A1_OFF2($sp)
390
REG_S a2, A2_OFF2($sp)
391
REG_S a3, A3_OFF2($sp)
392
REG_S a4, A4_OFF2($sp)
393
REG_S a5, A5_OFF2($sp)
394
REG_S a6, A6_OFF2($sp)
395
REG_S a7, A7_OFF2($sp)
397
# Store all possible float/double registers.
398
s.d $f12, F12_OFF2($sp)
399
s.d $f13, F13_OFF2($sp)
400
s.d $f14, F14_OFF2($sp)
401
s.d $f15, F15_OFF2($sp)
402
s.d $f16, F16_OFF2($sp)
403
s.d $f17, F17_OFF2($sp)
404
s.d $f18, F18_OFF2($sp)
405
s.d $f19, F19_OFF2($sp)
407
# Call ffi_closure_mips_inner_N32 to do the real work.
408
LA t9, ffi_closure_mips_inner_N32
409
move a0, $12 # Pointer to the ffi_closure
410
ADDU a1, $sp, V0_OFF2
411
ADDU a2, $sp, A0_OFF2
412
ADDU a3, $sp, F12_OFF2
415
# Return flags are in v0
416
bne v0, FFI_TYPE_INT, cls_retfloat
417
REG_L v0, V0_OFF2($sp)
421
bne v0, FFI_TYPE_FLOAT, cls_retdouble
422
l.s $f0, V0_OFF2($sp)
426
bne v0, FFI_TYPE_DOUBLE, cls_retstruct_d
427
l.d $f0, V0_OFF2($sp)
431
bne v0, FFI_TYPE_STRUCT_D, cls_retstruct_f
432
l.d $f0, V0_OFF2($sp)
436
bne v0, FFI_TYPE_STRUCT_F, cls_retstruct_d_d
437
l.s $f0, V0_OFF2($sp)
441
bne v0, FFI_TYPE_STRUCT_DD, cls_retstruct_f_f
442
l.d $f0, V0_OFF2($sp)
443
l.d $f2, V1_OFF2($sp)
447
bne v0, FFI_TYPE_STRUCT_FF, cls_retstruct_d_f
448
l.s $f0, V0_OFF2($sp)
449
l.s $f2, V1_OFF2($sp)
453
bne v0, FFI_TYPE_STRUCT_DF, cls_retstruct_f_d
454
l.d $f0, V0_OFF2($sp)
455
l.s $f2, V1_OFF2($sp)
459
bne v0, FFI_TYPE_STRUCT_FD, cls_retstruct_small2
460
l.s $f0, V0_OFF2($sp)
461
l.d $f2, V1_OFF2($sp)
464
cls_retstruct_small2:
465
REG_L v0, V0_OFF2($sp)
466
REG_L v1, V1_OFF2($sp)
470
REG_L ra, RA_OFF2($sp) # Restore return address
472
ADDU $sp, SIZEOF_FRAME2
477
.section .eh_frame,"aw",@progbits
479
.4byte .LECIE1-.LSCIE1 # length
482
.byte 0x1 # Version 1
483
.ascii "\000" # Augmentation
484
.uleb128 0x1 # Code alignment 1
485
.sleb128 -4 # Data alignment -4
486
.byte 0x1f # Return Address $31
487
.byte 0xc # DW_CFA_def_cfa
488
.uleb128 0x1d # in $sp
489
.uleb128 0x0 # offset 0
490
.align EH_FRAME_ALIGN
494
.4byte .LEFDE1-.LASFDE1 # length.
496
.4byte .LASFDE1-.Lframe1 # CIE_pointer.
497
FDE_ADDR_BYTES .LFB3 # initial_location.
498
FDE_ADDR_BYTES .LFE3-.LFB3 # address_range.
499
.byte 0x4 # DW_CFA_advance_loc4
500
.4byte .LCFI0-.LFB3 # to .LCFI0
501
.byte 0xe # DW_CFA_def_cfa_offset
502
.uleb128 SIZEOF_FRAME # adjust stack.by SIZEOF_FRAME
503
.byte 0x4 # DW_CFA_advance_loc4
504
.4byte .LCFI1-.LCFI0 # to .LCFI1
505
.byte 0x9e # DW_CFA_offset of $fp
506
.uleb128 2*FFI_SIZEOF_ARG/4 #
507
.byte 0x9f # DW_CFA_offset of ra
508
.uleb128 1*FFI_SIZEOF_ARG/4 #
509
.byte 0x4 # DW_CFA_advance_loc4
510
.4byte .LCFI3-.LCFI1 # to .LCFI3
511
.byte 0xd # DW_CFA_def_cfa_register
512
.uleb128 0x1e # in $fp
513
.align EH_FRAME_ALIGN
516
.4byte .LEFDE3-.LASFDE3 # length
518
.4byte .LASFDE3-.Lframe1 # CIE_pointer.
519
FDE_ADDR_BYTES .LFB2 # initial_location.
520
FDE_ADDR_BYTES .LFE2-.LFB2 # address_range.
521
.byte 0x4 # DW_CFA_advance_loc4
522
.4byte .LCFI5-.LFB2 # to .LCFI5
523
.byte 0xe # DW_CFA_def_cfa_offset
524
.uleb128 SIZEOF_FRAME2 # adjust stack.by SIZEOF_FRAME
525
.byte 0x4 # DW_CFA_advance_loc4
526
.4byte .LCFI6-.LCFI5 # to .LCFI6
527
.byte 0x9c # DW_CFA_offset of $gp ($28)
528
.uleb128 (SIZEOF_FRAME2 - GP_OFF2)/4
529
.byte 0x9f # DW_CFA_offset of ra ($31)
530
.uleb128 (SIZEOF_FRAME2 - RA_OFF2)/4
531
.align EH_FRAME_ALIGN