On Mon, 14 Mar 2005 08:55:39 +0100, demerphq <[EMAIL PROTECTED]> wrote:
> On Sat, 12 Mar 2005 20:33:44 +0100, demerphq <[EMAIL PROTECTED]> wrote:
> > Also, i discovered I omitted some new test files, and have a small
> > patch to apply on top of my previous. Should I prepare a new bundle
> > overall or just an addendum patch?
>
> Ok, here is Rc8_trie.patch, with the extra tests, documentation,
> changes to re.pm, and perlvar.pod, and two small bugfixes. :-)
Hi,
I noticed that I managed to recreate a problem you pointed out with
the first patch, this is meant to be applied after the Rc8_trie.patch
and corrects things. Its so tiny i couldnt bear sending out a Rc9.
Cheers,
Yves
--
perl -Mre=debug -e "/just|another|perl|hacker/"
--- regexec.c 2005-03-14 22:32:27.476814400 +0100
+++ /blead_trie_rc9/regexec.c 2005-03-15 18:07:33.299208000 +0100
@@ -2306,14 +2306,15 @@
#define TRIE_HANDLE_CHAR STMT_START { \
if ( uvc < 256 ) { \
charid = trie->charmap[ uvc ]; \
- } else if( trie->widecharmap ) { \
+ } else { \
+ charid = 0; \
+ if( trie->widecharmap ) { \
SV** svpp = (SV**)NULL; \
svpp = hv_fetch( trie->widecharmap, (char*)&uvc, \
sizeof( UV ), 0 ); \
if ( svpp ) { \
charid = (U16)SvIV( *svpp ); \
- } else { \
- charid = 0; \
+ } \
} \
} \
if ( charid && \
