summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorVincent Pit <perl@profvince.com>2009-07-29 20:38:07 +0200
committerVincent Pit <perl@profvince.com>2009-07-29 20:38:07 +0200
commitf9a83b002447a32d10950dbf65a6f1c4e13eadcc (patch)
tree3503d4e0a4b3a73e0709871f9f6db1027216453d /proto.h
parent1d5727c1fd186772fdf2e7e5f94d3656809073d6 (diff)
parentd361fafa2ec7914fdb219a034554936dd4d6cdc7 (diff)
downloadperl-f9a83b002447a32d10950dbf65a6f1c4e13eadcc.tar.gz
Merge branch 'deletelocal' into blead
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h15
1 files changed, 13 insertions, 2 deletions
diff --git a/proto.h b/proto.h
index 5a08e3e548..53c738e856 100644
--- a/proto.h
+++ b/proto.h
@@ -2746,10 +2746,14 @@ PERL_CALLCONV char* Perl_savesvpv(pTHX_ SV* sv)
PERL_CALLCONV void Perl_savestack_grow(pTHX);
PERL_CALLCONV void Perl_savestack_grow_cnt(pTHX_ I32 need);
-PERL_CALLCONV void Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr)
+/* PERL_CALLCONV void Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr)
+ __attribute__nonnull__(pTHX_1)
+ __attribute__nonnull__(pTHX_3); */
+
+PERL_CALLCONV void Perl_save_aelem_flags(pTHX_ AV* av, I32 idx, SV **sptr, const U32 flags)
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_3);
-#define PERL_ARGS_ASSERT_SAVE_AELEM \
+#define PERL_ARGS_ASSERT_SAVE_AELEM_FLAGS \
assert(av); assert(sptr)
PERL_CALLCONV I32 Perl_save_alloc(pTHX_ I32 size, I32 pad);
@@ -2779,6 +2783,12 @@ PERL_CALLCONV void Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen)
#define PERL_ARGS_ASSERT_SAVE_DELETE \
assert(hv); assert(key)
+PERL_CALLCONV void Perl_save_hdelete(pTHX_ HV *hv, SV *keysv)
+ __attribute__nonnull__(pTHX_1)
+ __attribute__nonnull__(pTHX_2);
+#define PERL_ARGS_ASSERT_SAVE_HDELETE \
+ assert(hv); assert(keysv)
+
PERL_CALLCONV void Perl_save_adelete(pTHX_ AV *av, I32 key)
__attribute__nonnull__(pTHX_1);
#define PERL_ARGS_ASSERT_SAVE_ADELETE \
@@ -4823,6 +4833,7 @@ STATIC SV * S_incpush_if_exists(pTHX_ AV *const av, SV *dir, SV *const stem)
#endif
#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
+STATIC OP* S_do_delete_local(pTHX);
STATIC SV* S_refto(pTHX_ SV* sv)
__attribute__warn_unused_result__
__attribute__nonnull__(pTHX_1);