diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-08-08 12:05:40 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-08-08 17:48:32 +0100 |
| commit | d5713896ecd1399c9c6c4076514a33eb2880d8c3 (patch) | |
| tree | aedd41f92ea6bc35ba5ce50ff0981dfbccbe45e4 /proto.h | |
| parent | 1776cbe8523bf67a0626da7b721abaf9f0f8870a (diff) | |
| download | perl-d5713896ecd1399c9c6c4076514a33eb2880d8c3.tar.gz | |
Merge gv_AVadd(), gv_HVadd() and gv_SVadd() into gv_add_by_type().
The "short" names become macro wrappers, and the Perl_* versions become mathoms.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 15 |
1 files changed, 10 insertions, 5 deletions
@@ -832,13 +832,18 @@ PERL_CALLCONV void Perl_get_db_sub(pTHX_ SV **svp, CV *cv) PERL_CALLCONV void Perl_gp_free(pTHX_ GV* gv); PERL_CALLCONV GP* Perl_gp_ref(pTHX_ GP* gp); -PERL_CALLCONV GV* Perl_gv_AVadd(pTHX_ GV* gv) +PERL_CALLCONV GV* Perl_gv_add_by_type(pTHX_ GV *gv, svtype type) __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_GV_ADD_BY_TYPE \ + assert(gv) + +/* PERL_CALLCONV GV* Perl_gv_AVadd(pTHX_ GV *gv) + __attribute__nonnull__(pTHX_1); */ #define PERL_ARGS_ASSERT_GV_AVADD \ assert(gv) -PERL_CALLCONV GV* Perl_gv_HVadd(pTHX_ GV* gv) - __attribute__nonnull__(pTHX_1); +/* PERL_CALLCONV GV* Perl_gv_HVadd(pTHX_ GV *gv) + __attribute__nonnull__(pTHX_1); */ #define PERL_ARGS_ASSERT_GV_HVADD \ assert(gv) @@ -6342,8 +6347,8 @@ PERL_CALLCONV void Perl_dump_sv_child(pTHX_ SV *sv) #endif #ifdef PERL_DONT_CREATE_GVSV -PERL_CALLCONV GV* Perl_gv_SVadd(pTHX_ GV* gv) - __attribute__nonnull__(pTHX_1); +/* PERL_CALLCONV GV* Perl_gv_SVadd(pTHX_ GV *gv) + __attribute__nonnull__(pTHX_1); */ #define PERL_ARGS_ASSERT_GV_SVADD \ assert(gv) |