From ea0efc06fdad2019ffceb86d079dd853e9d79cea Mon Sep 17 00:00:00 2001 From: Malcolm Beattie Date: Fri, 24 Oct 1997 13:50:59 +0000 Subject: Improve internal threading API. Introduce win32/win32thread.[ch] to use new API and patch win32 makefile stuff a little. p4raw-id: //depot/perl@172 --- fakethr.h | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) (limited to 'fakethr.h') diff --git a/fakethr.h b/fakethr.h index dac2cc9030..eaab4b8ca7 100644 --- a/fakethr.h +++ b/fakethr.h @@ -1,6 +1,10 @@ typedef int perl_mutex; typedef int perl_key; +typedef struct thread *perl_thread; +/* With fake threads, thr is global(ish) so we don't need dTHR */ +#define dTHR extern int errno + struct perl_wait_queue { struct thread * thread; struct perl_wait_queue * next; @@ -24,3 +28,29 @@ struct thread_intern { (t)->i.private = 0; \ } STMT_END +/* + * Note that SCHEDULE() is only callable from pp code (which + * must be expecting to be restarted). We'll have to do + * something a bit different for XS code. + */ + +#define SCHEDULE() return schedule(), op + +#define MUTEX_LOCK(m) +#define MUTEX_UNLOCK(m) +#define MUTEX_INIT(m) +#define MUTEX_DESTROY(m) +#define COND_INIT(c) perl_cond_init(c) +#define COND_SIGNAL(c) perl_cond_signal(c) +#define COND_BROADCAST(c) perl_cond_broadcast(c) +#define COND_WAIT(c, m) \ + STMT_START { \ + perl_cond_wait(c); \ + SCHEDULE(); \ + } STMT_END +#define COND_DESTROY(c) + +#define THREAD_CREATE(t, f) f((t)) +#define THREAD_POST_CREATE(t) NOOP + +#define YIELD NOOP -- cgit v1.2.1