mirror of
git://source.winehq.org/git/wine.git
synced 2024-09-14 18:35:39 +00:00
c7c217b31c
Sun Apr 12 12:22:23 1997 Andreas Mohr <100.30936@germany.net> * [files/drive.c] Fixed "no free space" problem with partition sizes between 1 and 2 GB (cluster_sectors may not exceed 0x40). * [windows/msgbox.c] [if1632/user.spec] [include/windows.h] Implemented MessageBoxIndirect16, corrected MSGBOXPARAMS16. * [loader/task.c] DOS environment strings may never exceed 127 chars -> truncate Unix environment strings if necessary. Sun Apr 12 02:51:44 1998 Dimitrie O. Paun <dimi@mail.cs.toronto.edu> * [files/*.c] All fprintf statements were converted to appropriate debug messages. * [tools/find_debug_channels] Updated comments at the beginning of the file. Sat Apr 11 15:27:21 1998 Alexandre Julliard <julliard@lrc.epfl.ch> * [loader/module.c] [loader/task.c] [scheduler/process.c] Moved some code around to prepare the ground for CreateProcess(). * [memory/environ.c] [loader/task.c] Moved Win32 environment strings functions to environ.c. Unified Win16 and Win32 environment management. * [scheduler/handle.c] [scheduler/k32obj.c] [scheduler/*.c] Implemented handle inheritance and DuplicateHandle(). * [scheduler/thread.c] Create a 16-bit stack for all threads. * [windows/dialog.c] Implemented DIALOGEX resource format. Fri Apr 10 20:21:51 1998 Marcus Meissner <marcus@mud.de> * [configure.in][include/acconfig.h][*/*][multimedia/*] Cleaned up the OSS detection stuff, added some more checks for headerfiles/functions. Removed a lot of OS specific #ifdefs. Lots of dependend multimedia cleanups. * [loader/pe_image.c] Enhanced comment, added missing reference count increase. * [ole/compobj.c] Replaced broken StringFromGUID2 by working one. * [misc/winsock.c] SO_LINGER uses unsigned 16 bit in Win16 and Win32, but unsigned int (32bit) for UNIX. * [memory/global.c] Allow realloc for lockcount 1 too. Fri Apr 10 15:27:34 1998 Morten Welinder <terra@diku.dk> * [graphics/x11drv/text.c] Handle control characters in trace. Ignore terminating newline. * [multimedia/init.c] (MULTIMEDIA_Init): Correct allocations. * [tools/examine-relay] Tidy up. * [windows/syscolor.c] Change highlight colour from lightblue to lightgray. This looks correct for menus. Fri Apr 10 01:49:58 1998 Douglas Ridgway <ridgway@winehq.com> * [configure.in] [Make.rules.in] Add check for c2man before using it. Fri Apr 10 02:59:21 1998 Douglas Ridgway <ridgway@winehq.com> * [DEVELOPERS-HINTS] Simple description of adding API calls. * [include/wintypes.h] [include/windows.h] Get rid of Winelib16, avoid declaring some illegal functions in Winelib, add prototypes for some enhanced metafile functions, fix GetTextExtentPoint32 declarations. * [relay32/gdi32.spec] [objects/enhmetafile.c] Cosmetic and functional improvements. * [include/wincon.h] [programs/view/*] Fixes, improved compatibility with native compilers. Thu Apr 9 15:48:49 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de> * [win32/kernel32.c] Implemented FT_Thunk / FT_Prolog / FT_Exit / FT_PrologPrime. Fixed Common32ThkLS thunk function. * [tools/build.c] [relay32/relay386.c] [if1632/relay.c] Changed relay code to allow register functions to modify stack layout. * [memory/selector.c] Implemented AllocMappedBuffer / FreeMappedBuffer. * [relay32/kernel32.spec] [if1632/kernel.spec] [win32/ordinals.c] Added names for undocumented functions. * [loader/module.c] Bugfix: LoadLibrary16 should *not* silently load 32-bit DLL. Thu Apr 9 03:54:58 1998 Jim Peterson <jspeter@birch.ee.vt.edu> * [windows/keyboard.c] Fix an erroneous test in TranslateAccelerator{16,32} for the end of the accelerator table. Thu Apr 8 20:36:28 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de> * [misc/crtdll.c] Implement getenv. * [misc/commdlg.c] Make Get[Save/Open]FileName work in most situations. * [misc/lstr.c] Use wvsprintf32A instead of vsprintf in FormatMessage32X * [misc/version] Make NT3.50 a recognised version * [graphics/x11drv/graphics.c] Change the algorithme to draw arcs * [loader/resource.c] Return an empty buffer in LoadString32A if no resource found. * [win32/code_page.c] Try harder to get the right size in MultiByteToWideChar. * [win32/process.c] Call WinExec32 for CreateProcess32A. * [windows/user.c] Install default Int0 Handler in InitApp(). Thu Apr 8 19:29:48 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de> * [misc/imagelist.c] Preliminary fix for drawing selected images. Various improvements. * [controls/progress.c][include/progress.c][include/commctrl.h] Added progress bar messages and styles for IE4.01 (dll version 4.72) compatibility. Fixed led size problem. * [controls/updown.c][include/commctrl.h] Added UDM_GETRANGE32 and UDM_SETRANGE32. * [objects/oembitmaps.c][include/windows.h][include/bitmaps/*] Added Win95 icons and fixed Win95 cursor and restore button bug. Now they should be visible. Sorry!!! * [relay32/comctl32.spec] Added most missing function names. Tue Apr 6 18:48:36 1998 Matthew Becker <mbecker@glasscity.net> * [objects/font.c] [if1632/gdi.spec] GetOutlineTextMetrics: stub * [objects/text.c] GetTextCharset should just call GetTextCharsetInfo. * [misc/mpr.c] [relay32/mpr.spec] WNetCachePassword: stub * [scheduler/thread.c] [relay32/user32.spec] AttachThreadInput: stub Updated documentation. * [objects/palette.c] Updated documentation. Tue Mar 31 17:06:30 1998 James Juran <jrj120@psu.edu> * [*/*.c] Finished fixing USER32 ordinal numbers in function documentation. Mon Mar 30 20:27:38 1998 Morten Welinder <terra@diku.dk> * [misc/debugstr.c] [include/debugstr.h] Moved _dumpstr from relay32/relay386.c. Improved control character handling. * [msdos/int21.c] Implement 215E00 -- get machine name. * [windows/winpos.c] SetWindowPos32: Make an extra sync when mapping managed windows. This makes sure the reconfigure event has been handled. See Mshearts' what's-your-name window. Mon Mar 30 01:13:50 1998 Alexander V. Lukyanov <lav@long.yar.ru> * [Makefile.in] Install includes from TOPSRCDIR.
697 lines
23 KiB
C
697 lines
23 KiB
C
/*
|
|
* NE modules
|
|
*
|
|
* Copyright 1993 Robert J. Amstadt
|
|
* Copyright 1995 Alexandre Julliard
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <fcntl.h>
|
|
#include <unistd.h>
|
|
#include <ctype.h>
|
|
#include <string.h>
|
|
#include <errno.h>
|
|
#include "neexe.h"
|
|
#include "windows.h"
|
|
#include "global.h"
|
|
#include "task.h"
|
|
#include "selectors.h"
|
|
#include "callback.h"
|
|
#include "file.h"
|
|
#include "module.h"
|
|
#include "stackframe.h"
|
|
#include "debug.h"
|
|
#include "xmalloc.h"
|
|
|
|
|
|
/***********************************************************************
|
|
* NE_GetRelocAddrName
|
|
*/
|
|
static const char *NE_GetRelocAddrName( BYTE addr_type, int additive )
|
|
{
|
|
switch(addr_type & 0x7f)
|
|
{
|
|
case NE_RADDR_LOWBYTE: return additive ? "BYTE add" : "BYTE";
|
|
case NE_RADDR_OFFSET16: return additive ? "OFFSET16 add" : "OFFSET16";
|
|
case NE_RADDR_POINTER32: return additive ? "POINTER32 add" : "POINTER32";
|
|
case NE_RADDR_SELECTOR: return additive ? "SELECTOR add" : "SELECTOR";
|
|
case NE_RADDR_POINTER48: return additive ? "POINTER48 add" : "POINTER48";
|
|
case NE_RADDR_OFFSET32: return additive ? "OFFSET32 add" : "OFFSET32";
|
|
}
|
|
return "???";
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* NE_LoadSegment
|
|
*/
|
|
BOOL32 NE_LoadSegment( NE_MODULE *pModule, WORD segnum )
|
|
{
|
|
SEGTABLEENTRY *pSegTable, *pSeg;
|
|
WORD *pModuleTable;
|
|
WORD count, i, offset, next_offset;
|
|
HMODULE16 module;
|
|
FARPROC16 address = 0;
|
|
int fd;
|
|
struct relocation_entry_s *rep, *reloc_entries;
|
|
BYTE *func_name;
|
|
int size;
|
|
char* mem;
|
|
|
|
char buffer[256];
|
|
int ordinal, additive;
|
|
unsigned short *sp;
|
|
|
|
pSegTable = NE_SEG_TABLE( pModule );
|
|
pSeg = pSegTable + segnum - 1;
|
|
pModuleTable = NE_MODULE_TABLE( pModule );
|
|
|
|
if (!pSeg->filepos) return TRUE; /* No file image, just return */
|
|
|
|
fd = MODULE_OpenFile( pModule->self );
|
|
TRACE(module, "Loading segment %d, selector=%04x, flags=%04x\n",
|
|
segnum, pSeg->selector, pSeg->flags );
|
|
lseek( fd, pSeg->filepos << pModule->alignment, SEEK_SET );
|
|
if (pSeg->size) size = pSeg->size;
|
|
else if (pSeg->minsize) size = pSeg->minsize;
|
|
else size = 0x10000;
|
|
mem = GlobalLock16(pSeg->selector);
|
|
if (pModule->flags & NE_FFLAGS_SELFLOAD && segnum > 1)
|
|
{
|
|
/* Implement self loading segments */
|
|
SELFLOADHEADER *selfloadheader;
|
|
STACK16FRAME *stack16Top;
|
|
DWORD oldstack;
|
|
WORD oldselector, newselector;
|
|
THDB *thdb = THREAD_Current();
|
|
HFILE32 hf = FILE_DupUnixHandle( fd );
|
|
|
|
selfloadheader = (SELFLOADHEADER *)
|
|
PTR_SEG_OFF_TO_LIN(pSegTable->selector,0);
|
|
oldstack = thdb->cur_stack;
|
|
oldselector = pSeg->selector;
|
|
thdb->cur_stack = PTR_SEG_OFF_TO_SEGPTR(pModule->self_loading_sel,
|
|
0xff00 - sizeof(*stack16Top));
|
|
stack16Top = (STACK16FRAME *)PTR_SEG_TO_LIN(thdb->cur_stack);
|
|
stack16Top->frame32 = 0;
|
|
stack16Top->ds = stack16Top->es = pModule->self_loading_sel;
|
|
stack16Top->entry_point = 0;
|
|
stack16Top->entry_ip = 0;
|
|
stack16Top->entry_cs = 0;
|
|
stack16Top->bp = 0;
|
|
stack16Top->ip = 0;
|
|
stack16Top->cs = 0;
|
|
newselector = Callbacks->CallLoadAppSegProc(selfloadheader->LoadAppSeg,
|
|
pModule->self, hf, segnum );
|
|
_lclose32( hf );
|
|
if (newselector != oldselector) {
|
|
/* Self loaders like creating their own selectors;
|
|
* they love asking for trouble to Wine developers
|
|
*/
|
|
if (segnum == pModule->dgroup) {
|
|
memcpy(PTR_SEG_OFF_TO_LIN(oldselector,0),
|
|
PTR_SEG_OFF_TO_LIN(newselector,0),
|
|
pSeg->minsize ? pSeg->minsize : 0x10000);
|
|
FreeSelector(newselector);
|
|
pSeg->selector = oldselector;
|
|
fprintf(stderr, "A new selector was allocated for the dgroup segment\n"
|
|
"Old selector is %d, new one is %d", oldselector, newselector);
|
|
} else {
|
|
FreeSelector(pSeg->selector);
|
|
pSeg->selector = newselector;
|
|
}
|
|
}
|
|
|
|
thdb->cur_stack = oldstack;
|
|
}
|
|
else if (!(pSeg->flags & NE_SEGFLAGS_ITERATED))
|
|
read(fd, mem, size);
|
|
else {
|
|
/*
|
|
The following bit of code for "iterated segments" was written without
|
|
any documentation on the format of these segments. It seems to work,
|
|
but may be missing something. If you have any doc please either send
|
|
it to me or fix the code yourself. gfm@werple.mira.net.au
|
|
*/
|
|
char* buff = xmalloc(size);
|
|
char* curr = buff;
|
|
read(fd, buff, size);
|
|
while(curr < buff + size) {
|
|
unsigned int rept = *((short*) curr)++;
|
|
unsigned int len = *((short*) curr)++;
|
|
for(; rept > 0; rept--) {
|
|
char* bytes = curr;
|
|
unsigned int byte;
|
|
for(byte = 0; byte < len; byte++)
|
|
*mem++ = *bytes++;
|
|
}
|
|
curr += len;
|
|
}
|
|
free(buff);
|
|
}
|
|
|
|
pSeg->flags |= NE_SEGFLAGS_LOADED;
|
|
if (!(pSeg->flags & NE_SEGFLAGS_RELOC_DATA))
|
|
return TRUE; /* No relocation data, we are done */
|
|
|
|
read( fd, &count, sizeof(count) );
|
|
if (!count) return TRUE;
|
|
|
|
TRACE(fixup, "Fixups for %*.*s, segment %d, selector %04x\n",
|
|
*((BYTE *)pModule + pModule->name_table),
|
|
*((BYTE *)pModule + pModule->name_table),
|
|
(char *)pModule + pModule->name_table + 1,
|
|
segnum, pSeg->selector );
|
|
|
|
reloc_entries = (struct relocation_entry_s *)xmalloc(count * sizeof(struct relocation_entry_s));
|
|
if (read( fd, reloc_entries, count * sizeof(struct relocation_entry_s)) !=
|
|
count * sizeof(struct relocation_entry_s))
|
|
{
|
|
WARN(fixup, "Unable to read relocation information\n" );
|
|
return FALSE;
|
|
}
|
|
|
|
/*
|
|
* Go through the relocation table one entry at a time.
|
|
*/
|
|
rep = reloc_entries;
|
|
for (i = 0; i < count; i++, rep++)
|
|
{
|
|
/*
|
|
* Get the target address corresponding to this entry.
|
|
*/
|
|
|
|
/* If additive, there is no target chain list. Instead, add source
|
|
and target */
|
|
additive = rep->relocation_type & NE_RELFLAG_ADDITIVE;
|
|
rep->relocation_type &= 0x3;
|
|
|
|
switch (rep->relocation_type)
|
|
{
|
|
case NE_RELTYPE_ORDINAL:
|
|
module = pModuleTable[rep->target1-1];
|
|
ordinal = rep->target2;
|
|
address = MODULE_GetEntryPoint( module, ordinal );
|
|
if (!address)
|
|
{
|
|
NE_MODULE *pTarget = MODULE_GetPtr( module );
|
|
if (!pTarget)
|
|
fprintf( stderr, "Module not found: %04x, reference %d of module %*.*s\n",
|
|
module, rep->target1,
|
|
*((BYTE *)pModule + pModule->name_table),
|
|
*((BYTE *)pModule + pModule->name_table),
|
|
(char *)pModule + pModule->name_table + 1 );
|
|
else
|
|
fprintf( stderr, "Warning: no handler for %.*s.%d, setting to 0:0\n",
|
|
*((BYTE *)pTarget + pTarget->name_table),
|
|
(char *)pTarget + pTarget->name_table + 1,
|
|
ordinal );
|
|
}
|
|
if (TRACE_ON(fixup))
|
|
{
|
|
NE_MODULE *pTarget = MODULE_GetPtr( module );
|
|
TRACE( fixup, "%d: %.*s.%d=%04x:%04x %s\n", i + 1,
|
|
*((BYTE *)pTarget + pTarget->name_table),
|
|
(char *)pTarget + pTarget->name_table + 1,
|
|
ordinal, HIWORD(address), LOWORD(address),
|
|
NE_GetRelocAddrName( rep->address_type, additive ) );
|
|
}
|
|
break;
|
|
|
|
case NE_RELTYPE_NAME:
|
|
module = pModuleTable[rep->target1-1];
|
|
func_name = (char *)pModule + pModule->import_table + rep->target2;
|
|
memcpy( buffer, func_name+1, *func_name );
|
|
buffer[*func_name] = '\0';
|
|
func_name = buffer;
|
|
ordinal = MODULE_GetOrdinal( module, func_name );
|
|
|
|
address = MODULE_GetEntryPoint( module, ordinal );
|
|
|
|
if (ERR_ON(fixup) && !address)
|
|
{
|
|
NE_MODULE *pTarget = MODULE_GetPtr( module );
|
|
ERR(fixup, "Warning: no handler for %.*s.%s, setting to 0:0\n",
|
|
*((BYTE *)pTarget + pTarget->name_table),
|
|
(char *)pTarget + pTarget->name_table + 1, func_name );
|
|
}
|
|
if (TRACE_ON(fixup))
|
|
{
|
|
NE_MODULE *pTarget = MODULE_GetPtr( module );
|
|
TRACE( fixup, "%d: %.*s.%s=%04x:%04x %s\n", i + 1,
|
|
*((BYTE *)pTarget + pTarget->name_table),
|
|
(char *)pTarget + pTarget->name_table + 1,
|
|
func_name, HIWORD(address), LOWORD(address),
|
|
NE_GetRelocAddrName( rep->address_type, additive ) );
|
|
}
|
|
break;
|
|
|
|
case NE_RELTYPE_INTERNAL:
|
|
if ((rep->target1 & 0xff) == 0xff)
|
|
{
|
|
address = MODULE_GetEntryPoint( pModule->self, rep->target2 );
|
|
}
|
|
else
|
|
{
|
|
address = (FARPROC16)PTR_SEG_OFF_TO_SEGPTR( pSegTable[rep->target1-1].selector, rep->target2 );
|
|
}
|
|
|
|
TRACE( fixup,"%d: %04x:%04x %s\n",
|
|
i + 1, HIWORD(address), LOWORD(address),
|
|
NE_GetRelocAddrName( rep->address_type, additive ) );
|
|
break;
|
|
|
|
case NE_RELTYPE_OSFIXUP:
|
|
/* Relocation type 7:
|
|
*
|
|
* These appear to be used as fixups for the Windows
|
|
* floating point emulator. Let's just ignore them and
|
|
* try to use the hardware floating point. Linux should
|
|
* successfully emulate the coprocessor if it doesn't
|
|
* exist.
|
|
*/
|
|
TRACE( fixup, "%d: TYPE %d, OFFSET %04x, TARGET %04x %04x %s\n",
|
|
i + 1, rep->relocation_type, rep->offset,
|
|
rep->target1, rep->target2,
|
|
NE_GetRelocAddrName( rep->address_type, additive ) );
|
|
continue;
|
|
}
|
|
|
|
offset = rep->offset;
|
|
|
|
/* Apparently, high bit of address_type is sometimes set; */
|
|
/* we ignore it for now */
|
|
if (rep->address_type > NE_RADDR_OFFSET32)
|
|
ERR( fixup, "WARNING: module %s: unknown reloc addr type = 0x%02x. Please report.\n",
|
|
MODULE_GetModuleName(pModule->self), rep->address_type );
|
|
|
|
if (additive)
|
|
{
|
|
sp = PTR_SEG_OFF_TO_LIN( pSeg->selector, offset );
|
|
TRACE( fixup," %04x:%04x\n", offset, *sp );
|
|
switch (rep->address_type & 0x7f)
|
|
{
|
|
case NE_RADDR_LOWBYTE:
|
|
*(BYTE *)sp += LOBYTE((int)address);
|
|
break;
|
|
case NE_RADDR_OFFSET16:
|
|
*sp += LOWORD(address);
|
|
break;
|
|
case NE_RADDR_POINTER32:
|
|
*sp += LOWORD(address);
|
|
*(sp+1) = HIWORD(address);
|
|
break;
|
|
case NE_RADDR_SELECTOR:
|
|
/* Borland creates additive records with offset zero. Strange, but OK */
|
|
if (*sp)
|
|
ERR(fixup,"Additive selector to %04x.Please report\n",*sp);
|
|
else
|
|
*sp = HIWORD(address);
|
|
default:
|
|
goto unknown;
|
|
}
|
|
}
|
|
else /* non-additive fixup */
|
|
{
|
|
do
|
|
{
|
|
sp = PTR_SEG_OFF_TO_LIN( pSeg->selector, offset );
|
|
next_offset = *sp;
|
|
TRACE( fixup," %04x:%04x\n", offset, *sp );
|
|
switch (rep->address_type & 0x7f)
|
|
{
|
|
case NE_RADDR_LOWBYTE:
|
|
*(BYTE *)sp = LOBYTE((int)address);
|
|
break;
|
|
case NE_RADDR_OFFSET16:
|
|
*sp = LOWORD(address);
|
|
break;
|
|
case NE_RADDR_POINTER32:
|
|
*(FARPROC16 *)sp = address;
|
|
break;
|
|
case NE_RADDR_SELECTOR:
|
|
*sp = SELECTOROF(address);
|
|
break;
|
|
default:
|
|
goto unknown;
|
|
}
|
|
if (next_offset == offset) break; /* avoid infinite loop */
|
|
if (next_offset >= GlobalSize16(pSeg->selector)) break;
|
|
offset = next_offset;
|
|
} while (offset && (offset != 0xffff));
|
|
}
|
|
}
|
|
|
|
free(reloc_entries);
|
|
return TRUE;
|
|
|
|
unknown:
|
|
WARN(fixup, "WARNING: %d: unknown ADDR TYPE %d, "
|
|
"TYPE %d, OFFSET %04x, TARGET %04x %04x\n",
|
|
i + 1, rep->address_type, rep->relocation_type,
|
|
rep->offset, rep->target1, rep->target2);
|
|
free(reloc_entries);
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* NE_LoadAllSegments
|
|
*/
|
|
BOOL32 NE_LoadAllSegments( NE_MODULE *pModule )
|
|
{
|
|
int i;
|
|
|
|
if (pModule->flags & NE_FFLAGS_SELFLOAD)
|
|
{
|
|
HFILE32 hf;
|
|
/* Handle self loading modules */
|
|
SEGTABLEENTRY * pSegTable = (SEGTABLEENTRY *) NE_SEG_TABLE(pModule);
|
|
SELFLOADHEADER *selfloadheader;
|
|
STACK16FRAME *stack16Top;
|
|
THDB *thdb = THREAD_Current();
|
|
HMODULE16 hselfload = GetModuleHandle16("WPROCS");
|
|
DWORD oldstack;
|
|
WORD saved_dgroup = pSegTable[pModule->dgroup - 1].selector;
|
|
|
|
TRACE(module, "%.*s is a self-loading module!\n",
|
|
*((BYTE*)pModule + pModule->name_table),
|
|
(char *)pModule + pModule->name_table + 1);
|
|
if (!NE_LoadSegment( pModule, 1 )) return FALSE;
|
|
selfloadheader = (SELFLOADHEADER *)
|
|
PTR_SEG_OFF_TO_LIN(pSegTable->selector, 0);
|
|
selfloadheader->EntryAddrProc = MODULE_GetEntryPoint(hselfload,27);
|
|
selfloadheader->MyAlloc = MODULE_GetEntryPoint(hselfload,28);
|
|
selfloadheader->SetOwner = MODULE_GetEntryPoint(GetModuleHandle16("KERNEL"),403);
|
|
pModule->self_loading_sel = GlobalHandleToSel(GLOBAL_Alloc(GMEM_ZEROINIT, 0xFF00, pModule->self, FALSE, FALSE, FALSE));
|
|
oldstack = thdb->cur_stack;
|
|
thdb->cur_stack = PTR_SEG_OFF_TO_SEGPTR(pModule->self_loading_sel,
|
|
0xff00 - sizeof(*stack16Top) );
|
|
stack16Top = (STACK16FRAME *)PTR_SEG_TO_LIN(thdb->cur_stack);
|
|
stack16Top->frame32 = 0;
|
|
stack16Top->ebp = 0;
|
|
stack16Top->ds = stack16Top->es = pModule->self_loading_sel;
|
|
stack16Top->entry_point = 0;
|
|
stack16Top->entry_ip = 0;
|
|
stack16Top->entry_cs = 0;
|
|
stack16Top->bp = 0;
|
|
stack16Top->ip = 0;
|
|
stack16Top->cs = 0;
|
|
|
|
hf = FILE_DupUnixHandle( MODULE_OpenFile( pModule->self ) );
|
|
Callbacks->CallBootAppProc(selfloadheader->BootApp, pModule->self, hf);
|
|
_lclose32(hf);
|
|
/* some BootApp procs overwrite the selector of dgroup */
|
|
pSegTable[pModule->dgroup - 1].selector = saved_dgroup;
|
|
thdb->cur_stack = oldstack;
|
|
for (i = 2; i <= pModule->seg_count; i++)
|
|
if (!NE_LoadSegment( pModule, i )) return FALSE;
|
|
}
|
|
else
|
|
{
|
|
for (i = 1; i <= pModule->seg_count; i++)
|
|
if (!NE_LoadSegment( pModule, i )) return FALSE;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* NE_LoadDLLs
|
|
*/
|
|
BOOL32 NE_LoadDLLs( NE_MODULE *pModule )
|
|
{
|
|
int i;
|
|
WORD *pModRef = (WORD *)((char *)pModule + pModule->modref_table);
|
|
WORD *pDLLs = (WORD *)GlobalLock16( pModule->dlls_to_init );
|
|
|
|
for (i = 0; i < pModule->modref_count; i++, pModRef++)
|
|
{
|
|
char buffer[256];
|
|
BYTE *pstr = (BYTE *)pModule + pModule->import_table + *pModRef;
|
|
memcpy( buffer, pstr + 1, *pstr );
|
|
strcpy( buffer + *pstr, ".dll" );
|
|
TRACE(module, "Loading '%s'\n", buffer );
|
|
if (!(*pModRef = MODULE_FindModule( buffer )))
|
|
{
|
|
/* If the DLL is not loaded yet, load it and store */
|
|
/* its handle in the list of DLLs to initialize. */
|
|
HMODULE16 hDLL;
|
|
|
|
if ((hDLL = MODULE_Load( buffer, NE_FFLAGS_IMPLICIT,
|
|
NULL, NULL, 0 )) == 2)
|
|
{
|
|
/* file not found */
|
|
char *p;
|
|
|
|
/* Try with prepending the path of the current module */
|
|
GetModuleFileName16( pModule->self, buffer, sizeof(buffer) );
|
|
if (!(p = strrchr( buffer, '\\' ))) p = buffer;
|
|
memcpy( p + 1, pstr + 1, *pstr );
|
|
strcpy( p + 1 + *pstr, ".dll" );
|
|
hDLL = MODULE_Load( buffer, NE_FFLAGS_IMPLICIT, NULL, NULL, 0);
|
|
}
|
|
if (hDLL < 32)
|
|
{
|
|
/* FIXME: cleanup what was done */
|
|
|
|
fprintf( stderr, "Could not load '%s' required by '%.*s', error = %d\n",
|
|
buffer, *((BYTE*)pModule + pModule->name_table),
|
|
(char *)pModule + pModule->name_table + 1, hDLL );
|
|
return FALSE;
|
|
}
|
|
*pModRef = MODULE_HANDLEtoHMODULE16( hDLL );
|
|
*pDLLs++ = *pModRef;
|
|
}
|
|
else /* Increment the reference count of the DLL */
|
|
{
|
|
NE_MODULE *pOldDLL = MODULE_GetPtr( *pModRef );
|
|
if (pOldDLL) pOldDLL->count++;
|
|
}
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* NE_FixupPrologs
|
|
*
|
|
* Fixup the exported functions prologs.
|
|
*/
|
|
void NE_FixupPrologs( NE_MODULE *pModule )
|
|
{
|
|
SEGTABLEENTRY *pSegTable;
|
|
WORD dgroup = 0;
|
|
WORD sel;
|
|
BYTE *p, *fixup_ptr, count;
|
|
dbg_decl_str(module, 512);
|
|
|
|
pSegTable = NE_SEG_TABLE(pModule);
|
|
if (pModule->flags & NE_FFLAGS_SINGLEDATA)
|
|
dgroup = pSegTable[pModule->dgroup-1].selector;
|
|
|
|
TRACE(module, "(%04x)\n", pModule->self );
|
|
p = (BYTE *)pModule + pModule->entry_table;
|
|
while (*p)
|
|
{
|
|
if (p[1] == 0) /* Unused entry */
|
|
{
|
|
p += 2; /* Skip it */
|
|
continue;
|
|
}
|
|
if (p[1] == 0xfe) /* Constant entry */
|
|
{
|
|
p += 2 + *p * 3; /* Skip it */
|
|
continue;
|
|
}
|
|
|
|
/* Now fixup the entries of this bundle */
|
|
count = *p;
|
|
sel = p[1];
|
|
p += 2;
|
|
while (count-- > 0)
|
|
{
|
|
dbg_reset_str(module);
|
|
dsprintf(module,"Flags: %04x, sel %02x ", *p, sel);
|
|
/* According to the output generated by TDUMP, the flags mean:
|
|
* 0x0001 function is exported
|
|
* 0x0002 Single data (seems to occur only in DLLs)
|
|
*/
|
|
if (sel == 0xff) { /* moveable */
|
|
dsprintf(module, "(%02x) o %04x", p[3], *(WORD *)(p+4) );
|
|
fixup_ptr = (char *)GET_SEL_BASE(pSegTable[p[3]-1].selector) + *(WORD *)(p + 4);
|
|
} else { /* fixed */
|
|
dsprintf(module, "offset %04x", *(WORD *)(p+1) );
|
|
fixup_ptr = (char *)GET_SEL_BASE(pSegTable[sel-1].selector) +
|
|
*(WORD *)(p + 1);
|
|
}
|
|
TRACE(module, "%s Signature: %02x %02x %02x,ff %x\n",
|
|
dbg_str(module), fixup_ptr[0], fixup_ptr[1],
|
|
fixup_ptr[2], pModule->flags );
|
|
if (*p & 0x0001)
|
|
{
|
|
/* Verify the signature */
|
|
if (((fixup_ptr[0] == 0x1e && fixup_ptr[1] == 0x58)
|
|
|| (fixup_ptr[0] == 0x8c && fixup_ptr[1] == 0xd8))
|
|
&& fixup_ptr[2] == 0x90)
|
|
{
|
|
if (*p & 0x0002)
|
|
{
|
|
if (pModule->flags & NE_FFLAGS_MULTIPLEDATA)
|
|
{
|
|
/* can this happen? */
|
|
fprintf( stderr, "FixupPrologs got confused\n" );
|
|
}
|
|
else if (pModule->flags & NE_FFLAGS_SINGLEDATA)
|
|
{
|
|
*fixup_ptr = 0xb8; /* MOV AX, */
|
|
*(WORD *)(fixup_ptr+1) = dgroup;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (pModule->flags & NE_FFLAGS_MULTIPLEDATA) {
|
|
fixup_ptr[0] = 0x90; /* non-library: NOPs */
|
|
fixup_ptr[1] = 0x90;
|
|
fixup_ptr[2] = 0x90;
|
|
}
|
|
}
|
|
} else {
|
|
WARN(fixup, "Unknown signature\n" );
|
|
}
|
|
}
|
|
else
|
|
TRACE(module,"\n");
|
|
p += (sel == 0xff) ? 6 : 3;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* NE_InitDLL
|
|
*
|
|
* Call the DLL initialization code
|
|
*/
|
|
static BOOL32 NE_InitDLL( TDB* pTask, HMODULE16 hModule )
|
|
{
|
|
NE_MODULE *pModule;
|
|
SEGTABLEENTRY *pSegTable;
|
|
CONTEXT context;
|
|
|
|
/* Registers at initialization must be:
|
|
* cx heap size
|
|
* di library instance
|
|
* ds data segment if any
|
|
* es:si command line (always 0)
|
|
*/
|
|
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return FALSE;
|
|
pSegTable = NE_SEG_TABLE( pModule );
|
|
|
|
if (!(pModule->flags & NE_FFLAGS_LIBMODULE) ||
|
|
(pModule->flags & NE_FFLAGS_WIN32)) return TRUE; /*not a library*/
|
|
|
|
/* Call USER signal handler. This is necessary to install a
|
|
* proper loader for HICON and HCURSOR resources that this DLL
|
|
* may contain. InitApp() does this for task modules. */
|
|
|
|
if (pTask && pTask->userhandler)
|
|
{
|
|
pTask->userhandler( hModule, USIG_DLL_LOAD, 0, pTask->hInstance,
|
|
pTask->hQueue );
|
|
}
|
|
|
|
if (!pModule->cs) return TRUE; /* no initialization code */
|
|
|
|
memset( &context, 0, sizeof(context) );
|
|
|
|
if (!(pModule->flags & NE_FFLAGS_SINGLEDATA))
|
|
{
|
|
if (pModule->flags & NE_FFLAGS_MULTIPLEDATA || pModule->dgroup)
|
|
{
|
|
/* Not SINGLEDATA */
|
|
fprintf(stderr, "Library is not marked SINGLEDATA\n");
|
|
exit(1);
|
|
}
|
|
else /* DATA NONE DLL */
|
|
{
|
|
DS_reg(&context) = 0;
|
|
ECX_reg(&context) = 0;
|
|
}
|
|
}
|
|
else /* DATA SINGLE DLL */
|
|
{
|
|
if (pModule->dgroup) {
|
|
DS_reg(&context) = pSegTable[pModule->dgroup-1].selector;
|
|
ECX_reg(&context) = pModule->heap_size;
|
|
}
|
|
else /* hmm, DLL has no dgroup,
|
|
but why has it NE_FFLAGS_SINGLEDATA set ?
|
|
Buggy DLL compiler ? */
|
|
{
|
|
DS_reg(&context) = 0;
|
|
ECX_reg(&context) = 0;
|
|
}
|
|
}
|
|
|
|
CS_reg(&context) = pSegTable[pModule->cs-1].selector;
|
|
EIP_reg(&context) = pModule->ip;
|
|
EBP_reg(&context) = OFFSETOF(THREAD_Current()->cur_stack)
|
|
+ (WORD)&((STACK16FRAME*)0)->bp;
|
|
EDI_reg(&context) = DS_reg(&context) ? DS_reg(&context) : hModule;
|
|
|
|
|
|
pModule->cs = 0; /* Don't initialize it twice */
|
|
TRACE(dll, "Calling LibMain, cs:ip=%04lx:%04x ds=%04lx di=%04x cx=%04x\n",
|
|
CS_reg(&context), IP_reg(&context), DS_reg(&context),
|
|
DI_reg(&context), CX_reg(&context) );
|
|
Callbacks->CallRegisterShortProc( &context, 0 );
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* NE_InitializeDLLs
|
|
*
|
|
* Recursively initialize all DLLs (according to the order in which
|
|
* they where loaded).
|
|
*/
|
|
void NE_InitializeDLLs( HMODULE16 hModule )
|
|
{
|
|
TDB* pTask = (TDB*)GlobalLock16(GetCurrentTask());
|
|
NE_MODULE *pModule;
|
|
HMODULE16 *pDLL;
|
|
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return;
|
|
if (pModule->flags & NE_FFLAGS_WIN32) return;
|
|
|
|
if (pModule->dlls_to_init)
|
|
{
|
|
HGLOBAL16 to_init = pModule->dlls_to_init;
|
|
pModule->dlls_to_init = 0;
|
|
for (pDLL = (HMODULE16 *)GlobalLock16( to_init ); *pDLL; pDLL++)
|
|
{
|
|
NE_InitializeDLLs( *pDLL );
|
|
}
|
|
GlobalFree16( to_init );
|
|
}
|
|
NE_InitDLL( pTask, hModule );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* PatchCodeHandle
|
|
*
|
|
* Needed for self-loading modules.
|
|
*/
|
|
|
|
/* It does nothing */
|
|
void WINAPI PatchCodeHandle(HANDLE16 hSel)
|
|
{
|
|
fprintf(stderr,"PatchCodeHandle(%04x),stub!\n",hSel);
|
|
}
|