Change 33279 by [EMAIL PROTECTED] on 2008/02/11 14:46:40
In Perl_regfree_internal(), rx is actually not NULL.
In Perl_regnext(), p is can actually be NULL.
Affected files ...
... //depot/perl/embed.fnc#577 edit
... //depot/perl/proto.h#911 edit
Differences ...
==== //depot/perl/embed.fnc#577 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#576~33276~ 2008-02-11 00:54:16.000000000 -0800
+++ perl/embed.fnc 2008-02-11 06:46:40.000000000 -0800
@@ -688,7 +688,7 @@
Ap |void |pregfree |NULLOK REGEXP* r
Ap |void |pregfree2 |NN REGEXP* prog
EXp |REGEXP*|reg_temp_copy |NN REGEXP* r
-Ap |void |regfree_internal|NULLOK REGEXP * const r
+Ap |void |regfree_internal|NN REGEXP * const rx
#if defined(USE_ITHREADS)
Ap |void* |regdupe_internal|NN REGEXP * const r|NN CLONE_PARAMS* param
#endif
@@ -701,7 +701,7 @@
Ap |I32 |regexec_flags |NN REGEXP * const rx|NN char* stringarg \
|NN char* strend|NN char* strbeg|I32 minend \
|NN SV* screamer|NULLOK void* data|U32 flags
-ApR |regnode*|regnext |NN regnode* p
+ApR |regnode*|regnext |NULLOK regnode* p
EXp |SV*|reg_named_buff |NN REGEXP * const rx|NULLOK SV * const key \
|NULLOK SV * const value|const U32 flags
==== //depot/perl/proto.h#911 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#910~33276~ 2008-02-11 00:54:16.000000000 -0800
+++ perl/proto.h 2008-02-11 06:46:40.000000000 -0800
@@ -1863,7 +1863,9 @@
PERL_CALLCONV REGEXP* Perl_reg_temp_copy(pTHX_ REGEXP* r)
__attribute__nonnull__(pTHX_1);
-PERL_CALLCONV void Perl_regfree_internal(pTHX_ REGEXP * const r);
+PERL_CALLCONV void Perl_regfree_internal(pTHX_ REGEXP * const rx)
+ __attribute__nonnull__(pTHX_1);
+
#if defined(USE_ITHREADS)
PERL_CALLCONV void* Perl_regdupe_internal(pTHX_ REGEXP * const r,
CLONE_PARAMS* param)
__attribute__nonnull__(pTHX_1)
@@ -1892,8 +1894,7 @@
__attribute__nonnull__(pTHX_6);
PERL_CALLCONV regnode* Perl_regnext(pTHX_ regnode* p)
- __attribute__warn_unused_result__
- __attribute__nonnull__(pTHX_1);
+ __attribute__warn_unused_result__;
PERL_CALLCONV SV* Perl_reg_named_buff(pTHX_ REGEXP * const rx, SV * const
key, SV * const value, const U32 flags)
End of Patch.
