thread_pthread.c

   1 #include "quakedef.h"
   2 #include "thread.h"
   3 #ifdef THREADRECURSIVE
   4 #define __USE_UNIX98
   5 #include <pthread.h>
   6 #endif
   7 #include <stdint.h>
   8
   9
  10 int Thread_Init(void)
  11 {
  12         return 0;
  13 }
  14
  15 void Thread_Shutdown(void)
  16 {
  17 }
  18
  19 qboolean Thread_HasThreads(void)
  20 {
  21         return true;
  22 }
  23
  24 void *_Thread_CreateMutex(const char *filename, int fileline)
  25 {
  26 #ifdef THREADRECURSIVE
  27         pthread_mutexattr_t    attr;
  28 #endif
  29         pthread_mutex_t *mutexp = (pthread_mutex_t *) Z_Malloc(sizeof(pthread_mutex_t));
  30 #ifdef THREADDEBUG
  31         Sys_PrintfToTerminal("%p mutex create %s:%i\n" , mutexp, filename, fileline);
  32 #endif
  33 #ifdef THREADRECURSIVE
  34         pthread_mutexattr_init(&attr);
  35         pthread_mutexattr_settype(&attr, PTHREAD_MUTEX_RECURSIVE);
  36         pthread_mutex_init(mutexp, &attr);
  37         pthread_mutexattr_destroy(&attr);
  38 #else
  39         pthread_mutex_init(mutexp, NULL);
  40 #endif
  41         return mutexp;
  42 }
  43
  44 void _Thread_DestroyMutex(void *mutex, const char *filename, int fileline)
  45 {
  46         pthread_mutex_t *mutexp = (pthread_mutex_t *) mutex;
  47 #ifdef THREADDEBUG
  48         Sys_PrintfToTerminal("%p mutex destroy %s:%i\n", mutex, filename, fileline);
  49 #endif
  50         pthread_mutex_destroy(mutexp);
  51         Z_Free(mutexp);
  52 }
  53
  54 int _Thread_LockMutex(void *mutex, const char *filename, int fileline)
  55 {
  56         pthread_mutex_t *mutexp = (pthread_mutex_t *) mutex;
  57 #ifdef THREADDEBUG
  58         Sys_PrintfToTerminal("%p mutex lock %s:%i\n"   , mutex, filename, fileline);
  59 #endif
  60         return pthread_mutex_lock(mutexp);
  61 }
  62
  63 int _Thread_UnlockMutex(void *mutex, const char *filename, int fileline)
  64 {
  65         pthread_mutex_t *mutexp = (pthread_mutex_t *) mutex;
  66 #ifdef THREADDEBUG
  67         Sys_PrintfToTerminal("%p mutex unlock %s:%i\n" , mutex, filename, fileline);
  68 #endif
  69         return pthread_mutex_unlock(mutexp);
  70 }
  71
  72 void *_Thread_CreateCond(const char *filename, int fileline)
  73 {
  74         pthread_cond_t *condp = (pthread_cond_t *) Z_Malloc(sizeof(pthread_cond_t));
  75         pthread_cond_init(condp, NULL);
  76 #ifdef THREADDEBUG
  77         Sys_PrintfToTerminal("%p cond create %s:%i\n"   , condp, filename, fileline);
  78 #endif
  79         return condp;
  80 }
  81
  82 void _Thread_DestroyCond(void *cond, const char *filename, int fileline)
  83 {
  84         pthread_cond_t *condp = (pthread_cond_t *) cond;
  85 #ifdef THREADDEBUG
  86         Sys_PrintfToTerminal("%p cond destroy %s:%i\n"   , cond, filename, fileline);
  87 #endif
  88         pthread_cond_destroy(condp);
  89         Z_Free(condp);
  90 }
  91
  92 int _Thread_CondSignal(void *cond, const char *filename, int fileline)
  93 {
  94         pthread_cond_t *condp = (pthread_cond_t *) cond;
  95 #ifdef THREADDEBUG
  96         Sys_PrintfToTerminal("%p cond signal %s:%i\n"   , cond, filename, fileline);
  97 #endif
  98         return pthread_cond_signal(condp);
  99 }
 100
 101 int _Thread_CondBroadcast(void *cond, const char *filename, int fileline)
 102 {
 103         pthread_cond_t *condp = (pthread_cond_t *) cond;
 104 #ifdef THREADDEBUG
 105         Sys_PrintfToTerminal("%p cond broadcast %s:%i\n"   , cond, filename, fileline);
 106 #endif
 107         return pthread_cond_broadcast(condp);
 108 }
 109
 110 int _Thread_CondWait(void *cond, void *mutex, const char *filename, int fileline)
 111 {
 112         pthread_cond_t *condp = (pthread_cond_t *) cond;
 113         pthread_mutex_t *mutexp = (pthread_mutex_t *) mutex;
 114 #ifdef THREADDEBUG
 115         Sys_PrintfToTerminal("%p cond wait %s:%i\n"   , cond, filename, fileline);
 116 #endif
 117         return pthread_cond_wait(condp, mutexp);
 118 }
 119
 120 void *_Thread_CreateThread(int (*fn)(void *), void *data, const char *filename, int fileline)
 121 {
 122         pthread_t *threadp = (pthread_t *) Z_Malloc(sizeof(pthread_t));
 123 #ifdef THREADDEBUG
 124         Sys_PrintfToTerminal("%p thread create %s:%i\n"   , threadp, filename, fileline);
 125 #endif
 126         int r = pthread_create(threadp, NULL, (void * (*) (void *)) fn, data);
 127         if(r)
 128         {
 129                 Z_Free(threadp);
 130                 return NULL;
 131         }
 132         return threadp;
 133 }
 134
 135 int _Thread_WaitThread(void *thread, int retval, const char *filename, int fileline)
 136 {
 137         pthread_t *threadp = (pthread_t *) thread;
 138         void *status = (void *) (intptr_t) retval;
 139 #ifdef THREADDEBUG
 140         Sys_PrintfToTerminal("%p thread wait %s:%i\n"   , thread, filename, fileline);
 141 #endif
 142         pthread_join(*threadp, &status);
 143         Z_Free(threadp);
 144         return (int) (intptr_t) status;
 145 }
 146
 147 #ifdef PTHREAD_BARRIER_SERIAL_THREAD
 148 void *_Thread_CreateBarrier(unsigned int count, const char *filename, int fileline)
 149 {
 150         pthread_barrier_t *b = (pthread_barrier_t *) Z_Malloc(sizeof(pthread_barrier_t));
 151 #ifdef THREADDEBUG
 152         Sys_PrintfToTerminal("%p barrier create(%d) %s:%i\n", b, count, filename, fileline);
 153 #endif
 154         pthread_barrier_init(b, NULL, count);
 155         return (void *) b;
 156 }
 157
 158 void _Thread_DestroyBarrier(void *barrier, const char *filename, int fileline)
 159 {
 160         pthread_barrier_t *b = (pthread_barrier_t *) barrier;
 161 #ifdef THREADDEBUG
 162         Sys_PrintfToTerminal("%p barrier destroy %s:%i\n", b, filename, fileline);
 163 #endif
 164         pthread_barrier_destroy(b);
 165 }
 166
 167 void _Thread_WaitBarrier(void *barrier, const char *filename, int fileline)
 168 {
 169         pthread_barrier_t *b = (pthread_barrier_t *) barrier;
 170 #ifdef THREADDEBUG
 171         Sys_PrintfToTerminal("%p barrier wait %s:%i\n", b, filename, fileline);
 172 #endif
 173         pthread_barrier_wait(b);
 174 }
 175 #else
 176 // standard barrier implementation using conds and mutexes
 177 // see: http://www.howforge.com/implementing-barrier-in-pthreads
 178 typedef struct {
 179         unsigned int needed;
 180         unsigned int called;
 181         void *mutex;
 182         void *cond;
 183 } barrier_t;
 184
 185 void *_Thread_CreateBarrier(unsigned int count, const char *filename, int fileline)
 186 {
 187         volatile barrier_t *b = (volatile barrier_t *) Z_Malloc(sizeof(barrier_t));
 188 #ifdef THREADDEBUG
 189         Sys_PrintfToTerminal("%p barrier create(%d) %s:%i\n", b, count, filename, fileline);
 190 #endif
 191         b->needed = count;
 192         b->called = 0;
 193         b->mutex = Thread_CreateMutex();
 194         b->cond = Thread_CreateCond();
 195         return (void *) b;
 196 }
 197
 198 void _Thread_DestroyBarrier(void *barrier, const char *filename, int fileline)
 199 {
 200         volatile barrier_t *b = (volatile barrier_t *) barrier;
 201 #ifdef THREADDEBUG
 202         Sys_PrintfToTerminal("%p barrier destroy %s:%i\n", b, filename, fileline);
 203 #endif
 204         Thread_DestroyMutex(b->mutex);
 205         Thread_DestroyCond(b->cond);
 206 }
 207
 208 void _Thread_WaitBarrier(void *barrier, const char *filename, int fileline)
 209 {
 210         volatile barrier_t *b = (volatile barrier_t *) barrier;
 211 #ifdef THREADDEBUG
 212         Sys_PrintfToTerminal("%p barrier wait %s:%i\n", b, filename, fileline);
 213 #endif
 214         Thread_LockMutex(b->mutex);
 215         b->called++;
 216         if (b->called == b->needed) {
 217                 b->called = 0;
 218                 Thread_CondBroadcast(b->cond);
 219         } else {
 220                 do {
 221                         Thread_CondWait(b->cond, b->mutex);
 222                 } while(b->called);
 223         }
 224         Thread_UnlockMutex(b->mutex);
 225 }
 226 #endif