1 /* -----------------------------------------------------------------------
2 n32.S - Copyright (c) 1996, 1998, 2005, 2007, 2009, 2010 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 )
53 .frame $fp, SIZEOF_FRAME, ra
54 .mask 0xc0000000,-FFI_SIZEOF_ARG
58 SUBU $sp, SIZEOF_FRAME # Frame size
60 REG_S $fp, SIZEOF_FRAME - 2*FFI_SIZEOF_ARG($sp) # Save frame pointer
61 REG_S ra, SIZEOF_FRAME - 1*FFI_SIZEOF_ARG($sp) # Save return address
65 move t9, callback # callback function pointer
66 REG_S bytes, 2*FFI_SIZEOF_ARG($fp) # bytes
67 REG_S flags, 3*FFI_SIZEOF_ARG($fp) # flags
68 REG_S raddr, 4*FFI_SIZEOF_ARG($fp) # raddr
69 REG_S fn, 5*FFI_SIZEOF_ARG($fp) # fn
71 # Allocate at least 4 words in the argstack
73 bge bytes, 4 * FFI_SIZEOF_ARG, bigger
74 LI v0, 4 * FFI_SIZEOF_ARG
78 ADDU t4, v0, 2 * FFI_SIZEOF_ARG -1 # make sure it is aligned
79 and v0, t4, -2 * FFI_SIZEOF_ARG # to a proper boundry.
82 SUBU $sp, $sp, v0 # move the stack pointer to reflect the
85 move a0, $sp # 4 * FFI_SIZEOF_ARG
86 ADDU a3, $fp, 3 * FFI_SIZEOF_ARG
91 # Copy the stack pointer to t9
94 # Fix the stack if there are more than 8 64bit slots worth
97 # Load the number of bytes
98 REG_L t6, 2*FFI_SIZEOF_ARG($fp)
100 # Is it bigger than 8 * FFI_SIZEOF_ARG?
101 daddiu t8, t6, -(8 * FFI_SIZEOF_ARG)
108 REG_L t6, 3*FFI_SIZEOF_ARG($fp) # load the flags word into t6.
110 and t4, t6, ((1<<FFI_FLAG_BITS)-1)
111 REG_L a0, 0*FFI_SIZEOF_ARG(t9)
113 bne t4, FFI_TYPE_FLOAT, arg1_doublep
114 l.s $f12, 0*FFI_SIZEOF_ARG(t9)
117 l.d $f12, 0*FFI_SIZEOF_ARG(t9)
120 SRL t4, t6, 1*FFI_FLAG_BITS
121 and t4, ((1<<FFI_FLAG_BITS)-1)
122 REG_L a1, 1*FFI_SIZEOF_ARG(t9)
124 bne t4, FFI_TYPE_FLOAT, arg2_doublep
125 l.s $f13, 1*FFI_SIZEOF_ARG(t9)
128 l.d $f13, 1*FFI_SIZEOF_ARG(t9)
131 SRL t4, t6, 2*FFI_FLAG_BITS
132 and t4, ((1<<FFI_FLAG_BITS)-1)
133 REG_L a2, 2*FFI_SIZEOF_ARG(t9)
135 bne t4, FFI_TYPE_FLOAT, arg3_doublep
136 l.s $f14, 2*FFI_SIZEOF_ARG(t9)
139 l.d $f14, 2*FFI_SIZEOF_ARG(t9)
142 SRL t4, t6, 3*FFI_FLAG_BITS
143 and t4, ((1<<FFI_FLAG_BITS)-1)
144 REG_L a3, 3*FFI_SIZEOF_ARG(t9)
146 bne t4, FFI_TYPE_FLOAT, arg4_doublep
147 l.s $f15, 3*FFI_SIZEOF_ARG(t9)
150 l.d $f15, 3*FFI_SIZEOF_ARG(t9)
153 SRL t4, t6, 4*FFI_FLAG_BITS
154 and t4, ((1<<FFI_FLAG_BITS)-1)
155 REG_L a4, 4*FFI_SIZEOF_ARG(t9)
157 bne t4, FFI_TYPE_FLOAT, arg5_doublep
158 l.s $f16, 4*FFI_SIZEOF_ARG(t9)
161 l.d $f16, 4*FFI_SIZEOF_ARG(t9)
164 SRL t4, t6, 5*FFI_FLAG_BITS
165 and t4, ((1<<FFI_FLAG_BITS)-1)
166 REG_L a5, 5*FFI_SIZEOF_ARG(t9)
168 bne t4, FFI_TYPE_FLOAT, arg6_doublep
169 l.s $f17, 5*FFI_SIZEOF_ARG(t9)
172 l.d $f17, 5*FFI_SIZEOF_ARG(t9)
175 SRL t4, t6, 6*FFI_FLAG_BITS
176 and t4, ((1<<FFI_FLAG_BITS)-1)
177 REG_L a6, 6*FFI_SIZEOF_ARG(t9)
179 bne t4, FFI_TYPE_FLOAT, arg7_doublep
180 l.s $f18, 6*FFI_SIZEOF_ARG(t9)
183 l.d $f18, 6*FFI_SIZEOF_ARG(t9)
186 SRL t4, t6, 7*FFI_FLAG_BITS
187 and t4, ((1<<FFI_FLAG_BITS)-1)
188 REG_L a7, 7*FFI_SIZEOF_ARG(t9)
190 bne t4, FFI_TYPE_FLOAT, arg8_doublep
191 l.s $f19, 7*FFI_SIZEOF_ARG(t9)
194 l.d $f19, 7*FFI_SIZEOF_ARG(t9)
198 # Load the function pointer
199 REG_L t9, 5*FFI_SIZEOF_ARG($fp)
201 # If the return value pointer is NULL, assume no return value.
202 REG_L t5, 4*FFI_SIZEOF_ARG($fp)
205 # Shift the return type flag over
206 SRL t6, 8*FFI_FLAG_BITS
208 beq t6, FFI_TYPE_SINT32, retint
209 bne t6, FFI_TYPE_INT, retfloat
212 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
217 bne t6, FFI_TYPE_FLOAT, retdouble
219 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
224 bne t6, FFI_TYPE_DOUBLE, retstruct_d
226 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
231 bne t6, FFI_TYPE_STRUCT_D, retstruct_f
233 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
238 bne t6, FFI_TYPE_STRUCT_F, retstruct_d_d
240 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
245 bne t6, FFI_TYPE_STRUCT_DD, retstruct_f_f
247 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
253 bne t6, FFI_TYPE_STRUCT_FF, retstruct_d_f
255 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
261 bne t6, FFI_TYPE_STRUCT_DF, retstruct_f_d
263 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
269 bne t6, FFI_TYPE_STRUCT_FD, retstruct_d_soft
271 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
277 bne t6, FFI_TYPE_STRUCT_D_SOFT, retstruct_f_soft
279 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
284 bne t6, FFI_TYPE_STRUCT_F_SOFT, retstruct_d_d_soft
286 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
291 bne t6, FFI_TYPE_STRUCT_DD_SOFT, retstruct_f_f_soft
293 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
299 bne t6, FFI_TYPE_STRUCT_FF_SOFT, retstruct_d_f_soft
301 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
307 bne t6, FFI_TYPE_STRUCT_DF_SOFT, retstruct_f_d_soft
309 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
315 bne t6, FFI_TYPE_STRUCT_FD_SOFT, retstruct_small
317 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
323 bne t6, FFI_TYPE_STRUCT_SMALL, retstruct_small2
325 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
330 bne t6, FFI_TYPE_STRUCT_SMALL2, retstruct
332 REG_L t4, 4*FFI_SIZEOF_ARG($fp)
344 REG_L $fp, SIZEOF_FRAME - 2*FFI_SIZEOF_ARG($sp) # Restore frame pointer
345 REG_L ra, SIZEOF_FRAME - 1*FFI_SIZEOF_ARG($sp) # Restore return address
346 ADDU $sp, SIZEOF_FRAME # Fix stack pointer
352 /* ffi_closure_N32. Expects address of the passed-in ffi_closure in t0
353 ($12). Stores any arguments passed in registers onto the stack,
354 then calls ffi_closure_mips_inner_N32, which then decodes
359 20 - Start of parameters, original sp
360 19 - Called function a7 save
361 18 - Called function a6 save
362 17 - Called function a5 save
363 16 - Called function a4 save
364 15 - Called function a3 save
365 14 - Called function a2 save
366 13 - Called function a1 save
367 12 - Called function a0 save
368 11 - Called function f19
369 10 - Called function f18
370 9 - Called function f17
371 8 - Called function f16
372 7 - Called function f15
373 6 - Called function f14
374 5 - Called function f13
375 4 - Called function f12
376 3 - return value high (v1 or $f2)
377 2 - return value low (v0 or $f0)
379 0 - gp save our sp points here
382 #define SIZEOF_FRAME2 (20 * FFI_SIZEOF_ARG)
384 #define A7_OFF2 (19 * FFI_SIZEOF_ARG)
385 #define A6_OFF2 (18 * FFI_SIZEOF_ARG)
386 #define A5_OFF2 (17 * FFI_SIZEOF_ARG)
387 #define A4_OFF2 (16 * FFI_SIZEOF_ARG)
388 #define A3_OFF2 (15 * FFI_SIZEOF_ARG)
389 #define A2_OFF2 (14 * FFI_SIZEOF_ARG)
390 #define A1_OFF2 (13 * FFI_SIZEOF_ARG)
391 #define A0_OFF2 (12 * FFI_SIZEOF_ARG)
393 #define F19_OFF2 (11 * FFI_SIZEOF_ARG)
394 #define F18_OFF2 (10 * FFI_SIZEOF_ARG)
395 #define F17_OFF2 (9 * FFI_SIZEOF_ARG)
396 #define F16_OFF2 (8 * FFI_SIZEOF_ARG)
397 #define F15_OFF2 (7 * FFI_SIZEOF_ARG)
398 #define F14_OFF2 (6 * FFI_SIZEOF_ARG)
399 #define F13_OFF2 (5 * FFI_SIZEOF_ARG)
400 #define F12_OFF2 (4 * FFI_SIZEOF_ARG)
402 #define V1_OFF2 (3 * FFI_SIZEOF_ARG)
403 #define V0_OFF2 (2 * FFI_SIZEOF_ARG)
405 #define RA_OFF2 (1 * FFI_SIZEOF_ARG)
406 #define GP_OFF2 (0 * FFI_SIZEOF_ARG)
409 .globl ffi_closure_N32
413 .frame $sp, SIZEOF_FRAME2, ra
414 .mask 0x90000000,-(SIZEOF_FRAME2 - RA_OFF2)
416 SUBU $sp, SIZEOF_FRAME2
418 .cpsetup t9, GP_OFF2, ffi_closure_N32
419 REG_S ra, RA_OFF2($sp) # Save return address
421 # Store all possible argument registers. If there are more than
422 # fit in registers, then they were stored on the stack.
423 REG_S a0, A0_OFF2($sp)
424 REG_S a1, A1_OFF2($sp)
425 REG_S a2, A2_OFF2($sp)
426 REG_S a3, A3_OFF2($sp)
427 REG_S a4, A4_OFF2($sp)
428 REG_S a5, A5_OFF2($sp)
429 REG_S a6, A6_OFF2($sp)
430 REG_S a7, A7_OFF2($sp)
432 # Store all possible float/double registers.
433 s.d $f12, F12_OFF2($sp)
434 s.d $f13, F13_OFF2($sp)
435 s.d $f14, F14_OFF2($sp)
436 s.d $f15, F15_OFF2($sp)
437 s.d $f16, F16_OFF2($sp)
438 s.d $f17, F17_OFF2($sp)
439 s.d $f18, F18_OFF2($sp)
440 s.d $f19, F19_OFF2($sp)
442 # Call ffi_closure_mips_inner_N32 to do the real work.
443 LA t9, ffi_closure_mips_inner_N32
444 move a0, $12 # Pointer to the ffi_closure
445 ADDU a1, $sp, V0_OFF2
446 ADDU a2, $sp, A0_OFF2
447 ADDU a3, $sp, F12_OFF2
450 # Return flags are in v0
451 bne v0, FFI_TYPE_SINT32, cls_retint
456 bne v0, FFI_TYPE_INT, cls_retfloat
457 REG_L v0, V0_OFF2($sp)
461 bne v0, FFI_TYPE_FLOAT, cls_retdouble
462 l.s $f0, V0_OFF2($sp)
466 bne v0, FFI_TYPE_DOUBLE, cls_retstruct_d
467 l.d $f0, V0_OFF2($sp)
471 bne v0, FFI_TYPE_STRUCT_D, cls_retstruct_f
472 l.d $f0, V0_OFF2($sp)
476 bne v0, FFI_TYPE_STRUCT_F, cls_retstruct_d_d
477 l.s $f0, V0_OFF2($sp)
481 bne v0, FFI_TYPE_STRUCT_DD, cls_retstruct_f_f
482 l.d $f0, V0_OFF2($sp)
483 l.d $f2, V1_OFF2($sp)
487 bne v0, FFI_TYPE_STRUCT_FF, cls_retstruct_d_f
488 l.s $f0, V0_OFF2($sp)
489 l.s $f2, V1_OFF2($sp)
493 bne v0, FFI_TYPE_STRUCT_DF, cls_retstruct_f_d
494 l.d $f0, V0_OFF2($sp)
495 l.s $f2, V1_OFF2($sp)
499 bne v0, FFI_TYPE_STRUCT_FD, cls_retstruct_small2
500 l.s $f0, V0_OFF2($sp)
501 l.d $f2, V1_OFF2($sp)
504 cls_retstruct_small2:
505 REG_L v0, V0_OFF2($sp)
506 REG_L v1, V1_OFF2($sp)
510 REG_L ra, RA_OFF2($sp) # Restore return address
512 ADDU $sp, SIZEOF_FRAME2
518 .section .eh_frame,"aw",@progbits
520 .4byte .LECIE1-.LSCIE1 # length
523 .byte 0x1 # Version 1
524 .ascii "\000" # Augmentation
525 .uleb128 0x1 # Code alignment 1
526 .sleb128 -4 # Data alignment -4
527 .byte 0x1f # Return Address $31
528 .byte 0xc # DW_CFA_def_cfa
529 .uleb128 0x1d # in $sp
530 .uleb128 0x0 # offset 0
531 .align EH_FRAME_ALIGN
535 .4byte .LEFDE1-.LASFDE1 # length.
537 .4byte .LASFDE1-.Lframe1 # CIE_pointer.
538 FDE_ADDR_BYTES .LFB3 # initial_location.
539 FDE_ADDR_BYTES .LFE3-.LFB3 # address_range.
540 .byte 0x4 # DW_CFA_advance_loc4
541 .4byte .LCFI0-.LFB3 # to .LCFI0
542 .byte 0xe # DW_CFA_def_cfa_offset
543 .uleb128 SIZEOF_FRAME # adjust stack.by SIZEOF_FRAME
544 .byte 0x4 # DW_CFA_advance_loc4
545 .4byte .LCFI1-.LCFI0 # to .LCFI1
546 .byte 0x9e # DW_CFA_offset of $fp
547 .uleb128 2*FFI_SIZEOF_ARG/4 #
548 .byte 0x9f # DW_CFA_offset of ra
549 .uleb128 1*FFI_SIZEOF_ARG/4 #
550 .byte 0x4 # DW_CFA_advance_loc4
551 .4byte .LCFI3-.LCFI1 # to .LCFI3
552 .byte 0xd # DW_CFA_def_cfa_register
553 .uleb128 0x1e # in $fp
554 .align EH_FRAME_ALIGN
557 .4byte .LEFDE3-.LASFDE3 # length
559 .4byte .LASFDE3-.Lframe1 # CIE_pointer.
560 FDE_ADDR_BYTES .LFB2 # initial_location.
561 FDE_ADDR_BYTES .LFE2-.LFB2 # address_range.
562 .byte 0x4 # DW_CFA_advance_loc4
563 .4byte .LCFI5-.LFB2 # to .LCFI5
564 .byte 0xe # DW_CFA_def_cfa_offset
565 .uleb128 SIZEOF_FRAME2 # adjust stack.by SIZEOF_FRAME
566 .byte 0x4 # DW_CFA_advance_loc4
567 .4byte .LCFI6-.LCFI5 # to .LCFI6
568 .byte 0x9c # DW_CFA_offset of $gp ($28)
569 .uleb128 (SIZEOF_FRAME2 - GP_OFF2)/4
570 .byte 0x9f # DW_CFA_offset of ra ($31)
571 .uleb128 (SIZEOF_FRAME2 - RA_OFF2)/4
572 .align EH_FRAME_ALIGN
574 #endif /* __GNUC__ */