summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-08-08 15:28:31 +0100
committerNicholas Clark <nick@ccl4.org>2009-08-08 17:56:51 +0100
commitbb85b28a6da36a76a3909c40a8a5f0a80a04163c (patch)
tree6d1aeb91b84e1110681721f34f35b409694f2cc2 /proto.h
parent85dca89a8f321bc581a3d365d95ab0c56368ed78 (diff)
downloadperl-bb85b28a6da36a76a3909c40a8a5f0a80a04163c.tar.gz
Merge gv_IOadd() into gv_add_by_type().
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h26
1 files changed, 5 insertions, 21 deletions
diff --git a/proto.h b/proto.h
index 90ffd21625..4e47b8c8d6 100644
--- a/proto.h
+++ b/proto.h
@@ -832,22 +832,10 @@ 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_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); */
-#define PERL_ARGS_ASSERT_GV_HVADD \
- assert(gv)
-
-PERL_CALLCONV GV* Perl_gv_IOadd(pTHX_ GV* gv);
+PERL_CALLCONV GV* Perl_gv_add_by_type(pTHX_ GV *gv, svtype type);
+/* PERL_CALLCONV GV* Perl_gv_AVadd(pTHX_ GV *gv); */
+/* PERL_CALLCONV GV* Perl_gv_HVadd(pTHX_ GV *gv); */
+/* PERL_CALLCONV GV* Perl_gv_IOadd(pTHX_ GV* gv); */
PERL_CALLCONV GV* Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method)
__attribute__warn_unused_result__
__attribute__nonnull__(pTHX_2);
@@ -6347,11 +6335,7 @@ 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); */
-#define PERL_ARGS_ASSERT_GV_SVADD \
- assert(gv)
-
+/* PERL_CALLCONV GV* Perl_gv_SVadd(pTHX_ GV *gv); */
#endif
PERL_CALLCONV bool Perl_ckwarn(pTHX_ U32 w);
PERL_CALLCONV bool Perl_ckwarn_d(pTHX_ U32 w);