Upstream pkgsrc patch to support NetBSD 6.*

[perl5.git] / op.h

diff --git a/op.h b/op.h
index f2b5b61..09bf394 100644 (file)
--- a/op.h
+++ b/op.h
@@ -317,6 +317,9 @@ Deprecated.  Use C<GIMME_V> instead.
 #define OPpCOREARGS_SCALARMOD  64      /* \$ rather than \[$@%*] */
 #define OPpCOREARGS_PUSHMARK   128     /* Call pp_pushmark */
 
+/* Private for OP_(LAST|REDO|NEXT|GOTO|DUMP) */
+#define OPpPV_IS_UTF8          128     /* label is in UTF8 */
+
 struct op {
     BASEOP
 };
@@ -1000,6 +1003,22 @@ struct token {
  */
 
 /*
+=head1 Hook manipulation
+*/
+
+#ifdef USE_ITHREADS
+#  define OP_CHECK_MUTEX_INIT          MUTEX_INIT(&PL_check_mutex)
+#  define OP_CHECK_MUTEX_LOCK          MUTEX_LOCK(&PL_check_mutex)
+#  define OP_CHECK_MUTEX_UNLOCK                MUTEX_UNLOCK(&PL_check_mutex)
+#  define OP_CHECK_MUTEX_TERM          MUTEX_DESTROY(&PL_check_mutex)
+#else
+#  define OP_CHECK_MUTEX_INIT          NOOP
+#  define OP_CHECK_MUTEX_LOCK          NOOP
+#  define OP_CHECK_MUTEX_UNLOCK                NOOP
+#  define OP_CHECK_MUTEX_TERM          NOOP
+#endif
+
+/*
  * Local variables:
  * c-indentation-style: bsd
  * c-basic-offset: 4