texlive[68237] Build/source/texk/ptexenc: ptexenc: fix unicode.c

[commits+hironobu at tug.org]

Revision: 68237
          http://tug.org/svn/texlive?view=revision&revision=68237
Author:   hironobu
Date:     2023-09-11 16:01:15 +0200 (Mon, 11 Sep 2023)
Log Message:
-----------
ptexenc: fix unicode.c

Modified Paths:
--------------
    trunk/Build/source/texk/ptexenc/ChangeLog
    trunk/Build/source/texk/ptexenc/unicode.c

Modified: trunk/Build/source/texk/ptexenc/ChangeLog
===================================================================
--- trunk/Build/source/texk/ptexenc/ChangeLog	2023-09-10 23:43:27 UTC (rev 68236)
+++ trunk/Build/source/texk/ptexenc/ChangeLog	2023-09-11 14:01:15 UTC (rev 68237)
@@ -1,3 +1,7 @@
+2023-09-11  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* unicode.c (UPTEXtoUCS): if >=UCS_MAX not >UCS_MAX.
+
 2023-02-09  Karl Berry  <karl at tug.org>
 
 	* version.ac: remove /dev, for TL23.

Modified: trunk/Build/source/texk/ptexenc/unicode.c
===================================================================
--- trunk/Build/source/texk/ptexenc/unicode.c	2023-09-10 23:43:27 UTC (rev 68236)
+++ trunk/Build/source/texk/ptexenc/unicode.c	2023-09-11 14:01:15 UTC (rev 68237)
@@ -129,6 +129,6 @@
 /* using over U+10.FFFF Area */
 long UPTEXtoUCS (long uptex)
 {
-    if (uptex>UCS_MAX) return uptex % UCS_MAX; /* for OTF package */
+    if (uptex>=UCS_MAX) return uptex % UCS_MAX; /* for OTF package */
     return uptex;
 }