From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 18 Jun 2006 01:04:46 +0000 (+0300)
Subject: Re: blead trie problems in tru64 with -DDEBUGGING
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f9e705e84896ce390b7b030e30d69a681032f6b1;p=p5sagit%2Fp5-mst-13.2.git

Re: blead trie problems in tru64 with -DDEBUGGING
Message-Id:  <44947C7E.7090100@iki.fi>

p4raw-id: //depot/perl@28401
---

diff --git a/regexec.c b/regexec.c
index 872a3bc..a40124b 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1594,6 +1594,7 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
 		                is unnecessary overhead as the relationship
 		                is always 1:1, but for unicode, especially
 		                case folded unicode this is not true. */
+		U8 foldbuf[ UTF8_MAXBYTES_CASE + 1 ];
 
                 GET_RE_DEBUG_FLAGS_DECL;
 
@@ -1646,7 +1647,6 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
                                 uscan += len;
                                 len=0;
                             } else {
-                                U8 foldbuf[ UTF8_MAXBYTES_CASE + 1 ];
                                 uvc = utf8n_to_uvuni( (U8*)uc, UTF8_MAXLEN, &len, uniflags );
                                 uvc = to_uni_fold( uvc, foldbuf, &foldlen );
                                 foldlen -= UNISKIP( uvc );
@@ -2896,6 +2896,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog)
 		U8 *uscan = (U8*)NULL;
 		STRLEN bufflen=0;
 		SV *sv_accept_buff = NULL;
+		U8 foldbuf[ UTF8_MAXBYTES_CASE + 1 ];
 
 	    	st->u.trie.accepted = 0; /* how many accepting states we have seen */
 		result = 0;
@@ -2950,7 +2951,6 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog)
 				uscan += len;
 				len=0;
 			    } else {
-				U8 foldbuf[ UTF8_MAXBYTES_CASE + 1 ];
 				uvc = utf8n_to_uvuni( (U8*)uc, UTF8_MAXLEN, &len, uniflags );
 				uvc = to_uni_fold( uvc, foldbuf, &foldlen );
 				foldlen -= UNISKIP( uvc );