loader/pthread.c

   1 /*
   2  * Wine threading routines using the pthread library
   3  *
   4  * Copyright 2003 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include "config.h"
  22 #include "wine/port.h"
  23
  24 #ifdef HAVE_PTHREAD_H
  25
  26 #include <assert.h>
  27 #include <stdlib.h>
  28 #include <signal.h>
  29 #ifdef HAVE_UNISTD_H
  30 # include <unistd.h>
  31 #endif
  32 #include <string.h>
  33 #include <sys/types.h>
  34 #ifdef HAVE_SYS_MMAN_H
  35 #include <sys/mman.h>
  36 #endif
  37
  38 #include "wine/library.h"
  39 #include "wine/pthread.h"
  40
  41 static int init_done;
  42
  43 #ifndef __i386__
  44 static pthread_key_t teb_key;
  45 #endif
  46
  47 /***********************************************************************
  48  *           init_process
  49  *
  50  * Initialization for a newly created process.
  51  */
  52 static void init_process( const struct wine_pthread_callbacks *callbacks, size_t size )
  53 {
  54     init_done = 1;
  55 }
  56
  57
  58 /***********************************************************************
  59  *           init_thread
  60  *
  61  * Initialization for a newly created thread.
  62  */
  63 static void init_thread( struct wine_pthread_thread_info *info )
  64 {
  65     /* retrieve the stack info (except for main thread) */
  66     if (init_done)
  67     {
  68 #ifdef HAVE_PTHREAD_GETATTR_NP
  69         pthread_attr_t attr;
  70         pthread_getattr_np( pthread_self(), &attr );
  71         pthread_attr_getstack( &attr, &info->stack_base, &info->stack_size );
  72         pthread_attr_destroy( &attr );
  73 #elif defined(HAVE_PTHREAD_GET_STACKSIZE_NP) && defined(HAVE_PTHREAD_GET_STACKADDR_NP)
  74         char dummy;
  75         info->stack_size = pthread_get_stacksize_np(pthread_self());
  76         info->stack_base = pthread_get_stackaddr_np(pthread_self());
  77         /* if base is too large assume it's the top of the stack instead */
  78         if ((char *)info->stack_base > &dummy)
  79             info->stack_base = (char *)info->stack_base - info->stack_size;
  80 #else
  81         /* assume that the stack allocation is page aligned */
  82         char dummy;
  83         size_t page_size = getpagesize();
  84         char *stack_top = (char *)((unsigned long)&dummy & ~(page_size - 1)) + page_size;
  85         info->stack_base = stack_top - info->stack_size;
  86 #endif
  87     }
  88 }
  89
  90
  91 /***********************************************************************
  92  *           create_thread
  93  */
  94 static int create_thread( struct wine_pthread_thread_info *info )
  95 {
  96     pthread_t id;
  97     pthread_attr_t attr;
  98     int ret = 0;
  99
 100     pthread_attr_init( &attr );
 101     pthread_attr_setstacksize( &attr, info->stack_size );
 102     pthread_attr_setdetachstate( &attr, PTHREAD_CREATE_DETACHED );
 103     if (pthread_create( &id, &attr, (void * (*)(void *))info->entry, info )) ret = -1;
 104     pthread_attr_destroy( &attr );
 105     return ret;
 106 }
 107
 108
 109 /***********************************************************************
 110  *           init_current_teb
 111  *
 112  * Set the current TEB for a new thread.
 113  */
 114 static void init_current_teb( struct wine_pthread_thread_info *info )
 115 {
 116 #ifdef __i386__
 117     /* On the i386, the current thread is in the %fs register */
 118     LDT_ENTRY fs_entry;
 119
 120     wine_ldt_set_base( &fs_entry, info->teb_base );
 121     wine_ldt_set_limit( &fs_entry, info->teb_size - 1 );
 122     wine_ldt_set_flags( &fs_entry, WINE_LDT_FLAGS_DATA|WINE_LDT_FLAGS_32BIT );
 123     wine_ldt_init_fs( info->teb_sel, &fs_entry );
 124 #else
 125     if (!init_done)  /* first thread */
 126         pthread_key_create( &teb_key, NULL );
 127     pthread_setspecific( teb_key, info->teb_base );
 128 #endif
 129
 130     /* set pid and tid */
 131     info->pid = getpid();
 132     info->tid = gettid();
 133 }
 134
 135
 136 /***********************************************************************
 137  *           get_current_teb
 138  */
 139 static void *get_current_teb(void)
 140 {
 141 #ifdef __i386__
 142     void *ret;
 143     __asm__( ".byte 0x64\n\tmovl 0x18,%0" : "=r" (ret) );
 144     return ret;
 145 #else
 146     return pthread_getspecific( teb_key );
 147 #endif
 148 }
 149
 150
 151 /***********************************************************************
 152  *           exit_thread
 153  */
 154 static void DECLSPEC_NORETURN exit_thread( struct wine_pthread_thread_info *info )
 155 {
 156     wine_ldt_free_fs( info->teb_sel );
 157     munmap( info->teb_base, info->teb_size );
 158     pthread_exit( (void *)info->exit_status );
 159 }
 160
 161
 162 /***********************************************************************
 163  *           abort_thread
 164  */
 165 static void DECLSPEC_NORETURN abort_thread( long status )
 166 {
 167     pthread_exit( (void *)status );
 168 }
 169
 170
 171 /***********************************************************************
 172  *           pthread_functions
 173  */
 174 const struct wine_pthread_functions pthread_functions =
 175 {
 176     init_process,
 177     init_thread,
 178     create_thread,
 179     init_current_teb,
 180     get_current_teb,
 181     exit_thread,
 182     abort_thread
 183 };
 184
 185 #endif  /* HAVE_PTHREAD_H */