2 * 386-specific Win16 dll<->dll snooping functions
4 * Copyright 1998 Marcus Meissner
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "wine/port.h"
31 #include "wine/winbase16.h"
33 #include "wine/library.h"
34 #include "kernel_private.h"
35 #include "kernel16_private.h"
37 #include "wine/debug.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(snoop
);
45 void WINAPI
SNOOP16_Entry(FARPROC proc
, LPBYTE args
, CONTEXT86
*context
);
46 void WINAPI
SNOOP16_Return(FARPROC proc
, LPBYTE args
, CONTEXT86
*context
);
48 typedef struct tagSNOOP16_FUN
{
50 BYTE lcall
; /* 0x9a call absolute with segment */
58 typedef struct tagSNOOP16_DLL
{
62 struct tagSNOOP16_DLL
*next
;
66 typedef struct tagSNOOP16_RETURNENTRY
{
68 BYTE lcall
; /* 0x9a call absolute with segment */
75 WORD
*args
; /* saved args across a stdcall */
76 } SNOOP16_RETURNENTRY
;
78 typedef struct tagSNOOP16_RETURNENTRIES
{
79 SNOOP16_RETURNENTRY entry
[65500/sizeof(SNOOP16_RETURNENTRY
)];
81 struct tagSNOOP16_RETURNENTRIES
*next
;
82 } SNOOP16_RETURNENTRIES
;
84 typedef struct tagSNOOP16_RELAY
{
85 WORD pushbp
; /* 0x5566 */
86 BYTE pusheax
; /* 0x50 */
87 WORD pushax
; /* 0x5066 */
88 BYTE pushl
; /* 0x68 */
89 DWORD realfun
; /* SNOOP16_Return */
90 BYTE lcall
; /* 0x9a call absolute with segment */
93 WORD lret
; /* 0xcb66 */
98 static SNOOP16_DLL
*firstdll
= NULL
;
99 static SNOOP16_RETURNENTRIES
*firstrets
= NULL
;
100 static SNOOP16_RELAY
*snr
;
101 static HANDLE16 xsnr
= 0;
104 SNOOP16_RegisterDLL(HMODULE16 hModule
,LPCSTR name
) {
105 SNOOP16_DLL
**dll
= &(firstdll
);
108 if (!TRACE_ON(snoop
)) return;
110 TRACE("hmod=%x, name=%s\n", hModule
, name
);
113 xsnr
=GLOBAL_Alloc(GMEM_ZEROINIT
,2*sizeof(*snr
),0,WINE_LDT_FLAGS_CODE
|WINE_LDT_FLAGS_32BIT
);
114 snr
= GlobalLock16(xsnr
);
115 snr
[0].pushbp
= 0x5566;
116 snr
[0].pusheax
= 0x50;
117 snr
[0].pushax
= 0x5066;
119 snr
[0].realfun
= (DWORD
)SNOOP16_Entry
;
121 snr
[0].callfromregs
= (DWORD
)__wine_call_from_16_regs
;
122 snr
[0].seg
= wine_get_cs();
123 snr
[0].lret
= 0xcb66;
125 snr
[1].pushbp
= 0x5566;
126 snr
[1].pusheax
= 0x50;
127 snr
[1].pushax
= 0x5066;
129 snr
[1].realfun
= (DWORD
)SNOOP16_Return
;
131 snr
[1].callfromregs
= (DWORD
)__wine_call_from_16_regs
;
132 snr
[1].seg
= wine_get_cs();
133 snr
[1].lret
= 0xcb66;
136 if ((*dll
)->hmod
== hModule
)
138 /* another dll, loaded at the same address */
139 GlobalUnlock16((*dll
)->funhandle
);
140 GlobalFree16((*dll
)->funhandle
);
143 dll
= &((*dll
)->next
);
147 *dll
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, *dll
, sizeof(SNOOP16_DLL
)+strlen(name
));
149 *dll
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(SNOOP16_DLL
)+strlen(name
));
152 (*dll
)->hmod
= hModule
;
153 if ((s
=strrchr(name
,'\\')))
155 strcpy( (*dll
)->name
, name
);
156 if ((s
=strrchr((*dll
)->name
,'.')))
158 (*dll
)->funhandle
= GlobalHandleToSel16(GLOBAL_Alloc(GMEM_ZEROINIT
,65535,0,WINE_LDT_FLAGS_CODE
));
159 (*dll
)->funs
= GlobalLock16((*dll
)->funhandle
);
161 HeapFree(GetProcessHeap(),0,*dll
);
162 FIXME("out of memory\n");
168 SNOOP16_GetProcAddress16(HMODULE16 hmod
,DWORD ordinal
,FARPROC16 origfun
) {
169 SNOOP16_DLL
*dll
= firstdll
;
171 NE_MODULE
*pModule
= NE_GetPtr(hmod
);
175 if (!TRACE_ON(snoop
) || !pModule
|| !HIWORD(origfun
))
177 if (!*(LPBYTE
)MapSL((SEGPTR
)origfun
)) /* 0x00 is an impossible opcode, possible dataref. */
180 if (hmod
== dll
->hmod
)
184 if (!dll
) /* probably internal */
186 if (ordinal
>65535/sizeof(SNOOP16_FUN
))
188 fun
= dll
->funs
+ordinal
;
191 fun
->snr
= MAKELONG(0,xsnr
);
192 fun
->origfun
= origfun
;
194 return (FARPROC16
)(SEGPTR
)MAKELONG(((char*)fun
-(char*)dll
->funs
),dll
->funhandle
);
195 cpnt
= (unsigned char *)pModule
+ pModule
->ne_restab
;
197 cpnt
+= *cpnt
+ 1 + sizeof(WORD
);
198 if (*(WORD
*)(cpnt
+*cpnt
+1) == ordinal
) {
199 sprintf(name
,"%.*s",*cpnt
,cpnt
+1);
203 /* Now search the non-resident names table */
205 if (!*cpnt
&& pModule
->nrname_handle
) {
206 cpnt
= (unsigned char *)GlobalLock16( pModule
->nrname_handle
);
208 cpnt
+= *cpnt
+ 1 + sizeof(WORD
);
209 if (*(WORD
*)(cpnt
+*cpnt
+1) == ordinal
) {
210 sprintf(name
,"%.*s",*cpnt
,cpnt
+1);
217 fun
->name
= HeapAlloc(GetProcessHeap(),0,strlen(name
)+1);
218 strcpy( fun
->name
, name
);
221 fun
->name
= HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,1); /* empty string */
223 if (!SNOOP16_ShowDebugmsgSnoop(dll
->name
, ordinal
, fun
->name
))
226 /* more magic. do not try to snoop thunk data entries (MMSYSTEM) */
227 if (strchr(fun
->name
,'_')) {
228 char *s
=strchr(fun
->name
,'_');
230 if (!strncasecmp(s
,"_thunkdata",10)) {
231 HeapFree(GetProcessHeap(),0,fun
->name
);
237 fun
->snr
= MAKELONG(0,xsnr
);
238 fun
->origfun
= origfun
;
240 return (FARPROC16
)(SEGPTR
)MAKELONG(((char*)fun
-(char*)dll
->funs
),dll
->funhandle
);
243 #define CALLER1REF (*(DWORD*)(MapSL( MAKESEGPTR(context->SegSs,LOWORD(context->Esp)+4))))
244 void WINAPI
SNOOP16_Entry(FARPROC proc
, LPBYTE args
, CONTEXT86
*context
) {
246 DWORD entry
=(DWORD
)MapSL( MAKESEGPTR(context
->SegCs
,LOWORD(context
->Eip
)) )-5;
247 WORD xcs
= context
->SegCs
;
248 SNOOP16_DLL
*dll
= firstdll
;
249 SNOOP16_FUN
*fun
= NULL
;
250 SNOOP16_RETURNENTRIES
**rets
= &firstrets
;
251 SNOOP16_RETURNENTRY
*ret
;
256 if (xcs
== dll
->funhandle
) {
257 fun
= (SNOOP16_FUN
*)entry
;
258 ordinal
= fun
-dll
->funs
;
264 FIXME("entrypoint 0x%08x not found\n",entry
);
268 for (i
=0;i
<sizeof((*rets
)->entry
)/sizeof((*rets
)->entry
[0]);i
++)
269 if (!(*rets
)->entry
[i
].origreturn
)
271 if (i
!=sizeof((*rets
)->entry
)/sizeof((*rets
)->entry
[0]))
273 rets
= &((*rets
)->next
);
276 HANDLE16 hand
= GlobalHandleToSel16(GLOBAL_Alloc(GMEM_ZEROINIT
,65535,0,WINE_LDT_FLAGS_CODE
));
277 *rets
= GlobalLock16(hand
);
278 (*rets
)->rethandle
= hand
;
279 i
= 0; /* entry 0 is free */
281 ret
= &((*rets
)->entry
[i
]);
283 ret
->snr
= MAKELONG(sizeof(SNOOP16_RELAY
),xsnr
);
284 ret
->origreturn
= (FARPROC16
)CALLER1REF
;
285 CALLER1REF
= MAKELONG((char*)&(ret
->lcall
)-(char*)((*rets
)->entry
),(*rets
)->rethandle
);
288 ret
->ordinal
= ordinal
;
289 ret
->origSP
= LOWORD(context
->Esp
);
291 context
->Eip
= LOWORD(fun
->origfun
);
292 context
->SegCs
= HIWORD(fun
->origfun
);
295 DPRINTF("%04x:CALL %s.%d: %s(",GetCurrentThreadId(), dll
->name
,ordinal
,fun
->name
);
296 if (fun
->nrofargs
>0) {
300 DPRINTF("%04x%s",*(WORD
*)((char *) MapSL( MAKESEGPTR(context
->SegSs
,LOWORD(context
->Esp
)) )+8+sizeof(WORD
)*i
),i
?",":"");
301 if (max
!=fun
->nrofargs
)
303 } else if (fun
->nrofargs
<0) {
304 DPRINTF("<unknown, check return>");
305 ret
->args
= HeapAlloc(GetProcessHeap(),0,16*sizeof(WORD
));
306 memcpy(ret
->args
,(LPBYTE
)((char *) MapSL( MAKESEGPTR(context
->SegSs
,LOWORD(context
->Esp
)) )+8),sizeof(WORD
)*16);
308 DPRINTF(") ret=%04x:%04x\n",HIWORD(ret
->origreturn
),LOWORD(ret
->origreturn
));
311 void WINAPI
SNOOP16_Return(FARPROC proc
, LPBYTE args
, CONTEXT86
*context
) {
312 SNOOP16_RETURNENTRY
*ret
= (SNOOP16_RETURNENTRY
*)((char *) MapSL( MAKESEGPTR(context
->SegCs
,LOWORD(context
->Eip
)) )-5);
314 /* We haven't found out the nrofargs yet. If we called a cdecl
315 * function it is too late anyway and we can just set '0' (which
316 * will be the difference between orig and current SP
317 * If pascal -> everything ok.
319 if (ret
->dll
->funs
[ret
->ordinal
].nrofargs
<0) {
320 ret
->dll
->funs
[ret
->ordinal
].nrofargs
=(LOWORD(context
->Esp
)-ret
->origSP
-4)/2;
322 context
->Eip
= LOWORD(ret
->origreturn
);
323 context
->SegCs
= HIWORD(ret
->origreturn
);
324 DPRINTF("%04x:RET %s.%d: %s(",
325 GetCurrentThreadId(),ret
->dll
->name
,ret
->ordinal
,
326 ret
->dll
->funs
[ret
->ordinal
].name
);
330 max
= ret
->dll
->funs
[ret
->ordinal
].nrofargs
;
337 DPRINTF("%04x%s",ret
->args
[i
],i
?",":"");
338 if (max
!=ret
->dll
->funs
[ret
->ordinal
].nrofargs
)
340 HeapFree(GetProcessHeap(),0,ret
->args
);
343 DPRINTF(") retval = %04x:%04x ret=%04x:%04x\n",
344 (WORD
)context
->Edx
,(WORD
)context
->Eax
,
345 HIWORD(ret
->origreturn
),LOWORD(ret
->origreturn
));
346 ret
->origreturn
= NULL
; /* mark as empty */
348 #else /* !__i386__ */
349 void SNOOP16_RegisterDLL(HMODULE16 hModule
,LPCSTR name
) {
350 if (!TRACE_ON(snoop
)) return;
351 FIXME("snooping works only on i386 for now.\n");
354 FARPROC16
SNOOP16_GetProcAddress16(HMODULE16 hmod
,DWORD ordinal
,FARPROC16 origfun
) {
357 #endif /* !__i386__ */