Mercurial > pub > dyncall > dyncall
annotate dyncallback/dyncall_args_arm64.c @ 533:71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
* integration of aggregate-by-value (struct, union) support patch for x64 (win and sysv)
* windows/x64 asm additions to specify how stack unwinds (help for debuggers, exception handling, etc.)
* see Changelog for details
- new calling convention modes for thiscalls (platform agnostic, was specific before)
* new signature character for platform agnostic thiscalls ('*' / DC_SIGCHAR_CC_THISCALL)
- dcCallF(), dcVCallF(), dcArgF() and dcVArgF():
* added support for aggregates-by-value (wasn't part of patch)
* change that those functions don't implicitly call dcReset() anymore, which was unflexible (breaking change)
- added macros to feature test implementation for aggregate-by-value and syscall support
- changed libdyncall_s.lib and libdyncallback_s.lib order in callback test makefiles, as some toolchains are picky about order
- doc:
* man page updates to describe aggregate interface
* manual overview changes to highlight platforms with aggregate-by-value support
- test/plain: replaced tests w/ old/stale sctruct interface with new aggregate one
| author | Tassilo Philipp |
|---|---|
| date | Thu, 21 Apr 2022 13:35:47 +0200 |
| parents | f5577f6bf97a |
| children | 111236b31c75 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 | |
| 3 Package: dyncall | |
| 4 Library: dyncallback | |
| 5 File: dyncallback/dyncall_args_arm64.c | |
| 6 Description: Callback's Arguments VM - Implementation for ARM64 / ARMv8 / AAPCS64 | |
| 7 License: | |
| 8 | |
| 281 | 9 Copyright (c) 2015-2018 Daniel Adler <dadler@uni-goettingen.de>, |
| 10 Tassilo Philipp <tphilipp@potion-studios.com> | |
| 0 | 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 #include "dyncall_args.h" | |
| 26 | |
| 27 #include <stdint.h> | |
| 28 | |
| 29 typedef union { | |
| 30 struct { double value; } d; | |
| 31 struct { float value; } f; | |
| 32 } DCFPU_t; | |
| 33 | |
| 34 struct DCArgs | |
| 35 { | |
| 36 /* buffers and stack-pointer: */ | |
| 37 | |
| 38 uint64_t I[8]; | |
| 39 DCFPU_t F[8]; | |
| 40 uint64_t* sp; | |
| 41 | |
| 42 /* counters: */ | |
| 43 int i; | |
| 44 int f; | |
| 45 int s; | |
| 46 int reserved; | |
| 47 }; | |
| 48 | |
| 49 DClonglong dcbArgLongLong (DCArgs* p) | |
| 50 { | |
| 51 if (p->i < 8) { | |
| 52 return p->I[p->i++]; | |
| 53 } else { | |
| 54 return *(p->sp)++; | |
| 55 } | |
| 56 } | |
| 57 DCdouble dcbArgDouble (DCArgs* p) { | |
| 58 return (p->f < 8) ? p->F[p->f++].d.value : * ( (double*) (p->sp++) ); | |
| 59 } | |
| 60 DCfloat dcbArgFloat (DCArgs* p) { | |
| 61 return (p->f < 8) ? p->F[p->f++].f.value : * ( (float*) (p->sp++) ); | |
| 62 } | |
| 63 | |
| 64 | |
| 65 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgLongLong(p); } | |
| 66 DCint dcbArgInt (DCArgs* p) { return (DCint) dcbArgLongLong(p); } | |
| 67 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgLongLong(p); } | |
| 68 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgLongLong(p); } | |
| 69 DCbool dcbArgBool (DCArgs* p) { return dcbArgLongLong(p) & 0x1; } | |
| 70 DCpointer dcbArgPointer(DCArgs* p) { return (DCpointer) dcbArgLongLong(p); } | |
| 71 | |
| 72 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgInt(p); } | |
| 73 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgChar(p); } | |
| 74 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgShort(p); } | |
| 75 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgLong(p); } | |
| 76 DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong) dcbArgLongLong(p); } | |
| 77 | |
|
533
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
281
diff
changeset
|
78 void dcbArgAggr (DCArgs* p, DCpointer target) { /* @@@AGGR not impl */ } |
|
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
281
diff
changeset
|
79 void dcbReturnAggr (DCArgs *args, DCValue *result, DCpointer ret) { /* @@@AGGR not impl */ } |
|
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
281
diff
changeset
|
80 |