X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embedvar.h;h=f8387c519da9e120d747bb0e1ac43f9f92ba41f1;hb=ddda08b7fcc11fa20ea3d0512758902b8d79862c;hp=e44a2cee2cba9ca15c62b44732cc4cb24a8962e0;hpb=46487f74b15c77c6f040c8b818f810a5255b1078;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embedvar.h b/embedvar.h
index e44a2ce..f8387c5 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -385,7 +385,6 @@
 #define PL_svref_mutex		(PERL_GET_INTERP->Isvref_mutex)
 #define PL_sys_intern		(PERL_GET_INTERP->Isys_intern)
 #define PL_tainting		(PERL_GET_INTERP->Itainting)
-#define PL_thr_key		(PERL_GET_INTERP->Ithr_key)
 #define PL_threadnum		(PERL_GET_INTERP->Ithreadnum)
 #define PL_threads_mutex	(PERL_GET_INTERP->Ithreads_mutex)
 #define PL_threadsv_names	(PERL_GET_INTERP->Ithreadsv_names)
@@ -650,7 +649,6 @@
 #define PL_svref_mutex		(vTHX->Isvref_mutex)
 #define PL_sys_intern		(vTHX->Isys_intern)
 #define PL_tainting		(vTHX->Itainting)
-#define PL_thr_key		(vTHX->Ithr_key)
 #define PL_threadnum		(vTHX->Ithreadnum)
 #define PL_threads_mutex	(vTHX->Ithreads_mutex)
 #define PL_threadsv_names	(vTHX->Ithreadsv_names)
@@ -1052,7 +1050,6 @@
 #define PL_svref_mutex		(aTHXo->interp.Isvref_mutex)
 #define PL_sys_intern		(aTHXo->interp.Isys_intern)
 #define PL_tainting		(aTHXo->interp.Itainting)
-#define PL_thr_key		(aTHXo->interp.Ithr_key)
 #define PL_threadnum		(aTHXo->interp.Ithreadnum)
 #define PL_threads_mutex	(aTHXo->interp.Ithreads_mutex)
 #define PL_threadsv_names	(aTHXo->interp.Ithreadsv_names)
@@ -1318,7 +1315,6 @@
 #define PL_Isvref_mutex		PL_svref_mutex
 #define PL_Isys_intern		PL_sys_intern
 #define PL_Itainting		PL_tainting
-#define PL_Ithr_key		PL_thr_key
 #define PL_Ithreadnum		PL_threadnum
 #define PL_Ithreads_mutex	PL_threads_mutex
 #define PL_Ithreadsv_names	PL_threadsv_names
@@ -1652,7 +1648,9 @@
 #define PL_do_undump		(PL_Vars.Gdo_undump)
 #define PL_hexdigit		(PL_Vars.Ghexdigit)
 #define PL_malloc_mutex		(PL_Vars.Gmalloc_mutex)
+#define PL_op_mutex		(PL_Vars.Gop_mutex)
 #define PL_patleave		(PL_Vars.Gpatleave)
+#define PL_thr_key		(PL_Vars.Gthr_key)
 
 #else /* !PERL_GLOBAL_STRUCT */
 
@@ -1662,7 +1660,9 @@
 #define PL_Gdo_undump		PL_do_undump
 #define PL_Ghexdigit		PL_hexdigit
 #define PL_Gmalloc_mutex	PL_malloc_mutex
+#define PL_Gop_mutex		PL_op_mutex
 #define PL_Gpatleave		PL_patleave
+#define PL_Gthr_key		PL_thr_key
 
 #endif /* PERL_GLOBAL_STRUCT */