texlive[61708] Build/source/texk: fix typo

[commits+hironobu at tug.org]

Revision: 61708
          http://tug.org/svn/texlive?view=revision&revision=61708
Author:   hironobu
Date:     2022-01-23 12:17:59 +0100 (Sun, 23 Jan 2022)
Log Message:
-----------
fix typo

Modified Paths:
--------------
    trunk/Build/source/texk/ptexenc/kanjicnv.c
    trunk/Build/source/texk/web2c/uptexdir/ChangeLog
    trunk/Build/source/texk/web2c/uptexdir/upbibtex.ch

Modified: trunk/Build/source/texk/ptexenc/kanjicnv.c
===================================================================
--- trunk/Build/source/texk/ptexenc/kanjicnv.c	2022-01-23 10:29:40 UTC (rev 61707)
+++ trunk/Build/source/texk/ptexenc/kanjicnv.c	2022-01-23 11:17:59 UTC (rev 61708)
@@ -44,7 +44,7 @@
 /* EUC <=> JIS X 0208 code conversion */
 int EUCtoJIS(int kcode)
 {
-    if ((kcode<=0 || kcode>0x10000)) return 0;
+    if ((kcode<=0 || kcode>=0x10000)) return 0;
     if (!isEUCkanji1(HI(kcode))) return 0;
     if (!isEUCkanji2(LO(kcode))) return 0;
     return (kcode & 0x7f7f);
@@ -52,7 +52,7 @@
 
 int JIStoEUC(int kcode)
 {
-    if ((kcode<=0 || kcode>0x10000)) return 0;
+    if ((kcode<=0 || kcode>=0x10000)) return 0;
     if (!isJISkanji1(HI(kcode))) return 0;
     if (!isJISkanji2(LO(kcode))) return 0;
     return (kcode | 0x8080);
@@ -63,7 +63,7 @@
 {
     int byte1, byte2;
 
-    if ((kcode<=0 || kcode>0x10000)) return 0;
+    if ((kcode<=0 || kcode>=0x10000)) return 0;
     byte1 = HI(kcode); if (!isSJISkanji1(byte1)) return 0;
     byte2 = LO(kcode); if (!isSJISkanji2(byte2)) return 0;
     byte1 -= ( byte1>=0xa0 ) ? 0xc1 : 0x81;
@@ -82,7 +82,7 @@
     int high, low;
     int nh,   nl;
 
-    if ((kcode<=0 || kcode>0x10000)) return 0;
+    if ((kcode<=0 || kcode>=0x10000)) return 0;
     high = HI(kcode); if (!isJISkanji1(high)) return 0;
     low  = LO(kcode); if (!isJISkanji2(low)) return 0;
     nh = ((high-0x21)>>1) + 0x81;

Modified: trunk/Build/source/texk/web2c/uptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2022-01-23 10:29:40 UTC (rev 61707)
+++ trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2022-01-23 11:17:59 UTC (rev 61708)
@@ -2,7 +2,7 @@
 
 	* uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch,
 	uptex_version.h: upTeX version u1.28.
-	* uptex-m.ch, ubbibtex.ch, kanji.c:
+	* uptex-m.ch, upbibtex.ch, kanji.c:
 	Update reference of Unicode blocks to
 	"Blocks-14.0.0.txt Date: 2021-01-22, 23:29:00 GMT [KW]".
 	* COPYRIGHT, COPYRIGHT.ja:

Modified: trunk/Build/source/texk/web2c/uptexdir/upbibtex.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/upbibtex.ch	2022-01-23 10:29:40 UTC (rev 61707)
+++ trunk/Build/source/texk/web2c/uptexdir/upbibtex.ch	2022-01-23 11:17:59 UTC (rev 61708)
@@ -378,7 +378,7 @@
 label exit;
 var k:integer;
 begin
-  { based on upTeX-1.26 kcatcode status: 16,17,19->true / 15,18->false }
+  { based on upTeX-1.28 kcatcode status: 16,17,19->true / 15,18->false }
   is_char_kanji_upbibtex := true;
   if (is_internalUPTEX) then begin { should be in sync with |kcat_code| of uptex-m.ch }
     k := kcatcodekey(c);