2 * 386-specific Win32 relay functions
4 * Copyright 1997 Alexandre Julliard
11 #include "builtin32.h"
12 #include "selectors.h"
13 #include "stackframe.h"
16 #include "debugtools.h"
18 DEFAULT_DEBUG_CHANNEL(relay
);
20 char **debug_relay_excludelist
= NULL
, **debug_relay_includelist
= NULL
;
22 /***********************************************************************
23 * RELAY_ShowDebugmsgRelay
25 * Simple function to decide if a particular debugging message is
26 * wanted. Called from RELAY_CallFrom32 and from in if1632/relay.c
28 int RELAY_ShowDebugmsgRelay(const char *func
) {
30 if(debug_relay_excludelist
|| debug_relay_includelist
) {
31 const char *term
= strchr(func
, ':');
33 int len
, len2
, itemlen
, show
;
35 if(debug_relay_excludelist
) {
37 listitem
= debug_relay_excludelist
;
40 listitem
= debug_relay_includelist
;
43 assert(strlen(term
) > 2);
45 len2
= strchr(func
, '.') - func
;
46 assert(len2
&& len2
> 0 && len2
< 64);
48 for(; *listitem
; listitem
++) {
49 itemlen
= strlen(*listitem
);
50 if((itemlen
== len
&& !lstrncmpiA(*listitem
, func
, len
)) ||
51 (itemlen
== len2
&& !lstrncmpiA(*listitem
, func
, len2
)) ||
52 !lstrcmpiA(*listitem
, term
)) {
65 /***********************************************************************
68 static inline void RELAY_PrintArgs( int *args
, int nb_args
, unsigned int typemask
)
72 if ((typemask
& 3) && HIWORD(*args
))
75 DPRINTF( "%08x %s", *args
, debugstr_w((LPWSTR
)*args
) );
77 DPRINTF( "%08x %s", *args
, debugstr_a((LPCSTR
)*args
) );
79 else DPRINTF( "%08x", *args
);
80 if (nb_args
) DPRINTF( "," );
87 /***********************************************************************
90 * Stack layout on entry to this function:
95 * (esp) return addr to relay code
97 int RELAY_CallFrom32( int ret_addr
, ... )
101 unsigned int typemask
;
105 int *args
= &ret_addr
+ 1;
106 /* Relay addr is the return address for this function */
107 BYTE
*relay_addr
= (BYTE
*)__builtin_return_address(0);
108 WORD nb_args
= *(WORD
*)(relay_addr
+ 1) / sizeof(int);
110 assert(TRACE_ON(relay
));
111 func
= (FARPROC
)BUILTIN32_GetEntryPoint( buffer
, relay_addr
- 5, &typemask
);
112 DPRINTF( "Call %s(", buffer
);
113 RELAY_PrintArgs( args
, nb_args
, typemask
);
115 DPRINTF( ") ret=%08x fs=%04x\n", ret_addr
, fs
);
117 SYSLEVEL_CheckNotLevel( 2 );
119 if (*relay_addr
== 0xc3) /* cdecl */
121 LRESULT (*cfunc
)() = (LRESULT(*)())func
;
124 case 0: ret
= cfunc(); break;
125 case 1: ret
= cfunc(args
[0]); break;
126 case 2: ret
= cfunc(args
[0],args
[1]); break;
127 case 3: ret
= cfunc(args
[0],args
[1],args
[2]); break;
128 case 4: ret
= cfunc(args
[0],args
[1],args
[2],args
[3]); break;
129 case 5: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4]); break;
130 case 6: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],
132 case 7: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
134 case 8: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
135 args
[6],args
[7]); break;
136 case 9: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
137 args
[6],args
[7],args
[8]); break;
138 case 10: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
139 args
[6],args
[7],args
[8],args
[9]); break;
140 case 11: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
141 args
[6],args
[7],args
[8],args
[9],args
[10]); break;
142 case 12: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
143 args
[6],args
[7],args
[8],args
[9],args
[10],
145 case 13: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
146 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
148 case 14: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
149 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
150 args
[12],args
[13]); break;
151 case 15: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
152 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
153 args
[12],args
[13],args
[14]); break;
154 case 16: ret
= cfunc(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
155 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
156 args
[12],args
[13],args
[14],args
[15]); break;
158 ERR( "Unsupported nb of args %d\n", nb_args
);
166 case 0: ret
= func(); break;
167 case 1: ret
= func(args
[0]); break;
168 case 2: ret
= func(args
[0],args
[1]); break;
169 case 3: ret
= func(args
[0],args
[1],args
[2]); break;
170 case 4: ret
= func(args
[0],args
[1],args
[2],args
[3]); break;
171 case 5: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4]); break;
172 case 6: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],
174 case 7: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
176 case 8: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
177 args
[6],args
[7]); break;
178 case 9: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
179 args
[6],args
[7],args
[8]); break;
180 case 10: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
181 args
[6],args
[7],args
[8],args
[9]); break;
182 case 11: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
183 args
[6],args
[7],args
[8],args
[9],args
[10]); break;
184 case 12: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
185 args
[6],args
[7],args
[8],args
[9],args
[10],
187 case 13: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
188 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
190 case 14: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
191 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
192 args
[12],args
[13]); break;
193 case 15: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
194 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
195 args
[12],args
[13],args
[14]); break;
196 case 16: ret
= func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],
197 args
[6],args
[7],args
[8],args
[9],args
[10],args
[11],
198 args
[12],args
[13],args
[14],args
[15]); break;
200 ERR( "Unsupported nb of args %d\n", nb_args
);
204 DPRINTF( "Ret %s() retval=%08x ret=%08x fs=%04x\n",
205 buffer
, ret
, ret_addr
, fs
);
207 SYSLEVEL_CheckNotLevel( 2 );
213 /***********************************************************************
214 * RELAY_CallFrom32Regs
216 * Stack layout (esp is ESP_reg(context), not the current %esp):
220 * (esp) return addr to caller
221 * (esp-4) return addr to DEBUG_ENTRY_POINT
222 * (esp-8) ptr to relay entry code for RELAY_CallFrom32Regs
223 * ... >128 bytes space free to be modified (ensured by the assembly glue)
226 void WINAPI
RELAY_DoCallFrom32Regs( CONTEXT86
*context
);
227 DEFINE_REGS_ENTRYPOINT_0( RELAY_CallFrom32Regs
, RELAY_DoCallFrom32Regs
)
228 void WINAPI
RELAY_DoCallFrom32Regs( CONTEXT86
*context
)
230 unsigned int typemask
;
236 BYTE
*relay_addr
= *((BYTE
**)ESP_reg(context
) - 1);
237 WORD nb_args
= *(WORD
*)(relay_addr
+ 1) / sizeof(int);
239 /* remove extra stuff from the stack */
240 EIP_reg(context
) = stack32_pop(context
);
241 args
= (int *)ESP_reg(context
);
242 ESP_reg(context
) += 4 * nb_args
;
244 assert(TRACE_ON(relay
));
246 entry_point
= (BYTE
*)BUILTIN32_GetEntryPoint( buffer
, relay_addr
- 5, &typemask
);
247 assert( *entry_point
== 0xe8 /* lcall */ );
248 func
= *(FARPROC
*)(entry_point
+ 5);
250 DPRINTF( "Call %s(", buffer
);
251 RELAY_PrintArgs( args
, nb_args
, typemask
);
252 DPRINTF( ") ret=%08lx fs=%04lx\n", EIP_reg(context
), FS_reg(context
) );
254 DPRINTF(" eax=%08lx ebx=%08lx ecx=%08lx edx=%08lx esi=%08lx edi=%08lx\n",
255 EAX_reg(context
), EBX_reg(context
), ECX_reg(context
),
256 EDX_reg(context
), ESI_reg(context
), EDI_reg(context
) );
257 DPRINTF(" ebp=%08lx esp=%08lx ds=%04lx es=%04lx gs=%04lx flags=%08lx\n",
258 EBP_reg(context
), ESP_reg(context
), DS_reg(context
),
259 ES_reg(context
), GS_reg(context
), EFL_reg(context
) );
261 SYSLEVEL_CheckNotLevel( 2 );
263 /* Now call the real function */
266 case 0: func(context
); break;
267 case 1: func(args
[0],context
); break;
268 case 2: func(args
[0],args
[1],context
); break;
269 case 3: func(args
[0],args
[1],args
[2],context
); break;
270 case 4: func(args
[0],args
[1],args
[2],args
[3],context
); break;
271 case 5: func(args
[0],args
[1],args
[2],args
[3],args
[4],context
); break;
272 case 6: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],context
); break;
273 case 7: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],context
); break;
274 case 8: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],context
); break;
275 case 9: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
277 case 10: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
278 args
[9],context
); break;
279 case 11: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
280 args
[9],args
[10],context
); break;
281 case 12: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
282 args
[9],args
[10],args
[11],context
); break;
283 case 13: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
284 args
[9],args
[10],args
[11],args
[12],context
); break;
285 case 14: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
286 args
[9],args
[10],args
[11],args
[12],args
[13],context
); break;
287 case 15: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5],args
[6],args
[7],args
[8],
288 args
[9],args
[10],args
[11],args
[12],args
[13],args
[14],context
); break;
289 case 16: func(args
[0],args
[1],args
[2],args
[3],args
[4],args
[5], args
[6],args
[7],args
[8],
290 args
[9],args
[10],args
[11],args
[12],args
[13],args
[14],args
[15],context
); break;
292 ERR( "Unsupported nb of args %d\n", nb_args
);
296 DPRINTF( "Ret %s() retval=%08lx ret=%08lx fs=%04lx\n",
297 buffer
, EAX_reg(context
), EIP_reg(context
), FS_reg(context
) );
298 DPRINTF(" eax=%08lx ebx=%08lx ecx=%08lx edx=%08lx esi=%08lx edi=%08lx\n",
299 EAX_reg(context
), EBX_reg(context
), ECX_reg(context
),
300 EDX_reg(context
), ESI_reg(context
), EDI_reg(context
) );
301 DPRINTF(" ebp=%08lx esp=%08lx ds=%04lx es=%04lx gs=%04lx flags=%08lx\n",
302 EBP_reg(context
), ESP_reg(context
), DS_reg(context
),
303 ES_reg(context
), GS_reg(context
), EFL_reg(context
) );
305 SYSLEVEL_CheckNotLevel( 2 );
307 #endif /* __i386__ */