Add macros mPUSHs() and mXPUSHs() for pushing SVs on the stack

and mortalizing them. Use these macros where possible. And also
mX?PUSH[inpu] where possible.

p4raw-id: //depot/perl@32821

1 files changed, 4 insertions, 4 deletions

diff --git a/utf8.c b/utf8.c
index e22fe98498..440ee760e2 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1587,11 +1587,11 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits
     SPAGAIN;
     PUSHMARK(SP);
     EXTEND(SP,5);
-    PUSHs(newSVpvn_flags(pkg, pkg_len, SVs_TEMP));
-    PUSHs(newSVpvn_flags(name, name_len, SVs_TEMP));
+    mPUSHp(pkg, pkg_len);
+    mPUSHp(name, name_len);
     PUSHs(listsv);
-    PUSHs(sv_2mortal(newSViv(minbits)));
-    PUSHs(sv_2mortal(newSViv(none)));
+    mPUSHi(minbits);
+    mPUSHi(none);
     PUTBACK;
     errsv_save = newSVsv(ERRSV);
     if (call_method("SWASHNEW", G_SCALAR))