Mercurial > projects > ldc
view runtime/internal/monitor.c @ 715:30b42a283c8e
Removed TypeOpaque from DMD.
Changed runtime functions taking opaque[] to void[].
Implemented proper type painting, to avoid "resizing" array casts in runtime calls that previously took opaque[].
Implemented dynamic arrays as first class types, this implements proper ABI for these types on x86.
Added dwarf region end after call to assert function, fixes some problems with llvm not allowing this to be missing.
Reverted change to WithStatement from rev [704] it breaks MiniD, mini/with2.d needs to be fixed some other way...
Fixed tango bug 1339 in runtime, problem with _adReverseChar on invalid UTF-8.
Disabled .bc generation in the compiler runtime part, genobj.d triggers some llvm bug when using debug info. the .o seems to work fine.
author | Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> |
---|---|
date | Wed, 22 Oct 2008 14:55:33 +0200 |
parents | 394e72cbbb46 |
children | aa953cc960b6 |
line wrap: on
line source
// D programming language runtime library // Public Domain // written by Walter Bright, Digital Mars // www.digitalmars.com // This is written in C because nobody has written a pthreads interface // to D yet. #include <stdio.h> #include <stdlib.h> #include <assert.h> #if _WIN32 #elif linux || __APPLE__ #define USE_PTHREADS 1 #else #endif #if _WIN32 #include <windows.h> #endif #if USE_PTHREADS #include <pthread.h> #endif #include "mars.h" // This is what the monitor reference in Object points to typedef struct Monitor { void* impl; // for user-level monitors Array devt; // for internal monitors #if _WIN32 CRITICAL_SECTION mon; #endif #if USE_PTHREADS pthread_mutex_t mon; #endif } Monitor; #define MONPTR(h) (&((Monitor *)(h)->monitor)->mon) static volatile int inited; /* =============================== Win32 ============================ */ #if _WIN32 static CRITICAL_SECTION _monitor_critsec; void _STI_monitor_staticctor() { if (!inited) { InitializeCriticalSection(&_monitor_critsec); inited = 1; } } void _STD_monitor_staticdtor() { if (inited) { inited = 0; DeleteCriticalSection(&_monitor_critsec); } } void _d_monitor_create(Object *h) { /* * NOTE: Assume this is only called when h->monitor is null prior to the * call. However, please note that another thread may call this function * at the same time, so we can not assert this here. Instead, try and * create a lock, and if one already exists then forget about it. */ //printf("+_d_monitor_create(%p)\n", h); assert(h); Monitor *cs = NULL; EnterCriticalSection(&_monitor_critsec); if (!h->monitor) { cs = (Monitor *)calloc(sizeof(Monitor), 1); assert(cs); InitializeCriticalSection(&cs->mon); h->monitor = (void *)cs; cs = NULL; } LeaveCriticalSection(&_monitor_critsec); if (cs) free(cs); //printf("-_d_monitor_create(%p)\n", h); } void _d_monitor_destroy(Object *h) { //printf("+_d_monitor_destroy(%p)\n", h); assert(h && h->monitor && !(((Monitor*)h->monitor)->impl)); DeleteCriticalSection(MONPTR(h)); free((void *)h->monitor); h->monitor = NULL; //printf("-_d_monitor_destroy(%p)\n", h); } int _d_monitor_lock(Object *h) { //printf("+_d_monitor_acquire(%p)\n", h); assert(h && h->monitor && !(((Monitor*)h->monitor)->impl)); EnterCriticalSection(MONPTR(h)); //printf("-_d_monitor_acquire(%p)\n", h); } void _d_monitor_unlock(Object *h) { //printf("+_d_monitor_release(%p)\n", h); assert(h && h->monitor && !(((Monitor*)h->monitor)->impl)); LeaveCriticalSection(MONPTR(h)); //printf("-_d_monitor_release(%p)\n", h); } #endif /* =============================== linux ============================ */ #if USE_PTHREADS #if !linux #define PTHREAD_MUTEX_RECURSIVE_NP PTHREAD_MUTEX_RECURSIVE #endif // Includes attribute fixes from David Friedman's GDC port static pthread_mutex_t _monitor_critsec; static pthread_mutexattr_t _monitors_attr; void _STI_monitor_staticctor() { if (!inited) { pthread_mutexattr_init(&_monitors_attr); pthread_mutexattr_settype(&_monitors_attr, PTHREAD_MUTEX_RECURSIVE_NP); pthread_mutex_init(&_monitor_critsec, 0); inited = 1; } } void _STD_monitor_staticdtor() { if (inited) { inited = 0; pthread_mutex_destroy(&_monitor_critsec); pthread_mutexattr_destroy(&_monitors_attr); } } void _d_monitor_create(Object *h) { /* * NOTE: Assume this is only called when h->monitor is null prior to the * call. However, please note that another thread may call this function * at the same time, so we can not assert this here. Instead, try and * create a lock, and if one already exists then forget about it. */ //printf("+_d_monitor_create(%p)\n", h); assert(h); Monitor *cs = NULL; pthread_mutex_lock(&_monitor_critsec); if (!h->monitor) { cs = (Monitor *)calloc(sizeof(Monitor), 1); assert(cs); pthread_mutex_init(&cs->mon, & _monitors_attr); h->monitor = (void *)cs; cs = NULL; } pthread_mutex_unlock(&_monitor_critsec); if (cs) free(cs); //printf("-_d_monitor_create(%p)\n", h); } void _d_monitor_destroy(Object *h) { //printf("+_d_monitor_destroy(%p)\n", h); assert(h && h->monitor && !(((Monitor*)h->monitor)->impl)); pthread_mutex_destroy(MONPTR(h)); free((void *)h->monitor); h->monitor = NULL; //printf("-_d_monitor_destroy(%p)\n", h); } int _d_monitor_lock(Object *h) { //printf("+_d_monitor_acquire(%p)\n", h); assert(h && h->monitor && !(((Monitor*)h->monitor)->impl)); pthread_mutex_lock(MONPTR(h)); //printf("-_d_monitor_acquire(%p)\n", h); } void _d_monitor_unlock(Object *h) { //printf("+_d_monitor_release(%p)\n", h); assert(h && h->monitor && !(((Monitor*)h->monitor)->impl)); pthread_mutex_unlock(MONPTR(h)); //printf("-_d_monitor_release(%p)\n", h); } #endif