Change 29884 by [EMAIL PROTECTED] on 2007/01/19 19:27:59
Marcus Holland-Moritz notes that the first argument to
refcounted_he_fetch() can be NULL.
Affected files ...
... //depot/perl/embed.fnc#453 edit
... //depot/perl/proto.h#791 edit
Differences ...
==== //depot/perl/embed.fnc#453 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#452~29882~ 2007-01-19 09:36:10.000000000 -0800
+++ perl/embed.fnc 2007-01-19 11:27:59.000000000 -0800
@@ -312,7 +312,7 @@
Ap |void |hv_ksplit |NN HV* hv|IV newmax
Apdbm |void |hv_magic |NN HV* hv|NULLOK GV* gv|int how
XEdpoM |HV * |refcounted_he_chain_2hv|NULLOK const struct refcounted_he *c
-XEpoM |SV * |refcounted_he_fetch|NN const struct refcounted_he *chain \
+XEpoM |SV * |refcounted_he_fetch|NULLOK const struct refcounted_he *chain \
|NULLOK SV *keysv|NULLOK const char *key \
|STRLEN klen, int flags, U32 hash
dpoM |void |refcounted_he_free|NULLOK struct refcounted_he *he
==== //depot/perl/proto.h#791 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#790~29882~ 2007-01-19 09:36:10.000000000 -0800
+++ perl/proto.h 2007-01-19 11:27:59.000000000 -0800
@@ -737,9 +737,7 @@
__attribute__nonnull__(pTHX_1); */
PERL_CALLCONV HV * Perl_refcounted_he_chain_2hv(pTHX_ const struct
refcounted_he *c);
-PERL_CALLCONV SV * Perl_refcounted_he_fetch(pTHX_ const struct
refcounted_he *chain, SV *keysv, const char *key, STRLEN klen, int flags, U32
hash)
- __attribute__nonnull__(pTHX_1);
-
+PERL_CALLCONV SV * Perl_refcounted_he_fetch(pTHX_ const struct
refcounted_he *chain, SV *keysv, const char *key, STRLEN klen, int flags, U32
hash);
PERL_CALLCONV void Perl_refcounted_he_free(pTHX_ struct refcounted_he *he);
PERL_CALLCONV struct refcounted_he * Perl_refcounted_he_new(pTHX_ struct
refcounted_he *const parent, SV *const key, SV *const value);
PERL_CALLCONV SV** Perl_hv_store(pTHX_ HV* tb, const char* key, I32 klen,
SV* val, U32 hash);
End of Patch.
