diff options
Diffstat (limited to 'testasmcomp/mips.asm')
| -rw-r--r-- | testasmcomp/mips.asm | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/testasmcomp/mips.asm b/testasmcomp/mips.asm new file mode 100644 index 000000000..395fc4526 --- /dev/null +++ b/testasmcomp/mips.asm @@ -0,0 +1,55 @@ + .globl call_gen_code + .ent call_gen_code +call_gen_code: + subu $sp, $sp, 88 + sw $31, 84($sp) + /* Save all callee-save registers */ + sw $16, 0($sp) + sw $17, 4($sp) + sw $18, 8($sp) + sw $19, 12($sp) + sw $20, 16($sp) + sw $21, 20($sp) + sw $22, 24($sp) + sw $23, 28($sp) + sw $30, 32($sp) + s.d $f20, 36($sp) + s.d $f22, 44($sp) + s.d $f24, 52($sp) + s.d $f26, 60($sp) + s.d $f28, 68($sp) + s.d $f30, 76($sp) + /* Shuffle arguments */ + move $8, $5 + move $9, $6 + move $10, $7 + jal $4 + /* Restore registers */ + lw $31, 84($sp) + lw $16, 0($sp) + lw $17, 4($sp) + lw $18, 8($sp) + lw $19, 12($sp) + lw $20, 16($sp) + lw $21, 20($sp) + lw $22, 24($sp) + lw $23, 28($sp) + lw $30, 32($sp) + l.d $f20, 36($sp) + l.d $f22, 44($sp) + l.d $f24, 52($sp) + l.d $f26, 60($sp) + l.d $f28, 68($sp) + l.d $f30, 76($sp) + addu $sp, $sp, 88 + j $31 + + .end call_gen_code + +/* Call a C function */ + + .globl caml_c_call + .ent caml_c_call +caml_c_call: + j $25 + .end caml_c_call
\ No newline at end of file |