X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thread.h;h=d03cef1e8eea0bae4e1f27334cd28ec9bfcf8347;hb=a3ef2c6f736628e81e9ce2a07226bd754872ac62;hp=87828aba9e16db6d88b098b5d90d07ad46654f3f;hpb=1feb27209aee3921894ffc1cc08027670d4240f3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/thread.h b/thread.h
index 87828ab..d03cef1 100644
--- a/thread.h
+++ b/thread.h
@@ -73,7 +73,9 @@ struct perl_thread *getTHR (void);
 	} STMT_END
 
 #define MUTEX_LOCK(m)		mutex_lock(*m)
+#define MUTEX_LOCK_NOCONTEXT(m)	mutex_lock(*m)
 #define MUTEX_UNLOCK(m)		mutex_unlock(*m)
+#define MUTEX_UNLOCK_NOCONTEXT(m) mutex_unlock(*m)
 #define MUTEX_DESTROY(m)				\
 	STMT_START {					\
 		mutex_free(*m);				\
@@ -109,7 +111,7 @@ struct perl_thread *getTHR (void);
 #define JOIN(t, avp)		(*(avp) = (AV *)cthread_join(t->self))
 
 #define SET_THR(thr)		cthread_set_data(cthread_self(), thr)
-#define THR			cthread_data(cthread_self())
+#define THR			((struct perl_thread *)cthread_data(cthread_self()))
 
 #define INIT_THREADS		cthread_init()
 #define YIELD			cthread_yield()