Skip to content

Fix defined PERL_CORE #20289

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
wants to merge 1 commit into from
Closed

Fix defined PERL_CORE #20289

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
42 changes: 21 additions & 21 deletions embed.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -101,16 +101,16 @@
#define ck_entersub_args_list(a) Perl_ck_entersub_args_list(aTHX_ a)
#define ck_entersub_args_proto(a,b,c) Perl_ck_entersub_args_proto(aTHX_ a,b,c)
#define ck_entersub_args_proto_or_list(a,b,c) Perl_ck_entersub_args_proto_or_list(aTHX_ a,b,c)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define ck_warner(a,...) Perl_ck_warner(aTHX_ a,__VA_ARGS__)
#endif
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define ck_warner_d(a,...) Perl_ck_warner_d(aTHX_ a,__VA_ARGS__)
#endif
#define clear_defarray(a,b) Perl_clear_defarray(aTHX_ a,b)
#define cop_fetch_label(a,b,c) Perl_cop_fetch_label(aTHX_ a,b,c)
#define cop_store_label(a,b,c,d) Perl_cop_store_label(aTHX_ a,b,c,d)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define croak(...) Perl_croak(aTHX_ __VA_ARGS__)
#endif
#define croak_memory_wrap Perl_croak_memory_wrap
Expand All @@ -129,7 +129,7 @@
#define cv_undef(a) Perl_cv_undef(aTHX_ a)
#define cx_dump(a) Perl_cx_dump(aTHX_ a)
#define cxinc() Perl_cxinc(aTHX)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define deb(...) Perl_deb(aTHX_ __VA_ARGS__)
#endif
#define debop(a) Perl_debop(aTHX_ a)
Expand All @@ -138,7 +138,7 @@
#define debstackptrs() Perl_debstackptrs(aTHX)
#define delimcpy Perl_delimcpy
#define despatch_signals() Perl_despatch_signals(aTHX)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define die(...) Perl_die(aTHX_ __VA_ARGS__)
#endif
#define die_sv(a) Perl_die_sv(aTHX_ a)
Expand All @@ -160,7 +160,7 @@
#define dump_all() Perl_dump_all(aTHX)
#define dump_eval() Perl_dump_eval(aTHX)
#define dump_form(a) Perl_dump_form(aTHX_ a)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define dump_indent(a,b,...) Perl_dump_indent(aTHX_ a,b,__VA_ARGS__)
#endif
#define dump_packsubs(a) Perl_dump_packsubs(aTHX_ a)
Expand All @@ -179,7 +179,7 @@
#define foldEQ_latin1(a,b,c) Perl_foldEQ_latin1(aTHX_ a,b,c)
#define foldEQ_locale(a,b,c) Perl_foldEQ_locale(aTHX_ a,b,c)
#define foldEQ_utf8_flags(a,b,c,d,e,f,g,h,i) Perl_foldEQ_utf8_flags(aTHX_ a,b,c,d,e,f,g,h,i)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define form(...) Perl_form(aTHX_ __VA_ARGS__)
#endif
#define free_tmps() Perl_free_tmps(aTHX)
Expand Down Expand Up @@ -288,14 +288,14 @@
#define lex_stuff_pvn(a,b,c) Perl_lex_stuff_pvn(aTHX_ a,b,c)
#define lex_stuff_sv(a,b) Perl_lex_stuff_sv(aTHX_ a,b)
#define lex_unstuff(a) Perl_lex_unstuff(aTHX_ a)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define load_module(a,b,...) Perl_load_module(aTHX_ a,b,__VA_ARGS__)
#endif
#define looks_like_number(a) Perl_looks_like_number(aTHX_ a)
#define lsbit_pos32 Perl_lsbit_pos32
#define magic_dump(a) Perl_magic_dump(aTHX_ a)
#define markstack_grow() Perl_markstack_grow(aTHX)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define mess(...) Perl_mess(aTHX_ __VA_ARGS__)
#endif
#define mess_sv(a,b) Perl_mess_sv(aTHX_ a,b)
Expand Down Expand Up @@ -386,7 +386,7 @@
#define newSVnv(a) Perl_newSVnv(aTHX_ a)
#define newSVpv(a,b) Perl_newSVpv(aTHX_ a,b)
#define newSVpv_share(a,b) Perl_newSVpv_share(aTHX_ a,b)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define newSVpvf(...) Perl_newSVpvf(aTHX_ __VA_ARGS__)
#endif
#define newSVpvn(a,b) Perl_newSVpvn(aTHX_ a,b)
Expand Down Expand Up @@ -567,10 +567,10 @@
#define sv_catpv(a,b) Perl_sv_catpv(aTHX_ a,b)
#define sv_catpv_flags(a,b,c) Perl_sv_catpv_flags(aTHX_ a,b,c)
#define sv_catpv_mg(a,b) Perl_sv_catpv_mg(aTHX_ a,b)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define sv_catpvf(a,...) Perl_sv_catpvf(aTHX_ a,__VA_ARGS__)
#endif
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define sv_catpvf_mg(a,...) Perl_sv_catpvf_mg(aTHX_ a,__VA_ARGS__)
#endif
#define sv_catpvn_flags(a,b,c,d) Perl_sv_catpvn_flags(aTHX_ a,b,c,d)
Expand Down Expand Up @@ -648,10 +648,10 @@
#define sv_setpv(a,b) Perl_sv_setpv(aTHX_ a,b)
#define sv_setpv_bufsize(a,b,c) Perl_sv_setpv_bufsize(aTHX_ a,b,c)
#define sv_setpv_mg(a,b) Perl_sv_setpv_mg(aTHX_ a,b)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define sv_setpvf(a,...) Perl_sv_setpvf(aTHX_ a,__VA_ARGS__)
#endif
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define sv_setpvf_mg(a,...) Perl_sv_setpvf_mg(aTHX_ a,__VA_ARGS__)
#endif
#define sv_setpvn(a,b,c) Perl_sv_setpvn(aTHX_ a,b,c)
Expand Down Expand Up @@ -739,11 +739,11 @@
#define vverify(a) Perl_vverify(aTHX_ a)
#define vwarn(a,b) Perl_vwarn(aTHX_ a,b)
#define vwarner(a,b,c) Perl_vwarner(aTHX_ a,b,c)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define warn(...) Perl_warn(aTHX_ __VA_ARGS__)
#endif
#define warn_sv(a) Perl_warn_sv(aTHX_ a)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define warner(a,...) Perl_warner(aTHX_ a,__VA_ARGS__)
#endif
#define whichsig_pv(a) Perl_whichsig_pv(aTHX_ a)
Expand Down Expand Up @@ -990,7 +990,7 @@
#define put_charclass_bitmap_innards_invlist(a,b) S_put_charclass_bitmap_innards_invlist(aTHX_ a,b)
#define put_code_point(a,b) S_put_code_point(aTHX_ a,b)
#define put_range(a,b,c,d) S_put_range(aTHX_ a,b,c,d)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define re_indentf(a,...) Perl_re_indentf(aTHX_ a,__VA_ARGS__)
#endif
#define regdump_extflags(a,b) S_regdump_extflags(aTHX_ a,b)
Expand All @@ -1001,7 +1001,7 @@
# if defined(PERL_IN_REGEXEC_C)
#define debug_start_match(a,b,c,d,e) S_debug_start_match(aTHX_ a,b,c,d,e)
#define dump_exec_pos(a,b,c,d,e,f,g) S_dump_exec_pos(aTHX_ a,b,c,d,e,f,g)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define re_exec_indentf(a,...) Perl_re_exec_indentf(aTHX_ a,__VA_ARGS__)
#endif
# endif
Expand Down Expand Up @@ -1143,7 +1143,7 @@
#define get_regex_charset_name S_get_regex_charset_name
# endif
# if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define re_printf(...) Perl_re_printf(aTHX_ __VA_ARGS__)
#endif
#define regprop(a,b,c,d,e) Perl_regprop(aTHX_ a,b,c,d,e)
Expand Down Expand Up @@ -1473,7 +1473,7 @@
#define sv_pvutf8n_force_wrapper(a,b,c) Perl_sv_pvutf8n_force_wrapper(aTHX_ a,b,c)
#define sv_resetpvn(a,b,c) Perl_sv_resetpvn(aTHX_ a,b,c)
#define sv_sethek(a,b) Perl_sv_sethek(aTHX_ a,b)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define tied_method(a,b,c,d,e,...) Perl_tied_method(aTHX_ a,b,c,d,e,__VA_ARGS__)
#endif
#define tmps_grow_p(a) Perl_tmps_grow_p(aTHX_ a)
Expand Down Expand Up @@ -1953,7 +1953,7 @@
#define space_join_names_mortal(a) S_space_join_names_mortal(aTHX_ a)
# endif
# if defined(PERL_IN_REGCOMP_C)
#if !defined(MULTIPLICITY) || defined(PERL_CORE)
#if !defined(MULTIPLICITY) && defined(PERL_CORE)
#define re_croak(a,...) S_re_croak(aTHX_ a,__VA_ARGS__)
#endif
# endif
Expand Down