142 lines
5.8 KiB
PHP
142 lines
5.8 KiB
PHP
;*****************************************************************************
|
|
;* THKSHARE.INC
|
|
;*
|
|
;* Thunk shared data between Kernel16 and Kernel32.
|
|
;*
|
|
;* Created: 23-Aug-93 [KevinR]
|
|
;*
|
|
;****************************************************************************
|
|
|
|
;
|
|
; Thunk shared data between Kernel16 and Kernel32.
|
|
;
|
|
THUNKDATA STRUC
|
|
td_dwSize dd ? ;Used for version checking
|
|
td_pfnC32ThkSL dd ? ;0:32 ptr to 32-bit setup code for 16=>32 thunks
|
|
td_pfnC32ThkSL01 dd ? ;0:32 ptr to 32-bit setup code for 16=>32 thunks
|
|
td_pfnKrn32ThkSL dd ? ;0:32 ptr, krnthksl entry pt., 16=>32 thk
|
|
td_TargetTable16ThkLSF dd ? ;16:16 ptr, krnfthk target table, 32=>16 flat thk
|
|
td_pfnCommon16ThkLSF dd ? ;16:16 ptr to 16-bit cleanup, 32=>16 flat thk
|
|
td_pfnCommon16ThunkFTLSFWin32Lock dd ? ;16:16 ptr to 16-bit cleanup, 32=>16 flat thk
|
|
td_pfnCommon16ThunkQTLSFWin32Lock dd ? ;16:16 ptr to 16-bit cleanup, 32=>16 flat thk
|
|
td_pfnCommon16ThunkFTLSFWin16Lock dd ? ;16:16 ptr to 16-bit cleanup, 32=>16 flat thk
|
|
td_pfnCommon16ThunkQTLSFWin16Lock dd ? ;16:16 ptr to 16-bit cleanup, 32=>16 flat thk
|
|
td_pfnCommon16ThunkQTLSFWin32NoLock dd ? ;16:16 ptr to 16-bit cleanup, 32=>16 flat thk
|
|
td_pfLogLS dd ? ;16:16 addr of flag to control API logging
|
|
td_Checksum16SL dd ? ;kernel16 16=>32 checksum
|
|
td_Checksum16LSF dd ? ;kernel16 flat 32=>16 checksum
|
|
td_pfnOleDispatchLS dd ? ;flat addr of k32's OLE LS dispatch wrapper
|
|
td_pfnK16LateBind dd ? ;16:16 address of K16 late-bind fixup routine.
|
|
td_lpThunkWhineLevel dd ? ;16:16 addr of K16 thunk debugging variable
|
|
td_pfnWOWCallback16Helper dd ? ;16:16 addr of K16 WOWCalback16 stub
|
|
td_lpCountFreeSel dd ? ;16:16 addr of K16 CountFreeSel variable
|
|
td_lpwLRThresh dd ? ;16:16 addr of K16 wLRThresh variable
|
|
td_lpSCallRet dd ? ;16:16 addr of K16 SCallRet label
|
|
THUNKDATA ENDS
|
|
|
|
|
|
|
|
|
|
;
|
|
; Structure of a version 'LS01' common data block:
|
|
;
|
|
|
|
TDLS_01_VERSION equ 3130534ch
|
|
|
|
TDLS32_01 STRUCT
|
|
dwVersion dd ? ;Statically set to "LS01"
|
|
dwChecksum dd ? ;Statically set to checksum
|
|
lpJumpTable dd ? ;Dynamically set to flat address of jump table
|
|
dwLBSig dd ? ;Statically set to "LB01"
|
|
dwFlags dd ? ;Flags
|
|
dwUnused1 dd ?
|
|
dwUnused2 dd ?
|
|
lpRelQTP dd ? ;Self-relative ptr to QT_Thunk_* patch area
|
|
lpRelFPP dd ? ;Self-relative ptr to FT_Prolog_* patch area
|
|
TDLS32_01 ENDS
|
|
|
|
TDLS16_01 STRUCT
|
|
dwVersion dd ? ;Statically set to "LS01"
|
|
dwChecksum dd ? ;Statically set to checksum
|
|
lpJumpTable dd ? ;Statically set to segmented address of jump table
|
|
dwFlags dd ? ;Flags
|
|
TDLS16_01 ENDS
|
|
|
|
TDLS16_01F_JumpTableFixed equ 000000001h ;Run-time flag to indicate the jump table has been
|
|
; GlobalFixed
|
|
TDLS16_01F_TC16Ran equ 000000002h ;Run-time flag to indicate successful ThunkConnect16
|
|
|
|
|
|
|
|
|
|
;
|
|
; Structure of a version 'SL01' common data block:
|
|
;
|
|
|
|
TDSL_01_VERSION equ 31304c53h
|
|
|
|
MAX_THKDLL_NAME equ 255
|
|
|
|
TDSL16_01 STRUCT
|
|
dwVersion dd ? ;Statically set to "SL01"
|
|
dwChecksum dd ? ;Statically set to checksum
|
|
dwFlags dd ? ;Flags
|
|
dwApiTable dd ? ;16:16 ptr to api information table
|
|
hMod16 dw ? ;hModule of 16-bit dll
|
|
wBaseTable dw ? ;Win16 movable global handle -- multi-base mode
|
|
dwNEntries dd ? ;# of entries avaialble in MBA table.
|
|
dwNUsed dd ? ;# of entries used in MBA table.
|
|
dwExFlags dd ? ;More flags
|
|
pszDll16Name db (MAX_THKDLL_NAME+1) dup(0) ;0-terminated dll16 name
|
|
pszDll32Name db (MAX_THKDLL_NAME+1) dup(0) ;0-terminated dll16 name
|
|
TDSL16_01 ENDS
|
|
|
|
|
|
|
|
; This is the version that's passed into ThunkConnect16. Since
|
|
; this block lives in the dll's dgroup, we don't want to lock it
|
|
|
|
TDSL16_01P STRUCT
|
|
tsl16p_dwVersion dd ? ;Statically set to "SL01"
|
|
tsl16p_dwChecksum dd ? ;Statically set to checksum
|
|
tsl16p_dwFlags dd ? ;Flags (Statically set)
|
|
tsl16p_dwUnused1 dd ? ;Reserved (set to 0)
|
|
tsl16p_lp32TD16 dd ? ;32:0 address to TDSL16_01 structure
|
|
tsl16p_lp16TD16 dd ? ;16:0 ptr to TDSL16_01 (some old code needs this)
|
|
tsl16p_dwUnused2 dd ? ;Reserved (set to 0)
|
|
tsl16p_dwLBSig dd ? ;Statically set to "LB01" sig
|
|
tsl16p_dwExFlags dd ? ;Reserved (set to 0)
|
|
tsl16p_dwUnused4 dd ? ;Reserved (set to 0)
|
|
tsl16p_dwApiTable dd ? ;16:16 ptr to api information table
|
|
TDSL16_01P ENDS
|
|
|
|
|
|
TDSL16_01F_TC16Ran equ 000000001h ;Set on *successful* completion of ThunkConnect16 (INC)
|
|
|
|
TDSL16_01FEx_fPreload equ 080000000h ;Set by thunk compiler to eagerly load
|
|
; Win32 partner
|
|
TDSL16_01FEx_fWin31 equ 040000000h ;Mark for win3.1 legacy dll's
|
|
|
|
MBA_USAGE_COUNT_CUTOFF equ 010000h ;MBA entries smaller than this
|
|
; are virtual ref counts, rather than
|
|
; base addresses.
|
|
|
|
|
|
|
|
|
|
TDSL32_01 STRUCT
|
|
dwVersion dd ? ;Statically set to "SL01"
|
|
dwChecksum dd ? ;Statically set to checksum
|
|
lpOldJunk dd ? ;Not used anymore. MUST IGNORE
|
|
lpThkData16 dd ? ;Flat address of ThunkData16
|
|
dwLBSig dd ? ;Statically set to "LB01"
|
|
dwFlags dd ? ;Flags
|
|
dwUnused1 dd ? ;Statically set to 0
|
|
dwUnused2 dd ? ;Statically set to 0
|
|
dwRelJumpTable dd ? ;Jump Table ptr relative to name export string
|
|
TDSL32_01 ENDS
|
|
|
|
|
|
|
|
|