Forgot the expect_number() prototype.

p4raw-id: //depot/perl@8494

diff --git a/embed.h b/embed.h
index ce90e59..82ac12d 100644 (file)
--- 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 9c10252..7e356e8 100755 (executable)
--- 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 00b2ef0..e7a10a6 100644 (file)
--- 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)