diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-05-18 22:37:31 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-21 18:09:33 -0700 |
| commit | bd6e6c126bf78b3ecdc6512201fd30a2c288fe7f (patch) | |
| tree | fb761eab95e4a92124df9200a6622b8d151dcffb /mg_vtable.h | |
| parent | 5fdfd519dc37986a14b6b55f3343f6dc6db73355 (diff) | |
| download | perl-bd6e6c126bf78b3ecdc6512201fd30a2c288fe7f.tar.gz | |
Annihilate ‘A’ magic
How ironic! Overloading is called ‘A’ magic internally all over the
place, because of the letter used as its magic type. But now it does
not even use that magic.
I left a comment in mg_vtable.pl, so that future maintainers will have
some clue as to what AMAGIC means.
Diffstat (limited to 'mg_vtable.h')
| -rw-r--r-- | mg_vtable.h | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/mg_vtable.h b/mg_vtable.h index e1622b20a5..f6d910474f 100644 --- a/mg_vtable.h +++ b/mg_vtable.h @@ -19,8 +19,6 @@ #define PERL_MAGIC_symtab ':' /* extra data for symbol tables */ #define PERL_MAGIC_backref '<' /* for weak ref data */ #define PERL_MAGIC_arylen_p '@' /* to move arylen out of XPVAV */ -#define PERL_MAGIC_overload 'A' /* %OVERLOAD hash */ -#define PERL_MAGIC_overload_elem 'a' /* %OVERLOAD hash element */ #define PERL_MAGIC_bm 'B' /* Boyer-Moore (fast string search) */ #define PERL_MAGIC_overload_table 'c' /* Holds overload table (AMT) on stash */ #define PERL_MAGIC_regdata 'D' /* Regex match position data @@ -60,8 +58,6 @@ #define PERL_MAGIC_ext '~' /* Available for use by extensions */ enum { /* pass one of these to get_vtbl */ - want_vtbl_amagic, - want_vtbl_amagicelem, want_vtbl_arylen, want_vtbl_arylen_p, want_vtbl_backref, @@ -97,8 +93,6 @@ enum { /* pass one of these to get_vtbl */ #ifdef DOINIT EXTCONST char *PL_magic_vtable_names[magic_vtable_max] = { - "amagic", - "amagicelem", "arylen", "arylen_p", "backref", @@ -153,8 +147,6 @@ EXTCONST char *PL_magic_vtable_names[magic_vtable_max]; #ifdef DOINIT EXT_MGVTBL PL_magic_vtables[magic_vtable_max] = { - { 0, Perl_magic_setamagic, 0, 0, Perl_magic_setamagic, 0, 0, 0 }, - { 0, Perl_magic_setamagic, 0, 0, Perl_magic_setamagic, 0, 0, 0 }, { (int (*)(pTHX_ SV *, MAGIC *))Perl_magic_getarylen, Perl_magic_setarylen, 0, 0, 0, 0, 0, 0 }, { 0, 0, 0, 0, Perl_magic_freearylen_p, 0, 0, 0 }, { 0, 0, 0, 0, Perl_magic_killbackrefs, 0, 0, 0 }, @@ -201,8 +193,6 @@ EXT_MGVTBL PL_magic_vtables[magic_vtable_max]; #define want_vtbl_bm want_vtbl_regexp #define want_vtbl_fm want_vtbl_regexp -#define PL_vtbl_amagic PL_magic_vtables[want_vtbl_amagic] -#define PL_vtbl_amagicelem PL_magic_vtables[want_vtbl_amagicelem] #define PL_vtbl_arylen PL_magic_vtables[want_vtbl_arylen] #define PL_vtbl_arylen_p PL_magic_vtables[want_vtbl_arylen_p] #define PL_vtbl_backref PL_magic_vtables[want_vtbl_backref] |