summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2012-07-17 13:23:24 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2012-07-17 13:23:24 +0000
commit9f994061eae6b8f96ff93f0e22f409268823fb5c (patch)
tree641066041aedfd5e26708ba1085dc1e41d73ae7e
parent6d3ed5616046046278577f23609e0258757a6612 (diff)
bug fix from H. Kitagawa
git-svn-id: svn://tug.org/texlive/trunk@27076 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/web2c/ptexdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex-base.ch2
2 files changed, 6 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index 4eda595b09e..fb056210058 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-17 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * ptex-base.ch: fix a bug in
+ @<Scan an alphabetic character code into |cur_val|@>
+
2012-07-15 Peter Breitenlohner <peb@mppmu.mpg.de>
* pbibtex.ch, pdvitype.ch, ppltotf.ch, ptftopl.ch:
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index 4b553a5d612..cd4d3a5c262 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -2149,7 +2149,7 @@ if cur_tok<cs_token_flag then
else if cur_tok<cs_token_flag+single_base then
cur_val:=cur_tok-cs_token_flag-active_base
else cur_val:=cur_tok-cs_token_flag-single_base;
-if (cur_val>255)and(cur_cmd<kanji) then
+if (cur_val>255)and((cur_cmd<kanji)or(cur_cmd>max_char_code)) then
begin print_err("Improper alphabetic or KANJI constant");
@.Improper alphabetic constant@>
help2("A one-character control sequence belongs after a ` mark.")@/