From: Dave Mitchell Date: Sun, 16 Jul 2006 00:20:25 +0000 (+0000) Subject: run regen_headerds X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a2bdfd0e906359696ca0db94c49d11f3999e99b;p=p5sagit%2Fp5-mst-13.2.git run regen_headerds p4raw-id: //depot/perl@28584 --- diff --git a/embed.h b/embed.h index 3c4c65c..cb2193b 100644 --- a/embed.h +++ b/embed.h @@ -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 diff --git a/global.sym b/global.sym index 4d2cb51..3b4b4e5 100644 --- a/global.sym +++ b/global.sym @@ -606,6 +606,7 @@ Perl_sv_usepvn_mg Perl_get_vtbl Perl_pv_display Perl_pv_escape +Perl_pv_pretty Perl_dump_indent Perl_dump_vindent Perl_do_gv_dump diff --git a/proto.h b/proto.h index 928ba5e..7fa377b 100644 --- a/proto.h +++ b/proto.h @@ -2674,7 +2674,11 @@ PERL_CALLCONV char* Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, S __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 @@ STATIC void S_dump_exec_pos(pTHX_ const char *locinput, const regnode *scan, con __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