Change 32790 by [EMAIL PROTECTED] on 2007/12/31 15:45:03
As Perl_magic_setbm() and Perl_magic_setfm() aren't in the public API,
they can just go.
Affected files ...
... //depot/perl/embed.fnc#546 edit
... //depot/perl/embed.h#733 edit
... //depot/perl/mathoms.c#85 edit
... //depot/perl/proto.h#882 edit
Differences ...
==== //depot/perl/embed.fnc#546 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#545~32789~ 2007-12-31 05:54:04.000000000 -0800
+++ perl/embed.fnc 2007-12-31 07:45:03.000000000 -0800
@@ -459,10 +459,6 @@
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
==== //depot/perl/embed.h#733 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#732~32789~ 2007-12-31 05:54:04.000000000 -0800
+++ perl/embed.h 2007-12-31 07:45:03.000000000 -0800
@@ -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)
==== //depot/perl/mathoms.c#85 (text) ====
Index: perl/mathoms.c
--- perl/mathoms.c#84~32789~ 2007-12-31 05:54:04.000000000 -0800
+++ perl/mathoms.c 2007-12-31 07:45:03.000000000 -0800
@@ -1338,18 +1338,6 @@
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 */
/*
==== //depot/perl/proto.h#882 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#881~32789~ 2007-12-31 05:54:04.000000000 -0800
+++ perl/proto.h 2007-12-31 07:45:03.000000000 -0800
@@ -1198,16 +1198,6 @@
__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);
End of Patch.
