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
|