0
|
1 /*
|
|
2
|
|
3 Package: dyncall
|
|
4 Library: dyncallback
|
|
5 File: dyncallback/dyncall_args_x86.c
|
|
6 Description: Callback's Arguments VM - Implementation for x86
|
|
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 #include "dyncall_args_x86.h"
|
|
28
|
|
29 /* ---------------------------------------------------------------------------- */
|
|
30 /* C API implementation: */
|
|
31
|
|
32 /* base operations */
|
|
33
|
|
34 DCint dcbArgInt (DCArgs* p) { return p->vt->i32(p); }
|
|
35 DClonglong dcbArgLongLong(DCArgs* p) { return p->vt->i64(p); }
|
|
36 DCfloat dcbArgFloat (DCArgs* p) { return p->vt->f32(p); }
|
|
37 DCdouble dcbArgDouble (DCArgs* p) { return p->vt->f64(p); }
|
|
38
|
|
39 /* promote to integer: bool, char, short, long and pointer */
|
|
40
|
|
41 DCbool dcbArgBool (DCArgs* p) { return ( dcbArgInt(p) == 0 ) ? 0 : 1; }
|
|
42 DCchar dcbArgChar (DCArgs* p) { return (char) dcbArgInt(p); }
|
|
43 DCshort dcbArgShort (DCArgs* p) { return (short) dcbArgInt(p); }
|
|
44 DClong dcbArgLong (DCArgs* p) { return (long) dcbArgInt(p); }
|
|
45 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer) dcbArgInt(p); }
|
|
46
|
|
47 /* unsigned types */
|
|
48
|
|
49 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgInt(p); }
|
|
50 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgChar(p); }
|
|
51 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgShort(p); }
|
|
52 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgLong(p); }
|
|
53 DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong) dcbArgLongLong(p); }
|
|
54
|
|
55 /* ---------------------------------------------------------------------------- */
|
|
56 /* virtual tables: */
|
|
57
|
|
58 /* cdecl calling convention */
|
|
59
|
|
60 static int default_i32(DCArgs* args)
|
|
61 {
|
|
62 return *args->stack_ptr++;
|
|
63 }
|
|
64
|
|
65 static long long default_i64(DCArgs* args)
|
|
66 {
|
|
67 long long result = * (long long*) args->stack_ptr;
|
|
68 args->stack_ptr += 2;
|
|
69 return result;
|
|
70 }
|
|
71
|
|
72 static float default_f32(DCArgs* args)
|
|
73 {
|
|
74 float result = * ( (float*) args->stack_ptr );
|
|
75 args->stack_ptr++;
|
|
76 return result;
|
|
77 }
|
|
78
|
|
79 static double default_f64(DCArgs* args)
|
|
80 {
|
|
81 double result = * ( (double*) args->stack_ptr );
|
|
82 args->stack_ptr += 2;
|
|
83 return result;
|
|
84 }
|
|
85
|
|
86 DCArgsVT dcArgsVT_default = { default_i32, default_i64, default_f32, default_f64 };
|
|
87
|
|
88 /* thiscall (microsoft) calling convention */
|
|
89
|
|
90 static int this_i32(DCArgs* args)
|
|
91 {
|
|
92 if(args->fast_data[0]) { /* ecx register = this pointer */
|
|
93 int thisArg = args->fast_data[0];
|
|
94 args->fast_data[0] = 0;
|
|
95 return thisArg;
|
|
96 }
|
|
97 return *args->stack_ptr++;
|
|
98 }
|
|
99
|
|
100 DCArgsVT dcArgsVT_this_ms = { this_i32, default_i64, default_f32, default_f64 };
|
|
101
|
|
102 /* fastcall (microsoft) calling convention */
|
|
103
|
|
104 static int fast_i32(DCArgs* args)
|
|
105 {
|
|
106 if(args->fast_count < 2)
|
|
107 return args->fast_data[args->fast_count++];
|
|
108 else
|
|
109 return default_i32(args);
|
|
110 }
|
|
111
|
|
112 DCArgsVT dcArgsVT_fast_ms = { fast_i32, default_i64, default_f32, default_f64 };
|
|
113
|
|
114 /* fastcall (gnu) calling convention */
|
|
115
|
|
116 static long long fast_gnu_i64(DCArgs* args)
|
|
117 {
|
|
118 args->fast_count += 2;
|
|
119 return default_i64(args);
|
|
120 }
|
|
121
|
|
122 DCArgsVT dcArgsVT_fast_gnu = { fast_i32, fast_gnu_i64, default_f32, default_f64 };
|