loader/main.c

   1 /*
   2  * Emulator initialisation code
   3  *
   4  * Copyright 2000 Alexandre Julliard
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "config.h"
  22 #include "wine/port.h"
  23
  24 #include <errno.h>
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #ifdef HAVE_SYS_RESOURCE_H
  28 # include <sys/resource.h>
  29 #endif
  30 #ifdef HAVE_SYS_SYSCALL_H
  31 # include <sys/syscall.h>
  32 #endif
  33 #ifdef HAVE_UNISTD_H
  34 # include <unistd.h>
  35 #endif
  36 #include <pthread.h>
  37
  38 #include "wine/library.h"
  39 #include "main.h"
  40
  41 #ifdef __APPLE__
  42
  43 __asm__(".zerofill WINE_DOS, WINE_DOS, ___wine_dos, 0x40000000");
  44 __asm__(".zerofill WINE_SHAREDHEAP, WINE_SHAREDHEAP, ___wine_shared_heap, 0x03000000");
  45 extern char __wine_dos[0x40000000], __wine_shared_heap[0x03000000];
  46
  47 static const struct wine_preload_info wine_main_preload_info[] =
  48 {
  49     { __wine_dos,         sizeof(__wine_dos) },          /* DOS area + PE exe */
  50     { __wine_shared_heap, sizeof(__wine_shared_heap) },  /* shared user data + shared heap */
  51     { 0, 0 }  /* end of list */
  52 };
  53
  54 static inline void reserve_area( void *addr, size_t size )
  55 {
  56     wine_anon_mmap( addr, size, PROT_NONE, MAP_FIXED | MAP_NORESERVE );
  57     wine_mmap_add_reserved_area( addr, size );
  58 }
  59
  60 #else  /* __APPLE__ */
  61
  62 /* the preloader will set this variable */
  63 const struct wine_preload_info *wine_main_preload_info = NULL;
  64
  65 static inline void reserve_area( void *addr, size_t size )
  66 {
  67     wine_mmap_add_reserved_area( addr, size );
  68 }
  69
  70 #endif  /* __APPLE__ */
  71
  72 /***********************************************************************
  73  *           check_command_line
  74  *
  75  * Check if command line is one that needs to be handled specially.
  76  */
  77 static void check_command_line( int argc, char *argv[] )
  78 {
  79     static const char usage[] =
  80         "Usage: wine PROGRAM [ARGUMENTS...]   Run the specified program\n"
  81         "       wine --help                   Display this help and exit\n"
  82         "       wine --version                Output version information and exit";
  83
  84     if (argc <= 1)
  85     {
  86         fprintf( stderr, "%s\n", usage );
  87         exit(1);
  88     }
  89     if (!strcmp( argv[1], "--help" ))
  90     {
  91         printf( "%s\n", usage );
  92         exit(0);
  93     }
  94     if (!strcmp( argv[1], "--version" ))
  95     {
  96         printf( "%s\n", wine_get_build_id() );
  97         exit(0);
  98     }
  99 }
 100
 101
 102 #if defined(__linux__) && defined(__i386__)
 103
 104 /* separate thread to check for NPTL and TLS features */
 105 static void *needs_pthread( void *arg )
 106 {
 107     pid_t tid = syscall( SYS_gettid );
 108     /* check for NPTL */
 109     if (tid != -1 && tid != getpid()) return (void *)1;
 110     /* check for TLS glibc */
 111     if (wine_get_gs() != 0) return (void *)1;
 112     /* check for exported epoll_create to detect new glibc versions without TLS */
 113     if (wine_dlsym( RTLD_DEFAULT, "epoll_create", NULL, 0 ))
 114         fprintf( stderr,
 115                  "wine: glibc >= 2.3 without NPTL or TLS is not a supported combination.\n"
 116                  "      Please upgrade to a glibc with NPTL support.\n" );
 117     else
 118         fprintf( stderr,
 119                  "wine: Your C library is too old. You need at least glibc 2.3 with NPTL support.\n" );
 120     return 0;
 121 }
 122
 123 /* check if we support the glibc threading model */
 124 static void check_threading(void)
 125 {
 126     pthread_t id;
 127     void *ret;
 128
 129     pthread_create( &id, NULL, needs_pthread, NULL );
 130     pthread_join( id, &ret );
 131     if (!ret) exit(1);
 132 }
 133
 134 static void check_vmsplit( void *stack )
 135 {
 136     if (stack < (void *)0x80000000)
 137     {
 138         /* if the stack is below 0x80000000, assume we can safely try a munmap there */
 139         if (wine_munmap( (void *)0x80000000, 1 ) == -1 && errno == EINVAL)
 140             fprintf( stderr,
 141                      "Warning: memory above 0x80000000 doesn't seem to be accessible.\n"
 142                      "Wine requires a 3G/1G user/kernel memory split to work properly.\n" );
 143     }
 144 }
 145
 146 static void set_max_limit( int limit )
 147 {
 148     struct rlimit rlimit;
 149
 150     if (!getrlimit( limit, &rlimit ))
 151     {
 152         rlimit.rlim_cur = rlimit.rlim_max;
 153         setrlimit( limit, &rlimit );
 154     }
 155 }
 156
 157 static int pre_exec(void)
 158 {
 159     int temp;
 160
 161     check_threading();
 162     check_vmsplit( &temp );
 163     set_max_limit( RLIMIT_AS );
 164     return 1;
 165 }
 166
 167 #elif defined(__linux__) && defined(__x86_64__)
 168
 169 static int pre_exec(void)
 170 {
 171     return 1;  /* we have a preloader on x86-64 */
 172 }
 173
 174 #elif (defined(__FreeBSD__) || defined (__FreeBSD_kernel__) || defined(__DragonFly__)) && defined(__i386__)
 175
 176 static int pre_exec(void)
 177 {
 178     struct rlimit rl;
 179
 180     rl.rlim_cur = 0x02000000;
 181     rl.rlim_max = 0x02000000;
 182     setrlimit( RLIMIT_DATA, &rl );
 183     return 1;
 184 }
 185
 186 #else
 187
 188 static int pre_exec(void)
 189 {
 190     return 0;  /* no exec needed */
 191 }
 192
 193 #endif
 194
 195
 196 /***********************************************************************
 197  * overrides for mmap, mmap64, munmap
 198  */
 199 /* Because off_t can change size depending on _FILE_OFFSET_BITS=64 being set,
 200  * we can't rely on it here. In most cases, the default off_t type follows the
 201  * same pattern as long (4 bytes on 32-bit, 8 on 64).
 202  * On FreeBSD, however, off_t is always a 64-bit type.
 203  */
 204 #if defined(__FreeBSD__)
 205 typedef off_t offset_t;
 206 #else
 207 typedef long offset_t;
 208 #endif
 209
 210 void *mmap( void *addr, size_t size, int prot, int flags, int fd, offset_t offset )
 211 {
 212     return wine_hook_mmap( addr, size, prot, flags, fd, offset );
 213 }
 214
 215 void *mmap64( void *addr, size_t size, int prot, int flags, int fd, off64_t offset )
 216 {
 217     return wine_hook_mmap( addr, size, prot, flags, fd, offset );
 218 }
 219
 220 int munmap( void *addr, size_t size )
 221 {
 222     return wine_hook_munmap( addr, size );
 223 }
 224
 225 #ifdef __linux__
 226 /* Linux also has a mremap function, which allows changing the size and address
 227  * of a particular mapping */
 228 void *mremap( void *addr, size_t old_len, size_t new_len, int flags, ... )
 229 {
 230     if((flags & 2)) /* MREMAP_FIXED */
 231     {
 232         void *extra;
 233         va_list args;
 234
 235         va_start(args, flags);
 236         extra = va_arg(args, void*);
 237         va_end(args);
 238
 239         return wine_hook_mremap(addr, old_len, new_len, flags, extra);
 240     }
 241     return wine_hook_mremap(addr, old_len, new_len, flags);
 242 }
 243 #endif
 244
 245 /**********************************************************************
 246  *           init_mmap_functions
 247  */
 248 static void init_mmap_functions(void)
 249 {
 250     if (sizeof(offset_t) == sizeof(LONGLONG))
 251         wine_hook_mmap = wine_mmap = wine_dlsym( RTLD_NEXT, "mmap", NULL, 0 );
 252     else
 253         wine_hook_mmap = wine_mmap = wine_dlsym( RTLD_NEXT, "mmap64", NULL, 0 );
 254     wine_hook_munmap = wine_munmap = wine_dlsym( RTLD_NEXT, "munmap", NULL, 0 );
 255
 256     if (wine_mmap == NULL)
 257     {
 258         fprintf( stderr, "Could not find mmap function\n" );
 259         exit(1);
 260     }
 261     if (wine_munmap == NULL)
 262     {
 263         fprintf( stderr, "Could not find munmap function\n" );
 264         exit(1);
 265     }
 266
 267 #ifdef __linux__
 268     wine_hook_mremap = wine_mremap = wine_dlsym( RTLD_NEXT, "mremap", NULL, 0 );
 269     if (wine_mremap == NULL)
 270     {
 271         fprintf( stderr, "Could not find mremap function\n" );
 272         exit(1);
 273     }
 274 #endif
 275 }
 276
 277
 278 /**********************************************************************
 279  *           main
 280  */
 281 int main( int argc, char *argv[] )
 282 {
 283     char error[1024];
 284     int i;
 285
 286     init_mmap_functions();
 287
 288     if (!getenv( "WINELOADERNOEXEC" ))  /* first time around */
 289     {
 290         static char noexec[] = "WINELOADERNOEXEC=1";
 291
 292         putenv( noexec );
 293         check_command_line( argc, argv );
 294         if (pre_exec())
 295         {
 296             wine_init_argv0_path( argv[0] );
 297             wine_exec_wine_binary( NULL, argv, getenv( "WINELOADER" ));
 298             fprintf( stderr, "wine: could not exec the wine loader\n" );
 299             exit(1);
 300         }
 301     }
 302
 303 #ifndef __APPLE__
 304     if (wine_main_preload_info)
 305 #endif
 306     {
 307         for (i = 0; wine_main_preload_info[i].size; i++)
 308             reserve_area( wine_main_preload_info[i].addr, wine_main_preload_info[i].size );
 309     }
 310
 311     wine_init( argc, argv, error, sizeof(error) );
 312     fprintf( stderr, "wine: failed to initialize: %s\n", error );
 313     exit(1);
 314 }