texlive[63318] Build/source/texk/bibtex-x: bibtex-x: fix a bug on

[commits+takuji at tug.org]

Revision: 63318
          http://tug.org/svn/texlive?view=revision&revision=63318
Author:   takuji
Date:     2022-05-17 15:08:34 +0200 (Tue, 17 May 2022)
Log Message:
-----------
bibtex-x: fix a bug on text.length$

Modified Paths:
--------------
    trunk/Build/source/texk/bibtex-x/ChangeLog
    trunk/Build/source/texk/bibtex-x/bibtex-4.c

Modified: trunk/Build/source/texk/bibtex-x/ChangeLog
===================================================================
--- trunk/Build/source/texk/bibtex-x/ChangeLog	2022-05-17 12:10:32 UTC (rev 63317)
+++ trunk/Build/source/texk/bibtex-x/ChangeLog	2022-05-17 13:08:34 UTC (rev 63318)
@@ -3,7 +3,7 @@
 	* version.h:
 	Bump version to 4.00 (17 may 2022).
 	* bibtex-4.c, bibtex.h:
-	Fix a bug of text.prefix$ in bibtexu.
+	Fix a bug of text.prefix$ and text.length$ in bibtexu.
 	* tests/testsubstr[au].bib, substr[au].bbl, txtprfx[au].bbl:
 	Update tests.
 

Modified: trunk/Build/source/texk/bibtex-x/bibtex-4.c
===================================================================
--- trunk/Build/source/texk/bibtex-x/bibtex-4.c	2022-05-17 12:10:32 UTC (rev 63317)
+++ trunk/Build/source/texk/bibtex-x/bibtex-4.c	2022-05-17 13:08:34 UTC (rev 63318)
@@ -2266,7 +2266,7 @@
 /*
 The length of character of UTF-8 is different. 23/sep/2009
 */
-              DO_UTF8(str_pool[sp_ptr], , sp_ptr++, sp_ptr += 2, sp_ptr += 3);
+              DO_UTF8(str_pool[sp_ptr-1], , sp_ptr++, sp_ptr += 2, sp_ptr += 3);
 #endif
               INCR (num_text_chars);
             END