Change 32925 by [EMAIL PROTECTED] on 2008/01/09 17:59:11
Fix prototype in regexp code following #32851, and regen
Affected files ...
... //depot/perl/embed.fnc#555 edit
... //depot/perl/pod/perlapi.pod#312 edit
... //depot/perl/proto.h#889 edit
... //depot/perl/regexp.h#131 edit
Differences ...
==== //depot/perl/embed.fnc#555 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#554~32844~ 2008-01-05 06:50:07.000000000 -0800
+++ perl/embed.fnc 2008-01-09 09:59:11.000000000 -0800
@@ -693,7 +693,7 @@
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
==== //depot/perl/pod/perlapi.pod#312 (text+w) ====
Index: perl/pod/perlapi.pod
--- perl/pod/perlapi.pod#311~32838~ 2008-01-05 03:30:31.000000000 -0800
+++ perl/pod/perlapi.pod 2008-01-09 09:59:11.000000000 -0800
@@ -1562,7 +1562,7 @@
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>.
==== //depot/perl/proto.h#889 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#888~32840~ 2008-01-05 05:54:38.000000000 -0800
+++ perl/proto.h 2008-01-09 09:59:11.000000000 -0800
@@ -1871,7 +1871,7 @@
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)
==== //depot/perl/regexp.h#131 (text) ====
Index: perl/regexp.h
--- perl/regexp.h#130~32890~ 2008-01-07 05:53:57.000000000 -0800
+++ perl/regexp.h 2008-01-09 09:59:11.000000000 -0800
@@ -129,7 +129,7 @@
* 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);
End of Patch.
