diff options
| author | Roca, Ignasi <ignasi.roca@fujitsu.siemens.es> | 2000-10-20 15:17:27 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-20 20:44:31 +0000 |
| commit | 40f2e8868acbefb2cc9abf76e6f5b95d85c8d8b6 (patch) | |
| tree | 26fbd8edbcc23dfd82cd6a2bf06816b43348391c /proto.h | |
| parent | d8c7a494ceaca059d73b3da75f0144047dc2f070 (diff) | |
| download | perl-40f2e8868acbefb2cc9abf76e6f5b95d85c8d8b6.tar.gz | |
Make scan_num() reëntrant, as suggested in
Subject: [PATCH perl@7229] Rentrant parser and yylex()
Message-ID: <5930DC161690D211966700902715754702DA09CD@madt009a.siemens.es>
p4raw-id: //depot/perl@7382
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -679,7 +679,7 @@ PERL_CALLCONV OP* Perl_scalarseq(pTHX_ OP* o); PERL_CALLCONV OP* Perl_scalarvoid(pTHX_ OP* o); PERL_CALLCONV NV Perl_scan_bin(pTHX_ char* start, I32 len, I32* retlen); PERL_CALLCONV NV Perl_scan_hex(pTHX_ char* start, I32 len, I32* retlen); -PERL_CALLCONV char* Perl_scan_num(pTHX_ char* s); +PERL_CALLCONV char* Perl_scan_num(pTHX_ char* s, YYSTYPE *lvalp); PERL_CALLCONV NV Perl_scan_oct(pTHX_ char* start, I32 len, I32* retlen); PERL_CALLCONV OP* Perl_scope(pTHX_ OP* o); PERL_CALLCONV char* Perl_screaminstr(pTHX_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last); |