This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove no-longer-used op.c:S_gv_ename
authorFather Chrysostomos <sprout@cpan.org>
Fri, 12 Sep 2014 06:53:36 +0000 (23:53 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 15 Sep 2014 13:19:35 +0000 (06:19 -0700)
embed.fnc
embed.h
op.c
proto.h

index 97c3dd9..09312e9 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1925,7 +1925,6 @@ sR        |OP*    |search_const   |NN OP *o
 sR     |OP*    |new_logop      |I32 type|I32 flags|NN OP **firstp|NN OP **otherp
 s      |void   |simplify_sort  |NN OP *o
 s      |void   |null_listop_in_list_context |NN OP* o
-s      |SV*    |gv_ename       |NN GV *gv
 sRn    |bool   |scalar_mod_type|NULLOK const OP *o|I32 type
 s      |OP *   |my_kid         |NULLOK OP *o|NULLOK OP *attrs|NN OP **imopsp
 s      |OP *   |dup_attrlist   |NN OP *o
diff --git a/embed.h b/embed.h
index 985983f..66fc634 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define force_list(a,b)                S_force_list(aTHX_ a,b)
 #define forget_pmop(a)         S_forget_pmop(aTHX_ a)
 #define gen_constant_list(a)   S_gen_constant_list(aTHX_ a)
-#define gv_ename(a)            S_gv_ename(aTHX_ a)
 #define inplace_aassign(a)     S_inplace_aassign(aTHX_ a)
 #define is_handle_constructor  S_is_handle_constructor
 #define is_list_assignment(a)  S_is_list_assignment(aTHX_ a)
diff --git a/op.c b/op.c
index 57f78f1..2e844bf 100644 (file)
--- a/op.c
+++ b/op.c
@@ -496,17 +496,6 @@ Perl_op_refcnt_dec(pTHX_ OP *o)
        o->op_ppaddr = PL_ppaddr[type];         \
     } STMT_END
 
-STATIC SV*
-S_gv_ename(pTHX_ GV *gv)
-{
-    SV* const tmpsv = sv_newmortal();
-
-    PERL_ARGS_ASSERT_GV_ENAME;
-
-    gv_efullname3(tmpsv, gv, NULL);
-    return tmpsv;
-}
-
 STATIC OP *
 S_no_fh_allowed(pTHX_ OP *o)
 {
diff --git a/proto.h b/proto.h
index 7c63827..cca048c 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6186,11 +6186,6 @@ STATIC void      S_forget_pmop(pTHX_ PMOP *const o)
        assert(o)
 
 STATIC OP*     S_gen_constant_list(pTHX_ OP* o);
-STATIC SV*     S_gv_ename(pTHX_ GV *gv)
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_GV_ENAME      \
-       assert(gv)
-
 STATIC void    S_inplace_aassign(pTHX_ OP* o)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_INPLACE_AASSIGN       \