diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-12-31 15:45:03 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-12-31 15:45:03 +0000 |
commit | 68cad0541e26db0a9da20fbbfa9c6f9402e4cde7 (patch) | |
tree | 74888f5f19520c6d4b279fd9a0d1aeee7b952134 | |
parent | 488344d27a84a21afc5e4f3a5237fcad050f664d (diff) | |
download | perl-68cad0541e26db0a9da20fbbfa9c6f9402e4cde7.tar.gz |
As Perl_magic_setbm() and Perl_magic_setfm() aren't in the public API,
they can just go.
p4raw-id: //depot/perl@32790
-rw-r--r-- | embed.fnc | 4 | ||||
-rw-r--r-- | embed.h | 16 | ||||
-rw-r--r-- | mathoms.c | 12 | ||||
-rw-r--r-- | proto.h | 10 |
4 files changed, 0 insertions, 42 deletions
@@ -459,10 +459,6 @@ p |int |magic_set |NN SV* sv|NN MAGIC* mg p |int |magic_setamagic|NN SV* sv|NN MAGIC* mg p |int |magic_setarylen|NN SV* sv|NN MAGIC* mg p |int |magic_freearylen_p|NN SV* sv|NN MAGIC* mg -#ifndef NO_MATHOMS -p |int |magic_setbm |NN SV* sv|NN MAGIC* mg -p |int |magic_setfm |NN SV* sv|NN MAGIC* mg -#endif p |int |magic_setdbline|NN SV* sv|NN MAGIC* mg p |int |magic_setdefelem|NN SV* sv|NN MAGIC* mg p |int |magic_setenv |NN SV* sv|NN MAGIC* mg @@ -431,14 +431,6 @@ #define magic_setamagic Perl_magic_setamagic #define magic_setarylen Perl_magic_setarylen #define magic_freearylen_p Perl_magic_freearylen_p -#endif -#ifndef NO_MATHOMS -#ifdef PERL_CORE -#define magic_setbm Perl_magic_setbm -#define magic_setfm Perl_magic_setfm -#endif -#endif -#ifdef PERL_CORE #define magic_setdbline Perl_magic_setdbline #define magic_setdefelem Perl_magic_setdefelem #define magic_setenv Perl_magic_setenv @@ -2733,14 +2725,6 @@ #define magic_setamagic(a,b) Perl_magic_setamagic(aTHX_ a,b) #define magic_setarylen(a,b) Perl_magic_setarylen(aTHX_ a,b) #define magic_freearylen_p(a,b) Perl_magic_freearylen_p(aTHX_ a,b) -#endif -#ifndef NO_MATHOMS -#ifdef PERL_CORE -#define magic_setbm(a,b) Perl_magic_setbm(aTHX_ a,b) -#define magic_setfm(a,b) Perl_magic_setfm(aTHX_ a,b) -#endif -#endif -#ifdef PERL_CORE #define magic_setdbline(a,b) Perl_magic_setdbline(aTHX_ a,b) #define magic_setdefelem(a,b) Perl_magic_setdefelem(aTHX_ a,b) #define magic_setenv(a,b) Perl_magic_setenv(aTHX_ a,b) @@ -1338,18 +1338,6 @@ Perl_newHV(pTHX) return hv; } -int -Perl_magic_setbm(pTHX_ SV *sv, MAGIC *mg) -{ - return Perl_magic_setregexp(aTHX_ sv, mg); -} - -int -Perl_magic_setfm(pTHX_ SV *sv, MAGIC *mg) -{ - return Perl_magic_setregexp(aTHX_ sv, mg); -} - #endif /* NO_MATHOMS */ /* @@ -1198,16 +1198,6 @@ 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_setfm(pTHX_ SV* sv, MAGIC* mg) - __attribute__nonnull__(pTHX_1) - __attribute__nonnull__(pTHX_2); - -#endif PERL_CALLCONV int Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); |