We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 774e86d commit 5137fe1Copy full SHA for 5137fe1
utf8.c
@@ -2393,8 +2393,8 @@ Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *lenp)
2393
/* Nothing before 'first_variant' needs to be changed, so start the real
2394
* work there */
2395
2396
- U8 * const save = s;
2397
- U8 * const send = s + *lenp;
+ U8 * const s0 = s;
+ U8 * const send = s0 + *lenp;
2398
s = first_variant;
2399
2400
#ifndef EBCDIC /* The below relies on the bit patterns of UTF-8 */
@@ -2541,9 +2541,9 @@ Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *lenp)
2541
2542
/* Success! */
2543
*d = '\0';
2544
- *lenp = d - save;
+ *lenp = d - s0;
2545
2546
- return save;
+ return s0;
2547
2548
cant_convert: ;
2549
0 commit comments