Change 14800 by jhi@alpha on 2002/02/20 22:15:23
Compiler (optimizer?) bug in OS/390, caused to exit
the loop too soon. Rewriting to be less clever seems
to help.
Affected files ...
.... //depot/perl/utf8.c#177 edit
Differences ...
==== //depot/perl/utf8.c#177 (text) ====
Index: perl/utf8.c
--- perl/utf8.c.~1~ Wed Feb 20 15:30:05 2002
+++ perl/utf8.c Wed Feb 20 15:30:05 2002
@@ -1341,8 +1341,10 @@
}
}
else {
- while (t < tend)
- d = uvchr_to_utf8(d, UNI_TO_NATIVE(*t++));
+ while (t < tend) {
+ d = uvchr_to_utf8(d, UNI_TO_NATIVE(*t));
+ t++;
+ }
}
len = d - tmpbuf;
Copy(tmpbuf, ustrp, len, U8);
End of Patch.
