2 * Copyright 1993 Robert J. Amstadt
3 * Copyright 1995 Alexandre Julliard
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2.1 of the License, or (at your option) any later version.
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, write to the Free Software
17 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 #include "wine/port.h"
29 #include "wine/winbase16.h"
31 #include "stackframe.h"
32 #include "selectors.h"
33 #include "builtin16.h"
35 #include "wine/library.h"
36 #include "wine/debug.h"
38 WINE_DEFAULT_DEBUG_CHANNEL(relay
);
40 /***********************************************************************
48 /* Allocate the code selector for CallTo16 routines */
50 extern void Call16_Ret_Start(), Call16_Ret_End();
51 extern void CallTo16_Ret();
52 extern void CALL32_CBClient_Ret();
53 extern void CALL32_CBClientEx_Ret();
54 extern SEGPTR CallTo16_RetAddr
;
55 extern DWORD CallTo16_DataSelector
;
56 extern SEGPTR CALL32_CBClient_RetAddr
;
57 extern SEGPTR CALL32_CBClientEx_RetAddr
;
59 codesel
= SELECTOR_AllocBlock( (void *)Call16_Ret_Start
,
60 (char *)Call16_Ret_End
- (char *)Call16_Ret_Start
,
61 WINE_LDT_FLAGS_CODE
| WINE_LDT_FLAGS_32BIT
);
62 if (!codesel
) return FALSE
;
64 /* Patch the return addresses for CallTo16 routines */
66 CallTo16_DataSelector
= wine_get_ds();
68 MAKESEGPTR( codesel
, (char*)CallTo16_Ret
- (char*)Call16_Ret_Start
);
69 CALL32_CBClient_RetAddr
=
70 MAKESEGPTR( codesel
, (char*)CALL32_CBClient_Ret
- (char*)Call16_Ret_Start
);
71 CALL32_CBClientEx_RetAddr
=
72 MAKESEGPTR( codesel
, (char*)CALL32_CBClientEx_Ret
- (char*)Call16_Ret_Start
);
78 * Stubs for the CallTo16/CallFrom16 routines on non-Intel architectures
79 * (these will never be called but need to be present to satisfy the linker ...)
82 /***********************************************************************
83 * __wine_call_from_16_word (KERNEL32.@)
85 WORD
__wine_call_from_16_word()
90 /***********************************************************************
91 * __wine_call_from_16_long (KERNEL32.@)
93 LONG
__wine_call_from_16_long()
98 /***********************************************************************
99 * __wine_call_from_16_regs (KERNEL32.@)
101 void __wine_call_from_16_regs()
106 DWORD WINAPI
CALL32_CBClient( FARPROC proc
, LPWORD args
, DWORD
*esi
)
109 DWORD WINAPI
CALL32_CBClientEx( FARPROC proc
, LPWORD args
, DWORD
*esi
, INT
*nArgs
)
114 /***********************************************************************
115 * RELAY_ShowDebugmsgRelay
117 * Simple function to decide if a particular debugging message is
120 static int RELAY_ShowDebugmsgRelay(const char *func
)
122 /* from relay32/relay386.c */
123 extern const char **debug_relay_excludelist
,**debug_relay_includelist
;
125 if(debug_relay_excludelist
|| debug_relay_includelist
) {
126 const char *term
= strchr(func
, ':');
127 const char **listitem
;
128 int len
, len2
, itemlen
, show
;
130 if(debug_relay_excludelist
) {
132 listitem
= debug_relay_excludelist
;
135 listitem
= debug_relay_includelist
;
138 assert(strlen(term
) > 2);
140 len2
= strchr(func
, '.') - func
;
141 assert(len2
&& len2
> 0 && len2
< 64);
143 for(; *listitem
; listitem
++) {
144 itemlen
= strlen(*listitem
);
145 if((itemlen
== len
&& !strncasecmp(*listitem
, func
, len
)) ||
146 (itemlen
== len2
&& !strncasecmp(*listitem
, func
, len2
)) ||
147 !strcasecmp(*listitem
, term
)) {
158 /***********************************************************************
161 * Return the ordinal, name, and type info corresponding to a CS:IP address.
163 static const CALLFROM16
*get_entry_point( STACK16FRAME
*frame
, LPSTR name
, WORD
*pOrd
)
171 if (!(pModule
= NE_GetPtr( FarGetOwner16( GlobalHandle16( frame
->module_cs
) ))))
176 bundle
= (ET_BUNDLE
*)((BYTE
*)pModule
+ pModule
->entry_table
);
179 entry
= (ET_ENTRY
*)((BYTE
*)bundle
+6);
180 for (i
= bundle
->first
+ 1; i
<= bundle
->last
; i
++)
182 if ((entry
->offs
< frame
->entry_ip
)
183 && (entry
->segnum
== 1) /* code segment ? */
184 && (entry
->offs
>= max_offset
))
186 max_offset
= entry
->offs
;
191 } while ( (bundle
->next
)
192 && (bundle
= (ET_BUNDLE
*)((BYTE
*)pModule
+bundle
->next
)));
194 /* Search for the name in the resident names table */
195 /* (built-in modules have no non-resident table) */
197 p
= (BYTE
*)pModule
+ pModule
->name_table
;
200 p
+= *p
+ 1 + sizeof(WORD
);
201 if (*(WORD
*)(p
+ *p
+ 1) == *pOrd
) break;
204 sprintf( name
, "%.*s.%d: %.*s",
205 *((BYTE
*)pModule
+ pModule
->name_table
),
206 (char *)pModule
+ pModule
->name_table
+ 1,
207 *pOrd
, *p
, (char *)(p
+ 1) );
209 /* Retrieve entry point call structure */
210 p
= MapSL( MAKESEGPTR( frame
->module_cs
, frame
->callfrom_ip
) );
211 /* p now points to lret, get the start of CALLFROM16 structure */
212 return (CALLFROM16
*)(p
- (BYTE
*)&((CALLFROM16
*)0)->lret
);
216 /***********************************************************************
217 * RELAY_DebugCallFrom16
219 void RELAY_DebugCallFrom16( CONTEXT86
*context
)
223 char *args16
, funstr
[80];
224 const CALLFROM16
*call
;
227 if (!TRACE_ON(relay
)) return;
229 frame
= CURRENT_STACK16
;
230 call
= get_entry_point( frame
, funstr
, &ordinal
);
231 if (!call
) return; /* happens for the two snoop register relays */
232 if (!RELAY_ShowDebugmsgRelay(funstr
)) return;
233 DPRINTF( "%04lx:Call %s(",GetCurrentThreadId(),funstr
);
234 VA_START16( args16
);
236 if (call
->lret
== 0xcb66) /* cdecl */
238 for (i
= 0; i
< 20; i
++)
240 int type
= (call
->arg_types
[i
/ 10] >> (3 * (i
% 10))) & 7;
242 if (type
== ARG_NONE
) break;
243 if (i
) DPRINTF( "," );
248 DPRINTF( "%04x", *(WORD
*)args16
);
249 args16
+= sizeof(WORD
);
252 DPRINTF( "%08x", *(int *)args16
);
253 args16
+= sizeof(int);
256 DPRINTF( "%04x:%04x", *(WORD
*)(args16
+2), *(WORD
*)args16
);
257 args16
+= sizeof(SEGPTR
);
260 DPRINTF( "%08x %s", *(int *)args16
,
261 debugstr_a( MapSL(*(SEGPTR
*)args16
)));
262 args16
+= sizeof(int);
265 DPRINTF( "%04x:%04x %s", *(WORD
*)(args16
+2), *(WORD
*)args16
,
266 debugstr_a( MapSL(*(SEGPTR
*)args16
)) );
267 args16
+= sizeof(SEGPTR
);
276 /* Start with the last arg */
277 args16
+= call
->nArgs
;
278 for (i
= 0; i
< 20; i
++)
280 int type
= (call
->arg_types
[i
/ 10] >> (3 * (i
% 10))) & 7;
282 if (type
== ARG_NONE
) break;
283 if (i
) DPRINTF( "," );
288 args16
-= sizeof(WORD
);
289 DPRINTF( "%04x", *(WORD
*)args16
);
292 args16
-= sizeof(int);
293 DPRINTF( "%08x", *(int *)args16
);
296 args16
-= sizeof(SEGPTR
);
297 DPRINTF( "%04x:%04x", *(WORD
*)(args16
+2), *(WORD
*)args16
);
300 args16
-= sizeof(int);
301 DPRINTF( "%08x %s", *(int *)args16
,
302 debugstr_a( MapSL(*(SEGPTR
*)args16
)));
305 args16
-= sizeof(SEGPTR
);
306 DPRINTF( "%04x:%04x %s", *(WORD
*)(args16
+2), *(WORD
*)args16
,
307 debugstr_a( MapSL(*(SEGPTR
*)args16
)) );
315 DPRINTF( ") ret=%04x:%04x ds=%04x\n", frame
->cs
, frame
->ip
, frame
->ds
);
318 if (call
->arg_types
[0] & ARG_REGISTER
)
319 DPRINTF(" AX=%04x BX=%04x CX=%04x DX=%04x SI=%04x DI=%04x ES=%04x EFL=%08lx\n",
320 (WORD
)context
->Eax
, (WORD
)context
->Ebx
, (WORD
)context
->Ecx
,
321 (WORD
)context
->Edx
, (WORD
)context
->Esi
, (WORD
)context
->Edi
,
322 (WORD
)context
->SegEs
, context
->EFlags
);
324 SYSLEVEL_CheckNotLevel( 2 );
328 /***********************************************************************
329 * RELAY_DebugCallFrom16Ret
331 void RELAY_DebugCallFrom16Ret( CONTEXT86
*context
, int ret_val
)
336 const CALLFROM16
*call
;
338 if (!TRACE_ON(relay
)) return;
339 frame
= CURRENT_STACK16
;
340 call
= get_entry_point( frame
, funstr
, &ordinal
);
342 if (!RELAY_ShowDebugmsgRelay(funstr
)) return;
343 DPRINTF( "%04lx:Ret %s() ",GetCurrentThreadId(),funstr
);
345 if (call
->arg_types
[0] & ARG_REGISTER
)
347 DPRINTF("retval=none ret=%04x:%04x ds=%04x\n",
348 (WORD
)context
->SegCs
, LOWORD(context
->Eip
), (WORD
)context
->SegDs
);
349 DPRINTF(" AX=%04x BX=%04x CX=%04x DX=%04x SI=%04x DI=%04x ES=%04x EFL=%08lx\n",
350 (WORD
)context
->Eax
, (WORD
)context
->Ebx
, (WORD
)context
->Ecx
,
351 (WORD
)context
->Edx
, (WORD
)context
->Esi
, (WORD
)context
->Edi
,
352 (WORD
)context
->SegEs
, context
->EFlags
);
354 else if (call
->arg_types
[0] & ARG_RET16
)
356 DPRINTF( "retval=%04x ret=%04x:%04x ds=%04x\n",
357 ret_val
& 0xffff, frame
->cs
, frame
->ip
, frame
->ds
);
361 DPRINTF( "retval=%08x ret=%04x:%04x ds=%04x\n",
362 ret_val
, frame
->cs
, frame
->ip
, frame
->ds
);
364 SYSLEVEL_CheckNotLevel( 2 );