Change 14540 by jhi@alpha on 2002/02/03 18:33:53
EBCDIC: more natification.
Affected files ...
.... //depot/perl/regcomp.c#282 edit
Differences ...
==== //depot/perl/regcomp.c#282 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Sun Feb 3 11:45:05 2002
+++ perl/regcomp.c Sun Feb 3 11:45:05 2002
@@ -4052,20 +4052,23 @@
ANYOF_BITMAP_SET(ret, i);
}
if (value > 255 || UTF) {
+ UV prevnatvalue = NATIVE_TO_UNI(prevvalue);
+ UV natvalue = NATIVE_TO_UNI(value);
+
ANYOF_FLAGS(ret) |= ANYOF_UNICODE;
- if (prevvalue < value)
+ if (prevnatvalue < natvalue) { /* what about > ? */
Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\t%04"UVxf"\n",
- (UV)prevvalue, (UV)value);
- else if (prevvalue == value) {
- Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n",
- (UV)value);
+ prevnatvalue, natvalue);
+ }
+ else if (prevnatvalue == natvalue) {
+ Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n", natvalue);
if (FOLD) {
U8 tmpbuf [UTF8_MAXLEN+1];
U8 foldbuf[UTF8_MAXLEN_FOLD+1];
STRLEN foldlen;
UV f;
- uvchr_to_utf8(tmpbuf, NATIVE_TO_UNI(value));
+ uvchr_to_utf8(tmpbuf, natvalue);
to_utf8_fold(tmpbuf, foldbuf, &foldlen);
f = UNI_TO_NATIVE(utf8_to_uvchr(foldbuf, 0));
End of Patch.
