This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Evaluate arg once in all forms of SvTRUE
[perl5.git] / embed.h
diff --git a/embed.h b/embed.h
index 8d27796..fd5f3b4 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define Gv_AMupdate(a,b)       Perl_Gv_AMupdate(aTHX_ a,b)
 #define SvAMAGIC_off           Perl_SvAMAGIC_off
 #define SvAMAGIC_on            Perl_SvAMAGIC_on
+#define SvTRUE(a)              Perl_SvTRUE(aTHX_ a)
+#define SvTRUE_NN(a)           Perl_SvTRUE_NN(aTHX_ a)
+#define SvTRUE_common(a,b)     Perl_SvTRUE_common(aTHX_ a,b)
+#define SvTRUE_nomg(a)         Perl_SvTRUE_nomg(aTHX_ a)
 #define _force_out_malformed_utf8_message(a,b,c,d)     Perl__force_out_malformed_utf8_message(aTHX_ a,b,c,d)
 #define _is_uni_FOO(a,b)       Perl__is_uni_FOO(aTHX_ a,b)
 #define _is_uni_perl_idcont(a) Perl__is_uni_perl_idcont(aTHX_ a)