summaryrefslogtreecommitdiff
path: root/Build/source
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2022-01-23 11:17:59 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2022-01-23 11:17:59 +0000
commit9259172565d06a14deaabf6bb71a90db4599e04b (patch)
tree4b17f9001a11bf019ae6cd4d4b86457b63b6b71a /Build/source
parentffa025721b28470630752f54f2bd2a6ce69f2489 (diff)
fix typo
git-svn-id: svn://tug.org/texlive/trunk@61708 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
-rw-r--r--Build/source/texk/ptexenc/kanjicnv.c8
-rw-r--r--Build/source/texk/web2c/uptexdir/ChangeLog2
-rw-r--r--Build/source/texk/web2c/uptexdir/upbibtex.ch2
3 files changed, 6 insertions, 6 deletions
diff --git a/Build/source/texk/ptexenc/kanjicnv.c b/Build/source/texk/ptexenc/kanjicnv.c
index d93bbed5f1b..c5de51ac2e2 100644
--- a/Build/source/texk/ptexenc/kanjicnv.c
+++ b/Build/source/texk/ptexenc/kanjicnv.c
@@ -44,7 +44,7 @@ boolean isSJISkanji2(int c)
/* 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 EUCtoJIS(int kcode)
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 SJIStoJIS(int kcode)
{
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 JIStoSJIS(int kcode)
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;
diff --git a/Build/source/texk/web2c/uptexdir/ChangeLog b/Build/source/texk/web2c/uptexdir/ChangeLog
index e277c5a1c15..ec4c711d7e7 100644
--- a/Build/source/texk/web2c/uptexdir/ChangeLog
+++ b/Build/source/texk/web2c/uptexdir/ChangeLog
@@ -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:
diff --git a/Build/source/texk/web2c/uptexdir/upbibtex.ch b/Build/source/texk/web2c/uptexdir/upbibtex.ch
index ea72fe4e88f..4e069441db9 100644
--- a/Build/source/texk/web2c/uptexdir/upbibtex.ch
+++ b/Build/source/texk/web2c/uptexdir/upbibtex.ch
@@ -378,7 +378,7 @@ function is_char_kanji_upbibtex(@!c:integer):boolean;
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);