This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix prototype in regexp code following #32851, and regen
authorSteve Hay <SteveHay@planit.com>
Wed, 9 Jan 2008 17:59:11 +0000 (17:59 +0000)
committerSteve Hay <SteveHay@planit.com>
Wed, 9 Jan 2008 17:59:11 +0000 (17:59 +0000)
p4raw-id: //depot/perl@32925

embed.fnc
pod/perlapi.pod
proto.h
regexp.h

index cfe292b..e7e978b 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -693,7 +693,7 @@ Ap  |char * |reg_stringify  |NN MAGIC *mg|NULLOK STRLEN *lp|NULLOK U32 *flags|NUL
 Ap     |void*  |regdupe_internal|NN REGEXP * const r|NN CLONE_PARAMS* param
 #endif
 Ap     |REGEXP*|pregcomp       |NN const SV * const pattern|const U32 flags
-Ap     |REGEXP*|re_compile     |NN const SV * const pattern|const U32 flags
+Ap     |REGEXP*|re_compile     |NN const SV * const pattern|U32 flags
 Ap     |char*  |re_intuit_start|NN REGEXP * const rx|NULLOK SV* sv|NN char* strpos \
                                |NN char* strend|const U32 flags \
                                |NULLOK re_scream_pos_data *data
index d139026..514e158 100644 (file)
@@ -1562,7 +1562,7 @@ X<HeUTF8>
 
 Returns whether the C<char *> value returned by C<HePV> is encoded in UTF-8,
 doing any necessary dereferencing of possibly C<SV*> keys.  The value returned
-will be 0 or non-0, not necesarily 1 (or even a value with any low bits set),
+will be 0 or non-0, not necessarily 1 (or even a value with any low bits set),
 so B<do not> blindly assign this to a C<bool> variable, as C<bool> may be a
 typedef for C<char>.
 
diff --git a/proto.h b/proto.h
index d24ba1e..0602069 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1871,7 +1871,7 @@ PERL_CALLCONV void*       Perl_regdupe_internal(pTHX_ REGEXP * const r, CLONE_PARAMS*
 PERL_CALLCONV REGEXP*  Perl_pregcomp(pTHX_ const SV * const pattern, const U32 flags)
                        __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV REGEXP*  Perl_re_compile(pTHX_ const SV * const pattern, const U32 flags)
+PERL_CALLCONV REGEXP*  Perl_re_compile(pTHX_ const SV * const pattern, U32 flags)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV char*    Perl_re_intuit_start(pTHX_ REGEXP * const rx, SV* sv, char* strpos, char* strend, const U32 flags, re_scream_pos_data *data)
index b41c0a4..74973ae 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -129,7 +129,7 @@ typedef struct re_scream_pos_data_s
  * Any regex engine implementation must be able to build one of these.
  */
 typedef struct regexp_engine {
-    REGEXP* (*comp) (pTHX_ const SV * const pattern, const U32 flags);
+    REGEXP* (*comp) (pTHX_ const SV * const pattern, U32 flags);
     I32     (*exec) (pTHX_ REGEXP * const rx, char* stringarg, char* strend,
                      char* strbeg, I32 minend, SV* screamer,
                      void* data, U32 flags);