diff options
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptex-base.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index bd850b61a73..891861b331e 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -59,6 +59,7 @@ % (2017-09-07) HK pTeX p3.7.2 More restrictions on direction change commands. % (2018-01-21) HK Added \ptexversion primitive and co. pTeX p3.8. % (2018-04-14) HK pTeX p3.8.1 Bug fix for discontinuous KINSOKU table. +% (2019-02-03) HK pTeX p3.8.2 Change \inhibitglue, add \disinhibitglue. % @x @@ -324,6 +325,13 @@ else wterm(')'); @z +@x +@d max_halfword==@"FFFFFFF {largest allowable value in a |halfword|} +@y +@d max_halfword==@"FFFFFFF {largest allowable value in a |halfword|} +@d max_cjk_val=@"10000 +@z + @x [8.111] l.2436 - pTeX: check hi/ho (mem_top+sup_main_memory>=max_halfword) then bad:=14; @y @@ -2533,19 +2541,19 @@ if (cur_cmd>active_char)or(cur_chr>255) then end; @y if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then - begin m:=cur_cmd; n:=cur_chr; + begin n:=cur_chr; m:=kcat_code(kcatcodekey(n)); end else if (cur_cmd>active_char)or(cur_chr>255) then - begin m:=relax; n:=256; + begin m:=relax; n:=max_cjk_val; end else begin m:=cur_cmd; n:=cur_chr; end; get_x_token_or_active_char; if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then - begin cur_cmd:=cur_cmd; - end {dummy} + begin cur_cmd:=kcat_code(kcatcodekey(cur_chr)); + end else if (cur_cmd>active_char)or(cur_chr>255) then - begin cur_cmd:=relax; cur_chr:=256; + begin cur_cmd:=relax; cur_chr:=max_cjk_val; end; @z |