X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.pl;h=e5ca87a4f0d3f71b7d20ff52b61bbd19a230ad6b;hb=48cf72c85711f1650a96caf8dc746a297ee2bd06;hp=9c1025295ff4a2cd37456fe9529425bb5e312ea7;hpb=ce08f86c8b1d404b3d9fec75a102b8cd65f8766a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.pl b/embed.pl
index 9c10252..e5ca87a 100755
--- a/embed.pl
+++ b/embed.pl
@@ -1494,6 +1494,9 @@ Ap	|bool	|do_open	|GV* gv|char* name|I32 len|int as_raw \
 Ap	|bool	|do_open9	|GV *gv|char *name|I32 len|int as_raw \
 				|int rawmode|int rawperm|PerlIO *supplied_fp \
 				|SV *svs|I32 num
+Ap	|bool	|do_openn	|GV *gv|char *name|I32 len|int as_raw \
+				|int rawmode|int rawperm|PerlIO *supplied_fp \
+				|SV **svp|I32 num
 p	|void	|do_pipe	|SV* sv|GV* rgv|GV* wgv
 p	|bool	|do_print	|SV* sv|PerlIO* fp
 p	|OP*	|do_readline
@@ -2100,10 +2103,8 @@ Ap	|I32	|whichsig	|char* sig
 p	|int	|yyerror	|char* s
 #ifdef USE_PURE_BISON
 p	|int	|yylex_r	|YYSTYPE *lvalp|int *lcharp
-p	|int	|yylex		|YYSTYPE *lvalp|int *lcharp
-#else
-p	|int	|yylex
 #endif
+p	|int	|yylex
 p	|int	|yyparse
 p	|int	|yywarn		|char* s
 #if defined(MYMALLOC)
@@ -2477,6 +2478,7 @@ s	|void	|del_sv	|SV *p
 s      |int    |sv_2inuv_non_preserve  |SV *sv|I32 numtype
 s      |int    |sv_2iuv_non_preserve   |SV *sv|I32 numtype
 #  endif
+s	|I32	|expect_number	|char** pattern
 #endif
 
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)