diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-10 18:37:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-10 18:37:57 +0000 |
| commit | dd5dc04f542db5aa619bf5c0cc2e371a87aef44b (patch) | |
| tree | 295eb7bb6a0e0c5829d18b025c0ddd3ca807019b /proto.h | |
| parent | 7b57b0ead8ab6b3f08be8b4ded2364d260db25a1 (diff) | |
| download | perl-dd5dc04f542db5aa619bf5c0cc2e371a87aef44b.tar.gz | |
Move the grok_number and its lieutenant grok_numeric_radix
from sv.c statics to util.c and public.
p4raw-id: //depot/perl@10505
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -405,6 +405,8 @@ PERL_CALLCONV void Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...); PERL_CALLCONV void Perl_vload_module(pTHX_ U32 flags, SV* name, SV* ver, va_list* args); PERL_CALLCONV OP* Perl_localize(pTHX_ OP* arg, I32 lexical); PERL_CALLCONV I32 Perl_looks_like_number(pTHX_ SV* sv); +PERL_CALLCONV int Perl_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep); +PERL_CALLCONV bool Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send); PERL_CALLCONV int Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg); PERL_CALLCONV int Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg); PERL_CALLCONV int Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg); @@ -1245,8 +1247,6 @@ STATIC I32 S_expect_number(pTHX_ char** pattern); # if defined(USE_ITHREADS) STATIC SV* S_gv_share(pTHX_ SV *sv); # endif -STATIC int S_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep); -STATIC int S_grok_numeric_radix(pTHX_ const char **sp, const char *send); #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) |