This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: There is no macro for sv_nolocking()
authorKarl Williamson <khw@cpan.org>
Sat, 31 Aug 2019 23:00:26 +0000 (17:00 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 3 Sep 2019 03:52:10 +0000 (21:52 -0600)
Contrary to what this said.

embed.fnc
embed.h

index dcc8a78..cb52543 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2196,7 +2196,7 @@ Adop      |void   |custom_op_register     |NN Perl_ppaddr_t ppaddr \
                        |NN const XOP *xop
 
 Adp    |void   |sv_nosharing   |NULLOK SV *sv
-Adpbm  |void   |sv_nolocking   |NULLOK SV *sv
+Adpb   |void   |sv_nolocking   |NULLOK SV *sv
 Adp    |bool   |sv_destroyable |NULLOK SV *sv
 Adpb   |void   |sv_nounlocking |NULLOK SV *sv
 Adp    |int    |nothreadhook
diff --git a/embed.h b/embed.h
index 450755b..908e159 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define sv_mortalcopy_flags(a,b)       Perl_sv_mortalcopy_flags(aTHX_ a,b)
 #define sv_newmortal()         Perl_sv_newmortal(aTHX)
 #define sv_newref(a)           Perl_sv_newref(aTHX_ a)
+#ifndef NO_MATHOMS
+#define sv_nolocking(a)                Perl_sv_nolocking(aTHX_ a)
+#endif
 #define sv_nosharing(a)                Perl_sv_nosharing(aTHX_ a)
 #ifndef NO_MATHOMS
 #define sv_nounlocking(a)      Perl_sv_nounlocking(aTHX_ a)