Remove proto magic type
authorFather Chrysostomos <sprout@cpan.org>
Fri, 28 Nov 2014 06:35:17 +0000 (22:35 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 30 Nov 2014 19:48:42 +0000 (11:48 -0800)
It is no longer in use, as of two commits ago.

mg_names.c
mg_raw.h
mg_vtable.h
pod/perlguts.pod
regen/mg_vtable.pl

index 237dfc5..57d52db 100644 (file)
@@ -9,7 +9,6 @@
        { PERL_MAGIC_sv,             "sv(\\0)" },
        { PERL_MAGIC_arylen,         "arylen(#)" },
        { PERL_MAGIC_rhash,          "rhash(%)" },
-       { PERL_MAGIC_proto,          "proto(&)" },
        { PERL_MAGIC_debugvar,       "debugvar(*)" },
        { PERL_MAGIC_pos,            "pos(.)" },
        { PERL_MAGIC_symtab,         "symtab(:)" },
index fd4a826..b3e25d6 100644 (file)
--- a/mg_raw.h
+++ b/mg_raw.h
@@ -12,8 +12,6 @@
       "/* arylen '#' Array length ($#ary) */" },
     { '%', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
       "/* rhash '%' Extra data for restricted hashes */" },
-    { '&', "magic_vtable_max",
-      "/* proto '&' my sub prototype CV */" },
     { '*', "want_vtbl_debugvar",
       "/* debugvar '*' $DB::single, signal, trace vars */" },
     { '.', "want_vtbl_pos | PERL_MAGIC_VALUE_MAGIC",
index c0bb820..c71a988 100644 (file)
@@ -15,7 +15,6 @@
 #define PERL_MAGIC_sv             '\0' /* Special scalar variable */
 #define PERL_MAGIC_arylen         '#' /* Array length ($#ary) */
 #define PERL_MAGIC_rhash          '%' /* Extra data for restricted hashes */
-#define PERL_MAGIC_proto          '&' /* my sub prototype CV */
 #define PERL_MAGIC_debugvar       '*' /* $DB::single, signal, trace vars */
 #define PERL_MAGIC_pos            '.' /* pos() lvalue */
 #define PERL_MAGIC_symtab         ':' /* Extra data for symbol tables */
index 60f74c1..2b589fb 100644 (file)
@@ -1168,7 +1168,6 @@ will be lost.
  #  PERL_MAGIC_arylen         vtbl_arylen    Array length ($#ary)
  %  PERL_MAGIC_rhash          (none)         Extra data for restricted
                                              hashes
- &  PERL_MAGIC_proto          (none)         my sub prototype CV
  *  PERL_MAGIC_debugvar       vtbl_debugvar  $DB::single, signal, trace
                                              vars
  .  PERL_MAGIC_pos            vtbl_pos       pos() lvalue
index 7eda5e1..46dce97 100644 (file)
@@ -94,7 +94,6 @@ my %mg =
                  desc => "Shadow \"foreach\" iterator variable /\nsmart parameter vivification" },
      arylen => { char => '#', vtable => 'arylen', value_magic => 1,
                 desc => 'Array length ($#ary)' },
-     proto => { char => '&', desc => 'my sub prototype CV' },
      pos => { char => '.', vtable => 'pos', value_magic => 1,
              desc => 'pos() lvalue' },
      backref => { char => '<', vtable => 'backref', value_magic => 1,