pp_match(): output regex debugging info

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 73a0402..09fce2a 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -453,6 +453,8 @@
 :
 : Individual flags may be separated by non-tab whitespace.
 
+CipRTX |char * |mortal_getenv  |NN const char * str
+
 #if defined(PERL_IMPLICIT_SYS)
 ATo    |PerlInterpreter*|perl_alloc_using \
                                |NN struct IPerlMem *ipM \
@@ -998,6 +1000,10 @@ p |bool   |io_close       |NN IO* io|NULLOK GV *gv \
                                |bool not_implicit|bool warn_on_fail
 : Used in perly.y
 pR     |OP*    |invert         |NULLOK OP* cmd
+pR     |OP*    |cmpchain_start |I32 type|NULLOK OP* left \
+                               |NULLOK OP* right
+pR     |OP*    |cmpchain_extend|I32 type|NN OP* ch|NULLOK OP* right
+pR     |OP*    |cmpchain_finish|NN OP* ch
 ApR    |I32    |is_lvalue_sub
 : Used in cop.h
 XopR   |I32    |was_lvalue_sub
@@ -1876,7 +1882,6 @@ EXpRT     |const char * const *|get_prop_values|const int table_index
 EXpR   |SV *   |get_prop_definition|const int table_index
 EXpRT  |const char *|get_deprecated_property_msg|const Size_t warning_offset
 #if defined(PERL_IN_REGCOMP_C)
-ERS    |REGEXP*|re_op_compile_wrapper|NN SV * const pattern|U32 orig_rx_flags|const U32 pm_flags
 EiRT   |bool   |invlist_is_iterating|NN SV* const invlist
 EiR    |SV*    |invlist_contents|NN SV* const invlist              \
                                 |const bool traditional_style
@@ -1952,7 +1957,7 @@ ES        |bool   |handle_names_wildcard                                      \
                                |NN SV ** prop_definition
 ES     |void|add_above_Latin1_folds|NN RExC_state_t *pRExC_state|const U8 cp \
                                |NN SV** invlist
-Ei     |regnode_offset|handle_named_backref|NN RExC_state_t *pRExC_state   \
+ES     |regnode_offset|handle_named_backref|NN RExC_state_t *pRExC_state   \
                                |NN I32 *flagp                              \
                                |NN char * parse_start                      \
                                |char ch
@@ -1993,7 +1998,7 @@ ES        |U32    |join_exact     |NN RExC_state_t *pRExC_state \
                                |NN regnode *scan|NN UV *min_subtract  \
                                |NN bool *unfolded_multi_char          \
                                |U32 flags|NULLOK regnode *val|U32 depth
-EiT    |U8   |compute_EXACTish|NN RExC_state_t *pRExC_state
+EST    |U8   |compute_EXACTish|NN RExC_state_t *pRExC_state
 ES     |void   |nextchar       |NN RExC_state_t *pRExC_state
 ES     |void   |skip_to_be_ignored_text|NN RExC_state_t *pRExC_state  \
                                |NN char ** p                       \
@@ -2019,15 +2024,15 @@ ES      |void   |ssc_or         |NN const RExC_state_t *pRExC_state \
 ES     |SV*    |get_ANYOF_cp_list_for_ssc                                 \
                                |NN const RExC_state_t *pRExC_state \
                                |NN const regnode_charclass* const node
-Ei     |void   |ssc_intersection|NN regnode_ssc *ssc \
+ES     |void   |ssc_intersection|NN regnode_ssc *ssc \
                                |NN SV* const invlist|const bool invert_2nd
-Ei     |void   |ssc_union      |NN regnode_ssc *ssc \
+ES     |void   |ssc_union      |NN regnode_ssc *ssc \
                                |NN SV* const invlist|const bool invert_2nd
-Ei     |void   |ssc_add_range  |NN regnode_ssc *ssc \
+ES     |void   |ssc_add_range  |NN regnode_ssc *ssc \
                                |UV const start|UV const end
-Ei     |void   |ssc_cp_and     |NN regnode_ssc *ssc \
+ES     |void   |ssc_cp_and     |NN regnode_ssc *ssc \
                                |UV const cp
-EiT    |void   |ssc_clear_locale|NN regnode_ssc *ssc
+EST    |void   |ssc_clear_locale|NN regnode_ssc *ssc
 ETS    |bool   |is_ssc_worth_it|NN const RExC_state_t * pRExC_state \
                                |NN const regnode_ssc * ssc
 ES     |void   |ssc_finalize   |NN RExC_state_t *pRExC_state \
@@ -2199,13 +2204,23 @@ EiRT    |bool   |_invlist_contains_cp|NN SV* const invlist|const UV cp
 EXpRT  |SSize_t|_invlist_search        |NN SV* const invlist|const UV cp
 #endif
 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
-EXp    |SV*    |_get_regclass_nonbitmap_data                              \
+#  ifndef PERL_EXT_RE_BUILD
+Ep     |SV*    |get_regclass_nonbitmap_data                               \
+                               |NULLOK const regexp *prog                 \
+                               |NN const struct regnode *node             \
+                               |bool doinit                               \
+                               |NULLOK SV **listsvp                       \
+                               |NULLOK SV **lonly_utf8_locale             \
+                               |NULLOK SV **output_invlist
+#  else
+Ep     |SV*    |get_re_gclass_nonbitmap_data                              \
                                |NULLOK const regexp *prog                 \
                                |NN const struct regnode *node             \
                                |bool doinit                               \
                                |NULLOK SV **listsvp                       \
                                |NULLOK SV **lonly_utf8_locale             \
                                |NULLOK SV **output_invlist
+#endif
 Ep     |void   |regprop        |NULLOK const regexp *prog|NN SV* sv|NN const regnode* o|NULLOK const regmatch_info *reginfo \
                                |NULLOK const RExC_state_t *pRExC_state
 Efp    |int    |re_printf      |NN const char *fmt|...
@@ -2529,7 +2544,7 @@ ATpa      |Malloc_t|safesysmalloc |MEM_SIZE nbytes
 ATpa   |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
 ATpR   |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
 ATp    |Free_t |safesysfree    |Malloc_t where
-AirTep |void   |croak_memory_wrap
+CrTp   |void   |croak_memory_wrap
 #if defined(PERL_GLOBAL_STRUCT)
 Ap     |struct perl_vars *|GetVars
 Ap     |struct perl_vars*|init_global_struct
@@ -2829,6 +2844,9 @@ pReo      |GV*    |softref2xv     |NN SV *const sv|NN const char *const what \
                                |const svtype type|NN SV ***spp
 iTR    |bool   |lossless_NV_to_IV|const NV nv|NN IV * ivp
 #endif
+#if defined(PERL_IN_PP_HOT_C)
+IR     |bool   |should_we_output_Debug_r|NN regexp * prog
+#endif
 
 #if defined(PERL_IN_PP_PACK_C)
 S      |SSize_t|unpack_rec     |NN struct tempsym* symptr|NN const char *s \