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 /embed.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 'embed.h')
| -rw-r--r-- | embed.h | 16 |
1 files changed, 14 insertions, 2 deletions
@@ -431,11 +431,17 @@ #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 -#define magic_setfm Perl_magic_setfm #define magic_sethint Perl_magic_sethint #define magic_setisa Perl_magic_setisa #define magic_setmglob Perl_magic_setmglob @@ -2727,11 +2733,17 @@ #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) -#define magic_setfm(a,b) Perl_magic_setfm(aTHX_ a,b) #define magic_sethint(a,b) Perl_magic_sethint(aTHX_ a,b) #define magic_setisa(a,b) Perl_magic_setisa(aTHX_ a,b) #define magic_setmglob(a,b) Perl_magic_setmglob(aTHX_ a,b) |