source: trunk/include/odinwrap.h@ 6889

Last change on this file since 6889 was 6829, checked in by phaller, 24 years ago

added calldepth tracing
File size: 53.7 KB
Line 
1/* $Id: odinwrap.h,v 1.36 2001-09-26 15:28:32 phaller Exp $
2 *
3 * Project Odin Software License can be found in LICENSE.TXT
4 *
5 * ODIN FS: Selector function wrapper macros
6 *
7 * Copyright 1999 Patrick Haller
8 *
9 */
10
11
12#ifndef _ODINWRAP_H_
13#define _ODINWRAP_H_
14
15#include <os2sel.h>
16
17/****************************************************************************
18 * Defines *
19 ****************************************************************************/
20
21// override debugging
22//#undef DEBUG
23//#define DEBUG
24
25// override profiling
26//#undef PROFILE
27//#define PROFILE
28
29
30
31#define ODIN_INTERNAL _Optlink
32
33
34#ifdef DEBUG
35# define ODINDEBUGCHANNEL(a) static char* pszOdinDebugChannel=#a;
36# define ODINDEBUGCHANNEL1(a) static char* pszOdinDebugChannel1=#a;
37#else
38# define ODINDEBUGCHANNEL(a)
39# define ODINDEBUGCHANNEL1(a)
40#endif
41
42
43//SvL: Define this to use the internal wrapper function of a specific api
44#ifdef DEBUG
45#define ODIN_EXTERN(a) ODIN_INTERNAL ODIN_##a
46#define CALL_ODINFUNC(a) ODIN_##a
47#else
48#define ODIN_EXTERN(a) ODIN_INTERNAL a
49#define CALL_ODINFUNC(a) a
50#endif
51
52
53#ifdef DEBUG
54
55//@@@PH 1999/10/25 IBM VAC++ debug memory support
56#include <malloc.h>
57#include <odin.h>
58
59// ---------------------------------------------------------------------------
60extern unsigned long int WIN32API GetCurrentThreadId(); // kernel32
61extern unsigned long int WIN32API dbg_GetThreadCallDepth(); // kernel32
62extern void WIN32API dbg_IncThreadCallDepth(); // kernel32
63extern void WIN32API dbg_DecThreadCallDepth(); // kernel32
64
65// ---------------------------------------------------------------------------
66//SvL: Only check the heap very frequently when there are problems
67//#define DEBUG_ODINHEAP
68#ifdef DEBUG_ODINHEAP
69#define ODIN_HEAPCHECK() _heap_check()
70#else
71#define ODIN_HEAPCHECK()
72#endif
73
74
75// ---------------------------------------------------------------------------
76// PH: this is for profiling cumulative method call times
77#ifdef PROFILE
78
79# define PROFILE_START(a) \
80 LARGE_INTEGER liStart; \
81 LARGE_INTEGER liEnd; \
82 unsigned long ulElapsed; \
83 QueryPerformanceCounter(&liStart);
84
85
86# define PROFILE_STOP(a) \
87 QueryPerformanceCounter(&liEnd);\
88 if (liStart.LowPart > liEnd.LowPart) \
89 ulElapsed = 0xFFFFFFFF - liStart.LowPart + liEnd.LowPart; \
90 else \
91 ulElapsed = liEnd.LowPart - liStart.LowPart; \
92 \
93 dprintf(("%s: %s %u ticks\n",\
94 pszOdinDebugChannel,\
95 a, \
96 ulElapsed));
97#else
98# define PROFILE_START(a)
99# define PROFILE_STOP(a)
100#endif
101
102
103#define FNPROLOGUE(a) \
104 USHORT sel = GetFS(); \
105 dbg_IncThreadCallDepth(); \
106 ODIN_HEAPCHECK(); \
107 PROFILE_START(a)
108
109#define FNEPILOGUE(a) \
110 PROFILE_STOP(a) \
111 ODIN_HEAPCHECK(); \
112 dbg_DecThreadCallDepth(); \
113 if (sel != GetFS()) { \
114 SetFS(sel); \
115 dprintf(("WARNING: FS: for thread %08xh corrupted by "a, GetCurrentThreadId())); \
116 }
117
118
119/****************************************************************************
120 * General Wrapper Macros (debug instrumented) *
121 ****************************************************************************/
122
123/* ---------- 0 parameters ---------- */
124#define ODINFUNCTION0(cRet,cName) \
125 cRet ODIN_INTERNAL ODIN_##cName (void); \
126 cRet WINAPI cName(void) \
127 { \
128 dprintf(("%s: "#cRet" "#cName"()", \
129 pszOdinDebugChannel)); \
130 FNPROLOGUE(#cName) \
131 cRet rc = ODIN_##cName(); \
132 FNEPILOGUE(#cName) \
133 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
134 pszOdinDebugChannel, \
135 rc)); \
136 return rc; \
137 } \
138 \
139 cRet ODIN_INTERNAL ODIN_##cName (void)
140
141
142#define ODINPROCEDURE0(cName) \
143 void ODIN_INTERNAL ODIN_##cName (void); \
144 void WINAPI cName(void) \
145 { \
146 dprintf(("%s: void "#cName"()", \
147 pszOdinDebugChannel)); \
148 FNPROLOGUE(#cName) \
149 ODIN_##cName(); \
150 FNEPILOGUE(#cName) \
151 dprintf(("%s: void "#cName"() leave\n", \
152 pszOdinDebugChannel)); \
153 } \
154 \
155 void ODIN_INTERNAL ODIN_##cName (void)
156
157
158/* ---------- 1 parameters ---------- */
159#define ODINFUNCTION1(cRet,cName,t1,a1) \
160 cRet ODIN_INTERNAL ODIN_##cName (t1 a1); \
161 cRet WINAPI cName(t1 a1) \
162 { \
163 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh)", \
164 pszOdinDebugChannel, \
165 a1)); \
166 FNPROLOGUE(#cName) \
167 cRet rc = ODIN_##cName(a1); \
168 FNEPILOGUE(#cName) \
169 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
170 pszOdinDebugChannel, \
171 rc)); \
172 return rc; \
173 } \
174 \
175 cRet ODIN_INTERNAL ODIN_##cName (t1 a1)
176
177#define ODINPROCEDURE1(cName,t1,a1) \
178 void ODIN_INTERNAL ODIN_##cName (t1 a1); \
179 void WINAPI cName(t1 a1) \
180 { \
181 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh)", \
182 pszOdinDebugChannel, \
183 a1)); \
184 FNPROLOGUE(#cName) \
185 ODIN_##cName(a1); \
186 FNEPILOGUE(#cName) \
187 dprintf(("%s: void "#cName"() leave\n", \
188 pszOdinDebugChannel)); \
189 } \
190 \
191 void ODIN_INTERNAL ODIN_##cName (t1 a1)
192
193
194/* ---------- 2 parameters ---------- */
195#define ODINFUNCTION2(cRet,cName,t1,a1,t2,a2) \
196 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2); \
197 cRet WINAPI cName(t1 a1,t2 a2) \
198 { \
199 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh)", \
200 pszOdinDebugChannel, \
201 a1,a2)); \
202 FNPROLOGUE(#cName) \
203 cRet rc = ODIN_##cName(a1,a2); \
204 FNEPILOGUE(#cName) \
205 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
206 pszOdinDebugChannel, \
207 rc)); \
208 return rc; \
209 } \
210 \
211 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
212
213#define ODINPROCEDURE2(cName,t1,a1,t2,a2) \
214 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2); \
215 void WINAPI cName(t1 a1,t2 a2) \
216 { \
217 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh)", \
218 pszOdinDebugChannel, \
219 a1,a2)); \
220 FNPROLOGUE(#cName) \
221 ODIN_##cName(a1,a2); \
222 FNEPILOGUE(#cName) \
223 dprintf(("%s: void "#cName"() leave\n", \
224 pszOdinDebugChannel)); \
225 } \
226 \
227 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
228
229
230/* ---------- 3 parameters ---------- */
231#define ODINFUNCTION3(cRet,cName,t1,a1,t2,a2,t3,a3) \
232 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
233 cRet WINAPI cName(t1 a1,t2 a2,t3 a3) \
234 { \
235 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)", \
236 pszOdinDebugChannel, \
237 a1,a2,a3)); \
238 FNPROLOGUE(#cName) \
239 cRet rc = ODIN_##cName(a1,a2,a3); \
240 FNEPILOGUE(#cName) \
241 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
242 pszOdinDebugChannel, \
243 rc)); \
244 return rc; \
245 } \
246 \
247 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
248
249#define ODINPROCEDURE3(cName,t1,a1,t2,a2,t3,a3) \
250 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
251 void WINAPI cName(t1 a1,t2 a2,t3 a3) \
252 { \
253 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)", \
254 pszOdinDebugChannel, \
255 a1,a2,a3)); \
256 FNPROLOGUE(#cName) \
257 ODIN_##cName(a1,a2,a3); \
258 FNEPILOGUE(#cName) \
259 dprintf(("%s: void "#cName"() leave\n", \
260 pszOdinDebugChannel)); \
261 } \
262 \
263 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
264
265
266/* ---------- 4 parameters ---------- */
267#define ODINFUNCTION4(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4) \
268 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
269 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
270 { \
271 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh, "#t4" "#a4"=%08xh)", \
272 pszOdinDebugChannel, \
273 a1,a2,a3,a4)); \
274 FNPROLOGUE(#cName) \
275 cRet rc = ODIN_##cName(a1,a2,a3,a4); \
276 FNEPILOGUE(#cName) \
277 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
278 pszOdinDebugChannel, \
279 rc)); \
280 return rc; \
281 } \
282 \
283 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
284
285#define ODINPROCEDURE4(cName,t1,a1,t2,a2,t3,a3,t4,a4) \
286 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
287 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
288 { \
289 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh, "#t4" "#a4"=%08xh)", \
290 pszOdinDebugChannel, \
291 a1,a2,a3,a4)); \
292 FNPROLOGUE(#cName) \
293 ODIN_##cName(a1,a2,a3,a4); \
294 FNEPILOGUE(#cName) \
295 dprintf(("%s: void "#cName"() leave\n", \
296 pszOdinDebugChannel)); \
297 } \
298 \
299 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
300
301
302/* ---------- 5 parameters ---------- */
303#define ODINFUNCTION5(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
304 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
305 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
306 { \
307 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh" \
308 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh)", \
309 pszOdinDebugChannel, \
310 a1,a2,a3,a4,a5)); \
311 FNPROLOGUE(#cName) \
312 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5); \
313 FNEPILOGUE(#cName) \
314 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
315 pszOdinDebugChannel, \
316 rc)); \
317 return rc; \
318 } \
319 \
320 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
321
322#define ODINPROCEDURE5(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
323 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
324 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
325 { \
326 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
327 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh)", \
328 pszOdinDebugChannel, \
329 a1,a2,a3,a4,a5)); \
330 FNPROLOGUE(#cName) \
331 ODIN_##cName(a1,a2,a3,a4,a5); \
332 FNEPILOGUE(#cName) \
333 dprintf(("%s: void "#cName"() leave\n", \
334 pszOdinDebugChannel)); \
335 } \
336 \
337 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
338
339
340/* ---------- 6 parameters ---------- */
341#define ODINFUNCTION6(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
342 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
343 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
344 { \
345 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
346 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh)", \
347 pszOdinDebugChannel, \
348 a1,a2,a3,a4,a5,a6)); \
349 FNPROLOGUE(#cName) \
350 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6); \
351 FNEPILOGUE(#cName) \
352 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
353 pszOdinDebugChannel, \
354 rc)); \
355 return rc; \
356 } \
357 \
358 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
359
360#define ODINPROCEDURE6(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
361 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
362 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
363 { \
364 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
365 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh)", \
366 pszOdinDebugChannel, \
367 a1,a2,a3,a4,a5,a6)); \
368 FNPROLOGUE(#cName) \
369 ODIN_##cName(a1,a2,a3,a4,a5,a6); \
370 FNEPILOGUE(#cName) \
371 dprintf(("%s: void "#cName"() leave\n", \
372 pszOdinDebugChannel)); \
373 } \
374 \
375 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
376
377
378/* ---------- 7 parameters ---------- */
379#define ODINFUNCTION7(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
380 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
381 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
382 { \
383 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
384 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh)", \
385 pszOdinDebugChannel, \
386 a1,a2,a3,a4,a5,a6,a7)); \
387 FNPROLOGUE(#cName) \
388 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
389 FNEPILOGUE(#cName) \
390 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
391 pszOdinDebugChannel, \
392 rc)); \
393 return rc; \
394 } \
395 \
396 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
397
398#define ODINPROCEDURE7(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
399 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
400 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
401 { \
402 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
403 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh)", \
404 pszOdinDebugChannel, \
405 a1,a2,a3,a4,a5,a6,a7)); \
406 FNPROLOGUE(#cName) \
407 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
408 FNEPILOGUE(#cName) \
409 dprintf(("%s: void "#cName"() leave\n", \
410 pszOdinDebugChannel)); \
411 } \
412 \
413 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
414
415
416/* ---------- 8 parameters ---------- */
417#define ODINFUNCTION8(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
418 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
419 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
420 { \
421 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
422 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
423 ", "#t8" "#a8"=%08xh)", \
424 pszOdinDebugChannel, \
425 a1,a2,a3,a4,a5,a6,a7,a8)); \
426 FNPROLOGUE(#cName) \
427 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
428 FNEPILOGUE(#cName) \
429 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
430 pszOdinDebugChannel, \
431 rc)); \
432 return rc; \
433 } \
434 \
435 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
436
437#define ODINPROCEDURE8(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
438 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
439 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
440 { \
441 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
442 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
443 ", "#t8" "#a8"=%08xh)", \
444 pszOdinDebugChannel, \
445 a1,a2,a3,a4,a5,a6,a7,a8)); \
446 FNPROLOGUE(#cName) \
447 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
448 FNEPILOGUE(#cName) \
449 dprintf(("%s: void "#cName"() leave\n", \
450 pszOdinDebugChannel)); \
451 } \
452 \
453 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
454
455
456/* ---------- 9 parameters ---------- */
457#define ODINFUNCTION9(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
458 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
459 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
460 { \
461 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
462 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
463 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh)", \
464 pszOdinDebugChannel, \
465 a1,a2,a3,a4,a5,a6,a7,a8,a9)); \
466 FNPROLOGUE(#cName) \
467 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
468 FNEPILOGUE(#cName) \
469 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
470 pszOdinDebugChannel, \
471 rc)); \
472 return rc; \
473 } \
474 \
475 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
476
477#define ODINPROCEDURE9(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
478 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
479 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
480 { \
481 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
482 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
483 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh)", \
484 pszOdinDebugChannel, \
485 a1,a2,a3,a4,a5,a6,a7,a8,a9)); \
486 FNPROLOGUE(#cName) \
487 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
488 FNEPILOGUE(#cName) \
489 dprintf(("%s: void "#cName"() leave\n", \
490 pszOdinDebugChannel)); \
491 } \
492 \
493 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
494
495
496/* ---------- 10 parameters ---------- */
497#define ODINFUNCTION10(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
498 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10); \
499 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
500 { \
501 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
502 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
503 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh)", \
504 pszOdinDebugChannel, \
505 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10));\
506 FNPROLOGUE(#cName) \
507 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
508 FNEPILOGUE(#cName) \
509 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
510 pszOdinDebugChannel, \
511 rc)); \
512 return rc; \
513 } \
514 \
515 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10)
516
517#define ODINPROCEDURE10(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
518 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10); \
519 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
520 { \
521 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
522 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
523 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh)", \
524 pszOdinDebugChannel, \
525 a1,a2,a3)); \
526 FNPROLOGUE(#cName) \
527 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
528 FNEPILOGUE(#cName) \
529 dprintf(("%s: void "#cName"() leave\n", \
530 pszOdinDebugChannel)); \
531 } \
532 \
533 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10)
534
535
536/* ---------- 11 parameters ---------- */
537#define ODINFUNCTION11(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11) \
538 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11); \
539 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11) \
540 { \
541 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
542 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
543 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh)", \
544 pszOdinDebugChannel, \
545 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11)); \
546 FNPROLOGUE(#cName) \
547 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
548 FNEPILOGUE(#cName) \
549 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
550 pszOdinDebugChannel, \
551 rc)); \
552 return rc; \
553 } \
554 \
555 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11)
556
557#define ODINPROCEDURE11(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11) \
558 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11); \
559 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11) \
560 { \
561 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
562 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
563 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh)", \
564 pszOdinDebugChannel, \
565 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11)); \
566 FNPROLOGUE(#cName) \
567 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
568 FNEPILOGUE(#cName) \
569 dprintf(("%s: void "#cName"() leave\n", \
570 pszOdinDebugChannel)); \
571 } \
572 \
573 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11)
574
575
576/* ---------- 12 parameters ---------- */
577#define ODINFUNCTION12(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12) \
578 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12); \
579 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12) \
580 { \
581 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
582 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
583 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
584 ", "#t12" "#a12"=%08xh)", \
585 pszOdinDebugChannel, \
586 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12)); \
587 FNPROLOGUE(#cName) \
588 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
589 FNEPILOGUE(#cName) \
590 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
591 pszOdinDebugChannel, \
592 rc)); \
593 return rc; \
594 } \
595 \
596 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12)
597
598#define ODINPROCEDURE12(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12) \
599 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12); \
600 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12) \
601 { \
602 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
603 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
604 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
605 ", "#t12" "#a12"=%08xh)", \
606 pszOdinDebugChannel, \
607 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12)); \
608 FNPROLOGUE(#cName) \
609 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
610 FNEPILOGUE(#cName) \
611 dprintf(("%s: void "#cName"() leave\n", \
612 pszOdinDebugChannel)); \
613 } \
614 \
615 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12)
616
617
618/* ---------- 13 parameters ---------- */
619#define ODINFUNCTION13(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12,t13,a13) \
620 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13); \
621 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13) \
622 { \
623 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
624 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
625 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
626 ", "#t12" "#a12"=%08xh, "#t13" "#a13"=%08xh)", \
627 pszOdinDebugChannel, \
628 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13)); \
629 FNPROLOGUE(#cName) \
630 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13); \
631 FNEPILOGUE(#cName) \
632 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
633 pszOdinDebugChannel, \
634 rc)); \
635 return rc; \
636 } \
637 \
638 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13)
639
640#define ODINPROCEDURE13(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12,t13,a13) \
641 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13); \
642 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13) \
643 { \
644 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
645 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
646 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
647 ", "#t12" "#a12"=%08xh, "#t13" "#a13"=%08xh, )", \
648 pszOdinDebugChannel, \
649 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13)); \
650 FNPROLOGUE(#cName) \
651 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13); \
652 FNEPILOGUE(#cName) \
653 dprintf(("%s: void "#cName"() leave\n", \
654 pszOdinDebugChannel)); \
655 } \
656 \
657 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13)
658
659
660/* ---------- 14 parameters ---------- */
661#define ODINFUNCTION14(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12,t13,a13,t14,a14) \
662 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14); \
663 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14) \
664 { \
665 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
666 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
667 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
668 ", "#t12" "#a12"=%08xh, "#t13" "#a13"=%08xh, "#t14" "#a14"=%08xh)", \
669 pszOdinDebugChannel, \
670 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14)); \
671 FNPROLOGUE(#cName) \
672 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14); \
673 FNEPILOGUE(#cName) \
674 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
675 pszOdinDebugChannel, \
676 rc)); \
677 return rc; \
678 } \
679 \
680 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14)
681
682#define ODINPROCEDURE14(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12,t13,a13,t14,a14) \
683 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14); \
684 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14) \
685 { \
686 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
687 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
688 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
689 ", "#t12" "#a12"=%08xh, "#t13" "#a13"=%08xh, "#t14" "#a14"=%08xh)", \
690 pszOdinDebugChannel, \
691 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14)); \
692 FNPROLOGUE(#cName) \
693 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14); \
694 FNEPILOGUE(#cName) \
695 dprintf(("%s: void "#cName"() leave\n", \
696 pszOdinDebugChannel)); \
697 } \
698 \
699 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14)
700
701
702#else
703
704/****************************************************************************
705 * General Wrapper Macros *
706 ****************************************************************************/
707
708#define FNPROLOGUE(a) \
709 USHORT sel = GetFS();
710
711#define FNEPILOGUE(a) \
712 SetFS(sel);
713
714#define ODINFUNCTION0 ODINFUNCTIONNODBG0
715#define ODINFUNCTION1 ODINFUNCTIONNODBG1
716#define ODINFUNCTION2 ODINFUNCTIONNODBG2
717#define ODINFUNCTION3 ODINFUNCTIONNODBG3
718#define ODINFUNCTION4 ODINFUNCTIONNODBG4
719#define ODINFUNCTION5 ODINFUNCTIONNODBG5
720#define ODINFUNCTION6 ODINFUNCTIONNODBG6
721#define ODINFUNCTION7 ODINFUNCTIONNODBG7
722#define ODINFUNCTION8 ODINFUNCTIONNODBG8
723#define ODINFUNCTION9 ODINFUNCTIONNODBG9
724#define ODINFUNCTION10 ODINFUNCTIONNODBG10
725#define ODINFUNCTION11 ODINFUNCTIONNODBG11
726#define ODINFUNCTION12 ODINFUNCTIONNODBG12
727#define ODINFUNCTION13 ODINFUNCTIONNODBG13
728#define ODINFUNCTION14 ODINFUNCTIONNODBG14
729
730#define ODINPROCEDURE0 ODINPROCEDURENODBG0
731#define ODINPROCEDURE1 ODINPROCEDURENODBG1
732#define ODINPROCEDURE2 ODINPROCEDURENODBG2
733#define ODINPROCEDURE3 ODINPROCEDURENODBG3
734#define ODINPROCEDURE4 ODINPROCEDURENODBG4
735#define ODINPROCEDURE5 ODINPROCEDURENODBG5
736#define ODINPROCEDURE6 ODINPROCEDURENODBG6
737#define ODINPROCEDURE7 ODINPROCEDURENODBG7
738#define ODINPROCEDURE8 ODINPROCEDURENODBG8
739#define ODINPROCEDURE9 ODINPROCEDURENODBG9
740#define ODINPROCEDURE10 ODINPROCEDURENODBG10
741#define ODINPROCEDURE11 ODINPROCEDURENODBG11
742#define ODINPROCEDURE12 ODINPROCEDURENODBG12
743#define ODINPROCEDURE13 ODINPROCEDURENODBG13
744#define ODINPROCEDURE14 ODINPROCEDURENODBG14
745
746#endif
747
748/****************************************************************************
749 * General Wrapper Macros *
750 ****************************************************************************/
751
752
753/* ---------- 0 parameters ---------- */
754#define ODINFUNCTIONNODBG0(cRet,cName) \
755 cRet ODIN_INTERNAL ODIN_##cName (void); \
756 cRet WINAPI cName(void) \
757 { \
758 FNPROLOGUE(#cName) \
759 cRet rc = ODIN_##cName(); \
760 FNEPILOGUE(#cName) \
761 return rc; \
762 } \
763 \
764 cRet ODIN_INTERNAL ODIN_##cName (void)
765
766
767#define ODINPROCEDURENODBG0(cName) \
768 void ODIN_INTERNAL ODIN_##cName (void); \
769 void WINAPI cName(void) \
770 { \
771 FNPROLOGUE(#cName) \
772 ODIN_##cName(); \
773 FNEPILOGUE(#cName) \
774 } \
775 \
776 void ODIN_INTERNAL ODIN_##cName (void)
777
778
779/* ---------- 1 parameters ---------- */
780#define ODINFUNCTIONNODBG1(cRet,cName,t1,a1) \
781 cRet ODIN_INTERNAL ODIN_##cName (t1 a1); \
782 cRet WINAPI cName(t1 a1) \
783 { \
784 FNPROLOGUE(#cName) \
785 cRet rc = ODIN_##cName(a1); \
786 FNEPILOGUE(#cName) \
787 return rc; \
788 } \
789 \
790 cRet ODIN_INTERNAL ODIN_##cName (t1 a1)
791
792#define ODINPROCEDURENODBG1(cName,t1,a1) \
793 void ODIN_INTERNAL ODIN_##cName (t1 a1); \
794 void WINAPI cName(t1 a1) \
795 { \
796 FNPROLOGUE(#cName) \
797 ODIN_##cName(a1); \
798 FNEPILOGUE(#cName) \
799 } \
800 \
801 void ODIN_INTERNAL ODIN_##cName (t1 a1)
802
803
804/* ---------- 2 parameters ---------- */
805#define ODINFUNCTIONNODBG2(cRet,cName,t1,a1,t2,a2) \
806 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2); \
807 cRet WINAPI cName(t1 a1,t2 a2) \
808 { \
809 FNPROLOGUE(#cName) \
810 cRet rc = ODIN_##cName(a1,a2); \
811 FNEPILOGUE(#cName) \
812 return rc; \
813 } \
814 \
815 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
816
817#define ODINPROCEDURENODBG2(cName,t1,a1,t2,a2) \
818 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2); \
819 void WINAPI cName(t1 a1,t2 a2) \
820 { \
821 FNPROLOGUE(#cName) \
822 ODIN_##cName(a1,a2); \
823 FNEPILOGUE(#cName) \
824 } \
825 \
826 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
827
828
829/* ---------- 3 parameters ---------- */
830#define ODINFUNCTIONNODBG3(cRet,cName,t1,a1,t2,a2,t3,a3) \
831 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
832 cRet WINAPI cName(t1 a1,t2 a2,t3 a3) \
833 { \
834 FNPROLOGUE(#cName) \
835 cRet rc = ODIN_##cName(a1,a2,a3); \
836 FNEPILOGUE(#cName) \
837 return rc; \
838 } \
839 \
840 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
841
842#define ODINPROCEDURENODBG3(cName,t1,a1,t2,a2,t3,a3) \
843 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
844 void WINAPI cName(t1 a1,t2 a2,t3 a3) \
845 { \
846 FNPROLOGUE(#cName) \
847 ODIN_##cName(a1,a2,a3); \
848 FNEPILOGUE(#cName) \
849 } \
850 \
851 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
852
853
854/* ---------- 4 parameters ---------- */
855#define ODINFUNCTIONNODBG4(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4) \
856 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
857 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
858 { \
859 FNPROLOGUE(#cName) \
860 cRet rc = ODIN_##cName(a1,a2,a3,a4); \
861 FNEPILOGUE(#cName) \
862 return rc; \
863 } \
864 \
865 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
866
867#define ODINPROCEDURENODBG4(cName,t1,a1,t2,a2,t3,a3,t4,a4) \
868 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
869 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
870 { \
871 FNPROLOGUE(#cName) \
872 ODIN_##cName(a1,a2,a3,a4); \
873 FNEPILOGUE(#cName) \
874 } \
875 \
876 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
877
878
879/* ---------- 5 parameters ---------- */
880#define ODINFUNCTIONNODBG5(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
881 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
882 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
883 { \
884 FNPROLOGUE(#cName) \
885 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5); \
886 FNEPILOGUE(#cName) \
887 return rc; \
888 } \
889 \
890 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
891
892#define ODINPROCEDURENODBG5(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
893 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
894 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
895 { \
896 FNPROLOGUE(#cName) \
897 ODIN_##cName(a1,a2,a3,a4,a5); \
898 FNEPILOGUE(#cName) \
899 } \
900 \
901 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
902
903
904/* ---------- 6 parameters ---------- */
905#define ODINFUNCTIONNODBG6(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
906 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
907 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
908 { \
909 FNPROLOGUE(#cName) \
910 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6); \
911 FNEPILOGUE(#cName) \
912 return rc; \
913 } \
914 \
915 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
916
917#define ODINPROCEDURENODBG6(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
918 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
919 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
920 { \
921 FNPROLOGUE(#cName) \
922 ODIN_##cName(a1,a2,a3,a4,a5,a6); \
923 FNEPILOGUE(#cName) \
924 } \
925 \
926 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
927
928
929/* ---------- 7 parameters ---------- */
930#define ODINFUNCTIONNODBG7(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
931 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
932 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
933 { \
934 FNPROLOGUE(#cName) \
935 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
936 FNEPILOGUE(#cName) \
937 return rc; \
938 } \
939 \
940 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
941
942#define ODINPROCEDURENODBG7(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
943 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
944 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
945 { \
946 FNPROLOGUE(#cName) \
947 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
948 FNEPILOGUE(#cName) \
949 } \
950 \
951 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
952
953
954/* ---------- 8 parameters ---------- */
955#define ODINFUNCTIONNODBG8(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
956 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
957 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
958 { \
959 FNPROLOGUE(#cName) \
960 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
961 FNEPILOGUE(#cName) \
962 return rc; \
963 } \
964 \
965 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
966
967#define ODINPROCEDURENODBG8(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
968 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
969 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
970 { \
971 FNPROLOGUE(#cName) \
972 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
973 FNEPILOGUE(#cName) \
974 } \
975 \
976 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
977
978
979/* ---------- 9 parameters ---------- */
980#define ODINFUNCTIONNODBG9(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
981 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
982 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
983 { \
984 FNPROLOGUE(#cName) \
985 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
986 FNEPILOGUE(#cName) \
987 return rc; \
988 } \
989 \
990 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
991
992#define ODINPROCEDURENODBG9(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
993 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
994 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
995 { \
996 FNPROLOGUE(#cName) \
997 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
998 FNEPILOGUE(#cName) \
999 } \
1000 \
1001 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
1002
1003
1004/* ---------- 10 parameters ---------- */
1005#define ODINFUNCTIONNODBG10(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
1006 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10); \
1007 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
1008 { \
1009 FNPROLOGUE(#cName) \
1010 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
1011 FNEPILOGUE(#cName) \
1012 return rc; \
1013 } \
1014 \
1015 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10)
1016
1017#define ODINPROCEDURENODBG10(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
1018 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10); \
1019 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
1020 { \
1021 FNPROLOGUE(#cName) \
1022 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
1023 FNEPILOGUE(#cName) \
1024 } \
1025 \
1026 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10)
1027
1028
1029/* ---------- 11 parameters ---------- */
1030#define ODINFUNCTIONNODBG11(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11) \
1031 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11); \
1032 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11) \
1033 { \
1034 FNPROLOGUE(#cName) \
1035 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
1036 FNEPILOGUE(#cName) \
1037 return rc; \
1038 } \
1039 \
1040 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11)
1041
1042#define ODINPROCEDURENODBG11(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11) \
1043 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11); \
1044 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11) \
1045 { \
1046 FNPROLOGUE(#cName) \
1047 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
1048 FNEPILOGUE(#cName) \
1049 } \
1050 \
1051 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11)
1052
1053
1054/* ---------- 12 parameters ---------- */
1055#define ODINFUNCTIONNODBG12(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12) \
1056 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12); \
1057 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12) \
1058 { \
1059 FNPROLOGUE(#cName) \
1060 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
1061 FNEPILOGUE(#cName) \
1062 return rc; \
1063 } \
1064 \
1065 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12)
1066
1067#define ODINPROCEDURENODBG12(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12) \
1068 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12); \
1069 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12) \
1070 { \
1071 FNPROLOGUE(#cName) \
1072 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
1073 FNEPILOGUE(#cName) \
1074 } \
1075 \
1076 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12)
1077
1078
1079/* ---------- 13 parameters ---------- */
1080#define ODINFUNCTIONNODBG13(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12,t13,a13) \
1081 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13); \
1082 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13) \
1083 { \
1084 FNPROLOGUE(#cName) \
1085 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13); \
1086 FNEPILOGUE(#cName) \
1087 return rc; \
1088 } \
1089 \
1090 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13)
1091
1092#define ODINPROCEDURENODBG13(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12,t13,a13) \
1093 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13); \
1094 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13) \
1095 { \
1096 FNPROLOGUE(#cName) \
1097 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13); \
1098 FNEPILOGUE(#cName) \
1099 } \
1100 \
1101 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13)
1102
1103
1104/* ---------- 14 parameters ---------- */
1105#define ODINFUNCTIONNODBG14(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12,t13,a13,t14,a14) \
1106 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14); \
1107 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14) \
1108 { \
1109 FNPROLOGUE(#cName) \
1110 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14); \
1111 FNEPILOGUE(#cName) \
1112 return rc; \
1113 } \
1114 \
1115 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14)
1116
1117#define ODINPROCEDURENODBG14(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10,t11,a11,t12,a12,t13,a13,t14,a14) \
1118 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14); \
1119 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14) \
1120 { \
1121 FNPROLOGUE(#cName) \
1122 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14); \
1123 FNEPILOGUE(#cName) \
1124 } \
1125 \
1126 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10,t11 a11,t12 a12,t13 a13,t14 a14)
1127
1128#endif /* _ODINWRAP_H_ */
Note: See TracBrowser for help on using the repository browser.