Mercurial > pub > dyncall > dyncall
annotate dyncallback/dyncall_args_arm64.c @ 663:127b569978cc default tip
- another tweak handling clang trying to be too smart (see last commit)
| author | Tassilo Philipp |
|---|---|
| date | Sun, 24 Mar 2024 13:52:44 +0100 |
| parents | 93ce63d72d59 |
| children |
| 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 | |
|
544
111236b31c75
- C++ non-trivial aggregate-by-value handling:
Tassilo Philipp
parents:
533
diff
changeset
|
9 Copyright (c) 2015-2022 Daniel Adler <dadler@uni-goettingen.de>, |
| 281 | 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 */ | |
|
661
93ce63d72d59
- dyncallback code cleanup: removed unneeded headers
Tassilo Philipp
parents:
654
diff
changeset
|
25 |
| 0 | 26 #include "dyncall_args.h" |
| 27 | |
| 28 #include <stdint.h> | |
| 29 | |
| 30 typedef union { | |
| 31 struct { double value; } d; | |
| 32 struct { float value; } f; | |
| 33 } DCFPU_t; | |
| 34 | |
| 35 struct DCArgs | |
| 36 { | |
| 37 /* buffers and stack-pointer: */ | |
| 38 uint64_t I[8]; | |
| 39 DCFPU_t F[8]; | |
| 40 uint64_t* sp; | |
| 654 | 41 |
| 0 | 42 /* counters: */ |
| 43 int i; | |
| 44 int f; | |
| 45 }; | |
| 46 | |
| 654 | 47 DClonglong dcbArgLongLong (DCArgs* p) { return (p->i < 8) ? p->I[p->i++] : *(p->sp)++; } |
| 48 DCdouble dcbArgDouble (DCArgs* p) { return (p->f < 8) ? p->F[p->f++].d.value : * ( (double*) (p->sp++) ); } | |
| 49 DCfloat dcbArgFloat (DCArgs* p) { return (p->f < 8) ? p->F[p->f++].f.value : * ( (float*) (p->sp++) ); } | |
| 0 | 50 |
| 51 | |
| 654 | 52 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgLongLong(p); } |
| 53 DCint dcbArgInt (DCArgs* p) { return (DCint) dcbArgLongLong(p); } | |
| 54 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgLongLong(p); } | |
| 55 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgLongLong(p); } | |
| 56 DCbool dcbArgBool (DCArgs* p) { return dcbArgLongLong(p) & 0x1; } | |
| 57 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer)dcbArgLongLong(p); } | |
| 0 | 58 |
| 654 | 59 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgInt(p); } |
| 60 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgChar(p); } | |
| 61 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgShort(p); } | |
| 62 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgLong(p); } | |
| 63 DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong)dcbArgLongLong(p); } | |
| 0 | 64 |
|
580
2562c89d5bb5
- added missing return values for dcbArgAggr() on functions w/o aggregate support
Tassilo Philipp
parents:
544
diff
changeset
|
65 DCpointer dcbArgAggr (DCArgs* p, DCpointer target) { /* @@@AGGR not impl */ return NULL; } |
|
533
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
281
diff
changeset
|
66 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
|
67 |