Some more work on cleanup.
[platform/upstream/gstreamer.git] / gst / cothreads.c
index 8a938f1..db029a3 100644 (file)
 #include <sys/mman.h>
 
 /* we make too much noise for normal debugging... */
-//#define GST_DEBUG_FORCE_DISABLE
+/* #define GST_DEBUG_FORCE_DISABLE */
 #include "gst_private.h"
 
 #include "cothreads.h"
 #include "gstarch.h"
 
 
+#define STACK_SIZE 0x200000
+
+#define COTHREAD_MAXTHREADS 16
+#define COTHREAD_STACKSIZE (STACK_SIZE/COTHREAD_MAXTHREADS)
+
+struct _cothread_context {
+  cothread_state *threads[COTHREAD_MAXTHREADS];
+  int nthreads;
+  int current;
+  GHashTable *data;
+};
+
+
 pthread_key_t _cothread_key = -1;
 
 /* Disablig this define allows you to shut off a few checks in
@@ -54,6 +67,11 @@ cothread_init (void)
 {
   cothread_context *ctx = (cothread_context *)malloc(sizeof(cothread_context));
 
+  /* we consider the initiating process to be cothread 0 */
+  ctx->nthreads = 1;
+  ctx->current = 0;
+  ctx->data = g_hash_table_new(g_str_hash, g_str_equal);
+
   GST_INFO (GST_CAT_COTHREADS,"initializing cothreads");
 
   if (_cothread_key == -1) {
@@ -73,45 +91,76 @@ cothread_init (void)
   ctx->threads[0]->argc = 0;
   ctx->threads[0]->argv = NULL;
   ctx->threads[0]->flags = COTHREAD_STARTED;
-  ctx->threads[0]->sp = (int *)CURRENT_STACK_FRAME;
+  ctx->threads[0]->sp = (void *)CURRENT_STACK_FRAME;
   ctx->threads[0]->pc = 0;
 
-  GST_INFO (GST_CAT_COTHREADS,"0th thread is %p at sp:%p",ctx->threads[0], ctx->threads[0]->sp);
+  /* initialize the lock */
+#ifdef COTHREAD_ATOMIC
+  atomic_set (&ctx->threads[0]->lock, 0);
+#else
+  ctx->threads[0]->lock = g_mutex_new();
+#endif
 
-  // we consider the initiating process to be cothread 0
-  ctx->nthreads = 1;
-  ctx->current = 0;
-  ctx->data = g_hash_table_new(g_str_hash, g_str_equal);
+  GST_INFO (GST_CAT_COTHREADS,"0th thread is %p at sp:%p",ctx->threads[0], ctx->threads[0]->sp);
 
   return ctx;
 }
 
+void
+cothread_free (cothread_context *ctx)
+{
+  gint i;
+
+  for (i=0; i<ctx->nthreads; i++) {
+#ifndef COTHREAD_ATOMIC
+    if (ctx->threads[i]->lock) {
+      g_mutex_unlock(ctx->threads[i]->lock);
+      g_mutex_free (ctx->threads[i]->lock);
+      ctx->threads[i]->lock = NULL;
+    }
+#endif
+    if (i == 0) {
+      g_free (ctx->threads[i]);
+      ctx->threads[i] = NULL;
+    }
+  }
+  g_hash_table_destroy (ctx->data);
+  g_free (ctx);
+}
+
 /**
  * cothread_create:
  * @ctx: the cothread context
  *
  * Create a new cothread state in the given context
  *
- * Returns: the new cothread state
+ * Returns: the new cothread state or NULL on error
  */
 cothread_state*
 cothread_create (cothread_context *ctx) 
 {
   cothread_state *s;
 
+  if (ctx->nthreads == COTHREAD_MAXTHREADS) {
+    GST_DEBUG (0, "attempt to create > COTHREAD_MAXTHREADS\n");
+    return NULL;
+  }
   GST_DEBUG (0,"pthread_self() %ld\n",pthread_self());
-  //if (0) {
-  if (pthread_self() == 0) {
-    s = (cothread_state *)malloc(sizeof(int) * COTHREAD_STACKSIZE);
+  /* if (0) { */
+  if (pthread_self() == 0) {   /* FIXME uh, what does this test really do? */
+    s = (cothread_state *)malloc(COTHREAD_STACKSIZE);
     GST_DEBUG (0,"new stack (case 1) at %p\n",s);
   } else {
-    char *sp = CURRENT_STACK_FRAME;
-    unsigned long *stack_end = (unsigned long *)((unsigned long)sp &
-      ~(STACK_SIZE - 1));
+    void *sp = CURRENT_STACK_FRAME;
+    /* FIXME this may not be 64bit clean
+     *       could use casts to uintptr_t from inttypes.h
+     *       if only all platforms had inttypes.h
+     */
+    guchar *stack_end = (guchar *)((unsigned long)sp & ~(STACK_SIZE - 1));
     s = (cothread_state *)(stack_end + ((ctx->nthreads - 1) *
                            COTHREAD_STACKSIZE));
     GST_DEBUG (0,"new stack (case 2) at %p\n",s);
-    if (mmap((char *)s,COTHREAD_STACKSIZE*(sizeof(int)),
+    if (mmap((void *)s,COTHREAD_STACKSIZE,
              PROT_READ|PROT_WRITE|PROT_EXEC,MAP_FIXED|MAP_PRIVATE|MAP_ANON,
              -1,0) < 0) {
       perror("mmap'ing cothread stack space");
@@ -122,11 +171,19 @@ cothread_create (cothread_context *ctx)
   s->ctx = ctx;
   s->threadnum = ctx->nthreads;
   s->flags = 0;
-  s->sp = ((int *)s + COTHREAD_STACKSIZE);
-  // is this needed anymore?
+  s->sp = ((guchar *)s + COTHREAD_STACKSIZE);
+  /* is this needed anymore? */
   s->top_sp = s->sp;
 
-  GST_INFO (GST_CAT_COTHREADS,"created cothread #%d: %p at sp:%p", ctx->nthreads, s, s->sp);
+  /* initialize the lock */
+#ifdef COTHREAD_ATOMIC
+  atomic_set (s->lock, 0);
+#else
+  s->lock = g_mutex_new();
+#endif
+
+  GST_INFO (GST_CAT_COTHREADS,"created cothread #%d: %p at sp:%p lock:%p", ctx->nthreads, 
+                 s, s->sp, s->lock);
 
   ctx->threads[ctx->nthreads++] = s;
 
@@ -151,22 +208,38 @@ cothread_setfunc (cothread_state *thread,
   thread->func = func;
   thread->argc = argc;
   thread->argv = argv;
-  thread->pc = (int *)func;
+  thread->pc = (void *)func;
 }
 
 /**
  * cothread_main:
  * @ctx: cothread context to find main thread of
  *
+ * Get the main thread.
+ *
  * Returns: the #cothread_state of the main (0th) thread
  */
 cothread_state*
-cothread_main(cothread_context *ctx) 
+cothread_main (cothread_context *ctx) 
 {
   GST_DEBUG (0,"returning %p, the 0th cothread\n",ctx->threads[0]);
   return ctx->threads[0];
 }
 
+/**
+ * cothread_current_main:
+ *
+ * Get the main thread in the current pthread.
+ *
+ * Returns: the #cothread_state of the main (0th) thread in the current pthread
+ */
+cothread_state*
+cothread_current_main (void)
+{
+  cothread_context *ctx = pthread_getspecific(_cothread_key);
+  return ctx->threads[0];
+}
+
 static void 
 cothread_stub (void) 
 {
@@ -176,9 +249,15 @@ cothread_stub (void)
   GST_DEBUG_ENTER("");
 
   thread->flags |= COTHREAD_STARTED;
+/* #ifdef COTHREAD_ATOMIC 
+ *   do something here to lock
+ * #else
+ *  g_mutex_lock(thread->lock);
+ * #endif
+ */
   while (1) {
     thread->func(thread->argc,thread->argv);
-    // we do this to avoid ever returning, we just switch to 0th thread
+    /* we do this to avoid ever returning, we just switch to 0th thread */
     cothread_switch(cothread_main(ctx));
   }
   thread->flags &= ~COTHREAD_STARTED;
@@ -191,9 +270,14 @@ cothread_stub (void)
 /**
  * cothread_getcurrent:
  *
+ * Get the current cothread id
+ *
  * Returns: the current cothread id
  */
-int cothread_getcurrent(void) {
+int cothread_getcurrent (void) __attribute__ ((no_instrument_function));
+int 
+cothread_getcurrent (void) 
+{
   cothread_context *ctx = pthread_getspecific(_cothread_key);
   if (!ctx) return -1;
   return ctx->current;
@@ -262,13 +346,30 @@ cothread_switch (cothread_state *thread)
 #endif
   if (current == thread) goto selfswitch;
 
-  // find the number of the thread to switch to
-  GST_INFO (GST_CAT_COTHREAD_SWITCH,"switching from cothread %d to to cothread #%d",
+  /* unlock the current thread, we're out of that context now */
+#ifdef COTHREAD_ATOMIC
+  /* do something to unlock the cothread */
+#else
+  g_mutex_unlock(current->lock);
+#endif
+
+  /* lock the next cothread before we even switch to it */
+#ifdef COTHREAD_ATOMIC
+  /* do something to lock the cothread */
+#else
+  g_mutex_lock(thread->lock);
+#endif
+
+  /* find the number of the thread to switch to */
+  GST_INFO (GST_CAT_COTHREAD_SWITCH,"switching from cothread #%d to cothread #%d",
             ctx->current,thread->threadnum);
   ctx->current = thread->threadnum;
 
   /* save the current stack pointer, frame pointer, and pc */
-  enter = setjmp(current->jmp);
+#ifdef GST_ARCH_PRESETJMP
+  GST_ARCH_PRESETJMP();
+#endif
+  enter = sigsetjmp(current->jmp, 1);
   if (enter != 0) {
     GST_DEBUG (0,"enter thread #%d %d %p<->%p (%d)\n",current->threadnum, enter, 
                    current->sp, current->top_sp, current->top_sp-current->sp);
@@ -282,12 +383,12 @@ cothread_switch (cothread_state *thread)
   /* restore stack pointer and other stuff of new cothread */
   if (thread->flags & COTHREAD_STARTED) {
     GST_DEBUG (0,"in thread \n");
-    // switch to it
-    longjmp(thread->jmp,1);
+    /* switch to it */
+    siglongjmp(thread->jmp,1);
   } else {
     GST_ARCH_SETUP_STACK(thread->sp);
     GST_ARCH_SET_SP(thread->sp);
-    // start it
+    /* start it */
     GST_ARCH_CALL(cothread_stub);
     GST_DEBUG (0,"exit thread \n");
     ctx->current = 0;
@@ -297,7 +398,7 @@ cothread_switch (cothread_state *thread)
 
 #ifdef COTHREAD_PARANOID
 nothread:
-  g_print("cothread: there's no thread, strange...\n");
+  g_print("cothread: can't switch to NULL cothread!\n");
   return;
 nocontext:
   g_print("cothread: there's no context, help!\n");
@@ -310,3 +411,59 @@ selfswitch:
   g_print("cothread: trying to switch to same thread, legal but not necessary\n");
   return;
 }
+
+/**
+ * cothread_lock:
+ * @thread: cothread state to lock
+ *
+ * Locks the cothread state.
+ */
+void
+cothread_lock (cothread_state *thread)
+{
+#ifdef COTHREAD_ATOMIC
+  /* do something to lock the cothread */
+#else
+  if (thread->lock)
+    g_mutex_lock(thread->lock);
+#endif
+}
+
+/**
+ * cothread_trylock:
+ * @thread: cothread state to try to lock
+ *
+ * Try to lock the cothread state
+ *
+ * Returns: TRUE if the cothread could be locked.
+ */
+gboolean
+cothread_trylock (cothread_state *thread)
+{
+#ifdef COTHREAD_ATOMIC
+  /* do something to try to lock the cothread */
+#else
+  if (thread->lock)
+    return g_mutex_trylock(thread->lock);
+  else
+    return FALSE;
+#endif
+}
+
+/**
+ * cothread_unlock:
+ * @thread: cothread state to unlock
+ *
+ * Unlock the cothread state.
+ */
+void
+cothread_unlock (cothread_state *thread)
+{
+#ifdef COTHREAD_ATOMIC
+  /* do something to unlock the cothread */
+#else
+  if (thread->lock)
+    g_mutex_unlock(thread->lock);
+#endif
+}
+