texlive[74135] Build/source/texk/web2c/uptexdir: uptex: Check code

[commits+takuji at tug.org]

Revision: 74135
          https://tug.org/svn/texlive?view=revision&revision=74135
Author:   takuji
Date:     2025-02-19 16:05:04 +0100 (Wed, 19 Feb 2025)
Log Message:
-----------
uptex: Check code range of ^^^^xyzw

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/uptexdir/ChangeLog
    trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch

Modified: trunk/Build/source/texk/web2c/uptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2025-02-19 15:05:00 UTC (rev 74134)
+++ trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2025-02-19 15:05:04 UTC (rev 74135)
@@ -1,3 +1,8 @@
+2025-02-20  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
+
+	* uptex-m.ch: Check code range of ^^^^xyzw.
+	Thanks to Takayuki YATO.
+
 2025-02-15  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* uptex-m.ch: Increase size of auto_xsp_code().

Modified: trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2025-02-19 15:05:00 UTC (rev 74134)
+++ trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2025-02-19 15:05:04 UTC (rev 74135)
@@ -708,8 +708,12 @@
      begin c:=buffer[loc+3]; cc:=buffer[loc+4];
        cd:=buffer[loc+5]; ce:=buffer[loc+6];
        if is_hex(c) and is_hex(cc) and is_hex(cd) and is_hex(ce) then
-       begin loc:=loc+7; long_hex_to_cur_chr; goto reswitch;
-       end
+       begin long_hex_to_cur_chr;
+         if (cur_chr<max_latin_val) then begin
+           loc:=loc+7;
+           goto reswitch;
+           end;
+       end;
      end;
   c:=buffer[loc+1]; @+if c<@'200 then {yes we have an expanded char}
 @z