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 /sv.c | |
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
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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; } |