X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.pl;h=3d4f3bb76bdca952d46710b53cce247f659a65b1;hb=ce58e4c2a04da0fdbc16746698a37cdef4d70f56;hp=7e94a09146b83ca97eb7e8a0fd8a59b7b063a9a1;hpb=9bb8fa4d8ccca8c2de391a370dd92749d7f09354;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.pl b/embed.pl
index 7e94a09..3d4f3bb 100755
--- a/embed.pl
+++ b/embed.pl
@@ -2106,6 +2106,9 @@ Ap	|struct perl_vars *|GetVars
 #endif
 Ap	|int	|runops_standard
 Ap	|int	|runops_debug
+#if defined(USE_THREADS)
+Ap	|SV*	|sv_lock	|SV *sv
+#endif
 Afpd	|void	|sv_catpvf_mg	|SV *sv|const char* pat|...
 Ap	|void	|sv_vcatpvf_mg	|SV* sv|const char* pat|va_list* args
 Apd	|void	|sv_catpv_mg	|SV *sv|const char *ptr
@@ -2515,8 +2518,6 @@ s	|void	|xstat		|int
 #  endif
 #endif
 
-Arp	|SV*	|lock		|SV *sv
-
 #if defined(PERL_OBJECT)
 };
 #endif