texlive[70123] Build/source/texk/web2c/xetexdir/xetex.ch: xetex:

[commits+takuji at tug.org]

Revision: 70123
          https://tug.org/svn/texlive?view=revision&revision=70123
Author:   takuji
Date:     2024-02-24 07:20:54 +0100 (Sat, 24 Feb 2024)
Log Message:
-----------
xetex: Tweak for safe

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/xetexdir/xetex.ch

Modified: trunk/Build/source/texk/web2c/xetexdir/xetex.ch
===================================================================
--- trunk/Build/source/texk/web2c/xetexdir/xetex.ch	2024-02-24 03:29:56 UTC (rev 70122)
+++ trunk/Build/source/texk/web2c/xetexdir/xetex.ch	2024-02-24 06:20:54 UTC (rev 70123)
@@ -383,13 +383,15 @@
 		name_of_file[k]:=@"E0 + c div @"1000; incr(k);
 		name_of_file[k]:=@"80 + (c mod @"1000) div @"40; incr(k);
 		name_of_file[k]:=@"80 + c mod @"40;
-      end else if (c < @"DC00) and (k<file_name_size) then begin
+      end else if (c < @"DC00) and (k+3<file_name_size) then begin
 		name_of_file[k]:=@"F0 + (c - @"D7C0) div @"1000; incr(k);
 		name_of_file[k]:=@"80 + ((c - @"D7C0) mod @"1000) div @"4; incr(k);
-		name_of_file[k]:=@"80 + (c - @"D7C0) mod @"4 * @"10;
-      end else if (c < @"E000) and (k>0) then begin
+		name_of_file[k]:=@"80 + (c - @"D7C0) mod @"4 * @"10; incr(k);
+		name_of_file[k]:=@"80;
+      end else if (c < @"E000) and (k>4) then begin
+		decr(k);
 		name_of_file[k-1]:=name_of_file[k-1] + (c - @"DC00) div @"40;
-		name_of_file[k]:=@"80 + (c - @"DC00) mod @"40;
+		name_of_file[k]  :=name_of_file[k]   + (c - @"DC00) mod @"40;
       end else if (c < @"10000) then begin
 		name_of_file[k]:=@"E0 + c div @"1000; incr(k);
 		name_of_file[k]:=@"80 + (c mod @"1000) div @"40; incr(k);