diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-02-11 14:46:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-02-11 14:46:40 +0000 |
| commit | 8074533a0c1d5639d1b58108552f1c023528a4a2 (patch) | |
| tree | e549da0cc17219e699b16bc89a495e431c079c8f /embed.fnc | |
| parent | 05cb221f7e8204422776baabed6fa2c807042438 (diff) | |
| download | perl-8074533a0c1d5639d1b58108552f1c023528a4a2.tar.gz | |
In Perl_regfree_internal(), rx is actually not NULL.
In Perl_regnext(), p can actually be NULL.
p4raw-id: //depot/perl@33279
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -688,7 +688,7 @@ Ap |I32 |pregexec |NN REGEXP * const prog|NN char* stringarg \ 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 |SV* |re_intuit_string|NN REGEXP * const rx 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 |