summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2001-01-21 12:18:45 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2001-01-21 12:18:45 +0000
commit9dd79c3f9b66ee5059b4277b6f15d5bfcd846510 (patch)
tree946a8acea14ca1f0cc3347eb3dc03de1ec711242 /sv.c
parent52265d3151772e94ddec71ce5f4d46e7950012b7 (diff)
downloadperl-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.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/sv.c b/sv.c
index cccd2e947b..70a45a3999 100644
--- a/sv.c
+++ b/sv.c
@@ -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;
}