From 9259172565d06a14deaabf6bb71a90db4599e04b Mon Sep 17 00:00:00 2001 From: Hironobu Yamashita Date: Sun, 23 Jan 2022 11:17:59 +0000 Subject: fix typo git-svn-id: svn://tug.org/texlive/trunk@61708 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/ptexenc/kanjicnv.c | 8 ++++---- Build/source/texk/web2c/uptexdir/ChangeLog | 2 +- Build/source/texk/web2c/uptexdir/upbibtex.ch | 2 +- 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); -- cgit v1.2.3