source: trunk/include/odinwrap.h@ 3910

Last change on this file since 3910 was 3480, checked in by sandervl, 25 years ago

added rule for symbol files; disabled profiling
File size: 75.1 KB
RevLine 
[3480]1/* $Id: odinwrap.h,v 1.22 2000-05-02 20:49:26 sandervl Exp $ */
[473]2
3/*
4 * Project Odin Software License can be found in LICENSE.TXT
5 *
6 * ODIN FS: Selector function wrapper macros
7 *
8 * Copyright 1999 Patrick Haller
9 *
10 */
11
12
13#ifndef _ODINWRAP_H_
[1545]14#define _ODINWRAP_H_
[473]15
[2341]16#include <os2sel.h>
[473]17
18/****************************************************************************
19 * Defines *
20 ****************************************************************************/
21
[3467]22// override debugging
23//#undef DEBUG
24//#define DEBUG
[537]25
[3467]26// override profiling
27//#undef PROFILE_ODIN
[3480]28//#define PROFILE_ODIN
[3467]29
30
31
[533]32#define ODIN_INTERNAL _Optlink
[473]33
34
[475]35#ifdef DEBUG
36# define ODINDEBUGCHANNEL(a) static char* pszOdinDebugChannel=#a;
37#else
38# define ODINDEBUGCHANNEL(a)
39#endif
40
41
[1642]42//SvL: Define this to use the internal wrapper function of a specific api
43#define ODIN_EXTERN(a) ODIN_INTERNAL ODIN_##a
44
[475]45#ifdef DEBUG
46
[1439]47//@@@PH 1999/10/25 IBM VAC++ debug memory support
48#include <malloc.h>
49
[1669]50#if 1
51#define CheckFS(a)
52#else
53//SvL: Eases locating apis that corrupt FS
54#define error_FSSelector "FS Selector for thread %d corrupted!!!"
55
56extern int IsExeStarted(); //kernel32
57
58#define CheckFS(sel) if(sel == 0x150b && IsExeStarted()) { \
59 dprintf(((char *)error_FSSelector, GetCurrentThreadId())); \
60 }
61#endif
62
[1545]63//SvL: Only check the heap very frequently when there are problems
64//#define DEBUG_ODINHEAP
65
66#ifdef DEBUG_ODINHEAP
67#define ODIN_HEAPCHECK() _heap_check()
68#else
69#define ODIN_HEAPCHECK()
70#endif
71
[3467]72// PH: this is for profiling cumulative method call times
73#ifdef PROFILE_ODIN
74
75# define PROFILE_START(a) \
76 LARGE_INTEGER liStart; \
77 LARGE_INTEGER liEnd; \
78 unsigned long ulElapsed; \
79 QueryPerformanceCounter(&liStart);
80
81
82# define PROFILE_STOP(a) \
83 QueryPerformanceCounter(&liEnd);\
84 if (liStart.LowPart > liEnd.LowPart) \
85 ulElapsed = 0xFFFFFFFF - liStart.LowPart + liEnd.LowPart; \
86 else \
87 ulElapsed = liEnd.LowPart - liStart.LowPart; \
88 \
89 dprintf(("%s: %s %u ticks\n",\
90 pszOdinDebugChannel,\
91 a, \
92 ulElapsed));
93#else
94# define PROFILE_START(a)
95# define PROFILE_STOP(a)
96#endif
97
[473]98/****************************************************************************
[475]99 * General Wrapper Macros (debug instrumented) *
100 ****************************************************************************/
101
102/* ---------- 0 parameters ---------- */
103#define ODINFUNCTION0(cRet,cName) \
[3467]104 cRet ODIN_INTERNAL ODIN_##cName (void); \
105 cRet WINAPI cName(void) \
[475]106 { \
107 unsigned short sel = RestoreOS2FS(); \
[3467]108 dprintf(("%s: "#cRet" "#cName"() enter\n",\
[475]109 pszOdinDebugChannel)); \
[1669]110 CheckFS(sel) \
[3467]111 ODIN_HEAPCHECK(); \
112 PROFILE_START(#cName) \
[594]113 cRet rc = ODIN_##cName(); \
[3467]114 PROFILE_STOP(#cName) \
115 ODIN_HEAPCHECK(); \
[475]116 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
117 pszOdinDebugChannel, \
118 rc)); \
119 SetFS(sel); \
120 return rc; \
121 } \
122 \
[484]123 cRet ODIN_INTERNAL ODIN_##cName (void)
[475]124
125
126#define ODINPROCEDURE0(cName) \
[3467]127 void ODIN_INTERNAL ODIN_##cName (void); \
128 void WINAPI cName(void) \
[475]129 { \
130 unsigned short sel = RestoreOS2FS(); \
[3467]131 dprintf(("%s: void "#cName"() enter\n", \
[475]132 pszOdinDebugChannel)); \
[1669]133 CheckFS(sel) \
[3467]134 ODIN_HEAPCHECK(); \
135 PROFILE_START(#cName) \
136 ODIN_##cName(); \
137 PROFILE_STOP(#cName) \
138 ODIN_HEAPCHECK(); \
139 dprintf(("%s: void "#cName"() leave\n", \
[475]140 pszOdinDebugChannel)); \
141 SetFS(sel); \
142 } \
143 \
[484]144 void ODIN_INTERNAL ODIN_##cName (void)
[475]145
146
147/* ---------- 1 parameters ---------- */
148#define ODINFUNCTION1(cRet,cName,t1,a1) \
[3467]149 cRet ODIN_INTERNAL ODIN_##cName (t1 a1); \
150 cRet WINAPI cName(t1 a1) \
[475]151 { \
152 unsigned short sel = RestoreOS2FS(); \
153 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh) enter\n", \
154 pszOdinDebugChannel, \
155 a1)); \
[1669]156 CheckFS(sel) \
[3467]157 ODIN_HEAPCHECK(); \
158 PROFILE_START(#cName) \
159 cRet rc = ODIN_##cName(a1); \
160 PROFILE_STOP(#cName) \
161 ODIN_HEAPCHECK(); \
[475]162 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
163 pszOdinDebugChannel, \
164 rc)); \
165 SetFS(sel); \
166 return rc; \
167 } \
168 \
[484]169 cRet ODIN_INTERNAL ODIN_##cName (t1 a1)
[475]170
171#define ODINPROCEDURE1(cName,t1,a1) \
[3467]172 void ODIN_INTERNAL ODIN_##cName (t1 a1); \
173 void WINAPI cName(t1 a1) \
[475]174 { \
175 unsigned short sel = RestoreOS2FS(); \
176 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh) enter\n", \
177 pszOdinDebugChannel, \
178 a1)); \
[1669]179 CheckFS(sel) \
[3467]180 ODIN_HEAPCHECK(); \
181 PROFILE_START(#cName) \
182 ODIN_##cName(a1); \
183 PROFILE_STOP(#cName) \
184 ODIN_HEAPCHECK(); \
185 dprintf(("%s: void "#cName"() leave\n", \
[475]186 pszOdinDebugChannel)); \
187 SetFS(sel); \
188 } \
189 \
[484]190 void ODIN_INTERNAL ODIN_##cName (t1 a1)
[475]191
192
193/* ---------- 2 parameters ---------- */
194#define ODINFUNCTION2(cRet,cName,t1,a1,t2,a2) \
[3467]195 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2); \
196 cRet WINAPI cName(t1 a1,t2 a2) \
[475]197 { \
198 unsigned short sel = RestoreOS2FS(); \
199 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh) enter\n", \
[3467]200 pszOdinDebugChannel, \
201 a1,a2)); \
202 CheckFS(sel) \
203 ODIN_HEAPCHECK(); \
204 PROFILE_START(#cName) \
205 cRet rc = ODIN_##cName(a1,a2); \
206 PROFILE_STOP(#cName) \
207 ODIN_HEAPCHECK(); \
[475]208 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
[3467]209 pszOdinDebugChannel, \
210 rc)); \
211 SetFS(sel); \
212 return rc; \
213 } \
214 \
[484]215 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
[475]216
217#define ODINPROCEDURE2(cName,t1,a1,t2,a2) \
[484]218 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2); \
[3467]219 void WINAPI cName(t1 a1,t2 a2) \
[475]220 { \
221 unsigned short sel = RestoreOS2FS(); \
222 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh) enter\n", \
223 pszOdinDebugChannel, \
224 a1,a2)); \
[1669]225 CheckFS(sel) \
[3467]226 ODIN_HEAPCHECK(); \
227 PROFILE_START(#cName) \
228 ODIN_##cName(a1,a2); \
229 PROFILE_STOP(#cName) \
230 ODIN_HEAPCHECK(); \
231 dprintf(("%s: void "#cName"() leave\n", \
[475]232 pszOdinDebugChannel)); \
233 SetFS(sel); \
234 } \
235 \
[484]236 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
[475]237
238
239/* ---------- 3 parameters ---------- */
240#define ODINFUNCTION3(cRet,cName,t1,a1,t2,a2,t3,a3) \
[484]241 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
242 cRet WINAPI cName(t1 a1,t2 a2,t3 a3) \
[3467]243 { \
244 unsigned short sel = RestoreOS2FS(); \
[475]245 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh) enter\n", \
246 pszOdinDebugChannel, \
247 a1,a2,a3)); \
[1669]248 CheckFS(sel) \
[3467]249 ODIN_HEAPCHECK(); \
250 PROFILE_START(#cName) \
251 cRet rc = ODIN_##cName(a1,a2,a3); \
252 PROFILE_STOP(#cName) \
253 ODIN_HEAPCHECK(); \
[475]254 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
255 pszOdinDebugChannel, \
256 rc)); \
257 SetFS(sel); \
258 return rc; \
259 } \
260 \
[484]261 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
[475]262
263#define ODINPROCEDURE3(cName,t1,a1,t2,a2,t3,a3) \
[484]264 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
265 void WINAPI cName(t1 a1,t2 a2,t3 a3) \
[475]266 { \
267 unsigned short sel = RestoreOS2FS(); \
268 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh) enter\n", \
269 pszOdinDebugChannel, \
270 a1,a2,a3)); \
[1669]271 CheckFS(sel) \
[3189]272 ODIN_HEAPCHECK(); \
[3467]273 PROFILE_START(#cName) \
[491]274 ODIN_##cName(a1,a2,a3); \
[3467]275 PROFILE_STOP(#cName) \
[3189]276 ODIN_HEAPCHECK(); \
[475]277 dprintf(("%s: void "#cName"() leave\n", \
278 pszOdinDebugChannel)); \
279 SetFS(sel); \
280 } \
281 \
[484]282 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
[475]283
284
285/* ---------- 4 parameters ---------- */
286#define ODINFUNCTION4(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4) \
[484]287 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
288 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
[475]289 { \
290 unsigned short sel = RestoreOS2FS(); \
[1437]291 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh, "#t4" "#a4"=%08xh) enter\n", \
[475]292 pszOdinDebugChannel, \
293 a1,a2,a3,a4)); \
[1669]294 CheckFS(sel) \
[3189]295 ODIN_HEAPCHECK(); \
[3467]296 PROFILE_START(#cName) \
[491]297 cRet rc = ODIN_##cName(a1,a2,a3,a4); \
[3467]298 PROFILE_STOP(#cName) \
[3189]299 ODIN_HEAPCHECK(); \
[475]300 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
301 pszOdinDebugChannel, \
302 rc)); \
303 SetFS(sel); \
304 return rc; \
305 } \
306 \
[484]307 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
[475]308
309#define ODINPROCEDURE4(cName,t1,a1,t2,a2,t3,a3,t4,a4) \
[484]310 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
311 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
[475]312 { \
313 unsigned short sel = RestoreOS2FS(); \
314 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh, "#t4" "#a4"=%08xh) enter\n", \
315 pszOdinDebugChannel, \
316 a1,a2,a3,a4)); \
[1669]317 CheckFS(sel) \
[3189]318 ODIN_HEAPCHECK(); \
[3467]319 PROFILE_START(#cName) \
[491]320 ODIN_##cName(a1,a2,a3,a4); \
[3467]321 PROFILE_STOP(#cName) \
[3189]322 ODIN_HEAPCHECK(); \
[475]323 dprintf(("%s: void "#cName"() leave\n", \
324 pszOdinDebugChannel)); \
325 SetFS(sel); \
326 } \
327 \
[484]328 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
[475]329
330
331/* ---------- 5 parameters ---------- */
332#define ODINFUNCTION5(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
[484]333 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
334 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
[475]335 { \
336 unsigned short sel = RestoreOS2FS(); \
[1437]337 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh" \
[475]338 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh) enter\n", \
339 pszOdinDebugChannel, \
340 a1,a2,a3,a4,a5)); \
[1669]341 CheckFS(sel) \
[3189]342 ODIN_HEAPCHECK(); \
[3467]343 PROFILE_START(#cName) \
[491]344 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5); \
[3467]345 PROFILE_STOP(#cName) \
[3189]346 ODIN_HEAPCHECK(); \
[475]347 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
348 pszOdinDebugChannel, \
349 rc)); \
350 SetFS(sel); \
351 return rc; \
352 } \
353 \
[484]354 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
[475]355
356#define ODINPROCEDURE5(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
[484]357 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
358 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
[475]359 { \
360 unsigned short sel = RestoreOS2FS(); \
361 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
362 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh) enter\n", \
363 pszOdinDebugChannel, \
364 a1,a2,a3,a4,a5)); \
[1669]365 CheckFS(sel) \
[3189]366 ODIN_HEAPCHECK(); \
[3467]367 PROFILE_START(#cName) \
[491]368 ODIN_##cName(a1,a2,a3,a4,a5); \
[3467]369 PROFILE_STOP(#cName) \
[3189]370 ODIN_HEAPCHECK(); \
[475]371 dprintf(("%s: void "#cName"() leave\n", \
372 pszOdinDebugChannel)); \
373 SetFS(sel); \
374 } \
375 \
[484]376 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
[475]377
378
379/* ---------- 6 parameters ---------- */
380#define ODINFUNCTION6(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
[484]381 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
382 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
[475]383 { \
384 unsigned short sel = RestoreOS2FS(); \
[1437]385 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
[476]386 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh) enter\n", \
[475]387 pszOdinDebugChannel, \
[1437]388 a1,a2,a3,a4,a5,a6)); \
[1669]389 CheckFS(sel) \
[3189]390 ODIN_HEAPCHECK(); \
[3467]391 PROFILE_START(#cName) \
[491]392 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6); \
[3467]393 PROFILE_STOP(#cName) \
[3189]394 ODIN_HEAPCHECK(); \
[475]395 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
396 pszOdinDebugChannel, \
397 rc)); \
398 SetFS(sel); \
399 return rc; \
400 } \
401 \
[484]402 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
[475]403
[2241]404// @@@PH 1999/12/28 the following macro is a workaround for WINMM:waveOutOpen
405// where the system needs to know about the win32 tib fs selector
406#define ODINFUNCTION6FS(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
407 cRet ODIN_INTERNAL ODIN_##cName (unsigned short selFS, t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
408 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
409 { \
410 unsigned short sel = RestoreOS2FS(); \
411 dprintf(("%s: "#cRet" "#cName"(selFS=%04xh, "#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
412 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh) enter\n", \
413 pszOdinDebugChannel, \
414 sel, \
415 a1,a2,a3,a4,a5,a6)); \
416 CheckFS(sel) \
[3189]417 ODIN_HEAPCHECK(); \
[3467]418 PROFILE_START(#cName) \
[2241]419 cRet rc = ODIN_##cName(sel,a1,a2,a3,a4,a5,a6); \
[3467]420 PROFILE_STOP(#cName) \
[3189]421 ODIN_HEAPCHECK(); \
[2241]422 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
423 pszOdinDebugChannel, \
424 rc)); \
425 SetFS(sel); \
426 return rc; \
427 } \
428 \
429 cRet ODIN_INTERNAL ODIN_##cName (unsigned short selFS, t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
430
431
[475]432#define ODINPROCEDURE6(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
[484]433 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
434 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
[475]435 { \
436 unsigned short sel = RestoreOS2FS(); \
[476]437 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
438 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh) enter\n", \
[475]439 pszOdinDebugChannel, \
[1437]440 a1,a2,a3,a4,a5,a6)); \
[1669]441 CheckFS(sel) \
[3189]442 ODIN_HEAPCHECK(); \
[3467]443 PROFILE_START(#cName) \
[491]444 ODIN_##cName(a1,a2,a3,a4,a5,a6); \
[3467]445 PROFILE_STOP(#cName) \
[3189]446 ODIN_HEAPCHECK(); \
[475]447 dprintf(("%s: void "#cName"() leave\n", \
448 pszOdinDebugChannel)); \
449 SetFS(sel); \
450 } \
451 \
[484]452 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
[475]453
454
455/* ---------- 7 parameters ---------- */
456#define ODINFUNCTION7(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
[484]457 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
458 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
[475]459 { \
460 unsigned short sel = RestoreOS2FS(); \
[1437]461 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
[476]462 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh) enter\n", \
[475]463 pszOdinDebugChannel, \
[1437]464 a1,a2,a3,a4,a5,a6,a7)); \
[1669]465 CheckFS(sel) \
[3189]466 ODIN_HEAPCHECK(); \
[3467]467 PROFILE_START(#cName) \
[491]468 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
[3467]469 PROFILE_STOP(#cName) \
[3189]470 ODIN_HEAPCHECK(); \
[475]471 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
472 pszOdinDebugChannel, \
473 rc)); \
474 SetFS(sel); \
475 return rc; \
476 } \
477 \
[484]478 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
[475]479
480#define ODINPROCEDURE7(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
[484]481 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
482 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
[475]483 { \
484 unsigned short sel = RestoreOS2FS(); \
[476]485 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
486 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh) enter\n", \
[475]487 pszOdinDebugChannel, \
[1437]488 a1,a2,a3,a4,a5,a6,a7)); \
[1669]489 CheckFS(sel) \
[3189]490 ODIN_HEAPCHECK(); \
[3467]491 PROFILE_START(#cName) \
[491]492 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
[3467]493 PROFILE_STOP(#cName) \
[3189]494 ODIN_HEAPCHECK(); \
[475]495 dprintf(("%s: void "#cName"() leave\n", \
496 pszOdinDebugChannel)); \
497 SetFS(sel); \
498 } \
499 \
[484]500 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
[475]501
502
503/* ---------- 8 parameters ---------- */
504#define ODINFUNCTION8(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
[484]505 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
506 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
[475]507 { \
508 unsigned short sel = RestoreOS2FS(); \
[1437]509 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
[476]510 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
511 ", "#t8" "#a8"=%08xh) enter\n", \
[475]512 pszOdinDebugChannel, \
[1437]513 a1,a2,a3,a4,a5,a6,a7,a8)); \
[1669]514 CheckFS(sel) \
[3189]515 ODIN_HEAPCHECK(); \
[3467]516 PROFILE_START(#cName) \
[491]517 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
[3467]518 PROFILE_STOP(#cName) \
[3189]519 ODIN_HEAPCHECK(); \
[475]520 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
521 pszOdinDebugChannel, \
522 rc)); \
523 SetFS(sel); \
524 return rc; \
525 } \
526 \
[484]527 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
[475]528
529#define ODINPROCEDURE8(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
[484]530 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
531 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
[475]532 { \
533 unsigned short sel = RestoreOS2FS(); \
[476]534 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
535 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
536 ", "#t8" "#a8"=%08xh) enter\n", \
[475]537 pszOdinDebugChannel, \
[1437]538 a1,a2,a3,a4,a5,a6,a7,a8)); \
[3189]539 ODIN_HEAPCHECK(); \
[1669]540 CheckFS(sel) \
[3467]541 PROFILE_START(#cName) \
[491]542 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
[3467]543 PROFILE_STOP(#cName) \
[3189]544 ODIN_HEAPCHECK(); \
[475]545 dprintf(("%s: void "#cName"() leave\n", \
546 pszOdinDebugChannel)); \
547 SetFS(sel); \
548 } \
549 \
[484]550 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
[475]551
552
553/* ---------- 9 parameters ---------- */
554#define ODINFUNCTION9(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
[484]555 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
556 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
[475]557 { \
558 unsigned short sel = RestoreOS2FS(); \
[476]559 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
560 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
561 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh) enter\n", \
[475]562 pszOdinDebugChannel, \
[1437]563 a1,a2,a3,a4,a5,a6,a7,a8,a9)); \
[1669]564 CheckFS(sel) \
[3189]565 ODIN_HEAPCHECK(); \
[3467]566 PROFILE_START(#cName) \
[491]567 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
[3467]568 PROFILE_STOP(#cName) \
[3189]569 ODIN_HEAPCHECK(); \
[475]570 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
571 pszOdinDebugChannel, \
572 rc)); \
573 SetFS(sel); \
574 return rc; \
575 } \
576 \
[484]577 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
[475]578
579#define ODINPROCEDURE9(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
[484]580 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
581 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
[475]582 { \
583 unsigned short sel = RestoreOS2FS(); \
[476]584 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
585 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
586 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh) enter\n", \
[475]587 pszOdinDebugChannel, \
[1437]588 a1,a2,a3,a4,a5,a6,a7,a8,a9)); \
[1669]589 CheckFS(sel) \
[3189]590 ODIN_HEAPCHECK(); \
[3467]591 PROFILE_START(#cName) \
[491]592 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
[3467]593 PROFILE_STOP(#cName) \
[3189]594 ODIN_HEAPCHECK(); \
[475]595 dprintf(("%s: void "#cName"() leave\n", \
596 pszOdinDebugChannel)); \
597 SetFS(sel); \
598 } \
599 \
[484]600 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
[475]601
602
603/* ---------- 10 parameters ---------- */
604#define ODINFUNCTION10(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
[484]605 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); \
606 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
[475]607 { \
608 unsigned short sel = RestoreOS2FS(); \
[1437]609 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
[476]610 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
611 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh) enter\n", \
[475]612 pszOdinDebugChannel, \
[1437]613 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10));\
[1669]614 CheckFS(sel) \
[3189]615 ODIN_HEAPCHECK(); \
[3467]616 PROFILE_START(#cName) \
[491]617 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
[3467]618 PROFILE_STOP(#cName) \
[3189]619 ODIN_HEAPCHECK(); \
[475]620 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
621 pszOdinDebugChannel, \
622 rc)); \
623 SetFS(sel); \
624 return rc; \
625 } \
626 \
[484]627 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)
[475]628
629#define ODINPROCEDURE10(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
[484]630 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); \
631 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
[475]632 { \
633 unsigned short sel = RestoreOS2FS(); \
[476]634 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
635 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
636 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh) enter\n", \
[475]637 pszOdinDebugChannel, \
638 a1,a2,a3)); \
[1669]639 CheckFS(sel) \
[3189]640 ODIN_HEAPCHECK(); \
[3467]641 PROFILE_START(#cName) \
[491]642 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
[3467]643 PROFILE_STOP(#cName) \
[3189]644 ODIN_HEAPCHECK(); \
[475]645 dprintf(("%s: void "#cName"() leave\n", \
646 pszOdinDebugChannel)); \
647 SetFS(sel); \
648 } \
649 \
[484]650 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)
[475]651
652
653/* ---------- 11 parameters ---------- */
654#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) \
[484]655 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); \
656 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) \
[475]657 { \
658 unsigned short sel = RestoreOS2FS(); \
[1437]659 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
[476]660 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
661 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh) enter\n", \
[475]662 pszOdinDebugChannel, \
[1437]663 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11)); \
[1669]664 CheckFS(sel) \
[3189]665 ODIN_HEAPCHECK(); \
[3467]666 PROFILE_START(#cName) \
[491]667 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
[3467]668 PROFILE_STOP(#cName) \
[3189]669 ODIN_HEAPCHECK(); \
[475]670 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
671 pszOdinDebugChannel, \
672 rc)); \
673 SetFS(sel); \
674 return rc; \
675 } \
676 \
[484]677 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)
[475]678
679#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) \
[484]680 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); \
681 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) \
[475]682 { \
683 unsigned short sel = RestoreOS2FS(); \
[476]684 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
685 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
686 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh) enter\n", \
[475]687 pszOdinDebugChannel, \
[1437]688 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11)); \
[1669]689 CheckFS(sel) \
[3189]690 ODIN_HEAPCHECK(); \
[3467]691 PROFILE_START(#cName) \
[491]692 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
[3467]693 PROFILE_STOP(#cName) \
[3189]694 ODIN_HEAPCHECK(); \
[475]695 dprintf(("%s: void "#cName"() leave\n", \
696 pszOdinDebugChannel)); \
697 SetFS(sel); \
698 } \
699 \
[484]700 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)
[475]701
702
703/* ---------- 12 parameters ---------- */
704#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) \
[484]705 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); \
706 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) \
[475]707 { \
708 unsigned short sel = RestoreOS2FS(); \
[1437]709 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
[476]710 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
711 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
712 ", "#t12" "#a12"=%08xh) enter\n", \
[475]713 pszOdinDebugChannel, \
[1437]714 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12)); \
[1669]715 CheckFS(sel) \
[3189]716 ODIN_HEAPCHECK(); \
[3467]717 PROFILE_START(#cName) \
[491]718 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
[3467]719 PROFILE_STOP(#cName) \
[3189]720 ODIN_HEAPCHECK(); \
[475]721 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
722 pszOdinDebugChannel, \
723 rc)); \
724 SetFS(sel); \
725 return rc; \
726 } \
727 \
[484]728 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)
[475]729
730#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) \
[484]731 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); \
732 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) \
[475]733 { \
734 unsigned short sel = RestoreOS2FS(); \
[476]735 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
736 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
737 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
738 ", "#t12" "#a12"=%08xh) enter\n", \
[475]739 pszOdinDebugChannel, \
[1696]740 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12)); \
[1669]741 CheckFS(sel) \
[3189]742 ODIN_HEAPCHECK(); \
[3467]743 PROFILE_START(#cName) \
[491]744 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
[3467]745 PROFILE_STOP(#cName) \
[3189]746 ODIN_HEAPCHECK(); \
[475]747 dprintf(("%s: void "#cName"() leave\n", \
748 pszOdinDebugChannel)); \
749 SetFS(sel); \
750 } \
751 \
[484]752 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)
[475]753
754
[1696]755/* ---------- 13 parameters ---------- */
756#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) \
757 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); \
758 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) \
759 { \
760 unsigned short sel = RestoreOS2FS(); \
761 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
762 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
763 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
764 ", "#t12" "#a12"=%08xh, "#t13" "#a13"=%08xh) enter\n", \
765 pszOdinDebugChannel, \
766 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13)); \
767 CheckFS(sel) \
[3189]768 ODIN_HEAPCHECK(); \
[3467]769 PROFILE_START(#cName) \
[1696]770 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13); \
[3467]771 PROFILE_STOP(#cName) \
[3189]772 ODIN_HEAPCHECK(); \
[1696]773 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
774 pszOdinDebugChannel, \
775 rc)); \
776 SetFS(sel); \
777 return rc; \
778 } \
779 \
780 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)
781
782#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) \
783 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); \
784 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) \
785 { \
786 unsigned short sel = RestoreOS2FS(); \
787 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
788 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
789 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
790 ", "#t12" "#a12"=%08xh, "#t13" "#a13"=%08xh, ) enter\n", \
791 pszOdinDebugChannel, \
792 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13)); \
793 CheckFS(sel) \
[3189]794 ODIN_HEAPCHECK(); \
[3467]795 PROFILE_START(#cName) \
[1696]796 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13); \
[3467]797 PROFILE_STOP(#cName) \
[3189]798 ODIN_HEAPCHECK(); \
[1696]799 dprintf(("%s: void "#cName"() leave\n", \
800 pszOdinDebugChannel)); \
801 SetFS(sel); \
802 } \
803 \
804 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)
805
806
807/* ---------- 14 parameters ---------- */
808#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) \
809 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); \
810 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) \
811 { \
812 unsigned short sel = RestoreOS2FS(); \
813 dprintf(("%s: "#cRet" "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
814 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
815 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
816 ", "#t12" "#a12"=%08xh, "#t13" "#a13"=%08xh, "#t14" "#a14"=%08xh) enter\n", \
817 pszOdinDebugChannel, \
818 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14)); \
819 CheckFS(sel) \
[3189]820 ODIN_HEAPCHECK(); \
[3467]821 PROFILE_START(#cName) \
[1696]822 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14); \
[3189]823 ODIN_HEAPCHECK(); \
[1696]824 dprintf(("%s: "#cRet" "#cName"() leave = %08xh\n", \
825 pszOdinDebugChannel, \
826 rc)); \
827 SetFS(sel); \
828 return rc; \
829 } \
830 \
831 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)
832
833#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) \
[1953]834 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); \
[1696]835 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) \
836 { \
837 unsigned short sel = RestoreOS2FS(); \
838 dprintf(("%s: void "#cName"("#t1" "#a1"=%08xh, "#t2" "#a2"=%08xh, "#t3" "#a3"=%08xh)" \
839 ", "#t4" "#a4"=%08xh, "#t5" "#a5"=%08xh, "#t6" "#a6"=%08xh, "#t7" "#a7"=%08xh" \
840 ", "#t8" "#a8"=%08xh, "#t9" "#a9"=%08xh, "#t10" "#a10"=%08xh, "#t11" "#a11"=%08xh" \
841 ", "#t12" "#a12"=%08xh, "#t13" "#a13"=%08xh, "#t14" "#a14"=%08xh) enter\n", \
842 pszOdinDebugChannel, \
843 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14)); \
844 CheckFS(sel) \
[3189]845 ODIN_HEAPCHECK(); \
[3467]846 PROFILE_START(#cName) \
[1696]847 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14); \
[3467]848 PROFILE_STOP(#cName) \
[3189]849 ODIN_HEAPCHECK(); \
[1696]850 dprintf(("%s: void "#cName"() leave\n", \
851 pszOdinDebugChannel)); \
852 SetFS(sel); \
853 } \
854 \
855 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)
856
857
[475]858#else
859
860/****************************************************************************
[473]861 * General Wrapper Macros *
862 ****************************************************************************/
863
864/* ---------- 0 parameters ---------- */
865#define ODINFUNCTION0(cRet,cName) \
[484]866 cRet ODIN_INTERNAL ODIN_##cName (void);\
867 cRet WINAPI cName(void) \
[473]868 { \
869 unsigned short sel = RestoreOS2FS(); \
[491]870 cRet rc = ODIN_##cName(); \
[473]871 SetFS(sel); \
872 return rc; \
873 } \
874 \
[484]875 cRet ODIN_INTERNAL ODIN_##cName (void)
[473]876
877
878#define ODINPROCEDURE0(cName) \
[484]879 void ODIN_INTERNAL ODIN_##cName (void);\
880 void WINAPI cName(void) \
[473]881 { \
882 unsigned short sel = RestoreOS2FS(); \
[491]883 ODIN_##cName(); \
[473]884 SetFS(sel); \
885 } \
886 \
[484]887 void ODIN_INTERNAL ODIN_##cName (void)
[473]888
889
890/* ---------- 1 parameters ---------- */
891#define ODINFUNCTION1(cRet,cName,t1,a1) \
[484]892 cRet ODIN_INTERNAL ODIN_##cName (t1 a1);\
893 cRet WINAPI cName(t1 a1) \
[473]894 { \
895 unsigned short sel = RestoreOS2FS(); \
[491]896 cRet rc = ODIN_##cName(a1); \
[473]897 SetFS(sel); \
898 return rc; \
899 } \
900 \
[484]901 cRet ODIN_INTERNAL ODIN_##cName (t1 a1)
[473]902
903#define ODINPROCEDURE1(cName,t1,a1) \
[484]904 void ODIN_INTERNAL ODIN_##cName (t1 a1);\
905 void WINAPI cName(t1 a1) \
[473]906 { \
907 unsigned short sel = RestoreOS2FS(); \
[491]908 ODIN_##cName(a1); \
[473]909 SetFS(sel); \
910 } \
911 \
[484]912 void ODIN_INTERNAL ODIN_##cName (t1 a1)
[473]913
914
915/* ---------- 2 parameters ---------- */
916#define ODINFUNCTION2(cRet,cName,t1,a1,t2,a2) \
[484]917 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2); \
918 cRet WINAPI cName(t1 a1,t2 a2) \
[473]919 { \
920 unsigned short sel = RestoreOS2FS(); \
[491]921 cRet rc = ODIN_##cName(a1,a2); \
[473]922 SetFS(sel); \
923 return rc; \
924 } \
925 \
[484]926 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
[473]927
928#define ODINPROCEDURE2(cName,t1,a1,t2,a2) \
[484]929 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2);\
930 void WINAPI cName(t1 a1,t2 a2) \
[473]931 { \
932 unsigned short sel = RestoreOS2FS(); \
[491]933 ODIN_##cName(a1,a2); \
[473]934 SetFS(sel); \
935 } \
936 \
[484]937 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
[473]938
939
940/* ---------- 3 parameters ---------- */
941#define ODINFUNCTION3(cRet,cName,t1,a1,t2,a2,t3,a3) \
[484]942 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
943 cRet WINAPI cName(t1 a1,t2 a2,t3 a3) \
[473]944 { \
945 unsigned short sel = RestoreOS2FS(); \
[491]946 cRet rc = ODIN_##cName(a1,a2,a3); \
[473]947 SetFS(sel); \
948 return rc; \
949 } \
950 \
[484]951 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
[473]952
953#define ODINPROCEDURE3(cName,t1,a1,t2,a2,t3,a3) \
[484]954 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
955 void WINAPI cName(t1 a1,t2 a2,t3 a3) \
[473]956 { \
957 unsigned short sel = RestoreOS2FS(); \
[491]958 ODIN_##cName(a1,a2,a3); \
[473]959 SetFS(sel); \
960 } \
961 \
[484]962 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
[473]963
964
965/* ---------- 4 parameters ---------- */
966#define ODINFUNCTION4(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4) \
[484]967 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
968 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
[473]969 { \
970 unsigned short sel = RestoreOS2FS(); \
[491]971 cRet rc = ODIN_##cName(a1,a2,a3,a4); \
[473]972 SetFS(sel); \
973 return rc; \
974 } \
975 \
[484]976 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
[473]977
978#define ODINPROCEDURE4(cName,t1,a1,t2,a2,t3,a3,t4,a4) \
[484]979 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
980 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
[473]981 { \
982 unsigned short sel = RestoreOS2FS(); \
[491]983 ODIN_##cName(a1,a2,a3,a4); \
[473]984 SetFS(sel); \
985 } \
986 \
[484]987 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
[473]988
989
990/* ---------- 5 parameters ---------- */
991#define ODINFUNCTION5(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
[484]992 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
993 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
[473]994 { \
995 unsigned short sel = RestoreOS2FS(); \
[491]996 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5); \
[473]997 SetFS(sel); \
998 return rc; \
999 } \
1000 \
[484]1001 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
[473]1002
1003#define ODINPROCEDURE5(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
[484]1004 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
1005 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
[473]1006 { \
1007 unsigned short sel = RestoreOS2FS(); \
[491]1008 ODIN_##cName(a1,a2,a3,a4,a5); \
[473]1009 SetFS(sel); \
1010 } \
1011 \
[484]1012 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
[473]1013
1014
1015/* ---------- 6 parameters ---------- */
1016#define ODINFUNCTION6(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
[484]1017 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
1018 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
[473]1019 { \
1020 unsigned short sel = RestoreOS2FS(); \
[491]1021 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6); \
[473]1022 SetFS(sel); \
1023 return rc; \
1024 } \
1025 \
[484]1026 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
[473]1027
[2241]1028
1029// @@@PH 1999/12/28 the following macro is a workaround for WINMM:waveOutOpen
1030// where the system needs to know about the win32 tib fs selector
1031#define ODINFUNCTION6FS(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
1032 cRet ODIN_INTERNAL ODIN_##cName (unsigned short selFS, t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
1033 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
1034 { \
1035 unsigned short sel = RestoreOS2FS(); \
1036 cRet rc = ODIN_##cName(sel,a1,a2,a3,a4,a5,a6); \
1037 SetFS(sel); \
1038 return rc; \
1039 } \
1040 \
1041 cRet ODIN_INTERNAL ODIN_##cName (unsigned short selFS, t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
1042
1043
[473]1044#define ODINPROCEDURE6(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
[484]1045 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
1046 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
[473]1047 { \
1048 unsigned short sel = RestoreOS2FS(); \
[491]1049 ODIN_##cName(a1,a2,a3,a4,a5,a6); \
[473]1050 SetFS(sel); \
1051 } \
1052 \
[484]1053 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
[473]1054
1055
1056/* ---------- 7 parameters ---------- */
1057#define ODINFUNCTION7(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
[484]1058 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
1059 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
[473]1060 { \
1061 unsigned short sel = RestoreOS2FS(); \
[491]1062 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
[473]1063 SetFS(sel); \
1064 return rc; \
1065 } \
1066 \
[484]1067 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
[473]1068
1069#define ODINPROCEDURE7(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
[484]1070 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
1071 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
[473]1072 { \
1073 unsigned short sel = RestoreOS2FS(); \
[491]1074 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
[473]1075 SetFS(sel); \
1076 } \
1077 \
[484]1078 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
[473]1079
1080
1081/* ---------- 8 parameters ---------- */
1082#define ODINFUNCTION8(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
[484]1083 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
1084 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
[473]1085 { \
1086 unsigned short sel = RestoreOS2FS(); \
[491]1087 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
[473]1088 SetFS(sel); \
1089 return rc; \
1090 } \
1091 \
[595]1092 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
[473]1093
1094#define ODINPROCEDURE8(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
[484]1095 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
1096 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
[473]1097 { \
1098 unsigned short sel = RestoreOS2FS(); \
[491]1099 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
[473]1100 SetFS(sel); \
1101 } \
1102 \
[484]1103 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
[473]1104
1105
[475]1106/* ---------- 9 parameters ---------- */
1107#define ODINFUNCTION9(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
[484]1108 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
1109 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
[475]1110 { \
1111 unsigned short sel = RestoreOS2FS(); \
[491]1112 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
[475]1113 SetFS(sel); \
1114 return rc; \
1115 } \
1116 \
[595]1117 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
[473]1118
[475]1119#define ODINPROCEDURE9(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
[484]1120 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
1121 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
[475]1122 { \
1123 unsigned short sel = RestoreOS2FS(); \
[491]1124 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
[475]1125 SetFS(sel); \
1126 } \
1127 \
[484]1128 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
[475]1129
1130
1131/* ---------- 10 parameters ---------- */
1132#define ODINFUNCTION10(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
[484]1133 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); \
1134 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
[475]1135 { \
1136 unsigned short sel = RestoreOS2FS(); \
[491]1137 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
[475]1138 SetFS(sel); \
1139 return rc; \
1140 } \
1141 \
[595]1142 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)
[475]1143
1144#define ODINPROCEDURE10(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
[484]1145 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); \
1146 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
[475]1147 { \
1148 unsigned short sel = RestoreOS2FS(); \
[491]1149 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
[475]1150 SetFS(sel); \
1151 } \
1152 \
[484]1153 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)
[475]1154
1155
1156/* ---------- 11 parameters ---------- */
1157#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) \
[484]1158 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); \
1159 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) \
[475]1160 { \
1161 unsigned short sel = RestoreOS2FS(); \
[491]1162 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
[475]1163 SetFS(sel); \
1164 return rc; \
1165 } \
1166 \
[595]1167 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)
[475]1168
1169#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) \
[484]1170 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); \
1171 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) \
[475]1172 { \
1173 unsigned short sel = RestoreOS2FS(); \
[491]1174 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
[475]1175 SetFS(sel); \
1176 } \
1177 \
[484]1178 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)
[475]1179
1180
1181/* ---------- 12 parameters ---------- */
1182#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) \
[484]1183 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); \
1184 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) \
[475]1185 { \
1186 unsigned short sel = RestoreOS2FS(); \
[491]1187 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
[475]1188 SetFS(sel); \
1189 return rc; \
1190 } \
1191 \
[595]1192 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)
[475]1193
1194#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) \
[484]1195 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); \
1196 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) \
[475]1197 { \
1198 unsigned short sel = RestoreOS2FS(); \
[491]1199 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
[475]1200 SetFS(sel); \
1201 } \
1202 \
[484]1203 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)
[475]1204
1205
1206
1207#endif
1208
[1669]1209/****************************************************************************
1210 * General Wrapper Macros *
1211 ****************************************************************************/
1212
1213/* ---------- 0 parameters ---------- */
1214#define ODINFUNCTIONNODBG0(cRet,cName) \
1215 cRet ODIN_INTERNAL ODIN_##cName (void);\
1216 cRet WINAPI cName(void) \
1217 { \
1218 unsigned short sel = RestoreOS2FS(); \
1219 cRet rc = ODIN_##cName(); \
1220 SetFS(sel); \
1221 return rc; \
1222 } \
1223 \
1224 cRet ODIN_INTERNAL ODIN_##cName (void)
1225
1226
1227#define ODINPROCEDURENODBG0(cName) \
1228 void ODIN_INTERNAL ODIN_##cName (void);\
1229 void WINAPI cName(void) \
1230 { \
1231 unsigned short sel = RestoreOS2FS(); \
1232 ODIN_##cName(); \
1233 SetFS(sel); \
1234 } \
1235 \
1236 void ODIN_INTERNAL ODIN_##cName (void)
1237
1238
1239/* ---------- 1 parameters ---------- */
1240#define ODINFUNCTIONNODBG1(cRet,cName,t1,a1) \
1241 cRet ODIN_INTERNAL ODIN_##cName (t1 a1);\
1242 cRet WINAPI cName(t1 a1) \
1243 { \
1244 unsigned short sel = RestoreOS2FS(); \
1245 cRet rc = ODIN_##cName(a1); \
1246 SetFS(sel); \
1247 return rc; \
1248 } \
1249 \
1250 cRet ODIN_INTERNAL ODIN_##cName (t1 a1)
1251
1252#define ODINPROCEDURENODBG1(cName,t1,a1) \
1253 void ODIN_INTERNAL ODIN_##cName (t1 a1);\
1254 void WINAPI cName(t1 a1) \
1255 { \
1256 unsigned short sel = RestoreOS2FS(); \
1257 ODIN_##cName(a1); \
1258 SetFS(sel); \
1259 } \
1260 \
1261 void ODIN_INTERNAL ODIN_##cName (t1 a1)
1262
1263
1264/* ---------- 2 parameters ---------- */
1265#define ODINFUNCTIONNODBG2(cRet,cName,t1,a1,t2,a2) \
1266 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2); \
1267 cRet WINAPI cName(t1 a1,t2 a2) \
1268 { \
1269 unsigned short sel = RestoreOS2FS(); \
1270 cRet rc = ODIN_##cName(a1,a2); \
1271 SetFS(sel); \
1272 return rc; \
1273 } \
1274 \
1275 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
1276
1277#define ODINPROCEDURENODBG2(cName,t1,a1,t2,a2) \
1278 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2);\
1279 void WINAPI cName(t1 a1,t2 a2) \
1280 { \
1281 unsigned short sel = RestoreOS2FS(); \
1282 ODIN_##cName(a1,a2); \
1283 SetFS(sel); \
1284 } \
1285 \
1286 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2)
1287
1288
1289/* ---------- 3 parameters ---------- */
1290#define ODINFUNCTIONNODBG3(cRet,cName,t1,a1,t2,a2,t3,a3) \
1291 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
1292 cRet WINAPI cName(t1 a1,t2 a2,t3 a3) \
1293 { \
1294 unsigned short sel = RestoreOS2FS(); \
1295 cRet rc = ODIN_##cName(a1,a2,a3); \
1296 SetFS(sel); \
1297 return rc; \
1298 } \
1299 \
1300 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
1301
1302#define ODINPROCEDURENODBG3(cName,t1,a1,t2,a2,t3,a3) \
1303 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3); \
1304 void WINAPI cName(t1 a1,t2 a2,t3 a3) \
1305 { \
1306 unsigned short sel = RestoreOS2FS(); \
1307 ODIN_##cName(a1,a2,a3); \
1308 SetFS(sel); \
1309 } \
1310 \
1311 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3)
1312
1313
1314/* ---------- 4 parameters ---------- */
1315#define ODINFUNCTIONNODBG4(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4) \
1316 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
1317 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
1318 { \
1319 unsigned short sel = RestoreOS2FS(); \
1320 cRet rc = ODIN_##cName(a1,a2,a3,a4); \
1321 SetFS(sel); \
1322 return rc; \
1323 } \
1324 \
1325 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
1326
1327#define ODINPROCEDURENODBG4(cName,t1,a1,t2,a2,t3,a3,t4,a4) \
1328 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4); \
1329 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4) \
1330 { \
1331 unsigned short sel = RestoreOS2FS(); \
1332 ODIN_##cName(a1,a2,a3,a4); \
1333 SetFS(sel); \
1334 } \
1335 \
1336 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4)
1337
1338
1339/* ---------- 5 parameters ---------- */
1340#define ODINFUNCTIONNODBG5(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
1341 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
1342 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
1343 { \
1344 unsigned short sel = RestoreOS2FS(); \
1345 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5); \
1346 SetFS(sel); \
1347 return rc; \
1348 } \
1349 \
1350 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
1351
1352#define ODINPROCEDURENODBG5(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5) \
1353 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5); \
1354 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5) \
1355 { \
1356 unsigned short sel = RestoreOS2FS(); \
1357 ODIN_##cName(a1,a2,a3,a4,a5); \
1358 SetFS(sel); \
1359 } \
1360 \
1361 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5)
1362
1363
1364/* ---------- 6 parameters ---------- */
1365#define ODINFUNCTIONNODBG6(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
1366 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
1367 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
1368 { \
1369 unsigned short sel = RestoreOS2FS(); \
1370 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6); \
1371 SetFS(sel); \
1372 return rc; \
1373 } \
1374 \
1375 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
1376
1377#define ODINPROCEDURENODBG6(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6) \
1378 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6); \
1379 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6) \
1380 { \
1381 unsigned short sel = RestoreOS2FS(); \
1382 ODIN_##cName(a1,a2,a3,a4,a5,a6); \
1383 SetFS(sel); \
1384 } \
1385 \
1386 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6)
1387
1388
1389/* ---------- 7 parameters ---------- */
1390#define ODINFUNCTIONNODBG7(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
1391 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
1392 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
1393 { \
1394 unsigned short sel = RestoreOS2FS(); \
1395 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
1396 SetFS(sel); \
1397 return rc; \
1398 } \
1399 \
1400 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
1401
1402#define ODINPROCEDURENODBG7(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7) \
1403 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7); \
1404 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7) \
1405 { \
1406 unsigned short sel = RestoreOS2FS(); \
1407 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7); \
1408 SetFS(sel); \
1409 } \
1410 \
1411 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7)
1412
1413
1414/* ---------- 8 parameters ---------- */
1415#define ODINFUNCTIONNODBG8(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
1416 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
1417 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
1418 { \
1419 unsigned short sel = RestoreOS2FS(); \
1420 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
1421 SetFS(sel); \
1422 return rc; \
1423 } \
1424 \
1425 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
1426
1427#define ODINPROCEDURENODBG8(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8) \
1428 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8); \
1429 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8) \
1430 { \
1431 unsigned short sel = RestoreOS2FS(); \
1432 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8); \
1433 SetFS(sel); \
1434 } \
1435 \
1436 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8)
1437
1438
1439/* ---------- 9 parameters ---------- */
1440#define ODINFUNCTIONNODBG9(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
1441 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
1442 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
1443 { \
1444 unsigned short sel = RestoreOS2FS(); \
1445 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
1446 SetFS(sel); \
1447 return rc; \
1448 } \
1449 \
1450 cRet ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
1451
1452#define ODINPROCEDURENODBG9(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9) \
1453 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9); \
1454 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9) \
1455 { \
1456 unsigned short sel = RestoreOS2FS(); \
1457 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9); \
1458 SetFS(sel); \
1459 } \
1460 \
1461 void ODIN_INTERNAL ODIN_##cName (t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9)
1462
1463
1464/* ---------- 10 parameters ---------- */
1465#define ODINFUNCTIONNODBG10(cRet,cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
1466 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); \
1467 cRet WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
1468 { \
1469 unsigned short sel = RestoreOS2FS(); \
1470 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
1471 SetFS(sel); \
1472 return rc; \
1473 } \
1474 \
1475 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)
1476
1477#define ODINPROCEDURENODBG10(cName,t1,a1,t2,a2,t3,a3,t4,a4,t5,a5,t6,a6,t7,a7,t8,a8,t9,a9,t10,a10) \
1478 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); \
1479 void WINAPI cName(t1 a1,t2 a2,t3 a3,t4 a4,t5 a5,t6 a6,t7 a7,t8 a8,t9 a9,t10 a10) \
1480 { \
1481 unsigned short sel = RestoreOS2FS(); \
1482 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10); \
1483 SetFS(sel); \
1484 } \
1485 \
1486 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)
1487
1488
1489/* ---------- 11 parameters ---------- */
1490#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) \
1491 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); \
1492 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) \
1493 { \
1494 unsigned short sel = RestoreOS2FS(); \
1495 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
1496 SetFS(sel); \
1497 return rc; \
1498 } \
1499 \
1500 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)
1501
1502#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) \
1503 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); \
1504 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) \
1505 { \
1506 unsigned short sel = RestoreOS2FS(); \
1507 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11); \
1508 SetFS(sel); \
1509 } \
1510 \
1511 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)
1512
1513
1514/* ---------- 12 parameters ---------- */
1515#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) \
1516 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); \
1517 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) \
1518 { \
1519 unsigned short sel = RestoreOS2FS(); \
1520 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
1521 SetFS(sel); \
1522 return rc; \
1523 } \
1524 \
1525 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)
1526
1527#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) \
1528 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); \
1529 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) \
1530 { \
1531 unsigned short sel = RestoreOS2FS(); \
1532 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); \
1533 SetFS(sel); \
1534 } \
1535 \
1536 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)
1537
1538
[1696]1539/* ---------- 13 parameters ---------- */
1540#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) \
1541 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); \
1542 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) \
1543 { \
1544 unsigned short sel = RestoreOS2FS(); \
1545 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13); \
1546 SetFS(sel); \
1547 return rc; \
1548 } \
1549 \
1550 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)
[1669]1551
[1696]1552#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) \
1553 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); \
1554 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) \
1555 { \
1556 unsigned short sel = RestoreOS2FS(); \
1557 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13); \
1558 SetFS(sel); \
1559 } \
1560 \
1561 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)
[1669]1562
[1696]1563
1564/* ---------- 14 parameters ---------- */
1565#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) \
1566 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); \
1567 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) \
1568 { \
1569 unsigned short sel = RestoreOS2FS(); \
1570 cRet rc = ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14); \
1571 SetFS(sel); \
1572 return rc; \
1573 } \
1574 \
1575 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)
1576
1577#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) \
1578 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); \
1579 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) \
1580 { \
1581 unsigned short sel = RestoreOS2FS(); \
1582 ODIN_##cName(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14); \
1583 SetFS(sel); \
1584 } \
1585 \
1586 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)
1587
1588
[473]1589#endif /* _ODINWRAP_H_ */
Note: See TracBrowser for help on using the repository browser.