2 * 386-specific Win32 relay functions
4 * Copyright 1997 Alexandre Julliard
13 #include "builtin32.h"
14 #include "selectors.h"
18 char **debug_relay_excludelist
= NULL
, **debug_relay_includelist
= NULL
;
20 /***********************************************************************
21 * RELAY_ShowDebugmsgRelay
23 * Simple function to decide if a particular debugging message is
24 * wanted. Called from RELAY_CallFrom32 and from in if1632/relay.c
26 int RELAY_ShowDebugmsgRelay(const char *func
) {
28 if(debug_relay_excludelist
|| debug_relay_includelist
) {
29 const char *term
= strchr(func
, ':');
31 int len
, len2
, itemlen
, show
;
33 if(debug_relay_excludelist
) {
35 listitem
= debug_relay_excludelist
;
38 listitem
= debug_relay_includelist
;
41 assert(strlen(term
) > 2);
43 len2
= strchr(func
, '.') - func
;
44 assert(len2
&& len2
> 0 && len2
< 64);
46 for(; *listitem
; listitem
++) {
47 itemlen
= strlen(*listitem
);
48 if((itemlen
== len
&& !strncmp(*listitem
, func
, len
)) ||
49 (itemlen
== len2
&& !strncmp(*listitem
, func
, len2
)) ||
50 !strcmp(*listitem
, term
)) {
60 /***********************************************************************
63 * Stack layout on entry to this function:
68 * (esp) return addr to relay code
70 int RELAY_CallFrom32( int ret_addr
, ... )
75 unsigned int mask
, typemask
;
77 DWORD deadbeef
= 0xdeadbeef,*xdeadbeef
= &deadbeef
;
79 int *args
= &ret_addr
;
80 /* Relay addr is the return address for this function */
81 BYTE
*relay_addr
= (BYTE
*)args
[-1];
82 WORD nb_args
= *(WORD
*)(relay_addr
+ 1) / sizeof(int);
84 assert(TRACE_ON(relay
));
85 func
= (FARPROC32
)BUILTIN32_GetEntryPoint( buffer
, relay_addr
- 5,
87 DPRINTF( "Call %s(", buffer
);
89 for (i
= 0, mask
= 3; i
< nb_args
; i
++, mask
<<= 2)
91 if (i
) DPRINTF( "," );
92 if ((typemask
& mask
) && HIWORD(args
[i
]))
94 if (typemask
& (2<<(2*i
)))
95 DPRINTF( "%08x L%s", args
[i
], debugstr_w((LPWSTR
)args
[i
]) );
97 DPRINTF( "%08x %s", args
[i
], debugstr_a((LPCSTR
)args
[i
]) );
99 else DPRINTF( "%08x", args
[i
] );
102 DPRINTF( ") ret=%08x fs=%04x\n", ret_addr
, fs
);
104 if (*relay_addr
== 0xc3) /* cdecl */
106 LRESULT (*cfunc
)() = (LRESULT(*)())func
;
109 case 0: ret
= cfunc(); break;
110 case 1: ret
= cfunc(args
[0]); break;
111 case 2: ret
= cfunc(args
[0],args
[1]); break;
112 case 3: ret
= cfunc(args
[0],args
[1],args
[2]); break;
113 case 4: ret
= cfunc(args
[0],args
[1],args
[2],args
[3]); break;
114 case 5: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4]); break;
115 case 6: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],
117 case 7: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
119 case 8: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
120 args
[6],args
[7]); break;
121 case 9: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
122 args
[6],args
[7],args
[8]); break;
123 case 10: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
124 args
[6],args
[7],args
[8],args
[9]); break;
125 case 11: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
126 args
[6],args
[7],args
[8],args
[9],args
[10]); break;
127 case 12: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
128 args
[6],args
[7],args
[8],args
[9],args
[10],
130 case 13: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
131 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
133 case 14: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
134 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
135 args
[12],args
[13]); break;
136 case 15: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
137 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
138 args
[12],args
[13],args
[14]); break;
140 ERR(relay
, "Unsupported nb args %d\n",
149 case 0: ret
= func(); break;
150 case 1: ret
= func(args
[0]); break;
151 case 2: ret
= func(args
[0],args
[1]); break;
152 case 3: ret
= func(args
[0],args
[1],args
[2]); break;
153 case 4: ret
= func(args
[0],args
[1],args
[2],args
[3]); break;
154 case 5: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4]); break;
155 case 6: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],
157 case 7: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
159 case 8: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
160 args
[6],args
[7]); break;
161 case 9: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
162 args
[6],args
[7],args
[8]); break;
163 case 10: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
164 args
[6],args
[7],args
[8],args
[9]); break;
165 case 11: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
166 args
[6],args
[7],args
[8],args
[9],args
[10]); break;
167 case 12: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
168 args
[6],args
[7],args
[8],args
[9],args
[10],
170 case 13: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
171 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
173 case 14: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
174 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
175 args
[12],args
[13]); break;
176 case 15: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
177 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
178 args
[12],args
[13],args
[14]); break;
180 ERR(relay
, "Unsupported nb args %d\n",nb_args
);
185 DPRINTF( "Ret %s() retval=%08x ret=%08x fs=%04x\n",
186 buffer
, ret
, ret_addr
, fs
);
187 assert(*xdeadbeef
==0xdeadbeef);
192 /***********************************************************************
193 * RELAY_CallFrom32Regs
195 * 'context' contains the register contents at the point of call of
196 * the REG_ENTRY_POINT. The stack layout of the stack pointed to by
197 * ESP_reg(&context) is as follows:
199 * If debugmsg(relay) is OFF:
202 * (esp) return addr to caller
203 * (esp-4) function entry point
205 * If debugmsg(relay) is ON:
208 * (esp+4) return addr to caller
209 * (esp) return addr to DEBUG_ENTRY_POINT
210 * (esp-4) function entry point
212 * As the called function might change the stack layout
213 * (e.g. FT_Prolog, FT_ExitNN), we remove all modifications to the stack,
214 * so that the called function sees (in both cases):
218 * (esp) return addr to caller
219 * ... >128 bytes space free to be modified (ensured by the assembly glue)
221 * NOTE: This routine makes no assumption about the relative position of
222 * its own stack to the stack pointed to by ESP_reg(&context),
223 * except that the latter must have >128 bytes space to grow.
224 * This means the assembly glue could even switch stacks completely
225 * (e.g. to allow for large stacks).
229 void RELAY_CallFrom32Regs( CONTEXT context
)
231 typedef void (CALLBACK
*entry_point_t
)(CONTEXT
*);
232 entry_point_t entry_point
= *(entry_point_t
*) (ESP_reg(&context
) - 4);
236 if (!TRACE_ON(relay
))
238 /* Simply call the entry point */
239 entry_point( &context
);
244 unsigned int typemask
;
248 * Fixup the context structure because of the extra parameter
249 * pushed by the relay debugging code.
250 * Note that this implicitly does a RET on the CALL from the
251 * DEBUG_ENTRY_POINT to the REG_ENTRY_POINT; setting the EIP register
252 * ensures that the assembly glue will directly return to the
253 * caller, just as in the non-debugging case.
256 relay_addr
= *(BYTE
**) ESP_reg(&context
);
257 if (BUILTIN32_GetEntryPoint( buffer
, relay_addr
- 5, &typemask
)) {
258 /* correct win32 spec generated register function found.
259 * remove extra call stuff from stack
261 ESP_reg(&context
) += sizeof(BYTE
*);
262 EIP_reg(&context
) = *(DWORD
*)ESP_reg(&context
);
263 DPRINTF("Call %s(regs) ret=%08x\n", buffer
, *(int *)ESP_reg(&context
) );
264 DPRINTF(" EAX=%08lx EBX=%08lx ECX=%08lx EDX=%08lx ESI=%08lx EDI=%08lx\n",
265 EAX_reg(&context
), EBX_reg(&context
), ECX_reg(&context
),
266 EDX_reg(&context
), ESI_reg(&context
), EDI_reg(&context
) );
267 DPRINTF(" EBP=%08lx ESP=%08lx EIP=%08lx DS=%04lx ES=%04lx FS=%04lx GS=%04lx EFL=%08lx\n",
268 EBP_reg(&context
), ESP_reg(&context
), EIP_reg(&context
),
269 DS_reg(&context
), ES_reg(&context
), FS_reg(&context
),
270 GS_reg(&context
), EFL_reg(&context
) );
272 /* Now call the real function */
273 entry_point( &context
);
276 DPRINTF("Ret %s() retval=regs ret=%08x\n", buffer
, *(int *)ESP_reg(&context
) );
277 DPRINTF(" EAX=%08lx EBX=%08lx ECX=%08lx EDX=%08lx ESI=%08lx EDI=%08lx\n",
278 EAX_reg(&context
), EBX_reg(&context
), ECX_reg(&context
),
279 EDX_reg(&context
), ESI_reg(&context
), EDI_reg(&context
) );
280 DPRINTF(" EBP=%08lx ESP=%08lx EIP=%08lx DS=%04lx ES=%04lx FS=%04lx GS=%04lx EFL=%08lx\n",
281 EBP_reg(&context
), ESP_reg(&context
), EIP_reg(&context
),
282 DS_reg(&context
), ES_reg(&context
), FS_reg(&context
),
283 GS_reg(&context
), EFL_reg(&context
) );
285 /* WINE internal register function found. Do not remove anything.
286 * Do not print any debuginfo (it is not a normal relayed one).
287 * Currently only used for snooping.
289 entry_point( &context
);
292 #endif /* __i386__ */