source: trunk/include/odinwrap.h@ 4124

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

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