diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-31 13:54:04 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-31 13:54:04 +0000 |
| commit | 488344d27a84a21afc5e4f3a5237fcad050f664d (patch) | |
| tree | 532046cd58be3f14c96b8af75f49e00d24f5f66d /proto.h | |
| parent | ceb531cd9f4a607a106933280c868d236b5c51fa (diff) | |
| download | perl-488344d27a84a21afc5e4f3a5237fcad050f664d.tar.gz | |
Perl_magic_setbm() and Perl_magic_setfm() are mathoms that can be
merged with Perl_magic_setregexp(). [Coverage on the testsuite
suggests that more than that they're actually dead code, but in theory
it should be possible to construct a test case that exercises them.]
p4raw-id: //depot/perl@32789
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -1198,23 +1198,25 @@ PERL_CALLCONV int Perl_magic_freearylen_p(pTHX_ SV* sv, MAGIC* mg) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); +#ifndef NO_MATHOMS PERL_CALLCONV int Perl_magic_setbm(pTHX_ SV* sv, MAGIC* mg) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); -PERL_CALLCONV int Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg) +PERL_CALLCONV int Perl_magic_setfm(pTHX_ SV* sv, MAGIC* mg) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); -PERL_CALLCONV int Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg) +#endif +PERL_CALLCONV int Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); -PERL_CALLCONV int Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg) +PERL_CALLCONV int Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); -PERL_CALLCONV int Perl_magic_setfm(pTHX_ SV* sv, MAGIC* mg) +PERL_CALLCONV int Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); |