From b1abca8a5d7055bf39bd8ada046041cc3c446510 Mon Sep 17 00:00:00 2001 From: Alexandre Julliard Date: Fri, 28 May 2004 20:59:22 +0000 Subject: [PATCH] Initial version of the Wine preloader, used to reserve memory areas at startup. Based on the work of Mike McCormack. --- configure | 53 ++-- configure.ac | 14 +- dlls/kernel/process.c | 6 +- dlls/ntdll/server.c | 4 +- include/wine/library.h | 2 +- libs/wine/config.c | 44 ++- loader/.cvsignore | 1 + loader/Makefile.in | 6 +- loader/glibc.c | 5 +- loader/main.c | 12 + loader/main.h | 31 ++ loader/preloader.c | 645 +++++++++++++++++++++++++++++++++++++++++ 12 files changed, 776 insertions(+), 47 deletions(-) create mode 100644 loader/main.h create mode 100644 loader/preloader.c diff --git a/configure b/configure index e512212f765..8e673656b09 100755 --- a/configure +++ b/configure @@ -14180,31 +14180,44 @@ echo "${ECHO_T}$ac_cv_c_export_dynamic" >&6 case $host_cpu in *i[3456789]86*) - echo "$as_me:$LINENO: checking whether we can relocate the executable to 0x00110000" >&5 -echo $ECHO_N "checking whether we can relocate the executable to 0x00110000... $ECHO_C" >&6 + echo "$as_me:$LINENO: checking whether we can relocate the executable to 0x77f00000" >&5 +echo $ECHO_N "checking whether we can relocate the executable to 0x77f00000... $ECHO_C" >&6 if test "${ac_cv_ld_reloc_exec+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else - saved_CFLAGS="$CFLAGS" - CFLAGS="$CFLAGS -Wl,--section-start,.interp=0x00110400" - if test "$cross_compiling" = yes; then - ac_cv_ld_reloc_exec="no" -else - cat >conftest.$ac_ext <<_ACEOF + ac_wine_try_cflags_saved=$CFLAGS +CFLAGS="$CFLAGS -Wl,--section-start,.interp=0x77f00400" +cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ -#include - int main() { return (sbrk(32*1024*1024) == (void *)-1); } + +int +main () +{ + + ; + return 0; +} _ACEOF -rm -f conftest$ac_exeext +rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 - (eval $ac_link) 2>&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? @@ -14212,22 +14225,20 @@ if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (exit $ac_status); }; }; then ac_cv_ld_reloc_exec="yes" else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 + echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 -( exit $ac_status ) ac_cv_ld_reloc_exec="no" fi -rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext -fi - CFLAGS="$saved_CFLAGS" +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +CFLAGS=$ac_wine_try_cflags_saved fi echo "$as_me:$LINENO: result: $ac_cv_ld_reloc_exec" >&5 echo "${ECHO_T}$ac_cv_ld_reloc_exec" >&6 if test "$ac_cv_ld_reloc_exec" = "yes" then - LDEXECFLAGS="$LDEXECFLAGS -Wl,--section-start,.interp=0x00110400" + LDEXECFLAGS="$LDEXECFLAGS -Wl,--section-start,.interp=0x77f00400" fi ;; esac @@ -14528,7 +14539,7 @@ esac case $host_os in linux*) - WINE_BINARIES="wine-glibc wine-kthread wine-pthread" + WINE_BINARIES="wine-glibc wine-kthread wine-pthread wine-preloader" MAIN_BINARY="wine-glibc" diff --git a/configure.ac b/configure.ac index 08b0254bf64..3ce7c74b70c 100644 --- a/configure.ac +++ b/configure.ac @@ -905,16 +905,12 @@ case $host_os in case $host_cpu in *i[[3456789]]86*) - AC_CACHE_CHECK([whether we can relocate the executable to 0x00110000], ac_cv_ld_reloc_exec, - [saved_CFLAGS="$CFLAGS" - CFLAGS="$CFLAGS -Wl,--section-start,.interp=0x00110400" - AC_TRY_RUN([#include - int main() { return (sbrk(32*1024*1024) == (void *)-1); }], - ac_cv_ld_reloc_exec="yes", ac_cv_ld_reloc_exec="no", ac_cv_ld_reloc_exec="no") - CFLAGS="$saved_CFLAGS"]) + AC_CACHE_CHECK([whether we can relocate the executable to 0x77f00000], ac_cv_ld_reloc_exec, + [WINE_TRY_CFLAGS([-Wl,--section-start,.interp=0x77f00400], + ac_cv_ld_reloc_exec="yes", ac_cv_ld_reloc_exec="no")]) if test "$ac_cv_ld_reloc_exec" = "yes" then - LDEXECFLAGS="$LDEXECFLAGS -Wl,--section-start,.interp=0x00110400" + LDEXECFLAGS="$LDEXECFLAGS -Wl,--section-start,.interp=0x77f00400" fi ;; esac @@ -980,7 +976,7 @@ esac case $host_os in linux*) - AC_SUBST(WINE_BINARIES,"wine-glibc wine-kthread wine-pthread") + AC_SUBST(WINE_BINARIES,"wine-glibc wine-kthread wine-pthread wine-preloader") AC_SUBST(MAIN_BINARY,"wine-glibc") ;; *) diff --git a/dlls/kernel/process.c b/dlls/kernel/process.c index d34e00ef034..7d0048a4bae 100644 --- a/dlls/kernel/process.c +++ b/dlls/kernel/process.c @@ -1462,10 +1462,10 @@ static BOOL create_process( HANDLE hFile, LPCWSTR filename, LPWSTR cmd_line, LPW if (argv && envp) { /* first, try for a WINELOADER environment variable */ - argv[0] = getenv("WINELOADER"); - if (argv[0]) execve( argv[0], argv, envp ); + const char *loader = getenv("WINELOADER"); + if (loader) wine_exec_wine_binary( loader, argv, envp, TRUE ); /* now use the standard search strategy */ - wine_exec_wine_binary( NULL, argv, envp ); + wine_exec_wine_binary( NULL, argv, envp, TRUE ); } err = errno; write( execfd[1], &err, sizeof(err) ); diff --git a/dlls/ntdll/server.c b/dlls/ntdll/server.c index cb384583bc0..dd8296b583b 100644 --- a/dlls/ntdll/server.c +++ b/dlls/ntdll/server.c @@ -512,7 +512,7 @@ static void start_server( const char *oldcwd ) " specified in the WINESERVER environment variable", p ); } /* now use the standard search strategy */ - wine_exec_wine_binary( argv[0], argv, NULL ); + wine_exec_wine_binary( argv[0], argv, NULL, FALSE ); fatal_error( "could not exec wineserver\n" ); } waitpid( pid, &status, 0 ); @@ -703,7 +703,7 @@ static void create_config_dir(void) argv[2] = "--prefix"; argv[3] = tmp_dir; argv[4] = NULL; - wine_exec_wine_binary( argv[0], (char **)argv, NULL ); + wine_exec_wine_binary( argv[0], (char **)argv, NULL, FALSE ); rmdir( tmp_dir ); fatal_perror( "could not exec wineprefixcreate" ); } diff --git a/include/wine/library.h b/include/wine/library.h index 8eef5398995..93802b81046 100644 --- a/include/wine/library.h +++ b/include/wine/library.h @@ -33,7 +33,7 @@ extern const char *wine_get_config_dir(void); extern const char *wine_get_server_dir(void); extern const char *wine_get_user_name(void); extern void wine_init_argv0_path( const char *argv0 ); -extern void wine_exec_wine_binary( const char *name, char **argv, char **envp ); +extern void wine_exec_wine_binary( const char *name, char **argv, char **envp, int use_preloader ); /* dll loading */ diff --git a/libs/wine/config.c b/libs/wine/config.c index c6ab19e69f5..538207977f8 100644 --- a/libs/wine/config.c +++ b/libs/wine/config.c @@ -271,20 +271,50 @@ const char *wine_get_user_name(void) return user_name; } +/* exec a binary using the preloader if requested; helper for wine_exec_wine_binary */ +static void preloader_exec( char **argv, char **envp, int use_preloader ) +{ +#ifdef linux + if (use_preloader) + { + static const char preloader[] = "wine-preloader"; + char *p, *full_name; + + if (!(p = strrchr( argv[0], '/' ))) p = argv[0]; + else p++; + + full_name = xmalloc( p - argv[0] + sizeof(preloader) ); + memcpy( full_name, argv[0], p - argv[0] ); + memcpy( full_name + (p - argv[0]), preloader, sizeof(preloader) ); + if (envp) execve( full_name, argv, envp ); + else execv( full_name, argv ); + free( full_name ); + return; + } +#else + if (envp) execve( argv[0], argv, envp ); + else execv( argv[0], argv ); +#endif +} + /* exec a wine internal binary (either the wine loader or the wine server) */ -/* if name is null, default to the name of the current binary */ -void wine_exec_wine_binary( const char *name, char **argv, char **envp ) +void wine_exec_wine_binary( const char *name, char **argv, char **envp, int use_preloader ) { const char *path, *pos, *ptr; - if (!envp) envp = environ; - if (!name) name = argv0_name; + if (name && strchr( name, '/' )) + { + argv[0] = (char *)name; + preloader_exec( argv, envp, use_preloader ); + return; + } + else if (!name) name = argv0_name; /* first, try bin directory */ argv[0] = xmalloc( sizeof(BINDIR "/") + strlen(name) ); strcpy( argv[0], BINDIR "/" ); strcat( argv[0], name ); - execve( argv[0], argv, envp ); + preloader_exec( argv, envp, use_preloader ); free( argv[0] ); /* now try the path of argv0 of the current binary */ @@ -293,7 +323,7 @@ void wine_exec_wine_binary( const char *name, char **argv, char **envp ) argv[0] = xmalloc( strlen(argv0_path) + strlen(name) + 1 ); strcpy( argv[0], argv0_path ); strcat( argv[0], name ); - execve( argv[0], argv, envp ); + preloader_exec( argv, envp, use_preloader ); free( argv[0] ); } @@ -310,7 +340,7 @@ void wine_exec_wine_binary( const char *name, char **argv, char **envp ) memcpy( argv[0], pos, ptr - pos ); strcpy( argv[0] + (ptr - pos), "/" ); strcat( argv[0] + (ptr - pos), name ); - execve( argv[0], argv, envp ); + preloader_exec( argv, envp, use_preloader ); pos = ptr; } free( argv[0] ); diff --git a/loader/.cvsignore b/loader/.cvsignore index 8e637dd8755..cc4ff2181e2 100644 --- a/loader/.cvsignore +++ b/loader/.cvsignore @@ -2,4 +2,5 @@ Makefile wine wine-glibc wine-kthread +wine-preloader wine-pthread diff --git a/loader/Makefile.in b/loader/Makefile.in index 356da179227..5a5fb303c46 100644 --- a/loader/Makefile.in +++ b/loader/Makefile.in @@ -8,6 +8,7 @@ C_SRCS = \ glibc.c \ kthread.c \ main.c \ + preloader.c \ pthread.c KTHREAD_OBJS = kthread.o main.o @@ -24,7 +25,10 @@ LIBPTHREAD = @LIBPTHREAD@ LDEXECFLAGS = @LDEXECFLAGS@ wine-glibc: glibc.o Makefile.in - $(CC) -o $@ $(LDEXECFLAGS) glibc.o $(LIBWINE) $(LIBPORT) $(LIBPTHREAD) $(EXTRALIBS) $(LDFLAGS) + $(CC) -o $@ glibc.o $(LIBWINE) $(LIBPORT) $(LIBPTHREAD) $(EXTRALIBS) $(LDFLAGS) + +wine-preloader: preloader.o Makefile.in + $(CC) -o $@ -static -nostartfiles -Wl,-Ttext=0x78000000 preloader.o $(LIBPORT) $(LDFLAGS) wine-kthread: $(KTHREAD_OBJS) Makefile.in $(CC) -o $@ $(LDEXECFLAGS) $(KTHREAD_OBJS) $(LIBWINE) $(LIBPORT) $(EXTRALIBS) $(LDFLAGS) diff --git a/loader/glibc.c b/loader/glibc.c index 9d98d74d633..0cdf4089e7f 100644 --- a/loader/glibc.c +++ b/loader/glibc.c @@ -93,13 +93,12 @@ int main( int argc, char *argv[] ) strcpy( new_loader, "WINELOADER=" ); strcat( new_loader, new_name ); putenv( new_loader ); - argv[0] = new_name; - execv( argv[0], argv ); + wine_exec_wine_binary( new_name, argv, NULL, TRUE ); } else { wine_init_argv0_path( argv[0] ); - wine_exec_wine_binary( threads, argv, NULL ); + wine_exec_wine_binary( threads, argv, NULL, TRUE ); } fprintf( stderr, "wine: could not exec %s\n", argv[0] ); exit(1); diff --git a/loader/main.c b/loader/main.c index f50100e6e70..cd45733d8fa 100644 --- a/loader/main.c +++ b/loader/main.c @@ -21,6 +21,10 @@ #include #include #include "wine/library.h" +#include "main.h" + +/* the preloader will set this variable */ +const struct wine_preload_info *wine_main_preload_info = NULL; /********************************************************************** * main @@ -28,6 +32,14 @@ int main( int argc, char *argv[] ) { char error[1024]; + int i; + + if (wine_main_preload_info) + { + for (i = 0; wine_main_preload_info[i].size; i++) + wine_mmap_add_reserved_area( wine_main_preload_info[i].addr, + wine_main_preload_info[i].size ); + } wine_init( argc, argv, error, sizeof(error) ); fprintf( stderr, "wine: failed to initialize: %s\n", error ); diff --git a/loader/main.h b/loader/main.h new file mode 100644 index 00000000000..d78ec5beb81 --- /dev/null +++ b/loader/main.h @@ -0,0 +1,31 @@ +/* + * Definitions for Wine main program + * + * Copyright 2004 Mike McCormack for Codeweavers + * Copyright 2004 Alexandre Julliard + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 2.1 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + */ + +#ifndef __WINE_LOADER_MAIN_H +#define __WINE_LOADER_MAIN_H + +struct wine_preload_info +{ + void *addr; + size_t size; +}; + +#endif /* __WINE_LOADER_MAIN_H */ diff --git a/loader/preloader.c b/loader/preloader.c new file mode 100644 index 00000000000..2ce5676399d --- /dev/null +++ b/loader/preloader.c @@ -0,0 +1,645 @@ +/* + * Preloader for ld.so + * + * Copyright (C) 1995,96,97,98,99,2000,2001,2002 Free Software Foundation, Inc. + * Copyright (C) 2004 Mike McCormack for Codeweavers + * Copyright (C) 2004 Alexandre Julliard + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 2.1 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + */ + +/* + * Design notes + * + * The goal of this program is to be a workaround for exec-shield, as used + * by the Linux kernel distributed with Fedora Core and other distros. + * + * To do this, we implement our own shared object loader that reserves memory + * that is important to Wine, and then loads the main binary and its ELF + * interpreter. + * + * We will try to set up the stack and memory area so that the program that + * loads after us (eg. the wine binary) never knows we were here, except that + * areas of memory it needs are already magically reserved. + * + * The following memory areas are important to Wine: + * 0x00000000 - 0x00110000 the DOS area + * 0x80000000 - 0x81000000 the shared heap + * ??? - ??? the PE binary load address (usually starting at 0x00400000) + * + * If this program is used as the shared object loader, the only difference + * that the loaded programs should see is that this loader will be mapped + * into memory when it starts. + */ + +/* + * References (things I consulted to understand how ELF loading works): + * + * glibc 2.3.2 elf/dl-load.c + * http://www.gnu.org/directory/glibc.html + * + * Linux 2.6.4 fs/binfmt_elf.c + * ftp://ftp.kernel.org/pub/linux/kernel/v2.6/linux-2.6.4.tar.bz2 + * + * Userland exec, by + * http://cert.uni-stuttgart.de/archive/bugtraq/2004/01/msg00002.html + * + * The ELF specification: + * http://www.linuxbase.org/spec/booksets/LSB-Embedded/LSB-Embedded/book387.html + */ + +#include "config.h" +#include "wine/port.h" + +#include +#include +#include +#include +#include +#include +#include +#ifdef HAVE_SYS_MMAN_H +# include +#endif +#ifdef HAVE_UNISTD_H +# include +#endif +#ifdef HAVE_ELF_H +# include +#endif +#ifdef HAVE_LINK_H +# include +#endif +#ifdef HAVE_SYS_LINK_H +# include +#endif + +#include "main.h" + +/* ELF definitions */ +#define ELF_PREFERRED_ADDRESS(loader, maplength, mapstartpref) (mapstartpref) +#define ELF_FIXED_ADDRESS(loader, mapstart) ((void) 0) + +#define MAP_BASE_ADDR(l) 0 + +#ifndef MAP_COPY +#define MAP_COPY MAP_PRIVATE +#endif +#ifndef MAP_NORESERVE +#define MAP_NORESERVE 0 +#endif + +static struct wine_preload_info preload_info[] = +{ + { (void *)0x00000000, 0x00110000 }, /* DOS area */ + { (void *)0x80000000, 0x01000000 }, /* shared heap */ + { (void *)0x00110000, 0x0fef0000 }, /* PE exe range (FIXME) */ + { 0, 0 } /* end of list */ +}; + +/* debugging */ +#undef DUMP_SEGMENTS +#undef DUMP_AUX_INFO +#undef DUMP_SYMS + +/* older systems may not define these */ +#ifndef PT_TLS +#define PT_TLS 7 +#endif + +static unsigned int page_size, page_mask; + +struct wld_link_map { + ElfW(Addr) l_addr; + ElfW(Dyn) *l_ld; + const ElfW(Phdr) *l_phdr; + ElfW(Addr) l_entry; + ElfW(Half) l_ldnum; + ElfW(Half) l_phnum; + ElfW(Addr) l_map_start, l_map_end; + ElfW(Addr) l_interp; +}; + + +/* + * The _start function is the entry and exit point of this program + * + * It calls wld_start, passing a pointer to the args it receives + * then jumps to the address wld_start returns after removing the + * first argv[] value, and decrementing argc + */ +void _start(); +extern char _end[]; +__ASM_GLOBAL_FUNC(_start, + "\tcall wld_start\n" + "\tpush %eax\n" + "\txor %eax,%eax\n" + "\txor %ecx,%ecx\n" + "\txor %edx,%edx\n" + "\tret\n") + +/* + * wld_printf - just the basics + * + * %x prints a hex number + * %s prints a string + */ +static void wld_vsprintf(char *str, char *fmt, va_list args ) +{ + char *p = fmt; + + while( *p ) + { + if( *p == '%' ) + { + p++; + if( *p == 'x' ) + { + int ch, i, x = va_arg( args, int ); + for(i=7; i>=0; i--) + { + ch = (x>>(i*4))&0xf; + ch += '0'; + if(ch>'9') + ch+=('A'-10-'0'); + *str++ = ch; + } + } + else if( *p == 's' ) + { + char *s = va_arg( args, char * ); + while(*s) + *str++ = *s++; + } + else if( *p == 0 ) + break; + p++; + } + *str++ = *p++; + } + *str = 0; +} + +static void wld_printf(char *fmt, ... ) +{ + va_list args; + char buffer[256]; + + va_start( args, fmt ); + wld_vsprintf(buffer, fmt, args ); + va_end( args ); + write(2, buffer, strlen(buffer)); +} + +static void fatal_error(char *fmt, ... ) +{ + va_list args; + char buffer[256]; + + va_start( args, fmt ); + wld_vsprintf(buffer, fmt, args ); + va_end( args ); + write(2, buffer, strlen(buffer)); + _exit(1); +} + +#ifdef DUMP_AUX_INFO +/* + * Dump interesting bits of the ELF auxv_t structure that is passed + * as the 4th parameter to the _start function + */ +static void dump_auxiliary( ElfW(auxv_t) *av ) +{ + for ( ; av->a_type != AT_NULL; av++) + switch (av->a_type) + { + case AT_PAGESZ: + wld_printf("AT_PAGESZ = %x\n",av->a_un.a_val); + break; + case AT_PHDR: + wld_printf("AT_PHDR = %x\n",av->a_un.a_ptr); + break; + case AT_PHNUM: + wld_printf("AT_PHNUM = %x\n",av->a_un.a_val); + break; + case AT_ENTRY: + wld_printf("AT_ENTRY = %x\n",av->a_un.a_val); + break; + case AT_BASE: + wld_printf("AT_BASE = %x\n",av->a_un.a_val); + break; + } +} +#endif + +/* + * set_auxiliary + * + * Set a field of the auxiliary structure + */ +static void set_auxiliary( ElfW(auxv_t) *av, int type, long int val ) +{ + for ( ; av->a_type != AT_NULL; av++) + if( av->a_type == type ) + av->a_un.a_val = val; +} + +/* + * get_auxiliary + * + * Get a field of the auxiliary structure + */ +static int get_auxiliary( ElfW(auxv_t) *av, int type, int *val ) +{ + for ( ; av->a_type != AT_NULL; av++) + if( av->a_type == type ) + { + *val = av->a_un.a_val; + return 1; + } + return 0; +} + +/* + * map_so_lib + * + * modelled after _dl_map_object_from_fd() from glibc-2.3.1/elf/dl-load.c + * + * This function maps the segments from an ELF object, and optionally + * stores information about the mapping into the auxv_t structure. + */ +static void map_so_lib( const char *name, struct wld_link_map *l) +{ + int fd; + unsigned char buf[0x800]; + ElfW(Ehdr) *header = (ElfW(Ehdr)*)buf; + ElfW(Phdr) *phdr, *ph; + /* Scan the program header table, collecting its load commands. */ + struct loadcmd + { + ElfW(Addr) mapstart, mapend, dataend, allocend; + off_t mapoff; + int prot; + } loadcmds[16], *c; + size_t nloadcmds = 0, maplength; + + fd = open( name, O_RDONLY ); + if (fd == -1) fatal_error("%s: could not open\n", name ); + + if (read( fd, buf, sizeof(buf) ) != sizeof(buf)) + fatal_error("%s: failed to read ELF header\n", name); + + phdr = (void*) (((unsigned char*)buf) + header->e_phoff); + + if( ( header->e_ident[0] != 0x7f ) || + ( header->e_ident[1] != 'E' ) || + ( header->e_ident[2] != 'L' ) || + ( header->e_ident[3] != 'F' ) ) + fatal_error( "%s: not an ELF binary... don't know how to load it\n", name ); + + if( header->e_machine != EM_386 ) + fatal_error("%s: not an i386 ELF binary... don't know how to load it\n", name ); + + if (header->e_phnum > sizeof(loadcmds)/sizeof(loadcmds[0])) + fatal_error( "%s: oops... not enough space for load commands\n", name ); + + maplength = header->e_phnum * sizeof (ElfW(Phdr)); + if (header->e_phoff + maplength > sizeof(buf)) + fatal_error( "%s: oops... not enough space for ELF headers\n", name ); + + l->l_ld = 0; + l->l_addr = 0; + l->l_phdr = 0; + l->l_phnum = header->e_phnum; + l->l_entry = header->e_entry; + l->l_interp = 0; + + for (ph = phdr; ph < &phdr[l->l_phnum]; ++ph) + { + +#ifdef DUMP_SEGMENTS + wld_printf( "ph = %x\n", ph ); + wld_printf( " p_type = %x\n", ph->p_type ); + wld_printf( " p_flags = %x\n", ph->p_flags ); + wld_printf( " p_offset = %x\n", ph->p_offset ); + wld_printf( " p_vaddr = %x\n", ph->p_vaddr ); + wld_printf( " p_paddr = %x\n", ph->p_paddr ); + wld_printf( " p_filesz = %x\n", ph->p_filesz ); + wld_printf( " p_memsz = %x\n", ph->p_memsz ); + wld_printf( " p_align = %x\n", ph->p_align ); +#endif + + switch (ph->p_type) + { + /* These entries tell us where to find things once the file's + segments are mapped in. We record the addresses it says + verbatim, and later correct for the run-time load address. */ + case PT_DYNAMIC: + l->l_ld = (void *) ph->p_vaddr; + l->l_ldnum = ph->p_memsz / sizeof (Elf32_Dyn); + break; + + case PT_PHDR: + l->l_phdr = (void *) ph->p_vaddr; + break; + + case PT_LOAD: + { + if ((ph->p_align & page_mask) != 0) + fatal_error( "%s: ELF load command alignment not page-aligned\n", name ); + + if (((ph->p_vaddr - ph->p_offset) & (ph->p_align - 1)) != 0) + fatal_error( "%s: ELF load command address/offset not properly aligned\n", name ); + + c = &loadcmds[nloadcmds++]; + c->mapstart = ph->p_vaddr & ~(ph->p_align - 1); + c->mapend = ((ph->p_vaddr + ph->p_filesz + page_mask) & ~page_mask); + c->dataend = ph->p_vaddr + ph->p_filesz; + c->allocend = ph->p_vaddr + ph->p_memsz; + c->mapoff = ph->p_offset & ~(ph->p_align - 1); + + c->prot = 0; + if (ph->p_flags & PF_R) + c->prot |= PROT_READ; + if (ph->p_flags & PF_W) + c->prot |= PROT_WRITE; + if (ph->p_flags & PF_X) + c->prot |= PROT_EXEC; + } + break; + + case PT_INTERP: + l->l_interp = ph->p_vaddr; + break; + + case PT_TLS: + /* + * We don't need to set anything up because we're + * emulating the kernel, not ld-linux.so.2 + * The ELF loader will set up the TLS data itself. + */ + case PT_SHLIB: + case PT_NOTE: + default: + break; + } + } + + /* Now process the load commands and map segments into memory. */ + c = loadcmds; + + /* Length of the sections to be loaded. */ + maplength = loadcmds[nloadcmds - 1].allocend - c->mapstart; + + if( header->e_type == ET_DYN ) + { + ElfW(Addr) mappref; + mappref = (ELF_PREFERRED_ADDRESS (loader, maplength, c->mapstart) + - MAP_BASE_ADDR (l)); + + /* Remember which part of the address space this object uses. */ + l->l_map_start = (ElfW(Addr)) mmap ((void *) mappref, maplength, + c->prot, MAP_COPY | MAP_FILE, + fd, c->mapoff); + /* wld_printf("set : offset = %x\n", c->mapoff); */ + /* wld_printf("l->l_map_start = %x\n", l->l_map_start); */ + + l->l_map_end = l->l_map_start + maplength; + l->l_addr = l->l_map_start - c->mapstart; + + mprotect ((caddr_t) (l->l_addr + c->mapend), + loadcmds[nloadcmds - 1].allocend - c->mapend, + PROT_NONE); + goto postmap; + } + else + { + char *preloader_start = (char *)_start - ((unsigned int)_start & page_mask); + char *preloader_end = (char *)((unsigned int)(_end + page_mask) & ~page_mask); + + /* sanity check */ + if ((char *)c->mapstart + maplength > preloader_start && + (char *)c->mapstart <= preloader_end) + fatal_error( "%s: binary overlaps preloader (%x-%x)\n", + name, c->mapstart, (char *)c->mapstart + maplength ); + + ELF_FIXED_ADDRESS (loader, c->mapstart); + } + + /* Remember which part of the address space this object uses. */ + l->l_map_start = c->mapstart + l->l_addr; + l->l_map_end = l->l_map_start + maplength; + + while (c < &loadcmds[nloadcmds]) + { + if (c->mapend > c->mapstart) + /* Map the segment contents from the file. */ + mmap ((void *) (l->l_addr + c->mapstart), + c->mapend - c->mapstart, c->prot, + MAP_FIXED | MAP_COPY | MAP_FILE, fd, c->mapoff); + + postmap: + if (l->l_phdr == 0 + && (ElfW(Off)) c->mapoff <= header->e_phoff + && ((size_t) (c->mapend - c->mapstart + c->mapoff) + >= header->e_phoff + header->e_phnum * sizeof (ElfW(Phdr)))) + /* Found the program header in this segment. */ + l->l_phdr = (void *)(unsigned int) (c->mapstart + header->e_phoff - c->mapoff); + + if (c->allocend > c->dataend) + { + /* Extra zero pages should appear at the end of this segment, + after the data mapped from the file. */ + ElfW(Addr) zero, zeroend, zeropage; + + zero = l->l_addr + c->dataend; + zeroend = l->l_addr + c->allocend; + zeropage = (zero + page_mask) & ~page_mask; + + /* + * This is different from the dl-load load... + * ld-linux.so.2 relies on the whole page being zero'ed + */ + zeroend = (zeroend + page_mask) & ~page_mask; + + if (zeroend < zeropage) + { + /* All the extra data is in the last page of the segment. + We can just zero it. */ + zeropage = zeroend; + } + + if (zeropage > zero) + { + /* Zero the final part of the last page of the segment. */ + if ((c->prot & PROT_WRITE) == 0) + { + /* Dag nab it. */ + mprotect ((caddr_t) (zero & ~page_mask), page_size, c->prot|PROT_WRITE); + } + memset ((void *) zero, '\0', zeropage - zero); + if ((c->prot & PROT_WRITE) == 0) + mprotect ((caddr_t) (zero & ~page_mask), page_size, c->prot); + } + + if (zeroend > zeropage) + { + /* Map the remaining zero pages in from the zero fill FD. */ + caddr_t mapat; + mapat = mmap ((caddr_t) zeropage, zeroend - zeropage, + c->prot, MAP_ANON|MAP_PRIVATE|MAP_FIXED, + -1, 0); + } + } + + ++c; + } + + if (l->l_phdr == NULL) fatal_error("no program header\n"); + + l->l_phdr = (void *)((ElfW(Addr))l->l_phdr + l->l_addr); + l->l_entry += l->l_addr; + + close( fd ); +} + + +/* + * Find a symbol in the symbol table of the executable loaded + */ +static void *find_symbol( const ElfW(Phdr) *phdr, int num, char *var ) +{ + const ElfW(Dyn) *dyn = NULL; + const ElfW(Phdr) *ph; + const ElfW(Sym) *symtab = NULL; + const char *strings = NULL; + Elf_Symndx i, symtabend = 0; + + /* check the values */ +#ifdef DUMP_SYMS + wld_printf("%x %x\n", phdr, num ); +#endif + if( ( phdr == NULL ) || ( num == 0 ) ) + { + wld_printf("could not find PT_DYNAMIC header entry\n"); + return NULL; + } + + /* parse the (already loaded) ELF executable's header */ + for (ph = phdr; ph < &phdr[num]; ++ph) + { + if( PT_DYNAMIC == ph->p_type ) + { + dyn = (void *) ph->p_vaddr; + num = ph->p_memsz / sizeof (Elf32_Dyn); + break; + } + } + if( !dyn ) return NULL; + + while( dyn->d_tag ) + { + if( dyn->d_tag == DT_STRTAB ) + strings = (const char*) dyn->d_un.d_ptr; + if( dyn->d_tag == DT_SYMTAB ) + symtab = (const ElfW(Sym) *)dyn->d_un.d_ptr; + if( dyn->d_tag == DT_HASH ) + symtabend = *((const Elf_Symndx *)dyn->d_un.d_ptr + 1); +#ifdef DUMP_SYMS + wld_printf("%x %x\n", dyn->d_tag, dyn->d_un.d_ptr ); +#endif + dyn++; + } + + if( (!symtab) || (!strings) ) return NULL; + + for (i = 0; i < symtabend; i++) + { + if( ( ELF32_ST_BIND(symtab[i].st_info) == STT_OBJECT ) && + ( 0 == strcmp( strings+symtab[i].st_name, var ) ) ) + { +#ifdef DUMP_SYMS + wld_printf("Found %s -> %x\n", strings+symtab[i].st_name, symtab[i].st_value ); +#endif + return (void*)symtab[i].st_value; + } + } + return NULL; +} + +/* + * wld_start + * + * Repeat the actions the kernel would do when loading a dynamically linked .so + * Load the binary and then its ELF interpreter. + * Note, we assume that the binary is a dynamically linked ELF shared object. + */ +void* wld_start( int argc, ... ) +{ + int i; + char **argv, **p; + char *interp; + ElfW(auxv_t)* av; + struct wld_link_map main_binary_map, ld_so_map; + struct wine_preload_info **wine_main_preload_info; + + argv = (char **)&argc + 1; + + /* skip over the parameters */ + p = argv + argc + 1; + + /* skip over the environment */ + while (*p) p++; + + av = (ElfW(auxv_t)*) (p+1); + if (!get_auxiliary( av, AT_PAGESZ, &page_size )) page_size = 4096; + page_mask = page_size - 1; + +#ifdef DUMP_AUX_INFO + for( i = 0; i