diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-09-22 15:04:00 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-09-22 15:10:04 +0100 |
| commit | 7a5a24f787ecccfb7736f8164fb1c322e77e1219 (patch) | |
| tree | 5734049b399de819bdbafac15da019e2975cfb29 /embed.h | |
| parent | 1028dc3c3b25bebb0a1a079d1d384b6dccc2958b (diff) | |
| download | perl-7a5a24f787ecccfb7736f8164fb1c322e77e1219.tar.gz | |
Emit $_ to Perl_$_ for "nocontext" functions under multiplicity.
(Strictly for all functions with variable arguments, but *no* explicit
interpreter context arguments. Most of these are *_nocontext.)
We're already emitting macros for the non-multiplicity case, and as these
functions don't need an aTHX_ adding, there's no C portability reason why
we can't generate them here too. So do so, for consistency.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -2581,6 +2581,21 @@ #define croak_no_modify() Perl_croak_no_modify(aTHX) #define croak_xs_usage(a,b) Perl_croak_xs_usage(aTHX_ a,b) #if defined(PERL_IMPLICIT_CONTEXT) +#define croak_nocontext Perl_croak_nocontext +#define die_nocontext Perl_die_nocontext +#define deb_nocontext Perl_deb_nocontext +#define form_nocontext Perl_form_nocontext +#define load_module_nocontext Perl_load_module_nocontext +#define mess_nocontext Perl_mess_nocontext +#define warn_nocontext Perl_warn_nocontext +#define warner_nocontext Perl_warner_nocontext +#define newSVpvf_nocontext Perl_newSVpvf_nocontext +#define sv_catpvf_nocontext Perl_sv_catpvf_nocontext +#define sv_setpvf_nocontext Perl_sv_setpvf_nocontext +#define sv_catpvf_mg_nocontext Perl_sv_catpvf_mg_nocontext +#define sv_setpvf_mg_nocontext Perl_sv_setpvf_mg_nocontext +#define fprintf_nocontext Perl_fprintf_nocontext +#define printf_nocontext Perl_printf_nocontext #endif #ifdef PERL_CORE #define cv_ckproto_len(a,b,c,d) Perl_cv_ckproto_len(aTHX_ a,b,c,d) @@ -3172,6 +3187,7 @@ #define reentrant_size() Perl_reentrant_size(aTHX) #define reentrant_init() Perl_reentrant_init(aTHX) #define reentrant_free() Perl_reentrant_free(aTHX) +#define reentrant_retry Perl_reentrant_retry #endif #define call_atexit(a,b) Perl_call_atexit(aTHX_ a,b) #define call_argv(a,b,c) Perl_call_argv(aTHX_ a,b,c) |