Remove find_rundefsv2
authorFather Chrysostomos <sprout@cpan.org>
Wed, 19 Aug 2015 21:21:50 +0000 (14:21 -0700)
committerRicardo Signes <rjbs@cpan.org>
Tue, 29 Sep 2015 14:49:20 +0000 (10:49 -0400)
It was never public, and was only written for the sake of pp_coreargs,
which no longer uses it.

embed.fnc
embed.h
pad.c
proto.h

index d9b43d1..d71448c 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2606,8 +2606,6 @@ Apd       |PADOFFSET|pad_findmy_pv|NN const char* name|U32 flags
 Apd    |PADOFFSET|pad_findmy_sv|NN SV* name|U32 flags
 ApdD   |PADOFFSET|find_rundefsvoffset  |
 Apd    |SV*    |find_rundefsv  |
-: Used in pp.c
-p      |SV*    |find_rundefsv2 |NN CV *cv|U32 seq
 #if defined(PERL_IN_PAD_C)
 sd     |PADOFFSET|pad_findlex  |NN const char *namepv|STRLEN namelen|U32 flags \
                                |NN const CV* cv|U32 seq|int warn \
diff --git a/embed.h b/embed.h
index 3f6515f..a5a624b 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define finalize_optree(a)     Perl_finalize_optree(aTHX_ a)
 #define find_lexical_cv(a)     Perl_find_lexical_cv(aTHX_ a)
 #define find_runcv_where(a,b,c)        Perl_find_runcv_where(aTHX_ a,b,c)
-#define find_rundefsv2(a,b)    Perl_find_rundefsv2(aTHX_ a,b)
 #define find_script(a,b,c,d)   Perl_find_script(aTHX_ a,b,c,d)
 #define free_tied_hv_pool()    Perl_free_tied_hv_pool(aTHX)
 #define get_hash_seed(a)       Perl_get_hash_seed(aTHX_ a)
diff --git a/pad.c b/pad.c
index 3e2a36b..9773a25 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -1066,24 +1066,6 @@ Perl_find_rundefsv(pTHX)
     return DEFSV;
 }
 
-SV *
-Perl_find_rundefsv2(pTHX_ CV *cv, U32 seq)
-{
-    PADNAME *name;
-    int flags;
-    PADOFFSET po;
-
-    PERL_ARGS_ASSERT_FIND_RUNDEFSV2;
-
-    po = pad_findlex("$_", 2, 0, cv, seq, 1,
-           NULL, &name, &flags);
-
-    if (po == NOT_IN_PAD || PadnameIsOUR(name))
-       return DEFSV;
-
-    return AvARRAY(PadlistARRAY(CvPADLIST(cv))[CvDEPTH(cv)])[po];
-}
-
 /*
 =for apidoc m|PADOFFSET|pad_findlex|const char *namepv|STRLEN namelen|U32 flags|const CV* cv|U32 seq|int warn|SV** out_capture|PADNAME** out_name|int *out_flags
 
diff --git a/proto.h b/proto.h
index 6d49f47..65ce15d 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -860,9 +860,6 @@ PERL_CALLCONV CV*   Perl_find_runcv_where(pTHX_ U8 cond, IV arg, U32 *db_seqp)
                        __attribute__warn_unused_result__;
 
 PERL_CALLCONV SV*      Perl_find_rundefsv(pTHX);
-PERL_CALLCONV SV*      Perl_find_rundefsv2(pTHX_ CV *cv, U32 seq);
-#define PERL_ARGS_ASSERT_FIND_RUNDEFSV2        \
-       assert(cv)
 PERL_CALLCONV PADOFFSET        Perl_find_rundefsvoffset(pTHX)
                        __attribute__deprecated__;