diff options
author | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2019-05-06 08:22:16 +0000 |
---|---|---|
committer | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2019-05-06 08:22:16 +0000 |
commit | 9a5b4e551798043dc44610e9ba019a22a4a2d4e1 (patch) | |
tree | 1e6410926c7c408c68bc292ae637d4302ee476b3 /Build/source/texk/web2c/ptexdir/ptex-base.ch | |
parent | 82966de3217136dac127404969de645bc34e6578 (diff) |
upTeX 1.25
git-svn-id: svn://tug.org/texlive/trunk@51021 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptex-base.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 17 |
1 files changed, 12 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..52ac033eecd 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -324,6 +324,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 +2540,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 |