2 * 386-specific Win32 relay functions
4 * Copyright 1997 Alexandre Julliard
14 #include "selectors.h"
15 #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
&& !strncasecmp(*listitem
, func
, len
)) ||
54 (itemlen
== len2
&& !strncasecmp(*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 void *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
= MODULE_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 typedef LONGLONG
WINAPI (*LONGLONG_FARPROC
)();
162 /***********************************************************************
165 * Stack layout on entry to this function:
170 * (esp) return addr to relay code
172 static LONGLONG
RELAY_CallFrom32( int ret_addr
, ... )
178 int *args
= &ret_addr
+ 1;
179 /* Relay addr is the return address for this function */
180 BYTE
*relay_addr
= (BYTE
*)__builtin_return_address(0);
181 DEBUG_ENTRY_POINT
*relay
= (DEBUG_ENTRY_POINT
*)(relay_addr
- 5);
182 WORD nb_args
= relay
->args
/ sizeof(int);
184 get_entry_point( buffer
, relay
);
186 DPRINTF( "Call %s(", buffer
);
187 RELAY_PrintArgs( args
, nb_args
, relay
->argtypes
);
188 DPRINTF( ") ret=%08x fs=%04x\n", ret_addr
, __get_fs() );
189 ret64
= (relay
->argtypes
& 0x80000000) && (nb_args
< 16);
191 /* the user driver functions may be called with the window lock held */
192 if (memcmp( buffer
, "x11drv.", 7 ) && memcmp( buffer
, "ttydrv.", 7 ))
193 SYSLEVEL_CheckNotLevel( 2 );
195 if (relay
->ret
== 0xc3) /* cdecl */
197 LONGLONG (*cfunc
)() = relay
->orig
;
200 case 0: ret
= cfunc(); break;
201 case 1: ret
= cfunc(args
[0]); break;
202 case 2: ret
= cfunc(args
[0],args
[1]); break;
203 case 3: ret
= cfunc(args
[0],args
[1],args
[2]); break;
204 case 4: ret
= cfunc(args
[0],args
[1],args
[2],args
[3]); break;
205 case 5: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4]); break;
206 case 6: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],
208 case 7: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
210 case 8: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
211 args
[6],args
[7]); break;
212 case 9: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
213 args
[6],args
[7],args
[8]); break;
214 case 10: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
215 args
[6],args
[7],args
[8],args
[9]); break;
216 case 11: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
217 args
[6],args
[7],args
[8],args
[9],args
[10]); break;
218 case 12: 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],
221 case 13: 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],
224 case 14: 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]); break;
227 case 15: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
228 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
229 args
[12],args
[13],args
[14]); break;
230 case 16: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
231 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
232 args
[12],args
[13],args
[14],args
[15]); break;
234 ERR( "Unsupported nb of args %d\n", nb_args
);
240 LONGLONG_FARPROC func
= relay
->orig
;
243 case 0: ret
= func(); break;
244 case 1: ret
= func(args
[0]); break;
245 case 2: ret
= func(args
[0],args
[1]); break;
246 case 3: ret
= func(args
[0],args
[1],args
[2]); break;
247 case 4: ret
= func(args
[0],args
[1],args
[2],args
[3]); break;
248 case 5: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4]); break;
249 case 6: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],
251 case 7: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
253 case 8: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
254 args
[6],args
[7]); break;
255 case 9: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
256 args
[6],args
[7],args
[8]); break;
257 case 10: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
258 args
[6],args
[7],args
[8],args
[9]); break;
259 case 11: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
260 args
[6],args
[7],args
[8],args
[9],args
[10]); break;
261 case 12: 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],
264 case 13: 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],
267 case 14: 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]); break;
270 case 15: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
271 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
272 args
[12],args
[13],args
[14]); break;
273 case 16: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
274 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
275 args
[12],args
[13],args
[14],args
[15]); break;
277 ERR( "Unsupported nb of args %d\n", nb_args
);
282 DPRINTF( "Ret %s() retval=%08x%08x ret=%08x fs=%04x\n",
283 buffer
, (UINT
)(ret
>> 32), (UINT
)ret
, ret_addr
, __get_fs() );
285 DPRINTF( "Ret %s() retval=%08x ret=%08x fs=%04x\n",
286 buffer
, (UINT
)ret
, ret_addr
, __get_fs() );
288 if (memcmp( buffer
, "x11drv.", 7 ) && memcmp( buffer
, "ttydrv.", 7 ))
289 SYSLEVEL_CheckNotLevel( 2 );
295 /***********************************************************************
296 * RELAY_CallFrom32Regs
298 * Stack layout (esp is context->Esp, not the current %esp):
302 * (esp) return addr to caller
303 * (esp-4) return addr to DEBUG_ENTRY_POINT
304 * (esp-8) ptr to relay entry code for RELAY_CallFrom32Regs
305 * ... >128 bytes space free to be modified (ensured by the assembly glue)
308 void WINAPI
RELAY_DoCallFrom32Regs( CONTEXT86
*context
);
309 DEFINE_REGS_ENTRYPOINT_0( RELAY_CallFrom32Regs
, RELAY_DoCallFrom32Regs
)
310 void WINAPI
RELAY_DoCallFrom32Regs( CONTEXT86
*context
)
317 BYTE
*relay_addr
= *((BYTE
**)context
->Esp
- 1);
318 DEBUG_ENTRY_POINT
*relay
= (DEBUG_ENTRY_POINT
*)(relay_addr
- 5);
319 WORD nb_args
= (relay
->args
& ~0x8000) / sizeof(int);
321 /* remove extra stuff from the stack */
322 context
->Eip
= stack32_pop(context
);
323 args
= (int *)context
->Esp
;
324 context
->Esp
+= 4 * nb_args
;
326 assert(TRACE_ON(relay
));
328 entry_point
= (BYTE
*)relay
->orig
;
329 assert( *entry_point
== 0xe8 /* lcall */ );
330 func
= *(FARPROC
*)(entry_point
+ 5);
332 get_entry_point( buffer
, relay
);
334 DPRINTF( "Call %s(", buffer
);
335 RELAY_PrintArgs( args
, nb_args
, relay
->argtypes
);
336 DPRINTF( ") ret=%08lx fs=%04lx\n", context
->Eip
, context
->SegFs
);
338 DPRINTF(" eax=%08lx ebx=%08lx ecx=%08lx edx=%08lx esi=%08lx edi=%08lx\n",
339 context
->Eax
, context
->Ebx
, context
->Ecx
,
340 context
->Edx
, context
->Esi
, context
->Edi
);
341 DPRINTF(" ebp=%08lx esp=%08lx ds=%04lx es=%04lx gs=%04lx flags=%08lx\n",
342 context
->Ebp
, context
->Esp
, context
->SegDs
,
343 context
->SegEs
, context
->SegGs
, context
->EFlags
);
345 SYSLEVEL_CheckNotLevel( 2 );
347 /* Now call the real function */
350 case 0: func(context
); break;
351 case 1: func(args
[0],context
); break;
352 case 2: func(args
[0],args
[1],context
); break;
353 case 3: func(args
[0],args
[1],args
[2],context
); break;
354 case 4: func(args
[0],args
[1],args
[2],args
[3],context
); break;
355 case 5: func(args
[0],args
[1],args
[2],args
[3],args
[4],context
); break;
356 case 6: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],context
); break;
357 case 7: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],context
); break;
358 case 8: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],context
); break;
359 case 9: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
361 case 10: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
362 args
[9],context
); break;
363 case 11: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
364 args
[9],args
[10],context
); break;
365 case 12: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
366 args
[9],args
[10],args
[11],context
); break;
367 case 13: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
368 args
[9],args
[10],args
[11],args
[12],context
); break;
369 case 14: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
370 args
[9],args
[10],args
[11],args
[12],args
[13],context
); break;
371 case 15: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
372 args
[9],args
[10],args
[11],args
[12],args
[13],args
[14],context
); break;
373 case 16: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5], args
[6],args
[7],args
[8],
374 args
[9],args
[10],args
[11],args
[12],args
[13],args
[14],args
[15],context
); break;
376 ERR( "Unsupported nb of args %d\n", nb_args
);
380 DPRINTF( "Ret %s() retval=%08lx ret=%08lx fs=%04lx\n",
381 buffer
, context
->Eax
, context
->Eip
, context
->SegFs
);
383 DPRINTF(" eax=%08lx ebx=%08lx ecx=%08lx edx=%08lx esi=%08lx edi=%08lx\n",
384 context
->Eax
, context
->Ebx
, context
->Ecx
,
385 context
->Edx
, context
->Esi
, context
->Edi
);
386 DPRINTF(" ebp=%08lx esp=%08lx ds=%04lx es=%04lx gs=%04lx flags=%08lx\n",
387 context
->Ebp
, context
->Esp
, context
->SegDs
,
388 context
->SegEs
, context
->SegGs
, context
->EFlags
);
390 SYSLEVEL_CheckNotLevel( 2 );
394 /***********************************************************************
397 * Setup relay debugging for a built-in dll.
399 void RELAY_SetupDLL( const char *module
)
401 IMAGE_DATA_DIRECTORY
*dir
;
402 IMAGE_EXPORT_DIRECTORY
*exports
;
403 DEBUG_ENTRY_POINT
*debug
;
406 const char *name
, *dllname
;
408 dir
= &PE_HEADER(module
)->OptionalHeader
.DataDirectory
[IMAGE_FILE_EXPORT_DIRECTORY
];
409 if (!dir
->Size
) return;
410 exports
= (IMAGE_EXPORT_DIRECTORY
*)(module
+ dir
->VirtualAddress
);
411 debug
= (DEBUG_ENTRY_POINT
*)((char *)exports
+ dir
->Size
);
412 funcs
= (DWORD
*)(module
+ exports
->AddressOfFunctions
);
413 dllname
= module
+ exports
->Name
;
415 for (i
= 0; i
< exports
->NumberOfFunctions
; i
++, funcs
++, debug
++)
419 if (!debug
->call
) continue; /* not a normal function */
420 if (debug
->call
!= 0xe8 && debug
->call
!= 0xe9) break; /* not a debug thunk at all */
422 if ((name
= find_exported_name( module
, exports
, i
+ exports
->Base
)))
425 sprintf( buffer
, "%s.%d: %s", dllname
, i
, name
);
426 on
= RELAY_ShowDebugmsgRelay(buffer
);
431 debug
->call
= 0xe8; /* call relative */
432 if (debug
->args
& 0x8000) /* register func */
433 debug
->callfrom32
= (char *)RELAY_CallFrom32Regs
- (char *)&debug
->ret
;
435 debug
->callfrom32
= (char *)RELAY_CallFrom32
- (char *)&debug
->ret
;
439 debug
->call
= 0xe9; /* jmp relative */
440 debug
->callfrom32
= (char *)debug
->orig
- (char *)&debug
->ret
;
443 debug
->orig
= (FARPROC
)(module
+ (DWORD
)*funcs
);
444 *funcs
= (char *)debug
- module
;
450 void RELAY_SetupDLL( const char *module
)
454 #endif /* __i386__ */