NaCl runtime fixes
[mono.git] / mono / io-layer / shared.c
index a5ba9316c3291a8d756a097af31bd1a4197588b7..ed9bb1fb21178c6d5ec1f8a653ac85c56729e8d0 100644 (file)
 #include <glib.h>
 #include <stdio.h>
 #include <fcntl.h>
-#include <unistd.h>
-#include <sys/mman.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <errno.h>
 #include <string.h>
-#include <sys/ipc.h>
-#include <sys/sem.h>
-#include <sys/utsname.h>
+#include <unistd.h>
+
+#if defined(HAVE_SYS_SEM_H) && !(defined(__native_client__) && defined(__GLIBC__))
+#  include <sys/sem.h>
+#else
+#  define DISABLE_SHARED_HANDLES
+#endif
+
+#ifndef DISABLE_SHARED_HANDLES
+#  include <sys/mman.h>
+#  include <sys/ipc.h>
+#  ifdef HAVE_SYS_UTSNAME_H
+#    include <sys/utsname.h>
+#  endif
+#endif
 
 #include <mono/io-layer/wapi.h>
 #include <mono/io-layer/wapi-private.h>
 #include <mono/io-layer/shared.h>
 #include <mono/io-layer/handles-private.h>
 
-#undef DEBUG
+#define DEBUGLOG(...)
+//#define DEBUGLOG(...) g_message(__VA_ARGS__);
+
+// Semaphores used when no-shared-memory use is in use
+
+static mono_mutex_t noshm_sems[_WAPI_SHARED_SEM_COUNT];
 
-static gchar *_wapi_shm_file (_wapi_shm_t type)
+gboolean _wapi_shm_disabled = TRUE;
+
+static gpointer wapi_storage [16];
+
+static void
+noshm_semaphores_init (void)
 {
-       static gchar file[_POSIX_PATH_MAX];
-       gchar *name = NULL, *filename, *dir, *wapi_dir;
+       int i;
+
+       for (i = 0; i < _WAPI_SHARED_SEM_COUNT; i++) 
+               mono_mutex_init (&noshm_sems [i], NULL);
+}
+
+static int
+noshm_sem_lock (int sem)
+{
+       int ret;
+       
+       DEBUGLOG ("%s: locking nosem %d", __func__, sem);
+       
+       ret = mono_mutex_lock (&noshm_sems[sem]);
+       
+       return ret;
+}
+
+static int
+noshm_sem_trylock (int sem)
+{
+       int ret;
+       
+       DEBUGLOG ("%s: trying to lock nosem %d", __func__, sem);
+       
+       ret = mono_mutex_trylock (&noshm_sems[sem]);
+       
+       return ret;
+}
+
+static int
+noshm_sem_unlock (int sem)
+{
+       int ret;
+       
+       DEBUGLOG ("%s: unlocking nosem %d", __func__, sem);
+       
+       ret = mono_mutex_unlock (&noshm_sems[sem]);
+       
+       return ret;
+}
+
+#ifdef DISABLE_SHARED_HANDLES
+void
+_wapi_shm_semaphores_init (void)
+{
+       noshm_semaphores_init ();
+}
+
+void
+_wapi_shm_semaphores_remove (void)
+{
+       /* Nothing */
+}
+
+int
+_wapi_shm_sem_lock (int sem)
+{
+       return noshm_sem_lock (sem);
+}
+
+int
+_wapi_shm_sem_trylock (int sem)
+{
+       return noshm_sem_trylock (sem);
+}
+
+int
+_wapi_shm_sem_unlock (int sem)
+{
+       return noshm_sem_unlock (sem);
+}
+
+gpointer
+_wapi_shm_attach (_wapi_shm_t type)
+{
+       gpointer res;
+
+       switch(type) {
+       case WAPI_SHM_DATA:
+               res = g_malloc0 (sizeof(struct _WapiHandleSharedLayout));
+               break;
+       case WAPI_SHM_FILESHARE:
+               res = g_malloc0 (sizeof(struct _WapiFileShareLayout));
+               break;
+       default:
+               g_error ("Invalid type in _wapi_shm_attach ()");
+               return NULL;
+       }
+
+       wapi_storage [type] = res;
+       return res;
+}
+
+void
+_wapi_shm_detach (_wapi_shm_t type)
+{
+       g_free (wapi_storage [type]);
+}
+
+gboolean
+_wapi_shm_enabled (void)
+{
+       return FALSE;
+}
+
+#else
+/*
+ * Use POSIX shared memory if possible, it is simpler, and it has the advantage that 
+ * writes to the shared area does not need to be written to disk, avoiding spinning up 
+ * the disk every x secs on laptops.
+ */
+#ifdef HAVE_SHM_OPEN
+#define USE_SHM 1
+#endif
+
+static gchar *
+_wapi_shm_base_name (_wapi_shm_t type)
+{
+       gchar *name = NULL;
        gchar machine_name[256];
        const gchar *fake_name;
        struct utsname ubuf;
@@ -76,6 +214,50 @@ static gchar *_wapi_shm_file (_wapi_shm_t type)
                break;
        }
 
+       return name;
+}
+
+#ifdef USE_SHM
+
+static gchar *_wapi_shm_shm_name (_wapi_shm_t type)
+{
+       char *base_name = _wapi_shm_base_name (type);
+
+       /* Also add the uid to avoid permission problems */
+       char *res = g_strdup_printf ("/mono-shared-%d-%s", getuid (), base_name);
+
+       g_free (base_name);
+
+       return res;
+}
+
+static int
+_wapi_shm_open (const char *filename, int size)
+{
+       int fd;
+
+       fd = shm_open (filename, O_CREAT|O_RDWR, S_IRUSR|S_IWUSR|S_IRGRP);
+       if (fd == -1)
+               /* Maybe /dev/shm is not mounted */
+               return -1;
+       if (ftruncate (fd, size) != 0) {
+               perror ("_wapi_shm_open (): ftruncate ()");
+               g_assert_not_reached ();
+       }
+
+       return fd;
+}
+
+#endif
+
+static gchar *
+_wapi_shm_file (_wapi_shm_t type)
+{
+       static gchar file[_POSIX_PATH_MAX];
+       gchar *name = NULL, *filename, *wapi_dir;
+
+       name = _wapi_shm_base_name (type);
+
        /* I don't know how nfs affects mmap.  If mmap() of files on
         * nfs mounts breaks, then there should be an option to set
         * the directory.
@@ -91,25 +273,28 @@ static gchar *_wapi_shm_file (_wapi_shm_t type)
 
        g_snprintf (file, _POSIX_PATH_MAX, "%s", filename);
        g_free (filename);
-               
-       /* No need to check if the dir already exists or check
-        * mkdir() errors, because on any error the open() call will
-        * report the problem.
-        */
-       dir = g_path_get_dirname (file);
-       mkdir (dir, 0755);
-       g_free (dir);
        
-       return(file);
+       return file;
 }
 
-static int _wapi_shm_file_open (const gchar *filename, guint32 wanted_size)
+static int
+_wapi_shm_file_open (const gchar *filename, guint32 wanted_size)
 {
        int fd;
        struct stat statbuf;
        int ret, tries = 0;
        gboolean created = FALSE;
-       
+       mode_t oldmask;
+       gchar *dir;
+               
+       /* No need to check if the dir already exists or check
+        * mkdir() errors, because on any error the open() call will
+        * report the problem.
+        */
+       dir = g_path_get_dirname (filename);
+       mkdir (dir, 0755);
+       g_free (dir);
+
 try_again:
        if (tries++ > 10) {
                /* Just give up */
@@ -119,16 +304,24 @@ try_again:
                unlink (filename);
        }
        
+       /* Make sure future processes can open the shared data files */
+       oldmask = umask (066);
+
        /* No O_CREAT yet, because we need to initialise the file if
         * we have to create it.
         */
        fd = open (filename, O_RDWR, 0600);
+       umask (oldmask);
+       
        if (fd == -1 && errno == ENOENT) {
                /* OK, its up to us to create it.  O_EXCL to avoid a
                 * race condition where two processes can
                 * simultaneously try and create the file
                 */
+               oldmask = umask (066);
                fd = open (filename, O_CREAT|O_EXCL|O_RDWR, 0600);
+               umask (oldmask);
+               
                if (fd == -1 && errno == EEXIST) {
                        /* It's possible that the file was created in
                         * between finding it didn't exist, and trying
@@ -138,7 +331,7 @@ try_again:
                } else if (fd == -1) {
                        g_critical ("%s: shared file [%s] open error: %s",
                                    __func__, filename, g_strerror (errno));
-                       return(-1);
+                       return -1;
                } else {
                        /* We created the file, so we need to expand
                         * the file.
@@ -151,7 +344,7 @@ try_again:
                                g_critical ("%s: shared file [%s] lseek error: %s", __func__, filename, g_strerror (errno));
                                close (fd);
                                unlink (filename);
-                               return(-1);
+                               return -1;
                        }
                        
                        do {
@@ -162,7 +355,7 @@ try_again:
                                g_critical ("%s: shared file [%s] write error: %s", __func__, filename, g_strerror (errno));
                                close (fd);
                                unlink (filename);
-                               return(-1);
+                               return -1;
                        }
                        
                        created = TRUE;
@@ -176,7 +369,7 @@ try_again:
        } else if (fd == -1) {
                g_critical ("%s: shared file [%s] open error: %s", __func__,
                            filename, g_strerror (errno));
-               return(-1);
+               return -1;
        }
        
        /* Use stat to find the file size (instead of hard coding it)
@@ -190,20 +383,15 @@ try_again:
                        unlink (filename);
                }
                close (fd);
-               return(-1);
+               return -1;
        }
 
        if (statbuf.st_size < wanted_size) {
                close (fd);
                if (created == TRUE) {
-#ifdef HAVE_LARGE_FILE_SUPPORT
-                       /* Keep gcc quiet... */
-                       g_critical ("%s: shared file [%s] is not big enough! (found %lld, need %d bytes)", __func__, filename, statbuf.st_size, wanted_size);
-#else
-                       g_critical ("%s: shared file [%s] is not big enough! (found %ld, need %d bytes)", __func__, filename, statbuf.st_size, wanted_size);
-#endif
+                       g_critical ("%s: shared file [%s] is not big enough! (found %ld, need %d bytes)", __func__, filename, (long)statbuf.st_size, wanted_size);
                        unlink (filename);
-                       return(-1);
+                       return -1;
                } else {
                        /* We didn't create it, so just try opening it again */
                        _wapi_handle_spin (100);
@@ -211,7 +399,21 @@ try_again:
                }
        }
        
-       return(fd);
+       return fd;
+}
+
+gboolean
+_wapi_shm_enabled (void)
+{
+       static gboolean env_checked;
+
+       if (!env_checked) {
+               if (g_getenv ("MONO_ENABLE_SHM"))
+                       _wapi_shm_disabled = FALSE;
+               env_checked = TRUE;
+       }
+
+       return !_wapi_shm_disabled;
 }
 
 /*
@@ -221,12 +423,13 @@ try_again:
  * Attach to the shared memory file or create it if it did not exist.
  * Returns the memory area the file was mmapped to.
  */
-gpointer _wapi_shm_attach (_wapi_shm_t type)
+gpointer
+_wapi_shm_attach (_wapi_shm_t type)
 {
        gpointer shm_seg;
        int fd;
        struct stat statbuf;
-       gchar *filename=_wapi_shm_file (type);
+       gchar *filename = _wapi_shm_file (type), *shm_name;
        guint32 size;
        
        switch(type) {
@@ -237,20 +440,38 @@ gpointer _wapi_shm_attach (_wapi_shm_t type)
        case WAPI_SHM_FILESHARE:
                size = sizeof(struct _WapiFileShareLayout);
                break;
+       default:
+               g_error ("Invalid type in _wapi_shm_attach ()");
+               return NULL;
        }
-       
-       fd = _wapi_shm_file_open (filename, size);
+
+       if (!_wapi_shm_enabled ()) {
+               wapi_storage [type] = g_malloc0 (size);
+               return wapi_storage [type];
+       }
+
+#ifdef USE_SHM
+       shm_name = _wapi_shm_shm_name (type);
+       fd = _wapi_shm_open (shm_name, size);
+       g_free (shm_name);
+#else
+       fd = -1;
+#endif
+
+       /* Fall back to files if POSIX shm fails (for example, because /dev/shm is not mounted */
+       if (fd == -1)
+               fd = _wapi_shm_file_open (filename, size);
        if (fd == -1) {
                g_critical ("%s: shared file [%s] open error", __func__,
                            filename);
-               return(NULL);
+               return NULL;
        }
-       
+
        if (fstat (fd, &statbuf)==-1) {
                g_critical ("%s: fstat error: %s", __func__,
                            g_strerror (errno));
                close (fd);
-               return(NULL);
+               return NULL;
        }
        
        shm_seg = mmap (NULL, statbuf.st_size, PROT_READ|PROT_WRITE,
@@ -261,22 +482,33 @@ gpointer _wapi_shm_attach (_wapi_shm_t type)
                if (shm_seg == MAP_FAILED) {
                        g_critical ("%s: mmap error: %s", __func__, g_strerror (errno));
                        close (fd);
-                       return(NULL);
+                       return NULL;
                }
        }
                
        close (fd);
-       return(shm_seg);
+       return shm_seg;
+}
+
+void
+_wapi_shm_detach (_wapi_shm_t type)
+{
+       if (!_wapi_shm_enabled ())
+               g_free (wapi_storage [type]);
 }
 
-void _wapi_shm_semaphores_init ()
+static void
+shm_semaphores_init (void)
 {
        key_t key;
        key_t oldkey;
        int thr_ret;
        struct _WapiHandleSharedLayout *tmp_shared;
+       gchar *ftmp;
+       gchar *filename;
        
-       /* Yet more barmy API - this union is a well-defined parameter
+       /*
+        * Yet more barmy API - this union is a well-defined parameter
         * in a syscall, yet I still have to define it here as it
         * doesn't appear in a header
         */
@@ -292,16 +524,17 @@ void _wapi_shm_semaphores_init ()
        for (i = 0; i < _WAPI_SHARED_SEM_COUNT; i++) {
                def_vals[i] = 1;
        }
-#ifdef NEXT_VERSION_INC
-       /* Process count must start at '0' - the 1 for all the others
+
+       /*
+        * Process count must start at '0' - the 1 for all the others
         * sets the semaphore to "unlocked"
         */
        def_vals[_WAPI_SHARED_SEM_PROCESS_COUNT] = 0;
-#endif
        
        defs.array = def_vals;
        
-       /* Temporarily attach the shared data so we can read the
+       /*
+        *Temporarily attach the shared data so we can read the
         * semaphore key.  We release this mapping and attach again
         * after getting the semaphores to avoid a race condition
         * where a terminating process can delete the shared files
@@ -312,18 +545,26 @@ void _wapi_shm_semaphores_init ()
        tmp_shared = _wapi_shm_attach (WAPI_SHM_DATA);
        g_assert (tmp_shared != NULL);
        
-       key = ftok (_wapi_shm_file (WAPI_SHM_DATA), 'M');
+#ifdef USE_SHM
+       ftmp=_wapi_shm_shm_name (WAPI_SHM_DATA);
+       filename = g_build_filename ("/dev/shm", ftmp, NULL);
+       g_assert (filename!=NULL);
+       key = ftok (filename, 'M');
+       g_free (ftmp);
+       g_free (filename);
+#else
+       key = ftok ( _wapi_shm_file (WAPI_SHM_DATA), 'M');
+#endif
 
 again:
        retries++;
        oldkey = tmp_shared->sem_key;
 
        if (oldkey == 0) {
-#ifdef DEBUG
-               g_message ("%s: Creating with new key (0x%x)", __func__, key);
-#endif
+               DEBUGLOG ("%s: Creating with new key (0x%x)", __func__, key);
 
-               /* The while loop attempts to make some sense of the
+               /*
+                * The while loop attempts to make some sense of the
                 * bonkers 'think of a random number' method of
                 * picking a key without collision with other
                 * applications
@@ -331,10 +572,10 @@ again:
                while ((_wapi_sem_id = semget (key, _WAPI_SHARED_SEM_COUNT,
                                               IPC_CREAT | IPC_EXCL | 0600)) == -1) {
                        if (errno == ENOMEM) {
-                               g_critical ("%s: semget error: %s", __func__,
+                               g_error ("%s: semget error: %s", __func__,
                                            g_strerror (errno));
                        } else if (errno == ENOSPC) {
-                               g_critical ("%s: semget error: %s.  Try deleting some semaphores with ipcs and ipcrm", __func__, g_strerror (errno));
+                               g_error ("%s: semget error: %s.  Try deleting some semaphores with ipcs and ipcrm\nor increase the maximum number of semaphore in the system.", __func__, g_strerror (errno));
                        } else if (errno != EEXIST) {
                                if (retries > 3)
                                        g_warning ("%s: semget error: %s key 0x%x - trying again", __func__,
@@ -342,12 +583,10 @@ again:
                        }
                        
                        key++;
-#ifdef DEBUG
-                       g_message ("%s: Got (%s), trying with new key (0x%x)",
-                                  __func__, g_strerror (errno), key);
-#endif
+                       DEBUGLOG ("%s: Got (%s), trying with new key (0x%x)", __func__, g_strerror (errno), key);
                }
-               /* Got a semaphore array, so initialise it and install
+               /*
+                * Got a semaphore array, so initialise it and install
                 * the key into the shared memory
                 */
                
@@ -355,7 +594,8 @@ again:
                        if (retries > 3)
                                g_warning ("%s: semctl init error: %s - trying again", __func__, g_strerror (errno));
 
-                       /* Something went horribly wrong, so try
+                       /*
+                        * Something went horribly wrong, so try
                         * getting a new set from scratch
                         */
                        semctl (_wapi_sem_id, 0, IPC_RMID);
@@ -364,7 +604,8 @@ again:
 
                if (InterlockedCompareExchange (&tmp_shared->sem_key,
                                                key, 0) != 0) {
-                       /* Someone else created one and installed the
+                       /*
+                        * Someone else created one and installed the
                         * key while we were working, so delete the
                         * array we created and fall through to the
                         * 'key already known' case.
@@ -372,16 +613,15 @@ again:
                        semctl (_wapi_sem_id, 0, IPC_RMID);
                        oldkey = tmp_shared->sem_key;
                } else {
-                       /* We've installed this semaphore set's key into
+                       /*
+                        * We've installed this semaphore set's key into
                         * the shared memory
                         */
                        goto done;
                }
        }
        
-#ifdef DEBUG
-       g_message ("%s: Trying with old key 0x%x", __func__, oldkey);
-#endif
+       DEBUGLOG ("%s: Trying with old key 0x%x", __func__, oldkey);
 
        _wapi_sem_id = semget (oldkey, _WAPI_SHARED_SEM_COUNT, 0600);
        if (_wapi_sem_id == -1) {
@@ -389,7 +629,8 @@ again:
                        g_warning ("%s: semget error opening old key 0x%x (%s) - trying again",
                                        __func__, oldkey,g_strerror (errno));
 
-               /* Someone must have deleted the semaphore set, so
+               /*
+                * Someone must have deleted the semaphore set, so
                 * blow away the bad key and try again
                 */
                InterlockedCompareExchange (&tmp_shared->sem_key, 0, oldkey);
@@ -402,11 +643,10 @@ again:
        thr_ret = _wapi_shm_sem_lock (_WAPI_SHARED_SEM_PROCESS_COUNT_LOCK);
        g_assert (thr_ret == 0);
        
-#ifdef DEBUG
-       g_message ("%s: Incrementing the process count (%d)", __func__, _wapi_getpid ());
-#endif
+       DEBUGLOG ("%s: Incrementing the process count (%d)", __func__, _wapi_getpid ());
 
-       /* We only ever _unlock_ this semaphore, letting the kernel
+       /*
+        * We only ever _unlock_ this semaphore, letting the kernel
         * restore (ie decrement) this unlock when this process exits.
         * We lock another semaphore around it so we can serialise
         * access when we're testing the value of this semaphore when
@@ -414,70 +654,67 @@ again:
         */
        _wapi_shm_sem_unlock (_WAPI_SHARED_SEM_PROCESS_COUNT);
 
-#ifdef DEBUG
-       g_message ("%s: Process count is now %d (%d)", __func__, semctl (_wapi_sem_id, _WAPI_SHARED_SEM_PROCESS_COUNT, GETVAL), _wapi_getpid ());
-#endif
+       DEBUGLOG ("%s: Process count is now %d (%d)", __func__, semctl (_wapi_sem_id, _WAPI_SHARED_SEM_PROCESS_COUNT, GETVAL), _wapi_getpid ());
        
        _wapi_shm_sem_unlock (_WAPI_SHARED_SEM_PROCESS_COUNT_LOCK);
 
-       munmap (tmp_shared, sizeof(struct _WapiHandleSharedLayout));
+       if (_wapi_shm_disabled)
+               g_free (tmp_shared);
+       else
+               munmap (tmp_shared, sizeof(struct _WapiHandleSharedLayout));
 }
 
-void _wapi_shm_semaphores_remove (void)
+static void
+shm_semaphores_remove (void)
 {
        int thr_ret;
        int proc_count;
+       gchar *shm_name;
        
-#ifdef DEBUG
-       g_message ("%s: Checking process count (%d)", __func__,
-                  _wapi_getpid ());
-#endif
+       DEBUGLOG ("%s: Checking process count (%d)", __func__, _wapi_getpid ());
        
        thr_ret = _wapi_shm_sem_lock (_WAPI_SHARED_SEM_PROCESS_COUNT_LOCK);
        g_assert (thr_ret == 0);
        
        proc_count = semctl (_wapi_sem_id, _WAPI_SHARED_SEM_PROCESS_COUNT,
                             GETVAL);
-#ifdef NEXT_VERSION_INC
+
        g_assert (proc_count > 0);
        if (proc_count == 1) {
-#else
-       /* Compatibility - the semaphore was initialised to '1' (which
-        * normally means 'unlocked'.  Instead of fixing that right
-        * now, which would mean a shared file version increment, just
-        * cope with the value starting too high for now.  Fix this
-        * next time I have to change the file version.
-        */
-       g_assert (proc_count > 1);
-       if (proc_count == 2) {
-#endif
-               /* Just us, so blow away the semaphores and the shared
+               /*
+                * Just us, so blow away the semaphores and the shared
                 * files
                 */
-#ifdef DEBUG
-               g_message ("%s: Removing semaphores! (%d)", __func__,
-                          _wapi_getpid ());
-#endif
+               DEBUGLOG ("%s: Removing semaphores! (%d)", __func__, _wapi_getpid ());
 
                semctl (_wapi_sem_id, 0, IPC_RMID);
+#ifdef USE_SHM
+               shm_name = _wapi_shm_shm_name (WAPI_SHM_DATA);
+               shm_unlink (shm_name);
+               g_free (shm_name);
+
+               shm_name = _wapi_shm_shm_name (WAPI_SHM_FILESHARE);
+               shm_unlink (shm_name);
+               g_free (shm_name);
+#endif
                unlink (_wapi_shm_file (WAPI_SHM_DATA));
                unlink (_wapi_shm_file (WAPI_SHM_FILESHARE));
        } else {
-               /* "else" clause, because there's no point unlocking
+               /*
+                * "else" clause, because there's no point unlocking
                 * the semaphore if we've just blown it away...
                 */
                _wapi_shm_sem_unlock (_WAPI_SHARED_SEM_PROCESS_COUNT_LOCK);
        }
 }
 
-int _wapi_shm_sem_lock (int sem)
+static int
+shm_sem_lock (int sem)
 {
        struct sembuf ops;
        int ret;
        
-#ifdef DEBUG
-       g_message ("%s: locking sem %d", __func__, sem);
-#endif
+       DEBUGLOG ("%s: locking sem %d", __func__, sem);
 
        ops.sem_num = sem;
        ops.sem_op = -1;
@@ -489,17 +726,16 @@ int _wapi_shm_sem_lock (int sem)
        } while (ret == -1 && errno == EINTR);
 
        if (ret == -1) {
-               /* EINVAL covers the case when the semaphore was
+               /*
+                * EINVAL covers the case when the semaphore was
                 * deleted before we started the semop
                 */
                if (errno == EIDRM || errno == EINVAL) {
-                       /* Someone blew away this semaphore set, so
+                       /*
+                        * Someone blew away this semaphore set, so
                         * get a new one and try again
                         */
-#ifdef DEBUG
-                       g_message ("%s: Reinitialising the semaphores!",
-                                  __func__);
-#endif
+                       DEBUGLOG ("%s: Reinitialising the semaphores!", __func__);
 
                        _wapi_shm_semaphores_init ();
                        goto retry;
@@ -509,21 +745,18 @@ int _wapi_shm_sem_lock (int sem)
                ret = errno;
        }
        
-#ifdef DEBUG
-       g_message ("%s: returning %d (%s)", __func__, ret, g_strerror (ret));
-#endif
+       DEBUGLOG ("%s: returning %d (%s)", __func__, ret, g_strerror (ret));
        
-       return(ret);
+       return ret;
 }
 
-int _wapi_shm_sem_trylock (int sem)
+static int
+shm_sem_trylock (int sem)
 {
        struct sembuf ops;
        int ret;
        
-#ifdef DEBUG
-       g_message ("%s: trying to lock sem %d", __func__, sem);
-#endif
+       DEBUGLOG ("%s: trying to lock sem %d", __func__, sem);
        
        ops.sem_num = sem;
        ops.sem_op = -1;
@@ -535,17 +768,16 @@ int _wapi_shm_sem_trylock (int sem)
        } while (ret == -1 && errno == EINTR);
 
        if (ret == -1) {
-               /* EINVAL covers the case when the semaphore was
+               /*
+                * EINVAL covers the case when the semaphore was
                 * deleted before we started the semop
                 */
                if (errno == EIDRM || errno == EINVAL) {
-                       /* Someone blew away this semaphore set, so
+                       /*
+                        * Someone blew away this semaphore set, so
                         * get a new one and try again
                         */
-#ifdef DEBUG
-                       g_message ("%s: Reinitialising the semaphores!",
-                                  __func__);
-#endif
+                       DEBUGLOG ("%s: Reinitialising the semaphores!", __func__);
 
                        _wapi_shm_semaphores_init ();
                        goto retry;
@@ -560,21 +792,18 @@ int _wapi_shm_sem_trylock (int sem)
                ret = EBUSY;
        }
        
-#ifdef DEBUG
-       g_message ("%s: returning %d (%s)", __func__, ret, g_strerror (ret));
-#endif
+       DEBUGLOG ("%s: returning %d (%s)", __func__, ret, g_strerror (ret));
        
-       return(ret);
+       return ret;
 }
 
-int _wapi_shm_sem_unlock (int sem)
+static int
+shm_sem_unlock (int sem)
 {
        struct sembuf ops;
        int ret;
        
-#ifdef DEBUG
-       g_message ("%s: unlocking sem %d", __func__, sem);
-#endif
+       DEBUGLOG ("%s: unlocking sem %d", __func__, sem);
        
        ops.sem_num = sem;
        ops.sem_op = 1;
@@ -594,10 +823,7 @@ int _wapi_shm_sem_unlock (int sem)
                         * get a new one and try again (we can't just
                         * assume that the semaphore is now unlocked)
                         */
-#ifdef DEBUG
-                       g_message ("%s: Reinitialising the semaphores!",
-                                  __func__);
-#endif
+                       DEBUGLOG ("%s: Reinitialising the semaphores!", __func__);
 
                        _wapi_shm_semaphores_init ();
                        goto retry;
@@ -607,10 +833,51 @@ int _wapi_shm_sem_unlock (int sem)
                ret = errno;
        }
        
-#ifdef DEBUG
-       g_message ("%s: returning %d (%s)", __func__, ret, g_strerror (ret));
-#endif
+       DEBUGLOG ("%s: returning %d (%s)", __func__, ret, g_strerror (ret));
+
+       return ret;
+}
+
+void
+_wapi_shm_semaphores_init (void)
+{
+       if (!_wapi_shm_enabled ())
+               noshm_semaphores_init ();
+       else
+               shm_semaphores_init ();
+}
+
+void
+_wapi_shm_semaphores_remove (void)
+{
+       if (!_wapi_shm_disabled) 
+               shm_semaphores_remove ();
+}
 
-       return(ret);
+int
+_wapi_shm_sem_lock (int sem)
+{
+       if (_wapi_shm_disabled) 
+               return noshm_sem_lock (sem);
+       else
+               return shm_sem_lock (sem);
 }
 
+int
+_wapi_shm_sem_trylock (int sem)
+{
+       if (_wapi_shm_disabled) 
+               return noshm_sem_trylock (sem);
+       else 
+               return shm_sem_trylock (sem);
+}
+
+int
+_wapi_shm_sem_unlock (int sem)
+{
+       if (_wapi_shm_disabled) 
+               return noshm_sem_unlock (sem);
+       else 
+               return shm_sem_unlock (sem);
+}
+#endif /* !DISABLE_SHARED_HANDLES */