dyncall: dyncallback/dyncall_args

annotate dyncallback/dyncall_args_mips64.c @ 357:d982a00c2177

- PPC64 asm syntax fix, specifying explicitly comparison mode for cmpi (newer toolchains complain, older ones took optional field of instruction which happened to be same value)

author	Tassilo Philipp
date	Tue, 25 Feb 2020 18:16:13 +0100
parents	b104c5beec8b
children	71c884e610f0

rev	line source
122 f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	1 /*
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	2
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	3 Package: dyncall
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	4 Library: dyncallback
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	5 File: dyncallback/dyncall_args_mips64.c
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	6 Description: Callback's Arguments VM - Implementation for MIPS64 n32&n64
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	7 License:
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	8
281 f5577f6bf97a - file header cleanups for release Tassilo Philipp parents: 126 diff changeset	9 Copyright (c) 2016-2018 Tassilo Philipp <tphilipp@potion-studios.com>
122 f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	10
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	11 Permission to use, copy, modify, and distribute this software for any
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	12 purpose with or without fee is hereby granted, provided that the above
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	13 copyright notice and this permission notice appear in all copies.
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	14
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	15 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	16 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	17 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	18 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	20 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	21 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	22
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	23 */
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	24
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	25
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	26 #include "dyncall_args_mips.h"
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	27
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	28 /* @@@ test and add n32 code here, also, if needed */
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	29
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	30 DClonglong dcbArgLongLong(DCArgs* p)
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	31 {
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	32 DClonglong value;
305 b104c5beec8b - softfloat support for mips64/n64 abi Tassilo Philipp parents: 281 diff changeset	33 if(p->reg_count < DCARGS_MIPS_NUM_REGS)
122 f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	34 value = p->ireg_data[p->reg_count++];
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	35 else {
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	36 value = ((DClonglong)p->stackptr);
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	37 p->stackptr += sizeof(DClonglong);
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	38 }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	39 return value;
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	40 }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	41 DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong)dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	42
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	43 DCint dcbArgInt (DCArgs* p) { return (DCint) dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	44 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	45 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	46 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	47 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	48 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	49 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	50 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	51 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	52 DCpointer dcbArgPointer(DCArgs* p) { return (DCpointer)dcbArgLongLong(p); }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	53
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	54 DCdouble dcbArgDouble(DCArgs* p)
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	55 {
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	56 DCdouble result;
305 b104c5beec8b - softfloat support for mips64/n64 abi Tassilo Philipp parents: 281 diff changeset	57 if(p->reg_count < DCARGS_MIPS_NUM_REGS)
122 f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	58 result = p->freg_data[p->reg_count++];
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	59 else {
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	60 result = ((DCdouble)p->stackptr);
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	61 p->stackptr += sizeof(DCdouble);
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	62 }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	63 return result;
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	64 }
126 be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	65 DCfloat dcbArgFloat(DCArgs* p)
be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	66 {
be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	67 DCfloat result;
305 b104c5beec8b - softfloat support for mips64/n64 abi Tassilo Philipp parents: 281 diff changeset	68 if(p->reg_count < DCARGS_MIPS_NUM_REGS) {
126 be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	69 result = ((DCfloat*)&p->freg_data[p->reg_count++])
122 f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	70 #if defined(DC__Endian_LITTLE)
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	71 [0];
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	72 #else
126 be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	73 [1]; /* single precision floats are right-justified in big-endian registers */
122 f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	74 #endif
126 be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	75 } else {
be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	76 result = ((DCfloat)p->stackptr); /* single precision floats are left-justified on stack in 64bit slots */
be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	77 p->stackptr += sizeof(DCdouble);
be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	78 }
be08b699dca5 - mips64 n64 float fixes (big endian), now mips64 n64 is fully supported (for at least big-endian platforms, still need to test little endian) cslag parents: 122 diff changeset	79 return result;
122 f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	80 }
f63467916f98 - first draft of mips64 n64 callbacks, not everything working, though cslag parents: diff changeset	81

Mercurial > pub > dyncall > dyncall

annotate dyncallback/dyncall_args_mips64.c @ 357:d982a00c2177