0
|
1 /*
|
|
2
|
|
3 Package: dyncall
|
|
4 Library: dyncall
|
|
5 File: dyncall/dyncall_call_mips_o32_gas.s
|
|
6 Description: mips "o32" abi call kernel implementation in GNU Assembler
|
|
7 License:
|
|
8
|
|
9 Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
|
|
10 Tassilo Philipp <tphilipp@potion-studios.com>
|
|
11
|
|
12 Permission to use, copy, modify, and distribute this software for any
|
|
13 purpose with or without fee is hereby granted, provided that the above
|
|
14 copyright notice and this permission notice appear in all copies.
|
|
15
|
|
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
23
|
|
24 */
|
|
25 /* $4 target function */
|
|
26 /* $5 register data */
|
|
27 /* $6 stack size (min 16-byte aligned to 8-bytes already) */
|
|
28 /* $7 stack data */
|
|
29
|
|
30
|
|
31
|
|
32 .section .mdebug.abi32
|
|
33 .previous
|
|
34 .abicalls
|
|
35 .text
|
|
36 .align 2
|
|
37 .globl dcCall_mips_o32
|
|
38 .ent dcCall_mips_o32
|
|
39 .type dcCall_mips_o32, @function
|
|
40 dcCall_mips_o32:
|
|
41 .frame $fp,40,$31 /* vars=8, regs=2/0, args=16, gp=8 */
|
|
42 .mask 0xc0000000,-4
|
|
43 .fmask 0x00000000,0
|
|
44 .set noreorder
|
|
45
|
|
46 addiu $sp,$sp,-8
|
|
47 sw $31,4($sp) /* save link register */
|
|
48 sw $fp,0($sp) /* save frame pointer */
|
|
49 nop
|
|
50 move $fp,$sp /* frame pointer = sp */
|
|
51 sub $sp, $sp, $6 /* increment stack */
|
|
52
|
|
53 /* copy stack data */
|
|
54
|
|
55 /* $12 source pointer (parameter stack data) */
|
|
56 /* $14 destination (stack pointer) */
|
|
57 /* $6 byte count */
|
|
58
|
|
59 move $12, $7
|
|
60 move $14, $sp
|
|
61
|
|
62 .next:
|
|
63 beq $6, $0, .skip
|
|
64 nop
|
|
65 lw $2, 0($12)
|
|
66 nop
|
|
67 sw $2, 0($14)
|
|
68 addiu $12,$12, 4
|
|
69 addiu $14,$14, 4
|
|
70 addiu $6, $6, -4
|
|
71 j .next
|
|
72 nop
|
|
73 .skip:
|
|
74
|
|
75 /* load two double-precision floating-point argument registers ($f12, $f14) */
|
|
76
|
|
77 l.d $f12, 0($5)
|
|
78 l.d $f14, 8($5)
|
101
|
79
|
0
|
80 /* prepare call */
|
|
81
|
|
82 move $12, $7 /* $12 stack data */
|
|
83 move $25, $4 /* $25 target function */
|
|
84
|
|
85 /* load first four integer arguments ($4-$7) */
|
|
86
|
|
87 lw $4, 0($12)
|
|
88 lw $5, 4($12)
|
|
89 lw $6, 8($12)
|
|
90 lw $7,12($12)
|
|
91
|
|
92 /* call target function */
|
|
93
|
|
94 jalr $25
|
|
95 nop
|
|
96 move $sp,$fp /* restore stack pointer */
|
|
97 nop
|
|
98 lw $31,4($sp) /* restore return address */
|
|
99 lw $fp,0($sp) /* restore frame pointer */
|
|
100 addiu $sp,$sp,8 /* end stack frame */
|
|
101 j $31 /* return */
|
|
102 nop
|
|
103
|
|
104 .set reorder
|
|
105 .end dcCall_mips_o32
|
|
106 .ident "handwritten"
|
|
107
|