diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-21 12:18:45 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-21 12:18:45 +0000 |
commit | 9dd79c3f9b66ee5059b4277b6f15d5bfcd846510 (patch) | |
tree | 946a8acea14ca1f0cc3347eb3dc03de1ec711242 | |
parent | 52265d3151772e94ddec71ce5f4d46e7950012b7 (diff) | |
download | perl-9dd79c3f9b66ee5059b4277b6f15d5bfcd846510.tar.gz |
Fixup after integrate:
missed the .sym files that are changed by regen_headers
sv.c and proto.h disagreed about pTHX_ ness of EXPECT_NUMBER.
p4raw-id: //depot/perlio@8496
-rw-r--r-- | global.sym | 1 | ||||
-rw-r--r-- | pp.sym | 2 | ||||
-rw-r--r-- | sv.c | 8 |
3 files changed, 6 insertions, 5 deletions
diff --git a/global.sym b/global.sym index 2f6f65b9c8..48128c911d 100644 --- a/global.sym +++ b/global.sym @@ -91,6 +91,7 @@ Perl_do_close Perl_do_join Perl_do_open Perl_do_open9 +Perl_do_openn Perl_dowantarray Perl_dump_all Perl_dump_eval @@ -1,5 +1,5 @@ # -# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by opcode.pl from its data. Any changes made here # will be lost! # @@ -6705,7 +6705,7 @@ Perl_sv_vsetpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV } I32 -S_expect_number(char** pattern) +S_expect_number(pTHX_ char** pattern) { I32 var = 0; switch (**pattern) { @@ -6717,7 +6717,7 @@ S_expect_number(char** pattern) } return var; } -#define EXPECT_NUMBER(pattern, var) (var = S_expect_number(&pattern)) +#define EXPECT_NUMBER(pattern, var) (var = S_expect_number(aTHX_ &pattern)) /* =for apidoc sv_vcatpvfn @@ -7369,7 +7369,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV #endif } } - else + else sv_setuv_mg(argsv, (UV)i); continue; /* not "break" */ @@ -8878,7 +8878,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, if (proto_perl->Ipsig_pend) { Newz(0, PL_psig_pend, SIG_SIZE, int); - } + } else { PL_psig_pend = (int*)NULL; } |