Convert the implementation of XS_APIVERSION_BOOTCHECK to a function.

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 8add403..3ddf03d 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -168,10 +168,6 @@ npR        |MEM_SIZE|malloc_good_size      |size_t nbytes
 AnpR   |void*  |get_context
 Anp    |void   |set_context    |NN void *t
 
-END_EXTERN_C
-
-/* functions with flag 'n' should come before here */
-START_EXTERN_C
 XEop   |bool   |try_amagic_bin |int method|int flags
 XEop   |bool   |try_amagic_un  |int method|int flags
 Ap     |SV*    |amagic_call    |NN SV* left|NN SV* right|int method|int dir
@@ -634,6 +630,7 @@ AMpd        |I32    |lex_read_unichar|U32 flags
 AMpd   |void   |lex_read_space |U32 flags
 : Public parser API
 AMpd   |OP*    |parse_fullstmt |U32 flags
+AMpd   |OP*    |parse_stmtseq  |U32 flags
 : Used in various files
 Ap     |void   |op_null        |NN OP* o
 : FIXME. Used by Data::Alias
@@ -856,7 +853,7 @@ Apd |const char*    |prescan_version        |NN const char *s\
        |NULLOK int *ssaw_decimal|NULLOK int *swidth|NULLOK bool *salpha
 Apd    |SV*    |new_version    |NN SV *ver
 Apd    |SV*    |upg_version    |NN SV *ver|bool qv
-Apd    |bool   |vverify        |NN SV *vs
+Apd    |SV*    |vverify        |NN SV *vs
 Apd    |SV*    |vnumify        |NN SV *vs
 Apd    |SV*    |vnormal        |NN SV *vs
 Apd    |SV*    |vstringify     |NN SV *vs
@@ -1046,7 +1043,7 @@ Ap        |void   |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|NN void* p
 Ap     |void   |save_destructor_x|DESTRUCTORFUNC_t f|NULLOK void* p
 Apmb   |void   |save_freesv    |NULLOK SV* sv
 : Used in SAVEFREOP(), used in op.c, pp_ctl.c
-pmb    |void   |save_freeop    |NULLOK OP* o
+Apmb   |void   |save_freeop    |NULLOK OP* o
 Apmb   |void   |save_freepv    |NULLOK char* pv
 Ap     |void   |save_generic_svref|NN SV** sptr
 Ap     |void   |save_generic_pvref|NN char** str
@@ -1068,7 +1065,7 @@ Ap        |void   |save_long      |NN long* longp
 Apmb   |void   |save_mortalizesv|NN SV* sv
 Ap     |void   |save_nogv      |NN GV* gv
 : Used in SAVEFREOP(), used in gv.c, op.c, perl.c, pp_ctl.c, pp_sort.c
-pmb    |void   |save_op
+Apmb   |void   |save_op
 Ap     |SV*    |save_scalar    |NN GV* gv
 Ap     |void   |save_pptr      |NN char** pptr
 Ap     |void   |save_vptr      |NN void *ptr
@@ -1078,9 +1075,9 @@ Ap        |void   |save_sptr      |NN SV** sptr
 Ap     |SV*    |save_svref     |NN SV** sptr
 Ap     |void   |save_pushptr   |NULLOK void *const ptr|const int type
 : Used by SAVECOPARYBASE() in op.c
-p      |void   |save_pushi32ptr|const I32 i|NULLOK void *const ptr|const int type
+Ap     |void   |save_pushi32ptr|const I32 i|NULLOK void *const ptr|const int type
 : Used by SAVESWITCHSTACK() in pp.c
-p      |void   |save_pushptrptr|NULLOK void *const ptr1 \
+Ap     |void   |save_pushptrptr|NULLOK void *const ptr1 \
                                |NULLOK void *const ptr2|const int type
 #if defined(PERL_IN_SCOPE_C)
 s      |void   |save_pushptri32ptr|NULLOK void *const ptr1|const I32 i \
@@ -1499,8 +1496,6 @@ Adpb      |void   |sv_nounlocking |NULLOK SV *sv
 #endif
 Adp    |int    |nothreadhook
 
-END_EXTERN_C
-
 #if defined(PERL_IN_DOOP_C)
 sR     |I32    |do_trans_simple        |NN SV * const sv
 sR     |I32    |do_trans_count         |NN SV * const sv
@@ -1993,8 +1988,6 @@ sR        |bool   |is_utf8_common |NN const U8 *const p|NN SV **swash|NN const char * con
 sR     |SV*    |swash_get      |NN SV* swash|UV start|UV span
 #endif
 
-START_EXTERN_C
-
 Apd    |void   |sv_setsv_flags |NN SV *dstr|NULLOK SV *sstr|const I32 flags
 Apd    |void   |sv_catpvn_flags|NN SV *const dstr|NN const char *sstr|const STRLEN len \
                                |const I32 flags
@@ -2262,6 +2255,15 @@ Apo      |void*  |my_cxt_init    |NN int *index|size_t size
 #endif
 #endif
 
+: This function is an implementation detail. The public API for this is
+: XS_VERSION_BOOTCHECK
+Xpo    |void   |xs_version_bootcheck|U32 items|U32 ax|NN const char *xs_p \
+                               |STRLEN xs_len
+: This function is an implementation detail. The public API for this is
+: XS_APIVERSION_BOOTCHECK
+Xpo    |void   |xs_apiversion_bootcheck|NN SV *module|NN const char *api_p \
+                               |STRLEN api_len
+
 #ifndef HAS_STRLCAT
 Apno   |Size_t |my_strlcat     |NULLOK char *dst|NULLOK const char *src|Size_t size
 #endif
@@ -2377,6 +2379,4 @@ Aanop     |CLONE_PARAMS *|clone_params_new|NN PerlInterpreter *const from \
                |NN PerlInterpreter *const to
 Anop   |void   |clone_params_del|NN CLONE_PARAMS *param
 #endif
-/*
- * ex: set ts=8 sts=4 sw=4 noet:
- */
+: ex: set ts=8 sts=4 sw=4 noet: