Mercurial > pub > dyncall > dyncall
comparison dyncallback/dyncall_args_x86.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_x86.c | |
6 Description: Callback's Arguments VM - Implementation for x86 | |
7 License: | |
8 | |
9 Copyright (c) 2007-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 | |
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 }; |