From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 20 Jan 2001 23:12:11 +0000 (+0000)
Subject: Forgot the expect_number() prototype.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b1bfb713ee2240cea7837d56bcc692b587c8cfb;p=p5sagit%2Fp5-mst-13.2.git

Forgot the expect_number() prototype.

p4raw-id: //depot/perl@8494
---

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