From 11cd919dc47cef55287cce0322d44e19aecf3127 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 26 Nov 2008 18:21:52 +0000
Subject: [PATCH] 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
---
 embed.fnc  | 2 --
 embed.h    | 2 --
 global.sym | 1 -
 mathoms.c  | 8 --------
 proto.h    | 5 -----
 5 files changed, 18 deletions(-)

diff --git a/embed.fnc b/embed.fnc
index 9e42eac..598deed 100644
--- 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
--- 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
--- 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
--- 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
--- 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	\
-- 
2.7.4