2 * 386-specific Win32 relay functions
4 * Copyright 1997 Alexandre Julliard
12 #include "builtin32.h"
13 #include "selectors.h"
14 #include "stackframe.h"
19 #include "debugtools.h"
21 DEFAULT_DEBUG_CHANNEL(relay
);
23 char **debug_relay_excludelist
= NULL
, **debug_relay_includelist
= NULL
;
25 /***********************************************************************
26 * RELAY_ShowDebugmsgRelay
28 * Simple function to decide if a particular debugging message is
29 * wanted. Called from RELAY_CallFrom32 and from in if1632/relay.c
31 int RELAY_ShowDebugmsgRelay(const char *func
) {
33 if(debug_relay_excludelist
|| debug_relay_includelist
) {
34 const char *term
= strchr(func
, ':');
36 int len
, len2
, itemlen
, show
;
38 if(debug_relay_excludelist
) {
40 listitem
= debug_relay_excludelist
;
43 listitem
= debug_relay_includelist
;
46 assert(strlen(term
) > 2);
48 len2
= strchr(func
, '.') - func
;
49 assert(len2
&& len2
> 0 && len2
< 64);
51 for(; *listitem
; listitem
++) {
52 itemlen
= strlen(*listitem
);
53 if((itemlen
== len
&& !lstrncmpiA(*listitem
, func
, len
)) ||
54 (itemlen
== len2
&& !lstrncmpiA(*listitem
, func
, len2
)) ||
55 !strcasecmp(*listitem
, term
)) {
70 BYTE call
; /* 0xe8 call callfrom32 (relative) */
71 DWORD callfrom32 WINE_PACKED
; /* RELAY_CallFrom32 relative addr */
72 BYTE ret
; /* 0xc2 ret $n or 0xc3 ret */
73 WORD args
; /* nb of args to remove from the stack */
74 FARPROC orig
; /* original entry point */
75 DWORD argtypes
; /* argument types */
79 /***********************************************************************
82 * Find the name of an exported function.
84 static const char *find_exported_name( const char *module
,
85 IMAGE_EXPORT_DIRECTORY
*exp
, int ordinal
)
88 const char *ret
= NULL
;
90 WORD
*ordptr
= (WORD
*)(module
+ exp
->AddressOfNameOrdinals
);
91 for (i
= 0; i
< exp
->NumberOfNames
; i
++, ordptr
++)
92 if (*ordptr
+ exp
->Base
== ordinal
) break;
93 if (i
< exp
->NumberOfNames
)
94 ret
= module
+ ((DWORD
*)(module
+ exp
->AddressOfNames
))[i
];
99 /***********************************************************************
102 * Get the name of the DLL entry point corresponding to a relay address.
104 static void get_entry_point( char *buffer
, DEBUG_ENTRY_POINT
*relay
)
106 IMAGE_DATA_DIRECTORY
*dir
;
107 IMAGE_EXPORT_DIRECTORY
*exp
= NULL
;
108 DEBUG_ENTRY_POINT
*debug
;
114 /* First find the module */
116 for (wm
= PROCESS_Current()->modref_list
; wm
; wm
= wm
->next
)
118 if (!(wm
->flags
& WINE_MODREF_INTERNAL
)) continue;
119 base
= (char *)wm
->module
;
120 dir
= &PE_HEADER(base
)->OptionalHeader
.DataDirectory
[IMAGE_FILE_EXPORT_DIRECTORY
];
121 if (!dir
->Size
) continue;
122 exp
= (IMAGE_EXPORT_DIRECTORY
*)(base
+ dir
->VirtualAddress
);
123 debug
= (DEBUG_ENTRY_POINT
*)((char *)exp
+ dir
->Size
);
124 if (debug
<= relay
&& relay
< debug
+ exp
->NumberOfFunctions
)
126 ordinal
= relay
- debug
;
131 /* Now find the function */
133 name
= find_exported_name( base
, exp
, ordinal
+ exp
->Base
);
134 sprintf( buffer
, "%s.%ld: %s", base
+ exp
->Name
, ordinal
+ exp
->Base
, name
? name
: "@" );
138 /***********************************************************************
141 static inline void RELAY_PrintArgs( int *args
, int nb_args
, unsigned int typemask
)
145 if ((typemask
& 3) && HIWORD(*args
))
148 DPRINTF( "%08x %s", *args
, debugstr_w((LPWSTR
)*args
) );
150 DPRINTF( "%08x %s", *args
, debugstr_a((LPCSTR
)*args
) );
152 else DPRINTF( "%08x", *args
);
153 if (nb_args
) DPRINTF( "," );
160 /***********************************************************************
163 * Stack layout on entry to this function:
168 * (esp) return addr to relay code
170 static int RELAY_CallFrom32( int ret_addr
, ... )
175 int *args
= &ret_addr
+ 1;
176 /* Relay addr is the return address for this function */
177 BYTE
*relay_addr
= (BYTE
*)__builtin_return_address(0);
178 DEBUG_ENTRY_POINT
*relay
= (DEBUG_ENTRY_POINT
*)(relay_addr
- 5);
179 WORD nb_args
= relay
->args
/ sizeof(int);
181 get_entry_point( buffer
, relay
);
183 DPRINTF( "Call %s(", buffer
);
184 RELAY_PrintArgs( args
, nb_args
, relay
->argtypes
);
185 DPRINTF( ") ret=%08x fs=%04x\n", ret_addr
, __get_fs() );
187 SYSLEVEL_CheckNotLevel( 2 );
189 if (relay
->ret
== 0xc3) /* cdecl */
191 LRESULT (*cfunc
)() = (LRESULT(*)())relay
->orig
;
194 case 0: ret
= cfunc(); break;
195 case 1: ret
= cfunc(args
[0]); break;
196 case 2: ret
= cfunc(args
[0],args
[1]); break;
197 case 3: ret
= cfunc(args
[0],args
[1],args
[2]); break;
198 case 4: ret
= cfunc(args
[0],args
[1],args
[2],args
[3]); break;
199 case 5: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4]); break;
200 case 6: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],
202 case 7: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
204 case 8: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
205 args
[6],args
[7]); break;
206 case 9: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
207 args
[6],args
[7],args
[8]); break;
208 case 10: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
209 args
[6],args
[7],args
[8],args
[9]); break;
210 case 11: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
211 args
[6],args
[7],args
[8],args
[9],args
[10]); break;
212 case 12: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
213 args
[6],args
[7],args
[8],args
[9],args
[10],
215 case 13: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
216 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
218 case 14: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
219 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
220 args
[12],args
[13]); break;
221 case 15: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
222 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
223 args
[12],args
[13],args
[14]); break;
224 case 16: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
225 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
226 args
[12],args
[13],args
[14],args
[15]); break;
228 ERR( "Unsupported nb of args %d\n", nb_args
);
234 FARPROC func
= relay
->orig
;
237 case 0: ret
= func(); break;
238 case 1: ret
= func(args
[0]); break;
239 case 2: ret
= func(args
[0],args
[1]); break;
240 case 3: ret
= func(args
[0],args
[1],args
[2]); break;
241 case 4: ret
= func(args
[0],args
[1],args
[2],args
[3]); break;
242 case 5: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4]); break;
243 case 6: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],
245 case 7: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
247 case 8: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
248 args
[6],args
[7]); break;
249 case 9: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
250 args
[6],args
[7],args
[8]); break;
251 case 10: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
252 args
[6],args
[7],args
[8],args
[9]); break;
253 case 11: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
254 args
[6],args
[7],args
[8],args
[9],args
[10]); break;
255 case 12: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
256 args
[6],args
[7],args
[8],args
[9],args
[10],
258 case 13: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
259 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
261 case 14: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
262 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
263 args
[12],args
[13]); break;
264 case 15: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
265 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
266 args
[12],args
[13],args
[14]); break;
267 case 16: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
268 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
269 args
[12],args
[13],args
[14],args
[15]); break;
271 ERR( "Unsupported nb of args %d\n", nb_args
);
275 DPRINTF( "Ret %s() retval=%08x ret=%08x fs=%04x\n",
276 buffer
, ret
, ret_addr
, __get_fs() );
278 SYSLEVEL_CheckNotLevel( 2 );
284 /***********************************************************************
285 * RELAY_CallFrom32Regs
287 * Stack layout (esp is ESP_reg(context), not the current %esp):
291 * (esp) return addr to caller
292 * (esp-4) return addr to DEBUG_ENTRY_POINT
293 * (esp-8) ptr to relay entry code for RELAY_CallFrom32Regs
294 * ... >128 bytes space free to be modified (ensured by the assembly glue)
297 void WINAPI
RELAY_DoCallFrom32Regs( CONTEXT86
*context
);
298 DEFINE_REGS_ENTRYPOINT_0( RELAY_CallFrom32Regs
, RELAY_DoCallFrom32Regs
)
299 void WINAPI
RELAY_DoCallFrom32Regs( CONTEXT86
*context
)
306 BYTE
*relay_addr
= *((BYTE
**)ESP_reg(context
) - 1);
307 DEBUG_ENTRY_POINT
*relay
= (DEBUG_ENTRY_POINT
*)(relay_addr
- 5);
308 WORD nb_args
= (relay
->args
& ~0x8000) / sizeof(int);
310 /* remove extra stuff from the stack */
311 EIP_reg(context
) = stack32_pop(context
);
312 args
= (int *)ESP_reg(context
);
313 ESP_reg(context
) += 4 * nb_args
;
315 assert(TRACE_ON(relay
));
317 entry_point
= (BYTE
*)relay
->orig
;
318 assert( *entry_point
== 0xe8 /* lcall */ );
319 func
= *(FARPROC
*)(entry_point
+ 5);
321 get_entry_point( buffer
, relay
);
323 DPRINTF( "Call %s(", buffer
);
324 RELAY_PrintArgs( args
, nb_args
, relay
->argtypes
);
325 DPRINTF( ") ret=%08lx fs=%04lx\n", EIP_reg(context
), FS_reg(context
) );
327 DPRINTF(" eax=%08lx ebx=%08lx ecx=%08lx edx=%08lx esi=%08lx edi=%08lx\n",
328 EAX_reg(context
), EBX_reg(context
), ECX_reg(context
),
329 EDX_reg(context
), ESI_reg(context
), EDI_reg(context
) );
330 DPRINTF(" ebp=%08lx esp=%08lx ds=%04lx es=%04lx gs=%04lx flags=%08lx\n",
331 EBP_reg(context
), ESP_reg(context
), DS_reg(context
),
332 ES_reg(context
), GS_reg(context
), EFL_reg(context
) );
334 SYSLEVEL_CheckNotLevel( 2 );
336 /* Now call the real function */
339 case 0: func(context
); break;
340 case 1: func(args
[0],context
); break;
341 case 2: func(args
[0],args
[1],context
); break;
342 case 3: func(args
[0],args
[1],args
[2],context
); break;
343 case 4: func(args
[0],args
[1],args
[2],args
[3],context
); break;
344 case 5: func(args
[0],args
[1],args
[2],args
[3],args
[4],context
); break;
345 case 6: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],context
); break;
346 case 7: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],context
); break;
347 case 8: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],context
); break;
348 case 9: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
350 case 10: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
351 args
[9],context
); break;
352 case 11: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
353 args
[9],args
[10],context
); break;
354 case 12: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
355 args
[9],args
[10],args
[11],context
); break;
356 case 13: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
357 args
[9],args
[10],args
[11],args
[12],context
); break;
358 case 14: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
359 args
[9],args
[10],args
[11],args
[12],args
[13],context
); break;
360 case 15: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
361 args
[9],args
[10],args
[11],args
[12],args
[13],args
[14],context
); break;
362 case 16: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5], args
[6],args
[7],args
[8],
363 args
[9],args
[10],args
[11],args
[12],args
[13],args
[14],args
[15],context
); break;
365 ERR( "Unsupported nb of args %d\n", nb_args
);
369 DPRINTF( "Ret %s() retval=%08lx ret=%08lx fs=%04lx\n",
370 buffer
, EAX_reg(context
), EIP_reg(context
), FS_reg(context
) );
371 DPRINTF(" eax=%08lx ebx=%08lx ecx=%08lx edx=%08lx esi=%08lx edi=%08lx\n",
372 EAX_reg(context
), EBX_reg(context
), ECX_reg(context
),
373 EDX_reg(context
), ESI_reg(context
), EDI_reg(context
) );
374 DPRINTF(" ebp=%08lx esp=%08lx ds=%04lx es=%04lx gs=%04lx flags=%08lx\n",
375 EBP_reg(context
), ESP_reg(context
), DS_reg(context
),
376 ES_reg(context
), GS_reg(context
), EFL_reg(context
) );
378 SYSLEVEL_CheckNotLevel( 2 );
382 /***********************************************************************
385 * Setup relay debugging for a built-in dll.
387 void RELAY_SetupDLL( const char *module
)
389 IMAGE_DATA_DIRECTORY
*dir
;
390 IMAGE_EXPORT_DIRECTORY
*exports
;
391 DEBUG_ENTRY_POINT
*debug
;
394 const char *name
, *dllname
;
396 dir
= &PE_HEADER(module
)->OptionalHeader
.DataDirectory
[IMAGE_FILE_EXPORT_DIRECTORY
];
397 if (!dir
->Size
) return;
398 exports
= (IMAGE_EXPORT_DIRECTORY
*)(module
+ dir
->VirtualAddress
);
399 debug
= (DEBUG_ENTRY_POINT
*)((char *)exports
+ dir
->Size
);
400 funcs
= (DWORD
*)(module
+ exports
->AddressOfFunctions
);
401 dllname
= module
+ exports
->Name
;
403 for (i
= 0; i
< exports
->NumberOfFunctions
; i
++, funcs
++, debug
++)
407 if (!debug
->call
) continue; /* not a normal function */
409 if ((name
= find_exported_name( module
, exports
, i
+ exports
->Base
)))
412 sprintf( buffer
, "%s.%d: %s", dllname
, i
, name
);
413 on
= RELAY_ShowDebugmsgRelay(buffer
);
418 debug
->call
= 0xe8; /* call relative */
419 if (debug
->args
& 0x8000) /* register func */
420 debug
->callfrom32
= (char *)RELAY_CallFrom32Regs
- (char *)&debug
->ret
;
422 debug
->callfrom32
= (char *)RELAY_CallFrom32
- (char *)&debug
->ret
;
426 debug
->call
= 0xe9; /* jmp relative */
427 debug
->callfrom32
= (char *)debug
->orig
- (char *)&debug
->ret
;
430 debug
->orig
= (FARPROC
)(module
+ (DWORD
)*funcs
);
431 *funcs
= (char *)debug
- module
;
437 void RELAY_SetupDLL( const char *module
)
441 #endif /* __i386__ */