| /* |
| * Emulator thunks |
| * |
| * Copyright 1996, 1997 Alexandre Julliard |
| * Copyright 1998 Ulrich Weigand |
| */ |
| |
| #include "windows.h" |
| #include "callback.h" |
| #include "resource.h" |
| #include "task.h" |
| #include "user.h" |
| #include "heap.h" |
| #include "hook.h" |
| #include "module.h" |
| #include "process.h" |
| #include "stackframe.h" |
| #include "selectors.h" |
| #include "task.h" |
| #include "except.h" |
| #include "win.h" |
| #include "flatthunk.h" |
| #include "mouse.h" |
| #include "keyboard.h" |
| #include "debug.h" |
| |
| |
| /* List of the 16-bit callback functions. This list is used */ |
| /* by the build program to generate the file if1632/callto16.S */ |
| |
| /* ### start build ### */ |
| extern LONG CALLBACK CallTo16_sreg_(const CONTEXT *context, INT32 offset); |
| extern LONG CALLBACK CallTo16_lreg_(const CONTEXT *context, INT32 offset); |
| extern WORD CALLBACK CallTo16_word_ (FARPROC16); |
| extern LONG CALLBACK CallTo16_long_ (FARPROC16); |
| extern WORD CALLBACK CallTo16_word_w (FARPROC16,WORD); |
| extern LONG CALLBACK CallTo16_long_l (FARPROC16,LONG); |
| extern WORD CALLBACK CallTo16_word_ww (FARPROC16,WORD,WORD); |
| extern WORD CALLBACK CallTo16_word_wl (FARPROC16,WORD,LONG); |
| extern WORD CALLBACK CallTo16_word_ll (FARPROC16,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_ll (FARPROC16,LONG,LONG); |
| extern WORD CALLBACK CallTo16_word_www (FARPROC16,WORD,WORD,WORD); |
| extern WORD CALLBACK CallTo16_word_wwl (FARPROC16,WORD,WORD,LONG); |
| extern WORD CALLBACK CallTo16_word_wlw (FARPROC16,WORD,LONG,WORD); |
| extern LONG CALLBACK CallTo16_long_wwl (FARPROC16,WORD,WORD,LONG); |
| extern LONG CALLBACK CallTo16_long_lll (FARPROC16,LONG,LONG,LONG); |
| extern WORD CALLBACK CallTo16_word_llwl (FARPROC16,LONG,LONG,WORD,LONG); |
| extern WORD CALLBACK CallTo16_word_lwll (FARPROC16,LONG,WORD,LONG,LONG); |
| extern WORD CALLBACK CallTo16_word_lwww (FARPROC16,LONG,WORD,WORD,WORD); |
| extern WORD CALLBACK CallTo16_word_wwll (FARPROC16,WORD,WORD,LONG,LONG); |
| extern WORD CALLBACK CallTo16_word_wwwl (FARPROC16,WORD,WORD,WORD,LONG); |
| extern WORD CALLBACK CallTo16_word_llll (FARPROC16,LONG,LONG,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_llll (FARPROC16,LONG,LONG,LONG,LONG); |
| extern WORD CALLBACK CallTo16_word_wllwl(FARPROC16,WORD,LONG,LONG,WORD,LONG); |
| extern LONG CALLBACK CallTo16_long_lwwll(FARPROC16,LONG,WORD,WORD,LONG,LONG); |
| extern WORD CALLBACK CallTo16_word_wwlll(FARPROC16,WORD,WORD,LONG,LONG,LONG); |
| extern WORD CALLBACK CallTo16_word_wwwww(FARPROC16,WORD,WORD,WORD,WORD,WORD); |
| extern WORD CALLBACK CallTo16_word_lwlll(FARPROC16,LONG,WORD,LONG,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_lwlll(FARPROC16,LONG,WORD,LONG,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_lllll(FARPROC16,LONG,LONG,LONG,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_llllll(FARPROC16,LONG,LONG,LONG,LONG,LONG, |
| LONG); |
| extern LONG CALLBACK CallTo16_long_lllllll(FARPROC16,LONG,LONG,LONG,LONG,LONG, |
| LONG,LONG); |
| extern WORD CALLBACK CallTo16_word_llwwlll(FARPROC16,LONG,LONG,WORD,WORD,LONG, |
| LONG,LONG); |
| extern LONG CALLBACK CallTo16_word_lwwlllll(FARPROC16,LONG,WORD,WORD,LONG,LONG, |
| LONG,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_llllllll(FARPROC16,LONG,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_lllllllll(FARPROC16,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_llllllllll(FARPROC16,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_lllllllllll(FARPROC16,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG,LONG, |
| LONG); |
| extern LONG CALLBACK CallTo16_long_llllllllllll(FARPROC16,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG,LONG, |
| LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_lwwllwlllllw(FARPROC16,LONG,WORD,WORD,LONG, |
| LONG,WORD,LONG,LONG,LONG,LONG, |
| LONG,WORD); |
| extern LONG CALLBACK CallTo16_long_lllllllllllll(FARPROC16,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_llllllllllllll(FARPROC16,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG, |
| LONG); |
| extern LONG CALLBACK CallTo16_word_lwwwwlwwwwllll(FARPROC16,LONG,WORD,WORD, |
| WORD,WORD,LONG,WORD,WORD, |
| WORD,WORD,LONG,LONG,LONG, |
| LONG); |
| extern LONG CALLBACK CallTo16_long_lllllllllllllll(FARPROC16,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG, |
| LONG,LONG); |
| extern LONG CALLBACK CallTo16_long_llllllllllllllll(FARPROC16,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG,LONG,LONG, |
| LONG,LONG,LONG); |
| /* ### stop build ### */ |
| |
| |
| typedef void (*RELAY)(); |
| |
| #pragma pack(1) |
| |
| typedef struct tagTHUNK |
| { |
| BYTE popl_eax; /* 0x58 popl %eax (return address)*/ |
| BYTE pushl_func; /* 0x68 pushl $proc */ |
| FARPROC32 proc WINE_PACKED; |
| BYTE pushl_eax; /* 0x50 pushl %eax */ |
| BYTE jmp; /* 0xe9 jmp relay (relative jump)*/ |
| RELAY relay WINE_PACKED; |
| struct tagTHUNK *next WINE_PACKED; |
| } THUNK; |
| |
| #pragma pack(4) |
| |
| #define DECL_THUNK(name,proc,relay) \ |
| THUNK name = { 0x58, 0x68, (FARPROC32)(proc), 0x50, 0xe9, \ |
| (RELAY)((char *)(relay) - (char *)(&(name).next)), NULL } |
| |
| |
| static THUNK *firstThunk = NULL; |
| |
| static LRESULT WINAPI THUNK_CallWndProc16( WNDPROC16 proc, HWND16 hwnd, |
| UINT16 msg, WPARAM16 wParam, |
| LPARAM lParam ); |
| static void WINAPI THUNK_CallTaskReschedule(void); |
| static BOOL32 WINAPI THUNK_WOWCallback16Ex( FARPROC16,DWORD,DWORD, |
| LPVOID,LPDWORD ); |
| |
| /* TASK_Reschedule() 16-bit entry point */ |
| static FARPROC16 TASK_RescheduleProc; |
| |
| static BOOL32 THUNK_ThunkletInit( void ); |
| |
| extern void CallFrom16_p_long_wwwll(void); |
| |
| /* Callbacks function table for the emulator */ |
| static const CALLBACKS_TABLE CALLBACK_EmulatorTable = |
| { |
| (void *)CallTo16_sreg_, /* CallRegisterShortProc */ |
| (void *)CallTo16_lreg_, /* CallRegisterLongProc */ |
| THUNK_CallTaskReschedule, /* CallTaskRescheduleProc */ |
| CallFrom16_p_long_wwwll, /* CallFrom16WndProc */ |
| THUNK_CallWndProc16, /* CallWndProc */ |
| (void *)CallTo16_long_lwwll, /* CallDriverProc */ |
| (void *)CallTo16_word_wwlll, /* CallDriverCallback */ |
| (void *)CallTo16_word_wwlll, /* CallTimeFuncProc */ |
| (void *)CallTo16_word_w, /* CallWindowsExitProc */ |
| (void *)CallTo16_word_lwww, /* CallWordBreakProc */ |
| (void *)CallTo16_word_ww, /* CallBootAppProc */ |
| (void *)CallTo16_word_www, /* CallLoadAppSegProc */ |
| (void *)CallTo16_word_, /* CallSystemTimerProc */ |
| (void *)CallTo16_word_www, /* CallResourceHandlerProc */ |
| (void *)CallTo16_word_wwwl, /* CallPostAppMessageProc */ |
| (void *)CallTo16_long_l, /* CallWOWCallbackProc */ |
| THUNK_WOWCallback16Ex, /* CallWOWCallback16Ex */ |
| (void *)CallTo16_long_l, /* CallASPIPostProc */ |
| (void *)CallTo16_word_lwll, /* CallDrvControlProc */ |
| (void *)CallTo16_word_lwlll, /* CallDrvEnableProc */ |
| (void *)CallTo16_word_llll, /* CallDrvEnumDFontsProc */ |
| (void *)CallTo16_word_lwll, /* CallDrvEnumObjProc */ |
| (void *)CallTo16_word_lwwlllll, /* CallDrvOutputProc */ |
| (void *)CallTo16_long_lwlll, /* CallDrvRealizeProc */ |
| (void *)CallTo16_word_lwwwwlwwwwllll, /* CallDrvStretchBltProc */ |
| (void *)CallTo16_long_lwwllwlllllw, /* CallDrvExtTextOutProc */ |
| (void *)CallTo16_word_llwwlll, /* CallDrvGetCharWidth */ |
| (void *)CallTo16_word_ww /* CallDrvAbortProc */ |
| }; |
| |
| |
| /*********************************************************************** |
| * THUNK_Init |
| */ |
| BOOL32 THUNK_Init(void) |
| { |
| /* Set the window proc calling functions */ |
| Callbacks = &CALLBACK_EmulatorTable; |
| /* Get the 16-bit reschedule function pointer */ |
| TASK_RescheduleProc = MODULE_GetWndProcEntry16( "TASK_Reschedule" ); |
| /* Initialize Thunklets */ |
| return THUNK_ThunkletInit(); |
| } |
| |
| /*********************************************************************** |
| * THUNK_Alloc |
| */ |
| static THUNK *THUNK_Alloc( FARPROC32 func, RELAY relay ) |
| { |
| THUNK *thunk = HeapAlloc( GetProcessHeap(), 0, sizeof(*thunk) ); |
| if (thunk) |
| { |
| thunk->popl_eax = 0x58; |
| thunk->pushl_func = 0x68; |
| thunk->proc = func; |
| thunk->pushl_eax = 0x50; |
| thunk->jmp = 0xe9; |
| thunk->relay = (RELAY)((char *)relay - (char *)(&thunk->next)); |
| thunk->next = firstThunk; |
| firstThunk = thunk; |
| } |
| return thunk; |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_Find |
| */ |
| static THUNK *THUNK_Find( FARPROC32 func ) |
| { |
| THUNK *thunk = firstThunk; |
| while (thunk && (thunk->proc != func)) thunk = thunk->next; |
| return thunk; |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_Free |
| */ |
| static void THUNK_Free( THUNK *thunk ) |
| { |
| if (HEAP_IsInsideHeap( GetProcessHeap(), 0, thunk )) |
| { |
| THUNK **prev = &firstThunk; |
| while (*prev && (*prev != thunk)) prev = &(*prev)->next; |
| if (*prev) |
| { |
| *prev = thunk->next; |
| HeapFree( GetProcessHeap(), 0, thunk ); |
| return; |
| } |
| } |
| ERR(thunk, "invalid thunk addr %p\n", thunk ); |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_CallWndProc16 |
| * |
| * Call a 16-bit window procedure |
| */ |
| static LRESULT WINAPI THUNK_CallWndProc16( WNDPROC16 proc, HWND16 hwnd, |
| UINT16 msg, WPARAM16 wParam, |
| LPARAM lParam ) |
| { |
| CONTEXT context; |
| LRESULT ret; |
| WORD *args; |
| WND *wndPtr = WIN_FindWndPtr( hwnd ); |
| DWORD offset = 0; |
| THDB *thdb = THREAD_Current(); |
| |
| /* Window procedures want ax = hInstance, ds = es = ss */ |
| |
| memset(&context, '\0', sizeof(context)); |
| DS_reg(&context) = SELECTOROF(thdb->cur_stack); |
| ES_reg(&context) = DS_reg(&context); |
| EAX_reg(&context) = wndPtr ? wndPtr->hInstance : DS_reg(&context); |
| CS_reg(&context) = SELECTOROF(proc); |
| EIP_reg(&context) = OFFSETOF(proc); |
| EBP_reg(&context) = OFFSETOF(thdb->cur_stack) |
| + (WORD)&((STACK16FRAME*)0)->bp; |
| |
| if (lParam) |
| { |
| /* Some programs (eg. the "Undocumented Windows" examples, JWP) only |
| work if structures passed in lParam are placed in the stack/data |
| segment. Programmers easily make the mistake of converting lParam |
| to a near rather than a far pointer, since Windows apparently |
| allows this. We copy the structures to the 16 bit stack; this is |
| ugly but makes these programs work. */ |
| switch (msg) |
| { |
| case WM_CREATE: |
| case WM_NCCREATE: |
| offset = sizeof(CREATESTRUCT16); break; |
| case WM_DRAWITEM: |
| offset = sizeof(DRAWITEMSTRUCT16); break; |
| case WM_COMPAREITEM: |
| offset = sizeof(COMPAREITEMSTRUCT16); break; |
| } |
| if (offset) |
| { |
| void *s = PTR_SEG_TO_LIN(lParam); |
| lParam = STACK16_PUSH( thdb, offset ); |
| memcpy( PTR_SEG_TO_LIN(lParam), s, offset ); |
| } |
| } |
| |
| args = (WORD *)THREAD_STACK16(thdb) - 5; |
| args[0] = LOWORD(lParam); |
| args[1] = HIWORD(lParam); |
| args[2] = wParam; |
| args[3] = msg; |
| args[4] = hwnd; |
| |
| ret = CallTo16_sreg_( &context, 5 * sizeof(WORD) ); |
| if (offset) STACK16_POP( thdb, offset ); |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_CallTaskReschedule |
| */ |
| static void WINAPI THUNK_CallTaskReschedule(void) |
| { |
| CallTo16_word_(TASK_RescheduleProc); |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_EnumObjects16 (GDI.71) |
| */ |
| INT16 WINAPI THUNK_EnumObjects16( HDC16 hdc, INT16 nObjType, |
| GOBJENUMPROC16 func, LPARAM lParam ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_ll ); |
| return EnumObjects16( hdc, nObjType, (GOBJENUMPROC16)&thunk, lParam ); |
| } |
| |
| |
| /************************************************************************* |
| * THUNK_EnumFonts16 (GDI.70) |
| */ |
| INT16 WINAPI THUNK_EnumFonts16( HDC16 hdc, LPCSTR lpFaceName, |
| FONTENUMPROC16 func, LPARAM lParam ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_llwl ); |
| return EnumFonts16( hdc, lpFaceName, (FONTENUMPROC16)&thunk, lParam ); |
| } |
| |
| /****************************************************************** |
| * THUNK_EnumMetaFile16 (GDI.175) |
| */ |
| BOOL16 WINAPI THUNK_EnumMetaFile16( HDC16 hdc, HMETAFILE16 hmf, |
| MFENUMPROC16 func, LPARAM lParam ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_wllwl ); |
| return EnumMetaFile16( hdc, hmf, (MFENUMPROC16)&thunk, lParam ); |
| } |
| |
| |
| /************************************************************************* |
| * THUNK_EnumFontFamilies16 (GDI.330) |
| */ |
| INT16 WINAPI THUNK_EnumFontFamilies16( HDC16 hdc, LPCSTR lpszFamily, |
| FONTENUMPROC16 func, LPARAM lParam ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_llwl ); |
| return EnumFontFamilies16(hdc, lpszFamily, (FONTENUMPROC16)&thunk, lParam); |
| } |
| |
| |
| /************************************************************************* |
| * THUNK_EnumFontFamiliesEx16 (GDI.613) |
| */ |
| INT16 WINAPI THUNK_EnumFontFamiliesEx16( HDC16 hdc, LPLOGFONT16 lpLF, |
| FONTENUMPROCEX16 func, LPARAM lParam, |
| DWORD reserved ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_llwl ); |
| return EnumFontFamiliesEx16( hdc, lpLF, (FONTENUMPROCEX16)&thunk, |
| lParam, reserved ); |
| } |
| |
| |
| /********************************************************************** |
| * THUNK_LineDDA16 (GDI.100) |
| */ |
| void WINAPI THUNK_LineDDA16( INT16 nXStart, INT16 nYStart, INT16 nXEnd, |
| INT16 nYEnd, LINEDDAPROC16 func, LPARAM lParam ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_wwl ); |
| LineDDA16( nXStart, nYStart, nXEnd, nYEnd, (LINEDDAPROC16)&thunk, lParam ); |
| } |
| |
| |
| /******************************************************************* |
| * THUNK_EnumWindows16 (USER.54) |
| */ |
| BOOL16 WINAPI THUNK_EnumWindows16( WNDENUMPROC16 func, LPARAM lParam ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_wl ); |
| return EnumWindows16( (WNDENUMPROC16)&thunk, lParam ); |
| } |
| |
| |
| /********************************************************************** |
| * THUNK_EnumChildWindows16 (USER.55) |
| */ |
| BOOL16 WINAPI THUNK_EnumChildWindows16( HWND16 parent, WNDENUMPROC16 func, |
| LPARAM lParam ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_wl ); |
| return EnumChildWindows16( parent, (WNDENUMPROC16)&thunk, lParam ); |
| } |
| |
| |
| /********************************************************************** |
| * THUNK_EnumTaskWindows16 (USER.225) |
| */ |
| BOOL16 WINAPI THUNK_EnumTaskWindows16( HTASK16 hTask, WNDENUMPROC16 func, |
| LPARAM lParam ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_wl ); |
| return EnumTaskWindows16( hTask, (WNDENUMPROC16)&thunk, lParam ); |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_EnumProps16 (USER.27) |
| */ |
| INT16 WINAPI THUNK_EnumProps16( HWND16 hwnd, PROPENUMPROC16 func ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_wlw ); |
| return EnumProps16( hwnd, (PROPENUMPROC16)&thunk ); |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_GrayString16 (USER.185) |
| */ |
| BOOL16 WINAPI THUNK_GrayString16( HDC16 hdc, HBRUSH16 hbr, |
| GRAYSTRINGPROC16 func, LPARAM lParam, |
| INT16 cch, INT16 x, INT16 y, |
| INT16 cx, INT16 cy ) |
| { |
| DECL_THUNK( thunk, func, CallTo16_word_wlw ); |
| if (!func) |
| return GrayString16( hdc, hbr, NULL, lParam, cch, x, y, cx, cy ); |
| else |
| return GrayString16( hdc, hbr, (GRAYSTRINGPROC16)&thunk, lParam, cch, |
| x, y, cx, cy ); |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_SetWindowsHook16 (USER.121) |
| */ |
| FARPROC16 WINAPI THUNK_SetWindowsHook16( INT16 id, HOOKPROC16 proc ) |
| { |
| HINSTANCE16 hInst = FarGetOwner( HIWORD(proc) ); |
| HTASK16 hTask = (id == WH_MSGFILTER) ? GetCurrentTask() : 0; |
| THUNK *thunk = THUNK_Alloc( (FARPROC16)proc, (RELAY)CallTo16_long_wwl ); |
| if (!thunk) return 0; |
| return (FARPROC16)SetWindowsHookEx16( id, (HOOKPROC16)thunk, hInst, hTask); |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_UnhookWindowsHook16 (USER.234) |
| */ |
| BOOL16 WINAPI THUNK_UnhookWindowsHook16( INT16 id, HOOKPROC16 proc ) |
| { |
| BOOL16 ret; |
| THUNK *thunk = THUNK_Find( (FARPROC16)proc ); |
| if (!thunk) return FALSE; |
| ret = UnhookWindowsHook16( id, (HOOKPROC16)thunk ); |
| THUNK_Free( thunk ); |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_SetWindowsHookEx16 (USER.291) |
| */ |
| HHOOK WINAPI THUNK_SetWindowsHookEx16( INT16 id, HOOKPROC16 proc, |
| HINSTANCE16 hInst, HTASK16 hTask ) |
| { |
| THUNK *thunk = THUNK_Alloc( (FARPROC16)proc, (RELAY)CallTo16_long_wwl ); |
| if (!thunk) return 0; |
| return SetWindowsHookEx16( id, (HOOKPROC16)thunk, hInst, hTask ); |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_UnhookWindowHookEx16 (USER.292) |
| */ |
| BOOL16 WINAPI THUNK_UnhookWindowsHookEx16( HHOOK hhook ) |
| { |
| THUNK *thunk = (THUNK *)HOOK_GetProc16( hhook ); |
| BOOL16 ret = UnhookWindowsHookEx16( hhook ); |
| if (thunk) THUNK_Free( thunk ); |
| return ret; |
| } |
| |
| |
| |
| static FARPROC16 defDCHookProc = NULL; |
| |
| /*********************************************************************** |
| * THUNK_SetDCHook (GDI.190) |
| */ |
| BOOL16 WINAPI THUNK_SetDCHook( HDC16 hdc, FARPROC16 proc, DWORD dwHookData ) |
| { |
| THUNK *thunk, *oldThunk; |
| |
| if (!defDCHookProc) /* Get DCHook Win16 entry point */ |
| defDCHookProc = NE_GetEntryPoint( GetModuleHandle16("USER"), 362 ); |
| |
| if (proc != defDCHookProc) |
| { |
| thunk = THUNK_Alloc( proc, (RELAY)CallTo16_word_wwll ); |
| if (!thunk) return FALSE; |
| } |
| else thunk = (THUNK *)DCHook; |
| |
| /* Free the previous thunk */ |
| GetDCHook( hdc, (FARPROC16 *)&oldThunk ); |
| if (oldThunk && (oldThunk != (THUNK *)DCHook)) THUNK_Free( oldThunk ); |
| |
| return SetDCHook( hdc, (FARPROC16)thunk, dwHookData ); |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_GetDCHook (GDI.191) |
| */ |
| DWORD WINAPI THUNK_GetDCHook( HDC16 hdc, FARPROC16 *phookProc ) |
| { |
| THUNK *thunk = NULL; |
| DWORD ret = GetDCHook( hdc, (FARPROC16 *)&thunk ); |
| if (thunk) |
| { |
| if (thunk == (THUNK *)DCHook) |
| { |
| if (!defDCHookProc) /* Get DCHook Win16 entry point */ |
| defDCHookProc = NE_GetEntryPoint(GetModuleHandle16("USER"),362); |
| *phookProc = defDCHookProc; |
| } |
| else *phookProc = thunk->proc; |
| } |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_SetTaskSignalProc (KERNEL.38) |
| */ |
| FARPROC16 WINAPI THUNK_SetTaskSignalProc( HTASK16 hTask, FARPROC16 proc ) |
| { |
| static FARPROC16 defSignalProc16 = NULL; |
| |
| THUNK *thunk = NULL; |
| |
| if( !defSignalProc16 ) |
| defSignalProc16 = NE_GetEntryPoint(GetModuleHandle16("USER"), 314 ); |
| |
| if( proc == defSignalProc16 ) |
| thunk = (THUNK*)SetTaskSignalProc( hTask, (FARPROC16)&USER_SignalProc ); |
| else |
| { |
| thunk = THUNK_Alloc( proc, (RELAY)CallTo16_word_wwwww ); |
| if( !thunk ) return FALSE; |
| thunk = (THUNK*)SetTaskSignalProc( hTask, (FARPROC16)thunk ); |
| } |
| |
| if( thunk != (THUNK*)USER_SignalProc ) |
| { |
| if( !thunk ) return NULL; |
| |
| proc = thunk->proc; |
| THUNK_Free( thunk ); |
| return proc; |
| } |
| return defSignalProc16; |
| } |
| |
| /*********************************************************************** |
| * THUNK_CreateThread16 (KERNEL.441) |
| */ |
| static DWORD CALLBACK THUNK_StartThread16( LPVOID threadArgs ) |
| { |
| FARPROC16 start = ((FARPROC16 *)threadArgs)[0]; |
| DWORD param = ((DWORD *)threadArgs)[1]; |
| HeapFree( GetProcessHeap(), 0, threadArgs ); |
| |
| return CallTo16_long_l( start, param ); |
| } |
| HANDLE32 WINAPI THUNK_CreateThread16( SECURITY_ATTRIBUTES *sa, DWORD stack, |
| FARPROC16 start, SEGPTR param, |
| DWORD flags, LPDWORD id ) |
| { |
| DWORD *threadArgs = HeapAlloc( GetProcessHeap(), 0, 2*sizeof(DWORD) ); |
| if (!threadArgs) return INVALID_HANDLE_VALUE32; |
| threadArgs[0] = (DWORD)start; |
| threadArgs[1] = (DWORD)param; |
| |
| return CreateThread( sa, stack, THUNK_StartThread16, threadArgs, flags, id ); |
| } |
| |
| /*********************************************************************** |
| * THUNK_WOWCallback16Ex (WOW32.3)(KERNEL32.55) |
| * Generic thunking routine to call 16 bit functions from 32bit code. |
| * |
| * RETURNS |
| * TRUE if the call was done |
| */ |
| static BOOL32 WINAPI THUNK_WOWCallback16Ex( |
| FARPROC16 proc, /* [in] 16bit function to call */ |
| DWORD dwFlags, /* [in] flags (WCB_*) */ |
| DWORD cbArgs, /* [in] number of arguments */ |
| LPVOID xargs, /* [in/out] arguments */ |
| LPDWORD pdwret /* [out] return value of the 16bit call */ |
| ) { |
| LPDWORD args = (LPDWORD)xargs; |
| DWORD ret,i; |
| |
| TRACE(relay,"(%p,0x%08lx,%ld,%p,%p)\n", |
| proc,dwFlags,cbArgs,xargs,pdwret |
| ); |
| if (dwFlags == WCB16_CDECL) { |
| /* swap the arguments */ |
| args = HeapAlloc(GetProcessHeap(),0,cbArgs*sizeof(DWORD)); |
| for (i=0;i<cbArgs;i++) |
| args[i] = ((DWORD*)xargs)[cbArgs-i-1]; |
| } |
| switch (cbArgs) { |
| case 0: ret = CallTo16_long_(proc);break; |
| case 1: ret = CallTo16_long_l(proc,args[0]);break; |
| case 2: ret = CallTo16_long_ll(proc,args[0],args[1]);break; |
| case 3: ret = CallTo16_long_lll(proc,args[0],args[1],args[2]);break; |
| case 4: ret = CallTo16_long_llll(proc,args[0],args[1],args[2],args[3]); |
| break; |
| case 5: ret = CallTo16_long_lllll(proc,args[0],args[1],args[2],args[3], |
| args[4] |
| ); |
| break; |
| case 6: ret = CallTo16_long_llllll(proc,args[0],args[1],args[2],args[3], |
| args[4],args[5] |
| ); |
| break; |
| case 7: ret = CallTo16_long_lllllll(proc,args[0],args[1],args[2],args[3], |
| args[4],args[5],args[6] |
| ); |
| break; |
| case 8: ret = CallTo16_long_llllllll(proc,args[0],args[1],args[2],args[3], |
| args[4],args[5],args[6],args[7] |
| ); |
| break; |
| case 9: ret = CallTo16_long_lllllllll(proc,args[0],args[1],args[2],args[3], |
| args[4],args[5],args[6],args[7],args[8] |
| ); |
| break; |
| case 10:ret = CallTo16_long_llllllllll(proc,args[0],args[1],args[2],args[3], |
| args[4],args[5],args[6],args[7],args[8],args[9] |
| ); |
| break; |
| case 11:ret = CallTo16_long_lllllllllll(proc,args[0],args[1],args[2], |
| args[3],args[4],args[5],args[6],args[7],args[8],args[9],args[10] |
| ); |
| break; |
| case 12:ret = CallTo16_long_llllllllllll(proc,args[0],args[1],args[2], |
| args[3],args[4],args[5],args[6],args[7],args[8],args[9], |
| args[10],args[11] |
| ); |
| break; |
| case 13:ret = CallTo16_long_lllllllllllll(proc,args[0],args[1],args[2], |
| args[3],args[4],args[5],args[6],args[7],args[8],args[9], |
| args[10],args[11],args[12] |
| ); |
| break; |
| case 14:ret = CallTo16_long_llllllllllllll(proc,args[0],args[1],args[2], |
| args[3],args[4],args[5],args[6],args[7],args[8],args[9], |
| args[10],args[11],args[12],args[13] |
| ); |
| break; |
| case 15:ret = CallTo16_long_lllllllllllllll(proc,args[0],args[1],args[2], |
| args[3],args[4],args[5],args[6],args[7],args[8],args[9], |
| args[10],args[11],args[12],args[13],args[14] |
| ); |
| break; |
| case 16:ret = CallTo16_long_llllllllllllllll(proc,args[0],args[1],args[2], |
| args[3],args[4],args[5],args[6],args[7],args[8],args[9], |
| args[10],args[11],args[12],args[13],args[14],args[15] |
| ); |
| break; |
| default: |
| ERR(thunk,"%ld arguments not supported.\n",cbArgs); |
| if (dwFlags == WCB16_CDECL) |
| HeapFree(GetProcessHeap(),0,args); |
| return FALSE; |
| } |
| if (dwFlags == WCB16_CDECL) |
| HeapFree(GetProcessHeap(),0,args); |
| if (pdwret) |
| *pdwret = ret; |
| return TRUE; |
| } |
| |
| /*********************************************************************** |
| * THUNK_MOUSE_Enable (MOUSE.2) |
| */ |
| static VOID WINAPI THUNK_CallMouseEventProc( FARPROC16 proc, |
| DWORD dwFlags, DWORD dx, DWORD dy, |
| DWORD cButtons, DWORD dwExtraInfo ) |
| { |
| CONTEXT context; |
| |
| memset( &context, 0, sizeof(context) ); |
| CS_reg(&context) = SELECTOROF( proc ); |
| EIP_reg(&context) = OFFSETOF( proc ); |
| AX_reg(&context) = (WORD)dwFlags; |
| BX_reg(&context) = (WORD)dx; |
| CX_reg(&context) = (WORD)dy; |
| DX_reg(&context) = (WORD)cButtons; |
| SI_reg(&context) = LOWORD( dwExtraInfo ); |
| DI_reg(&context) = HIWORD( dwExtraInfo ); |
| |
| CallTo16_sreg_( &context, 0 ); |
| } |
| VOID WINAPI THUNK_MOUSE_Enable( FARPROC16 proc ) |
| { |
| static THUNK *lastThunk = NULL; |
| static FARPROC16 lastProc = NULL; |
| |
| if ( lastProc != proc ) |
| { |
| if ( lastThunk ) |
| THUNK_Free( lastThunk ); |
| |
| if ( !proc ) |
| lastThunk = NULL; |
| else |
| lastThunk = THUNK_Alloc( proc, (RELAY)THUNK_CallMouseEventProc ); |
| |
| lastProc = proc; |
| } |
| |
| return MOUSE_Enable( (LPMOUSE_EVENT_PROC)lastThunk ); |
| } |
| |
| /*********************************************************************** |
| * GetMouseEventProc (USER.337) |
| */ |
| FARPROC16 WINAPI GetMouseEventProc(void) |
| { |
| HMODULE16 hmodule = GetModuleHandle16("USER"); |
| return NE_GetEntryPoint( hmodule, NE_GetOrdinal( hmodule, "mouse_event" )); |
| } |
| |
| |
| /*********************************************************************** |
| * WIN16_mouse_event (USER.299) |
| */ |
| void WINAPI WIN16_mouse_event( CONTEXT *context ) |
| { |
| mouse_event( AX_reg(context), BX_reg(context), CX_reg(context), |
| DX_reg(context), MAKELONG(SI_reg(context), DI_reg(context)) ); |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_KEYBD_Enable (KEYBOARD.2) |
| */ |
| static VOID WINAPI THUNK_CallKeybdEventProc( FARPROC16 proc, |
| BYTE bVk, BYTE bScan, |
| DWORD dwFlags, DWORD dwExtraInfo ) |
| { |
| CONTEXT context; |
| |
| memset( &context, 0, sizeof(context) ); |
| CS_reg(&context) = SELECTOROF( proc ); |
| EIP_reg(&context) = OFFSETOF( proc ); |
| AH_reg(&context) = (dwFlags & KEYEVENTF_KEYUP)? 0x80 : 0; |
| AL_reg(&context) = bVk; |
| BH_reg(&context) = (dwFlags & KEYEVENTF_EXTENDEDKEY)? 1 : 0; |
| BL_reg(&context) = bScan; |
| SI_reg(&context) = LOWORD( dwExtraInfo ); |
| DI_reg(&context) = HIWORD( dwExtraInfo ); |
| |
| CallTo16_sreg_( &context, 0 ); |
| } |
| VOID WINAPI THUNK_KEYBOARD_Enable( FARPROC16 proc, LPBYTE lpKeyState ) |
| { |
| static THUNK *lastThunk = NULL; |
| static FARPROC16 lastProc = NULL; |
| |
| if ( lastProc != proc ) |
| { |
| if ( lastThunk ) |
| THUNK_Free( lastThunk ); |
| |
| if ( !proc ) |
| lastThunk = NULL; |
| else |
| lastThunk = THUNK_Alloc( proc, (RELAY)THUNK_CallKeybdEventProc ); |
| |
| lastProc = proc; |
| } |
| |
| return KEYBOARD_Enable( (LPKEYBD_EVENT_PROC)lastThunk, lpKeyState ); |
| } |
| |
| /*********************************************************************** |
| * WIN16_keybd_event (USER.289) |
| */ |
| void WINAPI WIN16_keybd_event( CONTEXT *context ) |
| { |
| DWORD dwFlags = 0; |
| |
| if (AH_reg(context) & 0x80) dwFlags |= KEYEVENTF_KEYUP; |
| if (BH_reg(context) & 1 ) dwFlags |= KEYEVENTF_EXTENDEDKEY; |
| |
| keybd_event( AL_reg(context), BL_reg(context), |
| dwFlags, MAKELONG(SI_reg(context), DI_reg(context)) ); |
| } |
| |
| |
| |
| /*********************************************************************** |
| * 16->32 Flat Thunk routines: |
| */ |
| |
| /*********************************************************************** |
| * ThunkConnect16 (KERNEL.651) |
| * Connects a 32bit and a 16bit thunkbuffer. |
| */ |
| UINT32 WINAPI ThunkConnect16( |
| LPSTR module16, /* [in] name of win16 dll */ |
| LPSTR module32, /* [in] name of win32 dll */ |
| HINSTANCE16 hInst16, /* [in] hInst of win16 dll */ |
| DWORD dwReason, /* [in] initialisation argument */ |
| struct ThunkDataCommon *TD, /* [in/out] thunkbuffer */ |
| LPSTR thunkfun32, /* [in] win32 thunkfunction */ |
| WORD cs /* [in] CS of win16 dll */ |
| ) { |
| BOOL32 directionSL; |
| |
| if (!lstrncmp32A(TD->magic, "SL01", 4)) |
| { |
| directionSL = TRUE; |
| |
| TRACE(thunk, "SL01 thunk %s (%lx) -> %s (%s), Reason: %ld\n", |
| module16, (DWORD)TD, module32, thunkfun32, dwReason); |
| } |
| else if (!lstrncmp32A(TD->magic, "LS01", 4)) |
| { |
| directionSL = FALSE; |
| |
| TRACE(thunk, "LS01 thunk %s (%lx) <- %s (%s), Reason: %ld\n", |
| module16, (DWORD)TD, module32, thunkfun32, dwReason); |
| } |
| else |
| { |
| ERR(thunk, "Invalid magic %c%c%c%c\n", |
| TD->magic[0], TD->magic[1], TD->magic[2], TD->magic[3]); |
| return 0; |
| } |
| |
| switch (dwReason) |
| { |
| case DLL_PROCESS_ATTACH: |
| if (directionSL) |
| { |
| struct ThunkDataSL16 *SL16 = (struct ThunkDataSL16 *)TD; |
| struct ThunkDataSL *SL = SL16->fpData; |
| |
| if (SL == NULL) |
| { |
| SL = HeapAlloc(GetProcessHeap(), 0, sizeof(*SL)); |
| |
| SL->common = SL16->common; |
| SL->flags1 = SL16->flags1; |
| SL->flags2 = SL16->flags2; |
| |
| SL->apiDB = PTR_SEG_TO_LIN(SL16->apiDatabase); |
| SL->targetDB = NULL; |
| |
| lstrcpyn32A(SL->pszDll16, module16, 255); |
| lstrcpyn32A(SL->pszDll32, module32, 255); |
| |
| /* We should create a SEGPTR to the ThunkDataSL, |
| but since the contents are not in the original format, |
| any access to this by 16-bit code would crash anyway. */ |
| SL16->spData = 0; |
| SL16->fpData = SL; |
| } |
| |
| |
| if (SL->flags2 & 0x80000000) |
| { |
| TRACE(thunk, "Preloading 32-bit library\n"); |
| LoadLibrary32A(module32); |
| } |
| } |
| else |
| { |
| /* nothing to do */ |
| } |
| break; |
| |
| case DLL_PROCESS_DETACH: |
| /* FIXME: cleanup */ |
| break; |
| } |
| |
| return 1; |
| } |
| |
| |
| /*********************************************************************** |
| * C16ThkSL (KERNEL.630) |
| */ |
| |
| void WINAPI C16ThkSL(CONTEXT *context) |
| { |
| extern void CallFrom16_t_long_(void); |
| LPBYTE stub = PTR_SEG_TO_LIN(EAX_reg(context)), x = stub; |
| WORD cs, ds; |
| GET_CS(cs); |
| GET_DS(ds); |
| |
| /* We produce the following code: |
| * |
| * mov ax, __FLATDS |
| * mov es, ax |
| * movzx ecx, cx |
| * mov edx, es:[ecx + $EDX] |
| * push bp |
| * push edx |
| * call __FLATCS:CallFrom16_t_long_ |
| */ |
| |
| *x++ = 0xB8; *((WORD *)x)++ = ds; |
| *x++ = 0x8E; *x++ = 0xC0; |
| *x++ = 0x66; *x++ = 0x0F; *x++ = 0xB7; *x++ = 0xC9; |
| *x++ = 0x67; *x++ = 0x66; *x++ = 0x26; *x++ = 0x8B; |
| *x++ = 0x91; *((DWORD *)x)++ = EDX_reg(context); |
| |
| *x++ = 0x55; |
| *x++ = 0x66; *x++ = 0x52; |
| *x++ = 0x66; *x++ = 0x9A; *((DWORD *)x)++ = (DWORD)CallFrom16_t_long_; |
| *((WORD *)x)++ = cs; |
| |
| /* Jump to the stub code just created */ |
| IP_reg(context) = LOWORD(EAX_reg(context)); |
| CS_reg(context) = HIWORD(EAX_reg(context)); |
| |
| /* Since C16ThkSL got called by a jmp, we need to leave the |
| orginal return address on the stack */ |
| SP_reg(context) -= 4; |
| } |
| |
| /*********************************************************************** |
| * C16ThkSL01 (KERNEL.631) |
| */ |
| |
| void WINAPI C16ThkSL01(CONTEXT *context) |
| { |
| LPBYTE stub = PTR_SEG_TO_LIN(EAX_reg(context)), x = stub; |
| |
| if (stub) |
| { |
| struct ThunkDataSL16 *SL16 = PTR_SEG_TO_LIN(EDX_reg(context)); |
| struct ThunkDataSL *td = SL16->fpData; |
| |
| extern void CallFrom16_t_long_(void); |
| DWORD procAddress = (DWORD)GetProcAddress16(GetModuleHandle16("KERNEL"), 631); |
| WORD cs; |
| GET_CS(cs); |
| |
| if (!td) |
| { |
| ERR(thunk, "ThunkConnect16 was not called!\n"); |
| return; |
| } |
| |
| TRACE(thunk, "Creating stub for ThunkDataSL %08lx\n", (DWORD)td); |
| |
| |
| /* We produce the following code: |
| * |
| * xor eax, eax |
| * mov edx, $td |
| * call C16ThkSL01 |
| * push bp |
| * push edx |
| * call __FLATCS:CallFrom16_t_long_ |
| */ |
| |
| *x++ = 0x66; *x++ = 0x33; *x++ = 0xC0; |
| *x++ = 0x66; *x++ = 0xBA; *((DWORD *)x)++ = (DWORD)td; |
| *x++ = 0x9A; *((DWORD *)x)++ = procAddress; |
| |
| *x++ = 0x55; |
| *x++ = 0x66; *x++ = 0x52; |
| *x++ = 0x66; *x++ = 0x9A; *((DWORD *)x)++ = (DWORD)CallFrom16_t_long_; |
| *((WORD *)x)++ = cs; |
| |
| /* Jump to the stub code just created */ |
| IP_reg(context) = LOWORD(EAX_reg(context)); |
| CS_reg(context) = HIWORD(EAX_reg(context)); |
| |
| /* Since C16ThkSL01 got called by a jmp, we need to leave the |
| orginal return address on the stack */ |
| SP_reg(context) -= 4; |
| } |
| else |
| { |
| struct ThunkDataSL *td = (struct ThunkDataSL *)EDX_reg(context); |
| DWORD targetNr = CX_reg(context) / 4; |
| struct SLTargetDB *tdb; |
| |
| TRACE(thunk, "Process %08lx calling target %ld of ThunkDataSL %08lx\n", |
| (DWORD)PROCESS_Current(), targetNr, (DWORD)td); |
| |
| for (tdb = td->targetDB; tdb; tdb = tdb->next) |
| if (tdb->process == PROCESS_Current()) |
| break; |
| |
| if (!tdb) |
| { |
| TRACE(thunk, "Loading 32-bit library %s\n", td->pszDll32); |
| LoadLibrary32A(td->pszDll32); |
| |
| for (tdb = td->targetDB; tdb; tdb = tdb->next) |
| if (tdb->process == PROCESS_Current()) |
| break; |
| } |
| |
| if (tdb) |
| { |
| EDX_reg(context) = tdb->targetTable[targetNr]; |
| |
| TRACE(thunk, "Call target is %08lx\n", EDX_reg(context)); |
| } |
| else |
| { |
| WORD *stack = PTR_SEG_OFF_TO_LIN(SS_reg(context), SP_reg(context)); |
| DX_reg(context) = HIWORD(td->apiDB[targetNr].errorReturnValue); |
| AX_reg(context) = LOWORD(td->apiDB[targetNr].errorReturnValue); |
| IP_reg(context) = stack[2]; |
| CS_reg(context) = stack[3]; |
| SP_reg(context) += td->apiDB[targetNr].nrArgBytes + 4; |
| |
| ERR(thunk, "Process %08lx did not ThunkConnect32 %s to %s\n", |
| (DWORD)PROCESS_Current(), td->pszDll32, td->pszDll16); |
| } |
| } |
| } |
| |
| DWORD WINAPI |
| WOW16Call(WORD x,WORD y,WORD z) { |
| int i; |
| DWORD calladdr; |
| FIXME(thunk,"(0x%04x,0x%04x,%d),calling (",x,y,z); |
| |
| for (i=0;i<x/2;i++) { |
| WORD a = STACK16_POP(THREAD_Current(),2); |
| DPRINTF("%04x ",a); |
| } |
| calladdr = STACK16_POP(THREAD_Current(),4); |
| DPRINTF(") calling address was 0x%08lx\n",calladdr); |
| return 0; |
| } |
| |
| |
| /*********************************************************************** |
| * 16<->32 Thunklet/Callback API: |
| */ |
| |
| #pragma pack(1) |
| typedef struct _THUNKLET |
| { |
| BYTE prefix_target; |
| BYTE pushl_target; |
| DWORD target; |
| |
| BYTE prefix_relay; |
| BYTE pushl_relay; |
| DWORD relay; |
| |
| BYTE jmp_glue; |
| DWORD glue; |
| |
| BYTE type; |
| HINSTANCE16 owner; |
| struct _THUNKLET *next; |
| } THUNKLET; |
| #pragma pack(4) |
| |
| #define THUNKLET_TYPE_LS 1 |
| #define THUNKLET_TYPE_SL 2 |
| |
| static HANDLE32 ThunkletHeap = 0; |
| static THUNKLET *ThunkletAnchor = NULL; |
| |
| static FARPROC32 ThunkletSysthunkGlueLS = 0; |
| static SEGPTR ThunkletSysthunkGlueSL = 0; |
| |
| static FARPROC32 ThunkletCallbackGlueLS = 0; |
| static SEGPTR ThunkletCallbackGlueSL = 0; |
| |
| /*********************************************************************** |
| * THUNK_ThunkletInit |
| */ |
| static BOOL32 THUNK_ThunkletInit( void ) |
| { |
| LPBYTE thunk; |
| |
| ThunkletHeap = HeapCreate(HEAP_WINE_SEGPTR | HEAP_WINE_CODE16SEG, 0, 0); |
| if (!ThunkletHeap) return FALSE; |
| |
| thunk = HeapAlloc( ThunkletHeap, 0, 5 ); |
| if (!thunk) return FALSE; |
| |
| ThunkletSysthunkGlueLS = (FARPROC32)thunk; |
| *thunk++ = 0x58; /* popl eax */ |
| *thunk++ = 0xC3; /* ret */ |
| |
| ThunkletSysthunkGlueSL = HEAP_GetSegptr( ThunkletHeap, 0, thunk ); |
| *thunk++ = 0x66; *thunk++ = 0x58; /* popl eax */ |
| *thunk++ = 0xCB; /* lret */ |
| |
| return TRUE; |
| } |
| |
| /*********************************************************************** |
| * SetThunkletCallbackGlue (KERNEL.560) |
| */ |
| void WINAPI SetThunkletCallbackGlue( FARPROC32 glueLS, SEGPTR glueSL ) |
| { |
| ThunkletCallbackGlueLS = glueLS; |
| ThunkletCallbackGlueSL = glueSL; |
| } |
| |
| |
| /*********************************************************************** |
| * THUNK_FindThunklet |
| */ |
| THUNKLET *THUNK_FindThunklet( DWORD target, DWORD relay, |
| DWORD glue, BYTE type ) |
| { |
| THUNKLET *thunk; |
| |
| for (thunk = ThunkletAnchor; thunk; thunk = thunk->next) |
| if ( thunk->type == type |
| && thunk->target == target |
| && thunk->relay == relay |
| && thunk->glue == glue ) |
| return thunk; |
| |
| return NULL; |
| } |
| |
| /*********************************************************************** |
| * THUNK_AllocLSThunklet |
| */ |
| FARPROC32 THUNK_AllocLSThunklet( SEGPTR target, DWORD relay, |
| FARPROC32 glue, HTASK16 owner ) |
| { |
| THUNKLET *thunk = THUNK_FindThunklet( (DWORD)target, relay, (DWORD)glue, |
| THUNKLET_TYPE_LS ); |
| if (!thunk) |
| { |
| TDB *pTask = (TDB*)GlobalLock16( owner ); |
| |
| if ( !(thunk = HeapAlloc( ThunkletHeap, 0, sizeof(THUNKLET) )) ) |
| return 0; |
| |
| thunk->prefix_target = thunk->prefix_relay = 0x90; |
| thunk->pushl_target = thunk->pushl_relay = 0x68; |
| thunk->jmp_glue = 0xE9; |
| |
| thunk->target = (DWORD)target; |
| thunk->relay = (DWORD)relay; |
| thunk->glue = (DWORD)glue - (DWORD)&thunk->owner; |
| |
| thunk->type = THUNKLET_TYPE_LS; |
| thunk->owner = pTask? pTask->hInstance : 0; |
| |
| thunk->next = ThunkletAnchor; |
| ThunkletAnchor = thunk; |
| } |
| |
| return (FARPROC32)thunk; |
| } |
| |
| /*********************************************************************** |
| * THUNK_AllocSLThunklet |
| */ |
| SEGPTR THUNK_AllocSLThunklet( FARPROC32 target, DWORD relay, |
| SEGPTR glue, HTASK16 owner ) |
| { |
| THUNKLET *thunk = THUNK_FindThunklet( (DWORD)target, relay, (DWORD)glue, |
| THUNKLET_TYPE_SL ); |
| if (!thunk) |
| { |
| TDB *pTask = (TDB*)GlobalLock16( owner ); |
| |
| if ( !(thunk = HeapAlloc( ThunkletHeap, 0, sizeof(THUNKLET) )) ) |
| return 0; |
| |
| thunk->prefix_target = thunk->prefix_relay = 0x66; |
| thunk->pushl_target = thunk->pushl_relay = 0x68; |
| thunk->jmp_glue = 0xEA; |
| |
| thunk->target = (DWORD)target; |
| thunk->relay = (DWORD)relay; |
| thunk->glue = (DWORD)glue; |
| |
| thunk->type = THUNKLET_TYPE_SL; |
| thunk->owner = pTask? pTask->hInstance : 0; |
| |
| thunk->next = ThunkletAnchor; |
| ThunkletAnchor = thunk; |
| } |
| |
| return HEAP_GetSegptr( ThunkletHeap, 0, thunk ); |
| } |
| |
| /********************************************************************** |
| * IsLSThunklet |
| */ |
| BOOL16 WINAPI IsLSThunklet( THUNKLET *thunk ) |
| { |
| return thunk->prefix_target == 0x90 && thunk->pushl_target == 0x68 |
| && thunk->prefix_relay == 0x90 && thunk->pushl_relay == 0x68 |
| && thunk->jmp_glue == 0xE9 && thunk->type == THUNKLET_TYPE_LS; |
| } |
| |
| /********************************************************************** |
| * IsSLThunklet (KERNEL.612) |
| */ |
| BOOL16 WINAPI IsSLThunklet( THUNKLET *thunk ) |
| { |
| return thunk->prefix_target == 0x66 && thunk->pushl_target == 0x68 |
| && thunk->prefix_relay == 0x66 && thunk->pushl_relay == 0x68 |
| && thunk->jmp_glue == 0xEA && thunk->type == THUNKLET_TYPE_SL; |
| } |
| |
| |
| |
| /*********************************************************************** |
| * AllocLSThunkletSysthunk (KERNEL.607) |
| */ |
| FARPROC32 WINAPI AllocLSThunkletSysthunk( SEGPTR target, |
| FARPROC32 relay, DWORD dummy ) |
| { |
| return THUNK_AllocLSThunklet( (SEGPTR)relay, (DWORD)target, |
| ThunkletSysthunkGlueLS, GetCurrentTask() ); |
| } |
| |
| /*********************************************************************** |
| * AllocSLThunkletSysthunk (KERNEL.608) |
| */ |
| SEGPTR WINAPI AllocSLThunkletSysthunk( FARPROC32 target, |
| SEGPTR relay, DWORD dummy ) |
| { |
| return THUNK_AllocSLThunklet( (FARPROC32)relay, (DWORD)target, |
| ThunkletSysthunkGlueSL, GetCurrentTask() ); |
| } |
| |
| |
| /*********************************************************************** |
| * AllocLSThunkletCallbackEx (KERNEL.567) |
| */ |
| FARPROC32 WINAPI AllocLSThunkletCallbackEx( SEGPTR target, |
| DWORD relay, HTASK16 task ) |
| { |
| THUNKLET *thunk = (THUNKLET *)target; |
| if ( IsSLThunklet( thunk ) && thunk->relay == relay |
| && thunk->glue == (DWORD)ThunkletCallbackGlueSL ) |
| return (FARPROC32)thunk->target; |
| |
| return THUNK_AllocLSThunklet( target, relay, |
| ThunkletCallbackGlueLS, task ); |
| } |
| |
| /*********************************************************************** |
| * AllocSLThunkletCallbackEx (KERNEL.568) |
| */ |
| SEGPTR WINAPI AllocSLThunkletCallbackEx( FARPROC32 target, |
| DWORD relay, HTASK16 task ) |
| { |
| THUNKLET *thunk = (THUNKLET *)target; |
| if ( IsLSThunklet( thunk ) && thunk->relay == relay |
| && thunk->glue == (DWORD)ThunkletCallbackGlueLS ) |
| return (SEGPTR)thunk->target; |
| |
| return THUNK_AllocSLThunklet( target, relay, |
| ThunkletCallbackGlueSL, task ); |
| } |
| |
| /*********************************************************************** |
| * AllocLSThunkletCallback (KERNEL.561) (KERNEL.606) |
| */ |
| FARPROC32 WINAPI AllocLSThunkletCallback( SEGPTR target, DWORD relay ) |
| { |
| return AllocLSThunkletCallbackEx( target, relay, GetCurrentTask() ); |
| } |
| |
| /*********************************************************************** |
| * AllocSLThunkletCallback (KERNEL.562) (KERNEL.605) |
| */ |
| SEGPTR WINAPI AllocSLThunkletCallback( FARPROC32 target, DWORD relay ) |
| { |
| return AllocSLThunkletCallbackEx( target, relay, GetCurrentTask() ); |
| } |
| |
| /*********************************************************************** |
| * FindLSThunkletCallback (KERNEL.563) (KERNEL.609) |
| */ |
| FARPROC32 WINAPI FindLSThunkletCallback( SEGPTR target, DWORD relay ) |
| { |
| THUNKLET *thunk = (THUNKLET *)PTR_SEG_TO_LIN( target ); |
| if ( thunk && IsSLThunklet( thunk ) && thunk->relay == relay |
| && thunk->glue == (DWORD)ThunkletCallbackGlueSL ) |
| return (FARPROC32)thunk->target; |
| |
| thunk = THUNK_FindThunklet( (DWORD)target, relay, |
| (DWORD)ThunkletCallbackGlueLS, |
| THUNKLET_TYPE_LS ); |
| return (FARPROC32)thunk; |
| } |
| |
| /*********************************************************************** |
| * FindSLThunkletCallback (KERNEL.564) (KERNEL.610) |
| */ |
| SEGPTR WINAPI FindSLThunkletCallback( FARPROC32 target, DWORD relay ) |
| { |
| THUNKLET *thunk = (THUNKLET *)target; |
| if ( thunk && IsLSThunklet( thunk ) && thunk->relay == relay |
| && thunk->glue == (DWORD)ThunkletCallbackGlueLS ) |
| return (SEGPTR)thunk->target; |
| |
| thunk = THUNK_FindThunklet( (DWORD)target, relay, |
| (DWORD)ThunkletCallbackGlueSL, |
| THUNKLET_TYPE_SL ); |
| return HEAP_GetSegptr( ThunkletHeap, 0, thunk ); |
| } |
| |
| |
| /*********************************************************************** |
| * Callback Client API |
| */ |
| |
| #define N_CBC_FIXED 20 |
| #define N_CBC_VARIABLE 10 |
| #define N_CBC_TOTAL (N_CBC_FIXED + N_CBC_VARIABLE) |
| |
| static SEGPTR *CBClientRelay16[ N_CBC_TOTAL ]; |
| static FARPROC32 *CBClientRelay32[ N_CBC_TOTAL ]; |
| |
| /*********************************************************************** |
| * RegisterCBClient (KERNEL.619) |
| */ |
| INT16 WINAPI RegisterCBClient( INT16 wCBCId, |
| SEGPTR *relay16, FARPROC32 *relay32 ) |
| { |
| /* Search for free Callback ID */ |
| if ( wCBCId == -1 ) |
| for ( wCBCId = N_CBC_FIXED; wCBCId < N_CBC_TOTAL; wCBCId++ ) |
| if ( !CBClientRelay16[ wCBCId ] ) |
| break; |
| |
| /* Register Callback ID */ |
| if ( wCBCId > 0 && wCBCId < N_CBC_TOTAL ) |
| { |
| CBClientRelay16[ wCBCId ] = relay16; |
| CBClientRelay32[ wCBCId ] = relay32; |
| } |
| else |
| wCBCId = 0; |
| |
| return wCBCId; |
| } |
| |
| /*********************************************************************** |
| * UnRegisterCBClient (KERNEL.622) |
| */ |
| INT16 WINAPI UnRegisterCBClient( INT16 wCBCId, |
| SEGPTR *relay16, FARPROC32 *relay32 ) |
| { |
| if ( wCBCId >= N_CBC_FIXED && wCBCId < N_CBC_TOTAL |
| && CBClientRelay16[ wCBCId ] == relay16 |
| && CBClientRelay32[ wCBCId ] == relay32 ) |
| { |
| CBClientRelay16[ wCBCId ] = 0; |
| CBClientRelay32[ wCBCId ] = 0; |
| } |
| else |
| wCBCId = 0; |
| |
| return wCBCId; |
| } |
| |
| |
| /*********************************************************************** |
| * InitCBClient (KERNEL.623) |
| */ |
| void WINAPI InitCBClient( FARPROC32 glueLS ) |
| { |
| HMODULE16 kernel = GetModuleHandle16( "KERNEL" ); |
| SEGPTR glueSL = (SEGPTR)WIN32_GetProcAddress16( kernel, (LPCSTR)604 ); |
| |
| SetThunkletCallbackGlue( glueLS, glueSL ); |
| } |
| |
| /*********************************************************************** |
| * CBClientGlueSL (KERNEL.604) |
| */ |
| void WINAPI CBClientGlueSL( CONTEXT *context ) |
| { |
| /* Create stack frame */ |
| SEGPTR stackSeg = STACK16_PUSH( THREAD_Current(), 12 ); |
| LPWORD stackLin = PTR_SEG_TO_LIN( stackSeg ); |
| SEGPTR glue; |
| |
| stackLin[3] = BP_reg( context ); |
| stackLin[2] = SI_reg( context ); |
| stackLin[1] = DI_reg( context ); |
| stackLin[0] = DS_reg( context ); |
| |
| BP_reg( context ) = OFFSETOF( stackSeg ) + 6; |
| SP_reg( context ) = OFFSETOF( stackSeg ) - 4; |
| GS_reg( context ) = 0; |
| |
| /* Jump to 16-bit relay code */ |
| glue = CBClientRelay16[ stackLin[5] ][ stackLin[4] ]; |
| CS_reg ( context ) = SELECTOROF( glue ); |
| EIP_reg( context ) = OFFSETOF ( glue ); |
| } |
| |
| /*********************************************************************** |
| * CBClientThunkSL (KERNEL.620) |
| */ |
| void WINAPI CBClientThunkSL( CONTEXT *context ) |
| { |
| /* Call 32-bit relay code */ |
| extern DWORD WINAPI CALL32_CBClient( FARPROC32 proc, LPWORD args ); |
| |
| LPWORD args = PTR_SEG_OFF_TO_LIN( SS_reg( context ), BP_reg( context ) ); |
| FARPROC32 proc = CBClientRelay32[ args[2] ][ args[1] ]; |
| |
| EAX_reg(context) = CALL32_CBClient( proc, args ); |
| } |
| |
| /*********************************************************************** |
| * KERNEL_365 (KERNEL.365) |
| * |
| * This is declared as a register function as it has to preserve |
| * *all* registers, even AX/DX ! |
| * |
| */ |
| void WINAPI KERNEL_365( CONTEXT *context ) |
| { |
| LPWORD args = PTR_SEG_OFF_TO_LIN( SS_reg( context ), SP_reg( context ) ); |
| FIXME( thunk, "(%04X, %d): stub!\n", args[3], (INT16)args[2] ); |
| } |
| |
