This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add newSVsv_nomg() macro which is like newSVsv() but does not process get magic
[perl5.git] / proto.h
diff --git a/proto.h b/proto.h
index 5e7b23f..b7a3eb3 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2516,8 +2516,16 @@ PERL_CALLCONV SV*        Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash)
 PERL_CALLCONV SV*      Perl_newSVrv(pTHX_ SV *const rv, const char *const classname);
 #define PERL_ARGS_ASSERT_NEWSVRV       \
        assert(rv)
+#ifndef NO_MATHOMS
 PERL_CALLCONV SV*      Perl_newSVsv(pTHX_ SV *const old)
                        __attribute__warn_unused_result__;
+#endif
+
+PERL_CALLCONV SV*      Perl_newSVsv_flags(pTHX_ SV *const old, I32 flags)
+                       __attribute__warn_unused_result__;
+
+/* PERL_CALLCONV SV*   Perl_newSVsv_nomg(pTHX_ SV *const old)
+                       __attribute__warn_unused_result__; */
 
 PERL_CALLCONV SV*      Perl_newSVuv(pTHX_ const UV u)
                        __attribute__warn_unused_result__;