Change 28584 by [EMAIL PROTECTED] on 2006/07/16 00:20:25
run regen_headerds
Affected files ...
... //depot/perl/embed.h#617 edit
... //depot/perl/global.sym#309 edit
... //depot/perl/proto.h#740 edit
Differences ...
==== //depot/perl/embed.h#617 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#616~28525~ 2006-07-10 04:28:24.000000000 -0700
+++ perl/embed.h 2006-07-15 17:20:25.000000000 -0700
@@ -1001,6 +1001,7 @@
#define get_vtbl Perl_get_vtbl
#define pv_display Perl_pv_display
#define pv_escape Perl_pv_escape
+#define pv_pretty Perl_pv_pretty
#define dump_indent Perl_dump_indent
#define dump_vindent Perl_dump_vindent
#define do_gv_dump Perl_do_gv_dump
@@ -1363,6 +1364,7 @@
# ifdef DEBUGGING
#if defined(PERL_CORE) || defined(PERL_EXT)
#define dump_exec_pos S_dump_exec_pos
+#define debug_start_match S_debug_start_match
#endif
# endif
#endif
@@ -3187,7 +3189,8 @@
#define sv_setsv_mg(a,b) Perl_sv_setsv_mg(aTHX_ a,b)
#define get_vtbl(a) Perl_get_vtbl(aTHX_ a)
#define pv_display(a,b,c,d,e) Perl_pv_display(aTHX_ a,b,c,d,e)
-#define pv_escape(a,b,c,d,e) Perl_pv_escape(aTHX_ a,b,c,d,e)
+#define pv_escape(a,b,c,d,e,f) Perl_pv_escape(aTHX_ a,b,c,d,e,f)
+#define pv_pretty(a,b,c,d,e,f,g) Perl_pv_pretty(aTHX_ a,b,c,d,e,f,g)
#define dump_vindent(a,b,c,d) Perl_dump_vindent(aTHX_ a,b,c,d)
#define do_gv_dump(a,b,c,d) Perl_do_gv_dump(aTHX_ a,b,c,d)
#define do_gvgv_dump(a,b,c,d) Perl_do_gvgv_dump(aTHX_ a,b,c,d)
@@ -3550,6 +3553,7 @@
# ifdef DEBUGGING
#if defined(PERL_CORE) || defined(PERL_EXT)
#define dump_exec_pos(a,b,c) S_dump_exec_pos(aTHX_ a,b,c)
+#define debug_start_match(a,b,c,d,e) S_debug_start_match(aTHX_ a,b,c,d,e)
#endif
# endif
#endif
==== //depot/perl/global.sym#309 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#308~28525~ 2006-07-10 04:28:24.000000000 -0700
+++ perl/global.sym 2006-07-15 17:20:25.000000000 -0700
@@ -606,6 +606,7 @@
Perl_get_vtbl
Perl_pv_display
Perl_pv_escape
+Perl_pv_pretty
Perl_dump_indent
Perl_dump_vindent
Perl_do_gv_dump
==== //depot/perl/proto.h#740 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#739~28525~ 2006-07-10 04:28:24.000000000 -0700
+++ perl/proto.h 2006-07-15 17:20:25.000000000 -0700
@@ -2674,7 +2674,11 @@
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_2);
-PERL_CALLCONV char* Perl_pv_escape(pTHX_ SV *dsv, const char *pv, const
STRLEN count, const STRLEN max, const U32 flags)
+PERL_CALLCONV char* Perl_pv_escape(pTHX_ SV *dsv, U8 const * const str,
const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags)
+ __attribute__nonnull__(pTHX_1)
+ __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV char* Perl_pv_pretty(pTHX_ SV *dsv, U8 const * const str,
const STRLEN count, const STRLEN max, U8 const * const start_color, U8 const *
const end_color, const U32 flags)
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_2);
@@ -3728,6 +3732,12 @@
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_2);
+STATIC void S_debug_start_match(pTHX_ const regexp *prog, const bool
do_utf8, const char *start, const char *end, const char *blurb)
+ __attribute__nonnull__(pTHX_1)
+ __attribute__nonnull__(pTHX_3)
+ __attribute__nonnull__(pTHX_4)
+ __attribute__nonnull__(pTHX_5);
+
# endif
#endif
End of Patch.
