Create embed.fnc entry for pv_display_flags_

This creates an ARGS_ASSERT for this function.  Previously, the code was
using the one for plain pv_display(), which is kind of ugly.  Now there
is a macro for each function

Author: khwilliamson

dump.c

@@ -95,7 +95,7 @@ S_append_flags(pTHX_ SV *sv, U32 flags, const struct flag_to_name *start,
                               | ((utf8) ? PERL_PV_ESCAPE_UNI : 0) )
 
 #define _pv_display_for_dump(dsv, pv, cur, len, pvlim) \
-    pv_display_flags(aTHX_ dsv, pv, cur, len, pvlim, PERL_PV_ESCAPE_DWIM_ALL_HEX)
+    pv_display_flags(dsv, pv, cur, len, pvlim, PERL_PV_ESCAPE_DWIM_ALL_HEX)
 
 /*
 =for apidoc pv_escape
@@ -417,9 +417,9 @@ Perl_pv_pretty( pTHX_ SV *dsv, char const * const str, const STRLEN count,
 }
 
 STATIC char *
-pv_display_flags(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim, I32 pretty_flags)
+S_pv_display_flags(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim, I32 pretty_flags)
 {
-    PERL_ARGS_ASSERT_PV_DISPLAY;
+    PERL_ARGS_ASSERT_PV_DISPLAY_FLAGS;
 
     pv_pretty( dsv, pv, cur, pvlim, NULL, NULL, PERL_PV_PRETTY_DUMP | pretty_flags );
     if (len > cur && pv[cur] == '\0')
@@ -445,7 +445,9 @@ Note that the final string may be up to 7 chars longer than pvlim.
 char *
 Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
 {
-    return pv_display_flags(aTHX_ dsv, pv, cur, len, pvlim, 0);
+    PERL_ARGS_ASSERT_PV_DISPLAY;
+
+    return pv_display_flags(dsv, pv, cur, len, pvlim, 0);
 }
 
 /*

embed.fnc

@@ -4460,6 +4460,13 @@ ERXp	|const char *|form_cp_too_large_msg				\
 S	|CV *	|deb_curcv	|I32 ix
 Sd	|void	|debprof	|NN const OP *o
 S	|SV *	|pm_description |NN const PMOP *pm
+S	|char * |pv_display_flags					\
+				|NN SV *dsv				\
+				|NN const char *pv			\
+				|STRLEN cur				\
+				|STRLEN len				\
+				|STRLEN pvlim				\
+				|I32 pretty_flags
 S	|UV	|sequence_num	|NULLOK const OP *o
 #endif
 #if defined(PERL_IN_DUMP_C)  || defined(PERL_IN_HV_C) || \

embed.h

@@ -1340,6 +1340,7 @@
 #     define deb_curcv(a)                       S_deb_curcv(aTHX_ a)
 #     define debprof(a)                         S_debprof(aTHX_ a)
 #     define pm_description(a)                  S_pm_description(aTHX_ a)
+#     define pv_display_flags(a,b,c,d,e,f)      S_pv_display_flags(aTHX_ a,b,c,d,e,f)
 #     define sequence_num(a)                    S_sequence_num(aTHX_ a)
 #   endif
 #   if defined(PERL_IN_GV_C)