|
0
|
1 /*
|
|
|
2
|
|
|
3 Package: dyncall
|
|
|
4 Library: dyncallback
|
|
|
5 File: dyncallback/dyncall_args_x64.c
|
|
|
6 Description: Callback's Arguments VM - Implementation for x64
|
|
|
7 License:
|
|
|
8
|
|
281
|
9 Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>,
|
|
0
|
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
|
|
|
26
|
|
|
27
|
|
|
28 #include "dyncall_args_x64.h"
|
|
|
29
|
|
|
30
|
|
|
31 static int64* arg_i64(DCArgs* args)
|
|
|
32 {
|
|
|
33 if (args->reg_count.i < numIntRegs)
|
|
|
34 return &args->reg_data.i[args->reg_count.i++];
|
|
|
35 else
|
|
|
36 return args->stack_ptr++;
|
|
|
37 }
|
|
|
38
|
|
|
39
|
|
|
40 static double* arg_f64(DCArgs* args)
|
|
|
41 {
|
|
|
42 if (args->reg_count.f < numFloatRegs)
|
|
|
43 return &args->reg_data.f[args->reg_count.f++];
|
|
|
44 else
|
|
|
45 {
|
|
|
46 return (double*)args->stack_ptr++;
|
|
|
47 }
|
|
|
48 }
|
|
|
49
|
|
|
50
|
|
|
51 // ----------------------------------------------------------------------------
|
|
|
52 // C API implementation:
|
|
|
53
|
|
|
54
|
|
|
55 // base operations:
|
|
|
56
|
|
|
57 DClonglong dcbArgLongLong (DCArgs* p) { return *arg_i64(p); }
|
|
|
58 DCint dcbArgInt (DCArgs* p) { return (int) dcbArgLongLong(p); }
|
|
|
59 DClong dcbArgLong (DCArgs* p) { return (long) dcbArgLongLong(p); }
|
|
|
60 DCchar dcbArgChar (DCArgs* p) { return (char) dcbArgLongLong(p); }
|
|
|
61 DCshort dcbArgShort (DCArgs* p) { return (short) dcbArgLongLong(p); }
|
|
|
62 DCbool dcbArgBool (DCArgs* p) { return (dcbArgInt(p) == 0) ? 0 : 1; }
|
|
|
63
|
|
|
64 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgInt(p); }
|
|
|
65 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgChar(p); }
|
|
|
66 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgShort(p); }
|
|
|
67 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgLong(p); }
|
|
|
68 DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong) dcbArgLongLong(p); }
|
|
|
69
|
|
|
70
|
|
|
71 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer) dcbArgLongLong(p); }
|
|
|
72
|
|
|
73 DCdouble dcbArgDouble (DCArgs* p) { return *arg_f64(p); }
|
|
|
74 DCfloat dcbArgFloat (DCArgs* p) { return *(float*)arg_f64(p); }
|
