diff options
| author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-12-19 14:33:12 +0000 |
|---|---|---|
| committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-12-19 14:33:12 +0000 |
| commit | b900237b52142fc387930db473e26d901673a414 (patch) | |
| tree | f7ddfff9ba923d55fee6a8af6e3142a9f48bec87 /Build/source/texk/web2c/euptexdir | |
| parent | fbd50cdbd2c221a7f2a9f5bac3f4db0848763c64 (diff) | |
(e-)(u)pTeX: Avoid Segmentation fault for japanese \catcode or \kcatcode
Patch from Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
git-svn-id: svn://tug.org/texlive/trunk@24874 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/euptexdir')
| -rw-r--r-- | Build/source/texk/web2c/euptexdir/ChangeLog | 9 | ||||
| -rw-r--r-- | Build/source/texk/web2c/euptexdir/euptex.ch1 | 2 | ||||
| -rw-r--r-- | Build/source/texk/web2c/euptexdir/euptex.defines | 3 |
3 files changed, 10 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/euptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/ChangeLog index 45d39060765..446a60a330a 100644 --- a/Build/source/texk/web2c/euptexdir/ChangeLog +++ b/Build/source/texk/web2c/euptexdir/ChangeLog @@ -1,3 +1,12 @@ +2011-12-19 Peter Breitenlohner <peb@mppmu.mpg.de> + + * euptex.ch1: Drop unused param2 of check_kanji(). + +2011-12-19 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * euptex.ch1, euptex.defines: Avoid Segmentation fault for + japanese \catcode or \kcatcode. + 2011-08-29 Peter Breitenlohner <peb@mppmu.mpg.de> * euptex.defines: Remove setptexencuptex. diff --git a/Build/source/texk/web2c/euptexdir/euptex.ch1 b/Build/source/texk/web2c/euptexdir/euptex.ch1 index 1a2039cb62d..e939c20772a 100644 --- a/Build/source/texk/web2c/euptexdir/euptex.ch1 +++ b/Build/source/texk/web2c/euptexdir/euptex.ch1 @@ -7,12 +7,10 @@ @z @x e-pTeX: ifcsname l.28620 - if check_kanji(info(p)) then {|wchar_token|} begin buffer[m]:=Hi(info(p)); incr(m); end; buffer[m]:=Lo(info(p)); incr(m); p:=link(p); @y - if check_kanji(info(p),4)=2 then {|wchar_token|} begin if BYTE1(toBUFF(info(p) mod max_cjk_val))<>0 then begin buffer[m]:=BYTE1(toBUFF(info(p) mod max_cjk_val)); incr(m); end; if BYTE2(toBUFF(info(p) mod max_cjk_val))<>0 then begin buffer[m]:=BYTE2(toBUFF(info(p) mod max_cjk_val)); incr(m); end; diff --git a/Build/source/texk/web2c/euptexdir/euptex.defines b/Build/source/texk/web2c/euptexdir/euptex.defines index c888699960f..06198cc252d 100644 --- a/Build/source/texk/web2c/euptexdir/euptex.defines +++ b/Build/source/texk/web2c/euptexdir/euptex.defines @@ -33,9 +33,8 @@ @define function toUCS (); @define function checkkanji (); -@define function iskanji (); @define function ischarascii (); -@define function iswcharascii (); +@define function ischarkanji (); @define function ismultiprn (); @define function calcpos (); @define function kcatcodekey (); |