Mercurial > pub > dyncall > dyncall
comparison dyncall/dyncall_call_mips_o32.S @ 302:d55f9d508074
- mips softfloat support for o32 callconv (calls and callbacks, little and big endian)
- cleanup of some mips files, removed unnecessary file, renamings..
- doc/manual cleanups, changelog entry
| author | Tassilo Philipp |
|---|---|
| date | Mon, 21 May 2018 02:48:12 +0200 |
| parents | dyncall/dyncall_call_mips_o32_gas.s@f5453308ff36 |
| children | 72b450cc3be8 |
comparison
equal
deleted
inserted
replaced
| 301:74948b02cfa0 | 302:d55f9d508074 |
|---|---|
| 1 /* | |
| 2 | |
| 3 Package: dyncall | |
| 4 Library: dyncall | |
| 5 File: dyncall/dyncall_call_mips_o32.S | |
| 6 Description: mips "o32" abi call kernel implementation in GNU Assembler | |
| 7 License: | |
| 8 | |
| 9 Copyright (c) 2007-2018 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 #if defined(DC__ABI_HARDFLOAT) | |
| 76 /* load two double-precision floating-point argument registers ($f12, $f14) - not for softfloat */ | |
| 77 | |
| 78 l.d $f12, 0($5) | |
| 79 l.d $f14, 8($5) | |
| 80 #endif | |
| 81 | |
| 82 /* prepare call */ | |
| 83 | |
| 84 move $12, $7 /* $12 stack data */ | |
| 85 move $25, $4 /* $25 target function */ | |
| 86 | |
| 87 /* load first four integer arguments ($4-$7) */ | |
| 88 | |
| 89 lw $4, 0($12) | |
| 90 lw $5, 4($12) | |
| 91 lw $6, 8($12) | |
| 92 lw $7,12($12) | |
| 93 | |
| 94 /* call target function */ | |
| 95 | |
| 96 jalr $25 | |
| 97 nop | |
| 98 move $sp,$fp /* restore stack pointer */ | |
| 99 nop | |
| 100 lw $31,4($sp) /* restore return address */ | |
| 101 lw $fp,0($sp) /* restore frame pointer */ | |
| 102 addiu $sp,$sp,8 /* end stack frame */ | |
| 103 j $31 /* return */ | |
| 104 nop | |
| 105 | |
| 106 .set reorder | |
| 107 .end dcCall_mips_o32 | |
| 108 .ident "handwritten" | |
| 109 |