Remove Perl_ck_* functions from public API

p4raw-id: //depot/perl@24565

3 files changed, 43 insertions, 84 deletions

diff --git a/embed.fnc b/embed.fnc
index 8c867471b2..2ae37bb73e 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1005,47 +1005,47 @@ s	|int	|magic_methcall	|NN SV *sv|NN const MAGIC *mg|NN const char *meth|I32 f \
 #endif
 
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
-ApR	|OP*	|ck_anoncode	|NN OP *o
-ApR	|OP*	|ck_bitop	|NN OP *o
-ApR	|OP*	|ck_concat	|NN OP *o
-ApR	|OP*	|ck_defined	|NN OP *o
-ApR	|OP*	|ck_delete	|NN OP *o
-ApR	|OP*	|ck_die		|NN OP *o
-ApR	|OP*	|ck_eof		|NN OP *o
-ApR	|OP*	|ck_eval	|NN OP *o
-ApR	|OP*	|ck_exec	|NN OP *o
-ApR	|OP*	|ck_exists	|NN OP *o
-ApR	|OP*	|ck_exit	|NN OP *o
-ApR	|OP*	|ck_ftst	|NN OP *o
-ApR	|OP*	|ck_fun		|NN OP *o
-ApR	|OP*	|ck_glob	|NN OP *o
-ApR	|OP*	|ck_grep	|NN OP *o
-ApR	|OP*	|ck_index	|NN OP *o
-ApR	|OP*	|ck_join	|NN OP *o
-ApR	|OP*	|ck_lengthconst	|NN OP *o
-ApR	|OP*	|ck_lfun	|NN OP *o
-ApR	|OP*	|ck_listiob	|NN OP *o
-ApR	|OP*	|ck_match	|NN OP *o
-ApR	|OP*	|ck_method	|NN OP *o
-ApR	|OP*	|ck_null	|NN OP *o
-ApR	|OP*	|ck_open	|NN OP *o
-ApR	|OP*	|ck_repeat	|NN OP *o
-ApR	|OP*	|ck_require	|NN OP *o
-ApR	|OP*	|ck_retarget	|NN OP *o
-ApR	|OP*	|ck_return	|NN OP *o
-ApR	|OP*	|ck_rfun	|NN OP *o
-ApR	|OP*	|ck_rvconst	|NN OP *o
-ApR	|OP*	|ck_sassign	|NN OP *o
-ApR	|OP*	|ck_select	|NN OP *o
-ApR	|OP*	|ck_shift	|NN OP *o
-ApR	|OP*	|ck_sort	|NN OP *o
-ApR	|OP*	|ck_spair	|NN OP *o
-ApR	|OP*	|ck_split	|NN OP *o
-ApR	|OP*	|ck_subr	|NN OP *o
-ApR	|OP*	|ck_substr	|NN OP *o
-ApR	|OP*	|ck_svconst	|NN OP *o
-ApR	|OP*	|ck_trunc	|NN OP *o
-ApR	|OP*	|ck_unpack	|NN OP *o
+pR	|OP*	|ck_anoncode	|NN OP *o
+pR	|OP*	|ck_bitop	|NN OP *o
+pR	|OP*	|ck_concat	|NN OP *o
+pR	|OP*	|ck_defined	|NN OP *o
+pR	|OP*	|ck_delete	|NN OP *o
+pR	|OP*	|ck_die		|NN OP *o
+pR	|OP*	|ck_eof		|NN OP *o
+pR	|OP*	|ck_eval	|NN OP *o
+pR	|OP*	|ck_exec	|NN OP *o
+pR	|OP*	|ck_exists	|NN OP *o
+pR	|OP*	|ck_exit	|NN OP *o
+pR	|OP*	|ck_ftst	|NN OP *o
+pR	|OP*	|ck_fun		|NN OP *o
+pR	|OP*	|ck_glob	|NN OP *o
+pR	|OP*	|ck_grep	|NN OP *o
+pR	|OP*	|ck_index	|NN OP *o
+pR	|OP*	|ck_join	|NN OP *o
+pR	|OP*	|ck_lengthconst	|NN OP *o
+pR	|OP*	|ck_lfun	|NN OP *o
+pR	|OP*	|ck_listiob	|NN OP *o
+pR	|OP*	|ck_match	|NN OP *o
+pR	|OP*	|ck_method	|NN OP *o
+pR	|OP*	|ck_null	|NN OP *o
+pR	|OP*	|ck_open	|NN OP *o
+pR	|OP*	|ck_repeat	|NN OP *o
+pR	|OP*	|ck_require	|NN OP *o
+pR	|OP*	|ck_retarget	|NN OP *o
+pR	|OP*	|ck_return	|NN OP *o
+pR	|OP*	|ck_rfun	|NN OP *o
+pR	|OP*	|ck_rvconst	|NN OP *o
+pR	|OP*	|ck_sassign	|NN OP *o
+pR	|OP*	|ck_select	|NN OP *o
+pR	|OP*	|ck_shift	|NN OP *o
+pR	|OP*	|ck_sort	|NN OP *o
+pR	|OP*	|ck_spair	|NN OP *o
+pR	|OP*	|ck_split	|NN OP *o
+pR	|OP*	|ck_subr	|NN OP *o
+pR	|OP*	|ck_substr	|NN OP *o
+pR	|OP*	|ck_svconst	|NN OP *o
+pR	|OP*	|ck_trunc	|NN OP *o
+pR	|OP*	|ck_unpack	|NN OP *o
 sR	|bool	|is_handle_constructor|NN const OP *o|I32 numargs
 sR	|I32	|is_list_assignment|const OP *o
 s	|void	|cop_free	|NN COP *cop
diff --git a/embed.h b/embed.h
index a8a8f3a391..19b5f69d6b 100644
--- a/embed.h
+++ b/embed.h
@@ -1043,6 +1043,7 @@
 #endif
 #endif
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
 #define ck_anoncode		Perl_ck_anoncode
 #define ck_bitop		Perl_ck_bitop
 #define ck_concat		Perl_ck_concat
@@ -1084,7 +1085,6 @@
 #define ck_svconst		Perl_ck_svconst
 #define ck_trunc		Perl_ck_trunc
 #define ck_unpack		Perl_ck_unpack
-#ifdef PERL_CORE
 #define is_handle_constructor	S_is_handle_constructor
 #define is_list_assignment	S_is_list_assignment
 #define cop_free		S_cop_free
@@ -3021,6 +3021,7 @@
 #endif
 #endif
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
 #define ck_anoncode(a)		Perl_ck_anoncode(aTHX_ a)
 #define ck_bitop(a)		Perl_ck_bitop(aTHX_ a)
 #define ck_concat(a)		Perl_ck_concat(aTHX_ a)
@@ -3062,7 +3063,6 @@
 #define ck_svconst(a)		Perl_ck_svconst(aTHX_ a)
 #define ck_trunc(a)		Perl_ck_trunc(aTHX_ a)
 #define ck_unpack(a)		Perl_ck_unpack(aTHX_ a)
-#ifdef PERL_CORE
 #define is_handle_constructor(a,b)	S_is_handle_constructor(aTHX_ a,b)
 #define is_list_assignment(a)	S_is_list_assignment(aTHX_ a)
 #define cop_free(a)		S_cop_free(aTHX_ a)
diff --git a/global.sym b/global.sym
index cf39e9d551..73778128e2 100644
--- a/global.sym
+++ b/global.sym
@@ -638,47 +638,6 @@ Perl_sv_nosharing
 Perl_sv_nolocking
 Perl_sv_nounlocking
 Perl_nothreadhook
-Perl_ck_anoncode
-Perl_ck_bitop
-Perl_ck_concat
-Perl_ck_defined
-Perl_ck_delete
-Perl_ck_die
-Perl_ck_eof
-Perl_ck_eval
-Perl_ck_exec
-Perl_ck_exists
-Perl_ck_exit
-Perl_ck_ftst
-Perl_ck_fun
-Perl_ck_glob
-Perl_ck_grep
-Perl_ck_index
-Perl_ck_join
-Perl_ck_lengthconst
-Perl_ck_lfun
-Perl_ck_listiob
-Perl_ck_match
-Perl_ck_method
-Perl_ck_null
-Perl_ck_open
-Perl_ck_repeat
-Perl_ck_require
-Perl_ck_retarget
-Perl_ck_return
-Perl_ck_rfun
-Perl_ck_rvconst
-Perl_ck_sassign
-Perl_ck_select
-Perl_ck_shift
-Perl_ck_sort
-Perl_ck_spair
-Perl_ck_split
-Perl_ck_subr
-Perl_ck_substr
-Perl_ck_svconst
-Perl_ck_trunc
-Perl_ck_unpack
 Perl_Slab_Alloc
 Perl_Slab_Free
 Perl_sv_setsv_flags