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,
18 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
20 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
21 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
22 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
23 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
24 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 beq t6, FFI_TYPE_SINT32, retint
222 bne t6, FFI_TYPE_INT, retfloat
225 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
230 bne t6, FFI_TYPE_FLOAT, retdouble
232 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
237 bne t6, FFI_TYPE_DOUBLE, retstruct_d
239 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
244 bne t6, FFI_TYPE_STRUCT_D, retstruct_f
246 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
251 bne t6, FFI_TYPE_STRUCT_F, retstruct_d_d
253 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
258 bne t6, FFI_TYPE_STRUCT_DD, retstruct_f_f
260 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
266 bne t6, FFI_TYPE_STRUCT_FF, retstruct_d_f
268 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
274 bne t6, FFI_TYPE_STRUCT_DF, retstruct_f_d
276 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
282 bne t6, FFI_TYPE_STRUCT_FD, retstruct_d_soft
284 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
290 bne t6, FFI_TYPE_STRUCT_D_SOFT, retstruct_f_soft
292 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
297 bne t6, FFI_TYPE_STRUCT_F_SOFT, retstruct_d_d_soft
299 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
304 bne t6, FFI_TYPE_STRUCT_DD_SOFT, retstruct_f_f_soft
306 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
312 bne t6, FFI_TYPE_STRUCT_FF_SOFT, retstruct_d_f_soft
314 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
320 bne t6, FFI_TYPE_STRUCT_DF_SOFT, retstruct_f_d_soft
322 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
328 bne t6, FFI_TYPE_STRUCT_FD_SOFT, retstruct_small
330 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
336 bne t6, FFI_TYPE_STRUCT_SMALL, retstruct_small2
338 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
343 bne t6, FFI_TYPE_STRUCT_SMALL2, retstruct
345 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
357 REG_L $fp, SIZEOF_FRAME - 2*FFI_SIZEOF_ARG($sp) # Restore frame pointer
358 REG_L ra, SIZEOF_FRAME - 1*FFI_SIZEOF_ARG($sp) # Restore return address
359 ADDU $sp, SIZEOF_FRAME # Fix stack pointer
365 /* ffi_closure_N32. Expects address of the passed-in ffi_closure in t0
366 ($12). Stores any arguments passed in registers onto the stack,
367 then calls ffi_closure_mips_inner_N32, which then decodes
372 20 - Start of parameters, original sp
373 19 - Called function a7 save
374 18 - Called function a6 save
375 17 - Called function a5 save
376 16 - Called function a4 save
377 15 - Called function a3 save
378 14 - Called function a2 save
379 13 - Called function a1 save
380 12 - Called function a0 save
381 11 - Called function f19
382 10 - Called function f18
383 9 - Called function f17
384 8 - Called function f16
385 7 - Called function f15
386 6 - Called function f14
387 5 - Called function f13
388 4 - Called function f12
389 3 - return value high (v1 or $f2)
390 2 - return value low (v0 or $f0)
392 0 - gp save our sp points here
395 #define SIZEOF_FRAME2 (20 * FFI_SIZEOF_ARG)
397 #define A7_OFF2 (19 * FFI_SIZEOF_ARG)
398 #define A6_OFF2 (18 * FFI_SIZEOF_ARG)
399 #define A5_OFF2 (17 * FFI_SIZEOF_ARG)
400 #define A4_OFF2 (16 * FFI_SIZEOF_ARG)
401 #define A3_OFF2 (15 * FFI_SIZEOF_ARG)
402 #define A2_OFF2 (14 * FFI_SIZEOF_ARG)
403 #define A1_OFF2 (13 * FFI_SIZEOF_ARG)
404 #define A0_OFF2 (12 * FFI_SIZEOF_ARG)
406 #define F19_OFF2 (11 * FFI_SIZEOF_ARG)
407 #define F18_OFF2 (10 * FFI_SIZEOF_ARG)
408 #define F17_OFF2 (9 * FFI_SIZEOF_ARG)
409 #define F16_OFF2 (8 * FFI_SIZEOF_ARG)
410 #define F15_OFF2 (7 * FFI_SIZEOF_ARG)
411 #define F14_OFF2 (6 * FFI_SIZEOF_ARG)
412 #define F13_OFF2 (5 * FFI_SIZEOF_ARG)
413 #define F12_OFF2 (4 * FFI_SIZEOF_ARG)
415 #define V1_OFF2 (3 * FFI_SIZEOF_ARG)
416 #define V0_OFF2 (2 * FFI_SIZEOF_ARG)
418 #define RA_OFF2 (1 * FFI_SIZEOF_ARG)
419 #define GP_OFF2 (0 * FFI_SIZEOF_ARG)
422 .globl ffi_closure_N32
426 .frame $sp, SIZEOF_FRAME2, ra
427 .mask 0x90000000,-(SIZEOF_FRAME2 - RA_OFF2)
429 SUBU $sp, SIZEOF_FRAME2
431 .cpsetup t9, GP_OFF2, ffi_closure_N32
432 REG_S ra, RA_OFF2($sp) # Save return address
434 # Store all possible argument registers. If there are more than
435 # fit in registers, then they were stored on the stack.
436 REG_S a0, A0_OFF2($sp)
437 REG_S a1, A1_OFF2($sp)
438 REG_S a2, A2_OFF2($sp)
439 REG_S a3, A3_OFF2($sp)
440 REG_S a4, A4_OFF2($sp)
441 REG_S a5, A5_OFF2($sp)
442 REG_S a6, A6_OFF2($sp)
443 REG_S a7, A7_OFF2($sp)
445 # Store all possible float/double registers.
446 s.d $f12, F12_OFF2($sp)
447 s.d $f13, F13_OFF2($sp)
448 s.d $f14, F14_OFF2($sp)
449 s.d $f15, F15_OFF2($sp)
450 s.d $f16, F16_OFF2($sp)
451 s.d $f17, F17_OFF2($sp)
452 s.d $f18, F18_OFF2($sp)
453 s.d $f19, F19_OFF2($sp)
455 # Call ffi_closure_mips_inner_N32 to do the real work.
456 LA t9, ffi_closure_mips_inner_N32
457 move a0, $12 # Pointer to the ffi_closure
458 ADDU a1, $sp, V0_OFF2
459 ADDU a2, $sp, A0_OFF2
460 ADDU a3, $sp, F12_OFF2
463 # Return flags are in v0
464 bne v0, FFI_TYPE_SINT32, cls_retint
469 bne v0, FFI_TYPE_INT, cls_retfloat
470 REG_L v0, V0_OFF2($sp)
474 bne v0, FFI_TYPE_FLOAT, cls_retdouble
475 l.s $f0, V0_OFF2($sp)
479 bne v0, FFI_TYPE_DOUBLE, cls_retstruct_d
480 l.d $f0, V0_OFF2($sp)
484 bne v0, FFI_TYPE_STRUCT_D, cls_retstruct_f
485 l.d $f0, V0_OFF2($sp)
489 bne v0, FFI_TYPE_STRUCT_F, cls_retstruct_d_d
490 l.s $f0, V0_OFF2($sp)
494 bne v0, FFI_TYPE_STRUCT_DD, cls_retstruct_f_f
495 l.d $f0, V0_OFF2($sp)
496 l.d $f2, V1_OFF2($sp)
500 bne v0, FFI_TYPE_STRUCT_FF, cls_retstruct_d_f
501 l.s $f0, V0_OFF2($sp)
502 l.s $f2, V1_OFF2($sp)
506 bne v0, FFI_TYPE_STRUCT_DF, cls_retstruct_f_d
507 l.d $f0, V0_OFF2($sp)
508 l.s $f2, V1_OFF2($sp)
512 bne v0, FFI_TYPE_STRUCT_FD, cls_retstruct_small2
513 l.s $f0, V0_OFF2($sp)
514 l.d $f2, V1_OFF2($sp)
517 cls_retstruct_small2:
518 REG_L v0, V0_OFF2($sp)
519 REG_L v1, V1_OFF2($sp)
523 REG_L ra, RA_OFF2($sp) # Restore return address
525 ADDU $sp, SIZEOF_FRAME2
530 .section .eh_frame,"aw",@progbits
532 .4byte .LECIE1-.LSCIE1 # length
535 .byte 0x1 # Version 1
536 .ascii "\000" # Augmentation
537 .uleb128 0x1 # Code alignment 1
538 .sleb128 -4 # Data alignment -4
539 .byte 0x1f # Return Address $31
540 .byte 0xc # DW_CFA_def_cfa
541 .uleb128 0x1d # in $sp
542 .uleb128 0x0 # offset 0
543 .align EH_FRAME_ALIGN
547 .4byte .LEFDE1-.LASFDE1 # length.
549 .4byte .LASFDE1-.Lframe1 # CIE_pointer.
550 FDE_ADDR_BYTES .LFB3 # initial_location.
551 FDE_ADDR_BYTES .LFE3-.LFB3 # address_range.
552 .byte 0x4 # DW_CFA_advance_loc4
553 .4byte .LCFI0-.LFB3 # to .LCFI0
554 .byte 0xe # DW_CFA_def_cfa_offset
555 .uleb128 SIZEOF_FRAME # adjust stack.by SIZEOF_FRAME
556 .byte 0x4 # DW_CFA_advance_loc4
557 .4byte .LCFI1-.LCFI0 # to .LCFI1
558 .byte 0x9e # DW_CFA_offset of $fp
559 .uleb128 2*FFI_SIZEOF_ARG/4 #
560 .byte 0x9f # DW_CFA_offset of ra
561 .uleb128 1*FFI_SIZEOF_ARG/4 #
562 .byte 0x4 # DW_CFA_advance_loc4
563 .4byte .LCFI3-.LCFI1 # to .LCFI3
564 .byte 0xd # DW_CFA_def_cfa_register
565 .uleb128 0x1e # in $fp
566 .align EH_FRAME_ALIGN
569 .4byte .LEFDE3-.LASFDE3 # length
571 .4byte .LASFDE3-.Lframe1 # CIE_pointer.
572 FDE_ADDR_BYTES .LFB2 # initial_location.
573 FDE_ADDR_BYTES .LFE2-.LFB2 # address_range.
574 .byte 0x4 # DW_CFA_advance_loc4
575 .4byte .LCFI5-.LFB2 # to .LCFI5
576 .byte 0xe # DW_CFA_def_cfa_offset
577 .uleb128 SIZEOF_FRAME2 # adjust stack.by SIZEOF_FRAME
578 .byte 0x4 # DW_CFA_advance_loc4
579 .4byte .LCFI6-.LCFI5 # to .LCFI6
580 .byte 0x9c # DW_CFA_offset of $gp ($28)
581 .uleb128 (SIZEOF_FRAME2 - GP_OFF2)/4
582 .byte 0x9f # DW_CFA_offset of ra ($31)
583 .uleb128 (SIZEOF_FRAME2 - RA_OFF2)/4
584 .align EH_FRAME_ALIGN