b67b1dcc26
Thu Feb 16 18:57:31 1995 Alexandre Julliard (julliard@sunsite.unc.edu) * [if1632/call.S] Only save the lower 16-bits of SP and BP. * [if1632/callback.c] When calling to 16-bit code, restore DS from its previous value on entry to the 32-bit code, instead of from the code segment owner. * [if1632/relay.c] [include/stackframe.h] Use a structure to represent the 16-bit stack frame layout instead of hard-coded offsets. * [rc/Imakefile] Use y.tab.c for bison output file for compatibility with yacc. * [tools/build.c] Small optimization for calls to 32-bit code. Sun Feb 12 03:19:47 1995 Michael Veksler (s1678223@t2.technion.ac.il) * [tools/build.c] Fixed bug (inflicted by previous change) - SEGV on ZMAGIC file format. Sun Feb 11 20:00:00 1995 Göran Thyni (goran@norrsken.bildbasen.se) * [debugger/dbg.y] Remove unnecessary sym-table loading when stopped in 16-bit mode. * [include/segmem.h] [loader/selector.c] Added dynamic alloction of selectors. Fixed some problems with large programs SIGSEGV-ing while running out of selectors. * [include/segmem.h] [loader/selector.c] [if1632/callback.c] [memory/global.c] [memory/heap.c] [memory/linear.c] Use __AHSHIFT and __AHINCR instead of 3 and 8. Mon Feb 6 18:07:38 1995 Cameron Heide (heide@ee.ualberta.ca) * [misc/dos_fs.c] Better relative path handling when converting filenames between dos and unix, allowing '.' to be used in the Windows path. Startup working dir is now based on current working dir. Sat Feb 4 21:21:13 1995 Michael Veksler (s1678223@t2.technion.ac.il) * [if1632/relay.c] [include/dlls.h] [tools/build.c] Squeezed data structure that references internal dll's (mostly "struct dll_table_entry_s"). Caused 20% reduction in executable code size. Fri Feb 3 18:53:15 1995 Martin v. Loewis (loewis@marie) * [Imakefile] make wine.sym only when making emulator * [misc/file.c] OpenFile(): report as not implemented for WINELIB * [misc/winsock.c] Fix CONVERT_HOSTENT and friends for use with WINELIB * [rc/Imakefile][rc/rc.y][rc/parser.c] Rename rc.y to parser.y Use flex and bison on Sun * [toolkit/sup.c] CallWindowProc: fix parameter type * [windows/event.c] Commented #ifdef sparc
1146 lines
27 KiB
C
1146 lines
27 KiB
C
#ifndef WINELIB
|
||
/*
|
||
static char RCSId[] = "$Id: selector.c,v 1.3 1993/07/04 04:04:21 root Exp root $";
|
||
static char Copyright[] = "Copyright Robert J. Amstadt, 1993";
|
||
*/
|
||
#include <stdio.h>
|
||
#include <stdlib.h>
|
||
#include <string.h>
|
||
#include <sys/types.h>
|
||
#include <sys/stat.h>
|
||
#include <fcntl.h>
|
||
#include <unistd.h>
|
||
#include <errno.h>
|
||
#ifdef __linux__
|
||
#include <sys/mman.h>
|
||
#include <linux/unistd.h>
|
||
#include <linux/head.h>
|
||
#include <linux/mman.h>
|
||
#include <linux/a.out.h>
|
||
#include <linux/ldt.h>
|
||
#endif
|
||
#if defined(__NetBSD__) || defined(__FreeBSD__)
|
||
#include <sys/mman.h>
|
||
#include <machine/segments.h>
|
||
#endif
|
||
#include "dlls.h"
|
||
#include "neexe.h"
|
||
#include "segmem.h"
|
||
#include "wine.h"
|
||
#include "if1632.h"
|
||
#include "windows.h"
|
||
#include "prototypes.h"
|
||
#include "stddebug.h"
|
||
/* #define DEBUG_SELECTORS */
|
||
#include "debug.h"
|
||
|
||
|
||
#ifdef linux
|
||
#define DEV_ZERO
|
||
#ifdef __ELF__
|
||
#define UTEXTSEL 0x0f
|
||
#else
|
||
#define UTEXTSEL 0x23
|
||
#endif
|
||
#endif
|
||
|
||
#if defined(__NetBSD__) || defined(__FreeBSD__)
|
||
#define PAGE_SIZE getpagesize()
|
||
#define MODIFY_LDT_CONTENTS_DATA 0
|
||
#define MODIFY_LDT_CONTENTS_STACK 1
|
||
#define MODIFY_LDT_CONTENTS_CODE 2
|
||
#define UTEXTSEL 0x1f
|
||
#endif
|
||
|
||
static SEGDESC * EnvironmentSelector = NULL;
|
||
static SEGDESC * PSP_Selector = NULL;
|
||
SEGDESC * MakeProcThunks = NULL;
|
||
unsigned short PSPSelector;
|
||
unsigned char ran_out = 0;
|
||
int LastUsedSelector = FIRST_SELECTOR - 1;
|
||
|
||
#define MAX_SELECTORS (512 * 2)
|
||
|
||
int max_selectors = 0;
|
||
unsigned short* SelectorMap;
|
||
SEGDESC* Segments;
|
||
|
||
#ifdef DEV_ZERO
|
||
static FILE *zfile = NULL;
|
||
#endif
|
||
|
||
extern void KERNEL_Ordinal_102();
|
||
extern void UNIXLIB_Ordinal_0();
|
||
extern char WindowsPath[256];
|
||
|
||
extern char **Argv;
|
||
extern int Argc;
|
||
extern char **environ;
|
||
|
||
unsigned int
|
||
GetEntryPointFromOrdinal(struct w_files * wpnt, int ordinal);
|
||
|
||
|
||
/**********************************************************************
|
||
* InitSelectors
|
||
*/
|
||
void
|
||
InitSelectors(void)
|
||
{
|
||
int i;
|
||
max_selectors = MAX_SELECTORS;
|
||
SelectorMap = malloc(max_selectors * sizeof(unsigned short));
|
||
Segments = malloc(max_selectors * sizeof(SEGDESC));
|
||
for (i = 0; i < max_selectors; i++) {
|
||
if (i < FIRST_SELECTOR) {
|
||
SelectorMap[i] = SELECTOR_IS32BIT;
|
||
#ifdef __ELF__
|
||
/* quick hack, just reserves 4 meg for wine. */
|
||
} else if ((i << (16 + __AHSHIFT)) >= 0x8000000 &&
|
||
(i << (16 + __AHSHIFT)) <= 0x8400000) {
|
||
SelectorMap[i]= SELECTOR_IS32BIT;
|
||
#endif
|
||
} else {
|
||
SelectorMap[i]=0;
|
||
}
|
||
}
|
||
#ifdef __ELF__
|
||
/* create an ldt. */
|
||
if (set_ldt_entry(1, 0x8000000, 65535, 1,0x1a ,1,0)) {
|
||
perror ("set_ldt_entry");
|
||
exit (1);
|
||
}
|
||
#endif
|
||
}
|
||
|
||
/**********************************************************************
|
||
* FindUnusedSelectors
|
||
*/
|
||
int
|
||
FindUnusedSelectors(int n_selectors)
|
||
{
|
||
int i;
|
||
int n_found;
|
||
|
||
n_found = 0;
|
||
for (i = LastUsedSelector + 1; i != LastUsedSelector; i++)
|
||
{
|
||
if (i >= max_selectors)
|
||
{
|
||
int j;
|
||
max_selectors += MAX_SELECTORS;
|
||
dprintf_selectors(stddeb, "Expanding no of segments to %d.\n",
|
||
max_selectors);
|
||
SelectorMap =
|
||
realloc(SelectorMap, max_selectors * sizeof(unsigned short));
|
||
Segments = realloc(Segments, max_selectors * sizeof(SEGDESC));
|
||
if (!SelectorMap || !Segments)
|
||
{
|
||
fprintf(stderr,
|
||
"FindUnusedSelectors: Out of memory! Exiting\n");
|
||
exit (-1);
|
||
}
|
||
for (j = max_selectors - MAX_SELECTORS; j < max_selectors; j++)
|
||
SelectorMap[j] = 0;
|
||
}
|
||
|
||
if (SelectorMap[i] && n_found) n_found=0;
|
||
|
||
if (!SelectorMap[i] && ++n_found == n_selectors)
|
||
break;
|
||
}
|
||
|
||
if (i == LastUsedSelector)
|
||
return 0;
|
||
|
||
LastUsedSelector = i;
|
||
return i - n_selectors + 1;
|
||
}
|
||
|
||
#ifdef HAVE_IPC
|
||
/**********************************************************************
|
||
* IPCCopySelector
|
||
*
|
||
* Created a shared memory copy of a segment:
|
||
*
|
||
* - at a new selector location (if "new" is a 16-bit value)
|
||
* - at an arbitrary memory location (if "new" is a 32-bit value)
|
||
*/
|
||
int
|
||
IPCCopySelector(int i_old, unsigned long new, int swap_type)
|
||
{
|
||
SEGDESC *s_new, *s_old;
|
||
int i_new;
|
||
void *base_addr;
|
||
|
||
s_old = &Segments[i_old];
|
||
|
||
if (new & 0xffff0000)
|
||
{
|
||
/**************************************************************
|
||
* Let's set the address parameter for no segment.
|
||
*/
|
||
i_new = -1;
|
||
s_new = NULL;
|
||
base_addr = (void *) new;
|
||
}
|
||
else
|
||
{
|
||
/***************************************************************
|
||
* We need to fill in the segment descriptor for segment "new".
|
||
*/
|
||
i_new = new;
|
||
s_new = &Segments[i_new];
|
||
|
||
SelectorMap[i_new] = i_new;
|
||
|
||
s_new->selector = (i_new << __AHSHIFT) | 0x0007;
|
||
s_new->base_addr = (void *) ((long) s_new->selector << 16);
|
||
s_new->length = s_old->length;
|
||
s_new->flags = s_old->flags;
|
||
s_new->owner = s_old->owner;
|
||
if (swap_type)
|
||
{
|
||
if (s_old->type == MODIFY_LDT_CONTENTS_DATA)
|
||
s_new->type = MODIFY_LDT_CONTENTS_CODE;
|
||
else
|
||
s_new->type = MODIFY_LDT_CONTENTS_DATA;
|
||
}
|
||
else
|
||
s_new->type = s_old->type;
|
||
|
||
base_addr = s_new->base_addr;
|
||
}
|
||
|
||
/******************************************************************
|
||
* If we don't have a shared memory key for s_old, then we need
|
||
* to get one. In this case, we'll also have to copy the data
|
||
* to protect it.
|
||
*/
|
||
if (s_old->shm_key == -1)
|
||
{
|
||
s_old->shm_key = shmget(IPC_PRIVATE, s_old->length, IPC_CREAT | 0600);
|
||
if (s_old->shm_key == -1)
|
||
{
|
||
if (s_new) {
|
||
memset(s_new, 0, sizeof(*s_new));
|
||
s_new->shm_key = -1;
|
||
}
|
||
return -1;
|
||
}
|
||
if (shmat(s_old->shm_key, base_addr, 0) == (char *) -1)
|
||
{
|
||
if (s_new) {
|
||
memset(s_new, 0, sizeof(*s_new));
|
||
s_new->shm_key = -1;
|
||
}
|
||
shmctl(s_old->shm_key, IPC_RMID, NULL);
|
||
return -1;
|
||
}
|
||
memcpy(base_addr, s_old->base_addr, s_old->length);
|
||
munmap(s_old->base_addr,
|
||
((s_old->length + PAGE_SIZE) & ~(PAGE_SIZE - 1)));
|
||
shmat(s_old->shm_key, s_old->base_addr, 0);
|
||
}
|
||
/******************************************************************
|
||
* If have shared memory key s_old, then just attach the new
|
||
* address.
|
||
*/
|
||
else
|
||
{
|
||
if (shmat(s_old->shm_key, base_addr, 0) == (char *) -1)
|
||
{
|
||
if (s_new) {
|
||
memset(s_new, 0, sizeof(*s_new));
|
||
s_new->shm_key = -1;
|
||
}
|
||
return -1;
|
||
}
|
||
}
|
||
|
||
/******************************************************************
|
||
* If we are creating a new segment, then we also need to update
|
||
* the LDT to include the new selector. In this return the
|
||
* new selector.
|
||
*/
|
||
if (s_new)
|
||
{
|
||
s_new->shm_key = s_old->shm_key;
|
||
|
||
if (set_ldt_entry(i_new, (unsigned long) base_addr,
|
||
s_old->length - 1, 0, s_new->type, 0, 0) < 0)
|
||
{
|
||
return -1;
|
||
}
|
||
|
||
return s_new->selector;
|
||
}
|
||
/******************************************************************
|
||
* No new segment. So, just return the shared memory key.
|
||
*/
|
||
else
|
||
return s_old->shm_key;
|
||
}
|
||
#endif
|
||
|
||
/**********************************************************************
|
||
* AllocSelector
|
||
*
|
||
* This is very bad!!! This function is implemented for Windows
|
||
* compatibility only. Do not call this from the emulation library.
|
||
*/
|
||
WORD AllocSelector(WORD old_selector)
|
||
{
|
||
SEGDESC *s_new;
|
||
int i_new, i_old;
|
||
int selector;
|
||
|
||
i_new = FindUnusedSelectors(1);
|
||
s_new = &Segments[i_new];
|
||
|
||
if (old_selector)
|
||
{
|
||
i_old = (old_selector >> __AHSHIFT);
|
||
#ifdef HAVE_IPC
|
||
selector = IPCCopySelector(i_old, i_new, 0);
|
||
if (selector < 0)
|
||
return 0;
|
||
else
|
||
return selector;
|
||
#else
|
||
s_old = &Segments[i_old];
|
||
s_new->selector = (i_new << __AHSHIFT) | 0x0007;
|
||
*s_new = *s_old;
|
||
SelectorMap[i_new] = SelectorMap[i_old];
|
||
|
||
if (set_ldt_entry(i_new, s_new->base_addr,
|
||
s_new->length - 1, 0,
|
||
s_new->type, 0, 0) < 0)
|
||
{
|
||
return 0;
|
||
}
|
||
#endif
|
||
}
|
||
else
|
||
{
|
||
memset(s_new, 0, sizeof(*s_new));
|
||
#ifdef HAVE_IPC
|
||
s_new->shm_key = -1;
|
||
#endif
|
||
SelectorMap[i_new] = i_new;
|
||
}
|
||
|
||
return (i_new << __AHSHIFT) | 0x0007;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* PrestoChangoSelector
|
||
*
|
||
* This is very bad!!! This function is implemented for Windows
|
||
* compatibility only. Do not call this from the emulation library.
|
||
*/
|
||
unsigned int PrestoChangoSelector(unsigned src_selector, unsigned dst_selector)
|
||
{
|
||
#ifdef HAVE_IPC
|
||
SEGDESC *src_s;
|
||
int src_idx, dst_idx;
|
||
|
||
src_idx = src_selector >> __AHSHIFT;
|
||
dst_idx = dst_selector >> __AHSHIFT;
|
||
|
||
if (src_idx == dst_idx)
|
||
{
|
||
src_s = &Segments[src_idx];
|
||
|
||
if (src_s->type == MODIFY_LDT_CONTENTS_DATA)
|
||
src_s->type = MODIFY_LDT_CONTENTS_CODE;
|
||
else
|
||
src_s->type = MODIFY_LDT_CONTENTS_DATA;
|
||
|
||
if (set_ldt_entry(src_idx, (long) src_s->base_addr,
|
||
src_s->length - 1, 0, src_s->type, 0, 0) < 0)
|
||
{
|
||
return 0;
|
||
}
|
||
|
||
return src_s->selector;
|
||
}
|
||
else
|
||
{
|
||
return IPCCopySelector(src_idx, dst_idx, 1);
|
||
}
|
||
#else /* HAVE_IPC */
|
||
SEGDESC *src_s, *dst_s;
|
||
char *p;
|
||
int src_idx, dst_idx;
|
||
int alias_count;
|
||
int i;
|
||
|
||
src_idx = (SelectorMap[src_selector >> __AHSHIFT]);
|
||
dst_idx = dst_selector >> __AHSHIFT;
|
||
src_s = &Segments[src_idx];
|
||
dst_s = &Segments[dst_idx];
|
||
|
||
alias_count = 0;
|
||
for (i = FIRST_SELECTOR; i < max_selectors; i++)
|
||
if (SelectorMap[i] == src_idx)
|
||
alias_count++;
|
||
|
||
if (src_s->type == MODIFY_LDT_CONTENTS_DATA
|
||
|| alias_count > 1 || src_idx == dst_idx)
|
||
{
|
||
*dst_s = *src_s;
|
||
|
||
if (src_s->type == MODIFY_LDT_CONTENTS_DATA)
|
||
dst_s->type = MODIFY_LDT_CONTENTS_CODE;
|
||
else
|
||
dst_s->type = MODIFY_LDT_CONTENTS_DATA;
|
||
|
||
SelectorMap[dst_idx] = SelectorMap[src_idx];
|
||
if (set_ldt_entry(dst_idx, (long) dst_s->base_addr,
|
||
dst_s->length - 1, 0, dst_s->type, 0, 0) < 0)
|
||
{
|
||
return 0;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
/*
|
||
* We're changing an unaliased code segment into a data
|
||
* segment. The SAFEST (but ugliest) way to deal with
|
||
* this is to map the new segment and copy all the contents.
|
||
*/
|
||
SelectorMap[dst_idx] = dst_idx;
|
||
*dst_s = *src_s;
|
||
dst_s->selector = (dst_idx << __AHSHIFT) | 0x0007;
|
||
dst_s->base_addr = (void *) ((unsigned int) dst_s->selector << 16);
|
||
dst_s->type = MODIFY_LDT_CONTENTS_DATA;
|
||
#ifdef DEV_ZERO
|
||
if (zfile == NULL)
|
||
zfile = fopen("/dev/zero","r");
|
||
p = (void *) mmap((char *) dst_s->base_addr,
|
||
((dst_s->length + PAGE_SIZE-1)
|
||
& ~(PAGE_SIZE - 1)),
|
||
PROT_EXEC | PROT_READ | PROT_WRITE,
|
||
MAP_FIXED | MAP_PRIVATE, fileno(zfile), 0);
|
||
#else
|
||
p = (void *) mmap((char *) dst_s->base_addr,
|
||
((dst_s->length + PAGE_SIZE-1)
|
||
& ~(PAGE_SIZE - 1)),
|
||
PROT_EXEC | PROT_READ | PROT_WRITE,
|
||
MAP_FIXED | MAP_PRIVATE | MAP_ANON, -1, 0);
|
||
#endif
|
||
if (p == NULL)
|
||
return 0;
|
||
|
||
memcpy((void *) dst_s->base_addr, (void *) src_s->base_addr,
|
||
dst_s->length);
|
||
if (set_ldt_entry(src_idx, dst_s->base_addr,
|
||
dst_s->length - 1, 0, dst_s->type, 0, 0) < 0)
|
||
{
|
||
return 0;
|
||
}
|
||
if (set_ldt_entry(dst_idx, dst_s->base_addr,
|
||
dst_s->length - 1, 0, dst_s->type, 0, 0) < 0)
|
||
{
|
||
return 0;
|
||
}
|
||
|
||
munmap(src_s->base_addr,
|
||
(src_s->length + PAGE_SIZE) & ~(PAGE_SIZE - 1));
|
||
SelectorMap[src_idx] = dst_idx;
|
||
src_s->base_addr = dst_s->base_addr;
|
||
}
|
||
|
||
return dst_s->selector;
|
||
#endif /* HAVE_IPC */
|
||
}
|
||
|
||
/**********************************************************************
|
||
* AllocCStoDSAlias
|
||
*/
|
||
WORD AllocDStoCSAlias(WORD ds_selector)
|
||
{
|
||
unsigned int cs_selector;
|
||
|
||
if (ds_selector == 0)
|
||
return 0;
|
||
|
||
cs_selector = AllocSelector(0);
|
||
return PrestoChangoSelector(ds_selector, cs_selector);
|
||
}
|
||
|
||
/**********************************************************************
|
||
* CleanupSelectors
|
||
*/
|
||
|
||
void CleanupSelectors(void)
|
||
{
|
||
int sel_idx;
|
||
|
||
for (sel_idx = FIRST_SELECTOR; sel_idx < max_selectors; sel_idx++)
|
||
if (SelectorMap[sel_idx])
|
||
FreeSelector((sel_idx << __AHSHIFT) | 7);
|
||
}
|
||
|
||
/**********************************************************************
|
||
* FreeSelector
|
||
*/
|
||
WORD FreeSelector(WORD sel)
|
||
{
|
||
SEGDESC *s;
|
||
int sel_idx;
|
||
int alias_count;
|
||
int i;
|
||
|
||
#ifdef HAVE_IPC
|
||
sel_idx = sel >> __AHSHIFT;
|
||
|
||
if (sel_idx < FIRST_SELECTOR || sel_idx >= max_selectors)
|
||
return 0;
|
||
|
||
s = &Segments[sel_idx];
|
||
if (s->shm_key == -1)
|
||
{
|
||
munmap(s->base_addr, ((s->length + PAGE_SIZE) & ~(PAGE_SIZE - 1)));
|
||
memset(s, 0, sizeof(*s));
|
||
s->shm_key = -1;
|
||
SelectorMap[sel_idx] = 0;
|
||
}
|
||
else
|
||
{
|
||
shmdt(s->base_addr);
|
||
|
||
alias_count = 0;
|
||
for (i = FIRST_SELECTOR; i < max_selectors; i++)
|
||
if (SelectorMap[i] && Segments[i].shm_key == s->shm_key)
|
||
alias_count++;
|
||
|
||
if (alias_count == 1)
|
||
shmctl(s->shm_key, IPC_RMID, NULL);
|
||
|
||
memset(s, 0, sizeof(*s));
|
||
s->shm_key = -1;
|
||
SelectorMap[sel_idx] = 0;
|
||
}
|
||
|
||
#else /* HAVE_IPC */
|
||
sel_idx = SelectorMap[sel >> __AHSHIFT];
|
||
|
||
if (sel_idx < FIRST_SELECTOR || sel_idx >= max_selectors)
|
||
return 0;
|
||
|
||
if (sel_idx != (sel >> __AHSHIFT))
|
||
{
|
||
SelectorMap[sel >> __AHSHIFT] = 0;
|
||
return 0;
|
||
}
|
||
|
||
alias_count = 0;
|
||
for (i = FIRST_SELECTOR; i < max_selectors; i++)
|
||
if (SelectorMap[i] == sel_idx)
|
||
alias_count++;
|
||
|
||
if (alias_count == 1)
|
||
{
|
||
s = &Segments[sel_idx];
|
||
munmap(s->base_addr, ((s->length + PAGE_SIZE) & ~(PAGE_SIZE - 1)));
|
||
memset(s, 0, sizeof(*s));
|
||
SelectorMap[sel >> __AHSHIFT] = 0;
|
||
}
|
||
#endif /* HAVE_IPC */
|
||
|
||
return 0;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* CreateNewSegments
|
||
*/
|
||
SEGDESC *
|
||
CreateNewSegments(int code_flag, int read_only, int length, int n_segments)
|
||
{
|
||
SEGDESC *s, *first_segment;
|
||
int contents;
|
||
int i, last_i;
|
||
|
||
i = FindUnusedSelectors(n_segments);
|
||
|
||
dprintf_selectors(stddeb, "Using %d segments starting at index %d.\n",
|
||
n_segments, i);
|
||
|
||
/*
|
||
* Fill in selector info.
|
||
*/
|
||
first_segment = s = &Segments[i];
|
||
for (last_i = i + n_segments; i < last_i; i++, s++)
|
||
{
|
||
if (code_flag)
|
||
{
|
||
contents = MODIFY_LDT_CONTENTS_CODE;
|
||
s->flags = 0;
|
||
}
|
||
else
|
||
{
|
||
contents = MODIFY_LDT_CONTENTS_DATA;
|
||
s->flags = NE_SEGFLAGS_DATA;
|
||
}
|
||
|
||
s->selector = (i << __AHSHIFT) | 0x0007;
|
||
s->length = length;
|
||
#ifdef DEV_ZERO
|
||
if (zfile == NULL)
|
||
zfile = fopen("/dev/zero","r");
|
||
s->base_addr = (void *) mmap((char *) (s->selector << 16),
|
||
((s->length + PAGE_SIZE - 1) &
|
||
~(PAGE_SIZE - 1)),
|
||
PROT_EXEC | PROT_READ | PROT_WRITE,
|
||
MAP_FIXED | MAP_PRIVATE,
|
||
fileno(zfile), 0);
|
||
#else
|
||
s->base_addr = (void *) mmap((char *) (s->selector << 16),
|
||
((s->length + PAGE_SIZE - 1) &
|
||
~(PAGE_SIZE - 1)),
|
||
PROT_EXEC | PROT_READ | PROT_WRITE,
|
||
MAP_FIXED | MAP_PRIVATE | MAP_ANON,
|
||
-1, 0);
|
||
#endif
|
||
#ifdef HAVE_IPC
|
||
s->shm_key = -1;
|
||
#endif
|
||
if (set_ldt_entry(i, (unsigned long) s->base_addr,
|
||
(s->length - 1) & 0xffff, 0,
|
||
contents, read_only, 0) < 0)
|
||
{
|
||
memset(s, 0, sizeof(*s));
|
||
#ifdef HAVE_IPC
|
||
s->shm_key = -1;
|
||
#endif
|
||
return NULL;
|
||
}
|
||
|
||
SelectorMap[i] = (unsigned short) i;
|
||
s->type = contents;
|
||
}
|
||
|
||
return first_segment;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* GetNextSegment
|
||
*/
|
||
SEGDESC *
|
||
GetNextSegment(unsigned int flags, unsigned int limit)
|
||
{
|
||
return CreateNewSegments(0, 0, limit, 1);
|
||
}
|
||
|
||
/**********************************************************************
|
||
* GetEntryPointFromOrdinal
|
||
*/
|
||
union lookup{
|
||
struct entry_tab_header_s *eth;
|
||
struct entry_tab_movable_s *etm;
|
||
struct entry_tab_fixed_s *etf;
|
||
char * cpnt;
|
||
};
|
||
|
||
unsigned int GetEntryDLLName(char * dll_name, char * function, int * sel,
|
||
int * addr)
|
||
{
|
||
struct dll_table_entry_s *dll_table;
|
||
struct w_files * wpnt;
|
||
char * cpnt;
|
||
int ordinal, j, len;
|
||
|
||
dll_table = FindDLLTable(dll_name);
|
||
|
||
if(dll_table) {
|
||
ordinal = FindOrdinalFromName(dll_table, function);
|
||
*sel = dll_table[ordinal].selector;
|
||
*addr = (unsigned int) dll_table[ordinal].address;
|
||
#ifdef WINESTAT
|
||
dll_table[ordinal].used++;
|
||
#endif
|
||
return 0;
|
||
};
|
||
|
||
/* We need a means of determining the ordinal for the function. */
|
||
/* Not a builtin symbol, look to see what the file has for us */
|
||
for(wpnt = wine_files; wpnt; wpnt = wpnt->next){
|
||
if(strcasecmp(wpnt->name, dll_name)) continue;
|
||
cpnt = wpnt->ne->nrname_table;
|
||
while(1==1){
|
||
if( ((int) cpnt) - ((int)wpnt->ne->nrname_table) >
|
||
wpnt->ne->ne_header->nrname_tab_length) return 1;
|
||
len = *cpnt++;
|
||
if(strncmp(cpnt, function, len) == 0) break;
|
||
cpnt += len + 2;
|
||
};
|
||
ordinal = *((unsigned short *) (cpnt + len));
|
||
j = GetEntryPointFromOrdinal(wpnt, ordinal);
|
||
*addr = j & 0xffff;
|
||
j = j >> 16;
|
||
*sel = j;
|
||
return 0;
|
||
};
|
||
return 1;
|
||
}
|
||
|
||
unsigned int GetEntryDLLOrdinal(char * dll_name, int ordinal, int * sel,
|
||
int * addr)
|
||
{
|
||
struct dll_table_entry_s *dll_table;
|
||
struct w_files * wpnt;
|
||
int j;
|
||
|
||
dll_table = FindDLLTable(dll_name);
|
||
|
||
if(dll_table) {
|
||
*sel = dll_table[ordinal].selector;
|
||
*addr = (unsigned int) dll_table[ordinal].address;
|
||
#ifdef WINESTAT
|
||
dll_table[ordinal].used++;
|
||
#endif
|
||
return 0;
|
||
};
|
||
|
||
/* Not a builtin symbol, look to see what the file has for us */
|
||
for(wpnt = wine_files; wpnt; wpnt = wpnt->next){
|
||
if(strcasecmp(wpnt->name, dll_name)) continue;
|
||
j = GetEntryPointFromOrdinal(wpnt, ordinal);
|
||
*addr = j & 0xffff;
|
||
j = j >> 16;
|
||
*sel = j;
|
||
return 0;
|
||
};
|
||
return 1;
|
||
}
|
||
|
||
unsigned int
|
||
GetEntryPointFromOrdinal(struct w_files * wpnt, int ordinal)
|
||
{
|
||
union lookup entry_tab_pointer;
|
||
struct entry_tab_header_s *eth;
|
||
struct entry_tab_movable_s *etm;
|
||
struct entry_tab_fixed_s *etf;
|
||
int current_ordinal;
|
||
int i;
|
||
|
||
entry_tab_pointer.cpnt = wpnt->ne->lookup_table;
|
||
/*
|
||
* Let's walk through the table until we get to our entry.
|
||
*/
|
||
current_ordinal = 1;
|
||
while (1)
|
||
{
|
||
/*
|
||
* Read header for this bundle.
|
||
*/
|
||
eth = entry_tab_pointer.eth++;
|
||
|
||
if (eth->n_entries == 0)
|
||
return 0xffffffff; /* Yikes - we went off the end of the table */
|
||
|
||
if (eth->seg_number == 0)
|
||
{
|
||
current_ordinal += eth->n_entries;
|
||
if(current_ordinal > ordinal) return 0;
|
||
continue;
|
||
}
|
||
|
||
/*
|
||
* Read each of the bundle entries.
|
||
*/
|
||
for (i = 0; i < eth->n_entries; i++, current_ordinal++)
|
||
{
|
||
if (eth->seg_number >= 0xfe)
|
||
{
|
||
etm = entry_tab_pointer.etm++;
|
||
|
||
if (current_ordinal == ordinal)
|
||
{
|
||
return ((unsigned int)
|
||
(wpnt->ne->selector_table[etm->seg_number - 1].base_addr +
|
||
etm->offset));
|
||
}
|
||
}
|
||
else
|
||
{
|
||
etf = entry_tab_pointer.etf++;
|
||
|
||
if (current_ordinal == ordinal)
|
||
{
|
||
return ((unsigned int)
|
||
(wpnt->ne->selector_table[eth->seg_number - 1].base_addr +
|
||
(int) etf->offset[0] +
|
||
((int) etf->offset[1] << 8)));
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
/**********************************************************************
|
||
* GetDOSEnvironment
|
||
*/
|
||
LPSTR GetDOSEnvironment(void)
|
||
{
|
||
return (LPSTR) EnvironmentSelector->base_addr;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* CreateEnvironment
|
||
*/
|
||
static SEGDESC *
|
||
CreateEnvironment(void)
|
||
{
|
||
char **e;
|
||
char *p;
|
||
SEGDESC * s;
|
||
|
||
s = CreateNewSegments(0, 0, PAGE_SIZE, 1);
|
||
if (s == NULL)
|
||
return NULL;
|
||
|
||
/*
|
||
* Fill environment with Windows path, the Unix environment,
|
||
* and program name.
|
||
*/
|
||
p = (char *) s->base_addr;
|
||
strcpy(p, "PATH=");
|
||
strcat(p, WindowsPath);
|
||
p += strlen(p) + 1;
|
||
|
||
for (e = environ; *e; e++)
|
||
{
|
||
if (strncasecmp(*e, "path", 4))
|
||
{
|
||
strcpy(p, *e);
|
||
p += strlen(p) + 1;
|
||
}
|
||
}
|
||
|
||
*p++ = '\0';
|
||
|
||
/*
|
||
* Display environment
|
||
*/
|
||
dprintf_selectors(stddeb, "Environment at %p\n", s->base_addr);
|
||
for (p = s->base_addr; *p; p += strlen(p) + 1)
|
||
dprintf_selectors(stddeb, " %s\n", p);
|
||
|
||
return s;
|
||
}
|
||
|
||
/**********************************************************************
|
||
*/
|
||
WORD GetCurrentPDB()
|
||
{
|
||
return PSPSelector;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* CreatePSP
|
||
*/
|
||
static SEGDESC *
|
||
CreatePSP(void)
|
||
{
|
||
struct dos_psp_s *psp;
|
||
unsigned short *usp;
|
||
SEGDESC * s;
|
||
char *p1, *p2;
|
||
int i;
|
||
|
||
s = CreateNewSegments(0, 0, PAGE_SIZE, 1);
|
||
|
||
/*
|
||
* Fill PSP
|
||
*/
|
||
PSPSelector = s->selector;
|
||
psp = (struct dos_psp_s *) s->base_addr;
|
||
psp->pspInt20 = 0x20cd;
|
||
psp->pspDispatcher[0] = 0x9a;
|
||
usp = (unsigned short *) &psp->pspDispatcher[1];
|
||
*usp = (unsigned short) KERNEL_Ordinal_102;
|
||
*(usp + 1) = UTEXTSEL;
|
||
psp->pspTerminateVector[0] = (unsigned short) UNIXLIB_Ordinal_0;
|
||
psp->pspTerminateVector[1] = UTEXTSEL;
|
||
psp->pspControlCVector[0] = (unsigned short) UNIXLIB_Ordinal_0;
|
||
psp->pspControlCVector[1] = UTEXTSEL;
|
||
psp->pspCritErrorVector[0] = (unsigned short) UNIXLIB_Ordinal_0;
|
||
psp->pspCritErrorVector[1] = UTEXTSEL;
|
||
psp->pspEnvironment = EnvironmentSelector->selector;
|
||
|
||
p1 = psp->pspCommandTail;
|
||
for (i = 1; i < Argc; i++)
|
||
{
|
||
if ((int) ((int) p1 - (int) psp->pspCommandTail) +
|
||
strlen(Argv[i]) > 124)
|
||
break;
|
||
|
||
if (i != 1)
|
||
*p1++ = ' ';
|
||
|
||
for (p2 = Argv[i]; *p2 != '\0'; )
|
||
*p1++ = *p2++;
|
||
|
||
}
|
||
*p1 = '\0';
|
||
psp->pspCommandTailCount = strlen(psp->pspCommandTail);
|
||
|
||
return s;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* CreateSelectors
|
||
*/
|
||
SEGDESC *
|
||
CreateSelectors(struct w_files * wpnt)
|
||
{
|
||
int fd = wpnt->fd;
|
||
struct ne_segment_table_entry_s *seg_table = wpnt->ne->seg_table;
|
||
struct ne_header_s *ne_header = wpnt->ne->ne_header;
|
||
SEGDESC *selectors, *s;
|
||
unsigned short auto_data_sel;
|
||
int contents, read_only;
|
||
int SelectorTableLength;
|
||
int i;
|
||
int status;
|
||
int old_length, file_image_length = 0;
|
||
int saved_old_length = 0;
|
||
|
||
auto_data_sel=0;
|
||
/*
|
||
* Allocate memory for the table to keep track of all selectors.
|
||
*/
|
||
SelectorTableLength = ne_header->n_segment_tab;
|
||
selectors = malloc(SelectorTableLength * sizeof(*selectors));
|
||
if (selectors == NULL)
|
||
return NULL;
|
||
|
||
/*
|
||
* Step through the segment table in the exe header.
|
||
*/
|
||
s = selectors;
|
||
for (i = 0; i < ne_header->n_segment_tab; i++, s++)
|
||
{
|
||
/*
|
||
* Store the flags in our table.
|
||
*/
|
||
s->flags = seg_table[i].seg_flags;
|
||
|
||
/*
|
||
* Is there an image for this segment in the file?
|
||
*/
|
||
if (seg_table[i].seg_data_offset == 0)
|
||
{
|
||
/*
|
||
* No image in exe file, let's allocate some memory for it.
|
||
*/
|
||
s->length = seg_table[i].min_alloc;
|
||
}
|
||
else
|
||
{
|
||
/*
|
||
* Image in file, let's just point to the image in memory.
|
||
*/
|
||
s->length = seg_table[i].min_alloc;
|
||
file_image_length = seg_table[i].seg_data_length;
|
||
if (file_image_length == 0) file_image_length = 0x10000;
|
||
}
|
||
|
||
if (s->length == 0)
|
||
s->length = 0x10000;
|
||
old_length = s->length;
|
||
|
||
/*
|
||
* If this is the automatic data segment, its size must be adjusted.
|
||
* First we need to check for local heap. Second we nee to see if
|
||
* this is also the stack segment.
|
||
*/
|
||
if (i + 1 == ne_header->auto_data_seg || i + 1 == ne_header->ss)
|
||
{
|
||
s->length = 0x10000;
|
||
ne_header->sp = s->length - 2;
|
||
}
|
||
|
||
/*
|
||
* Is this a DATA or CODE segment?
|
||
*/
|
||
read_only = 0;
|
||
if (s->flags & NE_SEGFLAGS_DATA)
|
||
{
|
||
contents = MODIFY_LDT_CONTENTS_DATA;
|
||
if (s->flags & NE_SEGFLAGS_READONLY)
|
||
read_only = 1;
|
||
}
|
||
else
|
||
{
|
||
contents = MODIFY_LDT_CONTENTS_CODE;
|
||
if (s->flags & NE_SEGFLAGS_EXECUTEONLY)
|
||
read_only = 1;
|
||
}
|
||
|
||
#if 0
|
||
stmp = CreateNewSegments(!(s->flags & NE_SEGFLAGS_DATA), read_only,
|
||
s->length, 1);
|
||
s->base_addr = stmp->base_addr;
|
||
s->selector = stmp->selector;
|
||
#endif
|
||
s->selector = GlobalAlloc(GMEM_FIXED, s->length);
|
||
if (s->selector == 0)
|
||
myerror("CreateSelectors: GlobalAlloc() failed");
|
||
|
||
s->base_addr = (void *) ((LONG) s->selector << 16);
|
||
#ifdef HAVE_IPC
|
||
s->shm_key = -1;
|
||
#endif
|
||
if (!(s->flags & NE_SEGFLAGS_DATA))
|
||
PrestoChangoSelector(s->selector, s->selector);
|
||
else
|
||
memset(s->base_addr, 0, s->length);
|
||
|
||
if (seg_table[i].seg_data_offset != 0)
|
||
{
|
||
/*
|
||
* Image in file.
|
||
*/
|
||
status = lseek(fd, seg_table[i].seg_data_offset *
|
||
(1 << ne_header->align_shift_count), SEEK_SET);
|
||
if(read(fd, s->base_addr, file_image_length) != file_image_length)
|
||
myerror("Unable to read segment from file");
|
||
}
|
||
|
||
/*
|
||
* If this is the automatic data segment, then we must initialize
|
||
* the local heap.
|
||
*/
|
||
if (i + 1 == ne_header->auto_data_seg)
|
||
{
|
||
auto_data_sel = s->selector;
|
||
saved_old_length = old_length;
|
||
}
|
||
}
|
||
|
||
if(!auto_data_sel)dprintf_selectors(stddeb,"Warning: No auto_data_sel\n");
|
||
s = selectors;
|
||
for (i = 0; i < ne_header->n_segment_tab; i++, s++)
|
||
{
|
||
Segments[s->selector >> __AHSHIFT].owner = auto_data_sel;
|
||
if (s->selector == auto_data_sel)
|
||
HEAP_LocalInit(auto_data_sel, s->base_addr + saved_old_length,
|
||
0x10000 - 2 - saved_old_length
|
||
- ne_header->stack_length);
|
||
}
|
||
|
||
if(!EnvironmentSelector) {
|
||
EnvironmentSelector = CreateEnvironment();
|
||
PSP_Selector = CreatePSP();
|
||
MakeProcThunks = CreateNewSegments(1, 0, 0x10000, 1);
|
||
};
|
||
|
||
return selectors;
|
||
}
|
||
/**********************************************************************
|
||
*/
|
||
void
|
||
FixupFunctionPrologs(struct w_files * wpnt)
|
||
{
|
||
struct ne_header_s *ne_header = wpnt->ne->ne_header;
|
||
union lookup entry_tab_pointer;
|
||
struct entry_tab_header_s *eth;
|
||
struct entry_tab_movable_s *etm;
|
||
struct entry_tab_fixed_s *etf;
|
||
unsigned char *fixup_ptr;
|
||
int i;
|
||
|
||
if (!(ne_header->format_flags & 0x0001))
|
||
return;
|
||
|
||
entry_tab_pointer.cpnt = wpnt->ne->lookup_table;
|
||
/*
|
||
* Let's walk through the table and fixup prologs as we go.
|
||
*/
|
||
while (1)
|
||
{
|
||
/* Get bundle header */
|
||
eth = entry_tab_pointer.eth++;
|
||
|
||
/* Check for end of table */
|
||
if (eth->n_entries == 0)
|
||
return;
|
||
|
||
/* Check for empty bundle */
|
||
if (eth->seg_number == 0)
|
||
continue;
|
||
|
||
/* Examine each bundle */
|
||
for (i = 0; i < eth->n_entries; i++)
|
||
{
|
||
/* Moveable segment */
|
||
if (eth->seg_number >= 0xfe)
|
||
{
|
||
etm = entry_tab_pointer.etm++;
|
||
fixup_ptr = (wpnt->ne->selector_table[etm->seg_number-1].base_addr
|
||
+ etm->offset);
|
||
}
|
||
else
|
||
{
|
||
etf = entry_tab_pointer.etf++;
|
||
fixup_ptr = (wpnt->ne->selector_table[eth->seg_number-1].base_addr
|
||
+ (int) etf->offset[0]
|
||
+ ((int) etf->offset[1] << 8));
|
||
|
||
}
|
||
|
||
/* Verify the signature */
|
||
if (((fixup_ptr[0] == 0x1e && fixup_ptr[1] == 0x58)
|
||
|| (fixup_ptr[0] == 0x8c && fixup_ptr[1] == 0xd8))
|
||
&& fixup_ptr[2] == 0x90)
|
||
{
|
||
fixup_ptr[0] = 0xb8; /* MOV AX, */
|
||
fixup_ptr[1] = wpnt->hinstance;
|
||
fixup_ptr[2] = (wpnt->hinstance >> 8);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
/***********************************************************************
|
||
* GetSelectorBase (KERNEL.186)
|
||
*/
|
||
DWORD GetSelectorBase(WORD wSelector)
|
||
{
|
||
fprintf(stdnimp, "GetSelectorBase(selector %4X) stub!\n", wSelector);
|
||
return 0;
|
||
}
|
||
|
||
/***********************************************************************
|
||
* SetSelectorBase (KERNEL.187)
|
||
*/
|
||
void SetSelectorBase(WORD wSelector, DWORD dwBase)
|
||
{
|
||
fprintf(stdnimp, "SetSelectorBase(selector %4X, base %8lX) stub!\n",
|
||
wSelector, dwBase);
|
||
}
|
||
|
||
/***********************************************************************
|
||
* GetSelectorLimit (KERNEL.188)
|
||
*/
|
||
DWORD GetSelectorLimit(WORD wSelector)
|
||
{
|
||
fprintf(stdnimp, "GetSelectorLimit(selector %4X) stub!\n", wSelector);
|
||
|
||
return 0xffff;
|
||
}
|
||
|
||
/***********************************************************************
|
||
* SetSelectorLimit (KERNEL.189)
|
||
*/
|
||
void SetSelectorLimit(WORD wSelector, DWORD dwLimit)
|
||
{
|
||
fprintf(stdnimp, "SetSelectorLimit(selector %4X, base %8lX) stub!\n",
|
||
wSelector, dwLimit);
|
||
}
|
||
|
||
#endif /* ifndef WINELIB */
|