X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.fnc;h=99252c28bfdb950670dc230a34461d69b4f24c42;hb=a6aa0b75b0eb9c04ef2df088983c48258eaa6f4f;hp=27fa43db2cf62e45d6c98f5abba80334dd51575a;hpb=e91d68d56f1589ba6c8f530bcf8cdeb3d8943dcf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.fnc b/embed.fnc
index 27fa43d..99252c2 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -683,8 +683,8 @@ Ap	|char *	|reg_stringify  |NN MAGIC *mg|NULLOK STRLEN *lp|NULLOK U32 *flags|NUL
 #if defined(USE_ITHREADS)
 Ap	|void*	|regdupe_internal|NN const regexp* r|NN CLONE_PARAMS* param
 #endif
-Ap	|regexp*|pregcomp	|NN char* exp|NN char* xend|NN PMOP* pm
-Ap	|regexp*|re_compile	|NN char* exp|NN char* xend|NN PMOP* pm
+Ap	|regexp*|pregcomp	|NN char* exp|NN char* xend|U32 pm_flags
+Ap	|regexp*|re_compile	|NN char* exp|NN char* xend|U32 pm_flags
 Ap	|char*	|re_intuit_start|NN regexp* prog|NULLOK SV* sv|NN char* strpos \
 				|NN char* strend|U32 flags \
 				|NULLOK struct re_scream_pos_data_s *data
@@ -696,6 +696,7 @@ ApR	|regnode*|regnext	|NN regnode* p
 
 EXp	|SV*|reg_named_buff_get	|NN const REGEXP * const rx|NN SV* namesv|U32 flags
 EXp	|SV*|reg_numbered_buff_get|NN const REGEXP * const rx|I32 paren|NULLOK SV* usesv
+EXp	|SV*|reg_qr_pkg|NN const REGEXP * const rx
 
 Ep	|void	|regprop	|NULLOK const regexp *prog|NN SV* sv|NN const regnode* o
 Ap	|void	|repeatcpy	|NN char* to|NN const char* from|I32 len|I32 count
@@ -1194,6 +1195,8 @@ pR	|OP*	|ck_trunc	|NN OP *o
 pR	|OP*	|ck_unpack	|NN OP *o
 sRn	|bool	|is_handle_constructor|NN const OP *o|I32 numargs
 sR	|I32	|is_list_assignment|NULLOK const OP *o
+s	|void	|forget_pmop	|NN PMOP *const o|U32 flags
+s	|void	|find_and_forget_pmops	|NN OP *o
 s	|void	|cop_free	|NN COP *cop
 s	|OP*	|modkids	|NULLOK OP *o|I32 type
 s	|OP*	|scalarboolean	|NN OP *o