Can now remove class-specific attributes API functions now that the generic system handles it

Author: leonerd

class.c

@@ -556,13 +556,6 @@ Perl_apply_attribute_isa(pTHX_
     }
 }
 
-void
-Perl_class_apply_attributes(pTHX_ HV *stash, OP *attrlist)
-{
-    PERL_ARGS_ASSERT_CLASS_APPLY_ATTRIBUTES;
-    apply_attributes_sv((SV *)stash, attrlist, true);
-}
-
 /*
 
 Called when a compilation failure occurs when defining a class.
@@ -1169,23 +1162,6 @@ Perl_apply_attribute_writer(pTHX_ struct PerlAttributeTarget *target, SV *value,
         CvIsMETHOD_on(cv);
 }
 
-void
-Perl_class_apply_field_attributes(pTHX_ PADNAME *pn, OP *attrlist)
-{
-    PERL_ARGS_ASSERT_CLASS_APPLY_FIELD_ATTRIBUTES;
-
-    /* We need to find the pad index, but PADNAME* doesn't store it.
-     */
-    PADNAME **pns = PadnamelistARRAY(PL_comppad_name);
-    PADOFFSET padix;
-    for(padix = 0; padix <= PadnamelistMAX(PL_comppad_name); padix++)
-        if(pns[padix] == pn)
-            break;
-
-    assert(padix <= PadnamelistMAX(PL_comppad_name));
-    apply_attributes_lexical(padix, attrlist, true);
-}
-
 void
 Perl_class_set_field_defop(pTHX_ PADNAME *pn, OPCODE defmode, OP *defop)
 {

embed.fnc

@@ -4416,12 +4416,6 @@ Cp	|void	|class_add_ADJUST					\
 				|NN CV *cv
 Cp	|void	|class_add_field|NN HV *stash				\
 				|NN PADNAME *pn
-Cp	|void	|class_apply_attributes 				\
-				|NN HV *stash				\
-				|NULLOK OP *attrlist
-Cp	|void	|class_apply_field_attributes				\
-				|NN PADNAME *pn 			\
-				|NULLOK OP *attrlist
 Cp	|void	|class_prepare_initfield_parse
 Cp	|void	|class_prepare_method_parse				\
 				|NN CV *cv

embed.h

@@ -2144,8 +2144,6 @@
      defined(PERL_IN_TOKE_C)
 #   define class_add_ADJUST(a,b)                Perl_class_add_ADJUST(aTHX_ a,b)
 #   define class_add_field(a,b)                 Perl_class_add_field(aTHX_ a,b)
-#   define class_apply_attributes(a,b)          Perl_class_apply_attributes(aTHX_ a,b)
-#   define class_apply_field_attributes(a,b)    Perl_class_apply_field_attributes(aTHX_ a,b)
 #   define class_prepare_initfield_parse()      Perl_class_prepare_initfield_parse(aTHX)
 #   define class_prepare_method_parse(a)        Perl_class_prepare_method_parse(aTHX_ a)
 #   define class_seal_stash(a)                  Perl_class_seal_stash(aTHX_ a)