Remove Perl_ck_* functions from public API

p4raw-id: //depot/perl@24565

diff --git a/embed.fnc b/embed.fnc
index 8c86747..2ae37bb 100644 (file)
--- 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 a8a8f3a..19b5f69 100644 (file)
--- 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 cf39e9d..7377812 100644 (file)
--- 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