Forgot the expect_number() prototype.

p4raw-id: //depot/perl@8494

3 files changed, 6 insertions, 0 deletions

diff --git a/embed.h b/embed.h
index ce90e598af..82ac12de00 100644
--- a/embed.h
+++ b/embed.h
@@ -1097,6 +1097,7 @@
 #define sv_2inuv_non_preserve	S_sv_2inuv_non_preserve
 #define sv_2iuv_non_preserve	S_sv_2iuv_non_preserve
 #  endif
+#define expect_number		S_expect_number
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni		S_check_uni
@@ -2566,6 +2567,7 @@
 #define sv_2inuv_non_preserve(a,b)	S_sv_2inuv_non_preserve(aTHX_ a,b)
 #define sv_2iuv_non_preserve(a,b)	S_sv_2iuv_non_preserve(aTHX_ a,b)
 #  endif
+#define expect_number(a)	S_expect_number(aTHX_ a)
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni()		S_check_uni(aTHX)
@@ -4991,6 +4993,8 @@
 #define S_sv_2iuv_non_preserve	CPerlObj::S_sv_2iuv_non_preserve
 #define sv_2iuv_non_preserve	S_sv_2iuv_non_preserve
 #  endif
+#define S_expect_number		CPerlObj::S_expect_number
+#define expect_number		S_expect_number
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define S_check_uni		CPerlObj::S_check_uni
diff --git a/embed.pl b/embed.pl
index 9c1025295f..7e356e82af 100755
--- a/embed.pl
+++ b/embed.pl
@@ -2477,6 +2477,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)
diff --git a/proto.h b/proto.h
index 00b2ef0246..e7a10a6aa5 100644
--- a/proto.h
+++ b/proto.h
@@ -1217,6 +1217,7 @@ STATIC void	S_del_sv(pTHX_ SV *p);
 STATIC int	S_sv_2inuv_non_preserve(pTHX_ SV *sv, I32 numtype);
 STATIC int	S_sv_2iuv_non_preserve(pTHX_ SV *sv, I32 numtype);
 #  endif
+STATIC I32	S_expect_number(pTHX_ char** pattern);
 #endif
 
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)