diff options
| author | Zefram <zefram@fysh.org> | 2010-10-19 09:31:46 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-21 05:55:28 -0700 |
| commit | 20439bc77dfeec46d94a15cf108446039e26c995 (patch) | |
| tree | ea8f1eb9a1f1003a110114977d660f97d96a5bc2 /embed.h | |
| parent | 53d84487fbdd2060c1a666eacaef6e34ce4a1483 (diff) | |
| download | perl-20439bc77dfeec46d94a15cf108446039e26c995.tar.gz | |
full API for cop hint hashes
Expose cop hint hashes as a type COPHH, with a cophh_* API which is a
macro layer over the refcounted_he_* API. The documentation for cophh_*
describes purely API-visible behaviour, whereas the refcounted_he_*
documentation describes the functions mainly in terms of the
implementation. Revise the cop_hints_* API, using the flags parameter
consistently and reimplementing in terms of cophh_*. Use the cophh_*
and cop_hints_* functions consistently where appropriate.
[Modified by the committer to update two calls to
Perl_refcounted_he_fetch recently added to newPMOP.]
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 12 |
1 files changed, 9 insertions, 3 deletions
@@ -66,8 +66,6 @@ #define ck_warner Perl_ck_warner #define ck_warner_d Perl_ck_warner_d #endif -#define cop_hints_2hv(a) Perl_cop_hints_2hv(aTHX_ a) -#define cop_hints_fetchpvn(a,b,c,d,e) Perl_cop_hints_fetchpvn(aTHX_ a,b,c,d,e) #ifndef PERL_IMPLICIT_CONTEXT #define croak Perl_croak #endif @@ -1443,6 +1441,15 @@ #define pp_wantarray() Perl_pp_wantarray(aTHX) #define pp_warn() Perl_pp_warn(aTHX) #define pp_xor() Perl_pp_xor(aTHX) +#define refcounted_he_chain_2hv(a,b) Perl_refcounted_he_chain_2hv(aTHX_ a,b) +#define refcounted_he_fetch_pv(a,b,c,d) Perl_refcounted_he_fetch_pv(aTHX_ a,b,c,d) +#define refcounted_he_fetch_pvn(a,b,c,d,e) Perl_refcounted_he_fetch_pvn(aTHX_ a,b,c,d,e) +#define refcounted_he_fetch_sv(a,b,c,d) Perl_refcounted_he_fetch_sv(aTHX_ a,b,c,d) +#define refcounted_he_free(a) Perl_refcounted_he_free(aTHX_ a) +#define refcounted_he_inc(a) Perl_refcounted_he_inc(aTHX_ a) +#define refcounted_he_new_pv(a,b,c,d,e) Perl_refcounted_he_new_pv(aTHX_ a,b,c,d,e) +#define refcounted_he_new_pvn(a,b,c,d,e,f) Perl_refcounted_he_new_pvn(aTHX_ a,b,c,d,e,f) +#define refcounted_he_new_sv(a,b,c,d,e) Perl_refcounted_he_new_sv(aTHX_ a,b,c,d,e) #define report_evil_fh(a,b,c) Perl_report_evil_fh(aTHX_ a,b,c) #define rpeep(a) Perl_rpeep(aTHX_ a) #define rsignal_restore(a,b) Perl_rsignal_restore(aTHX_ a,b) @@ -1602,7 +1609,6 @@ #define hv_magic_check S_hv_magic_check #define hv_notallowed(a,b,c,d) S_hv_notallowed(aTHX_ a,b,c,d) #define new_he() S_new_he(aTHX) -#define refcounted_he_new_common(a,b,c,d,e,f,g) S_refcounted_he_new_common(aTHX_ a,b,c,d,e,f,g) #define refcounted_he_value(a) S_refcounted_he_value(aTHX_ a) #define save_hek_flags S_save_hek_flags #define share_hek_flags(a,b,c,d) S_share_hek_flags(aTHX_ a,b,c,d) |