Mercurial > pub > dyncall > dyncall
comparison dyncallback/dyncall_args_arm64.c @ 0:3e629dc19168
initial from svn dyncall-1745
author | Daniel Adler |
---|---|
date | Thu, 19 Mar 2015 22:24:28 +0100 |
parents | |
children | f5577f6bf97a |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:3e629dc19168 |
---|---|
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 | |
9 Copyright (c) 2015 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 #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 |