Perl_cv_ckproto() is not part of the public API, and not used anywhere

in the core. So it can go.

p4raw-id: //depot/perl@34922

diff --git a/embed.fnc b/embed.fnc
index 9e42eac..598deed 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -168,8 +168,6 @@ Afnp        |void   |sv_setpvf_mg_nocontext|NN SV *const sv|NN const char *const pat|...
 Afnp   |int    |fprintf_nocontext|NN PerlIO *stream|NN const char *format|...
 Afnp   |int    |printf_nocontext|NN const char *format|...
 #endif
-bp     |void   |cv_ckproto     |NN const CV* cv|NULLOK const GV* gv\
-                               |NULLOK const char* p
 p      |void   |cv_ckproto_len |NN const CV* cv|NULLOK const GV* gv\
                                |NULLOK const char* p|const STRLEN len
 pd     |CV*    |cv_clone       |NN CV* proto

diff --git a/embed.h b/embed.h
index a0f2776..88c241c 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -123,7 +123,6 @@
 #define printf_nocontext       Perl_printf_nocontext
 #endif
 #ifdef PERL_CORE
-#define cv_ckproto             Perl_cv_ckproto
 #define cv_ckproto_len         Perl_cv_ckproto_len
 #define cv_clone               Perl_cv_clone
 #endif
@@ -2437,7 +2436,6 @@
 #if defined(PERL_IMPLICIT_CONTEXT)
 #endif
 #ifdef PERL_CORE
-#define cv_ckproto(a,b,c)      Perl_cv_ckproto(aTHX_ a,b,c)
 #define cv_ckproto_len(a,b,c,d)        Perl_cv_ckproto_len(aTHX_ a,b,c,d)
 #define cv_clone(a)            Perl_cv_clone(aTHX_ a)
 #endif

diff --git a/global.sym b/global.sym
index 90f9102..acd525f 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -77,7 +77,6 @@ Perl_sv_catpvf_mg_nocontext
 Perl_sv_setpvf_mg_nocontext
 Perl_fprintf_nocontext
 Perl_printf_nocontext
-Perl_cv_ckproto
 Perl_gv_const_sv
 Perl_cv_const_sv
 Perl_cv_undef

diff --git a/mathoms.c b/mathoms.c
index 4bac51e..a65a99f 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1276,14 +1276,6 @@ Perl_sv_usepvn(pTHX_ SV *sv, char *ptr, STRLEN len)
     sv_usepvn_flags(sv,ptr,len, 0);
 }
 
-void
-Perl_cv_ckproto(pTHX_ const CV *cv, const GV *gv, const char *p)
-{
-    PERL_ARGS_ASSERT_CV_CKPROTO;
-
-    cv_ckproto_len(cv, gv, p, p ? strlen(p) : 0);
-}
-
 /*
 =for apidoc unpack_str
 

diff --git a/proto.h b/proto.h
index 7aa2243..b6c0e57 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -429,11 +429,6 @@ PERL_CALLCONV int  Perl_printf_nocontext(const char *format, ...)
        assert(format)
 
 #endif
-PERL_CALLCONV void     Perl_cv_ckproto(pTHX_ const CV* cv, const GV* gv, const char* p)
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CV_CKPROTO    \
-       assert(cv)
-
 PERL_CALLCONV void     Perl_cv_ckproto_len(pTHX_ const CV* cv, const GV* gv, const char* p, const STRLEN len)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_CV_CKPROTO_LEN        \