diff options
| author | Karl Williamson <khw@cpan.org> | 2016-05-10 21:02:16 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-05-12 20:19:59 -0600 |
| commit | 3d9637d600ac38511f9e25c1dc51d91ea4a3bf43 (patch) | |
| tree | 632d31e4b09ab7e8d869fefbaf5cc93b478f5a45 /proto.h | |
| parent | 3f1866a8f6c7a9d70d0c8bb1b4f20d2db63756f1 (diff) | |
| download | perl-3d9637d600ac38511f9e25c1dc51d91ea4a3bf43.tar.gz | |
Make two functions for 5.005 backcompat MATHOMS
The functions sv_setpviv() and sv_setpviv_mg() exist only for backcompat
with 5.005. (verified with Jarkko and Nicholas). Make them compile only
when mathoms is present. They can't be moved to mathoms.c because they
both call a static function visible only in sv.c.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -3276,12 +3276,16 @@ PERL_CALLCONV void Perl_sv_setpvf_mg(pTHX_ SV *const sv, const char *const pat, #define PERL_ARGS_ASSERT_SV_SETPVF_MG \ assert(sv); assert(pat) +#ifndef NO_MATHOMS PERL_CALLCONV void Perl_sv_setpviv(pTHX_ SV *const sv, const IV num); #define PERL_ARGS_ASSERT_SV_SETPVIV \ assert(sv) +#endif +#ifndef NO_MATHOMS PERL_CALLCONV void Perl_sv_setpviv_mg(pTHX_ SV *const sv, const IV iv); #define PERL_ARGS_ASSERT_SV_SETPVIV_MG \ assert(sv) +#endif PERL_CALLCONV void Perl_sv_setpvn(pTHX_ SV *const sv, const char *const ptr, const STRLEN len); #define PERL_ARGS_ASSERT_SV_SETPVN \ assert(sv) |