summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2012-12-01 04:32:44 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2012-12-01 04:32:44 +0000
commit6e36299f55814c4f051a2ef01529cad7edb7ced0 (patch)
treeebfe1d2936077ebe9b890616a9c78a25cb744e00 /Build
parentc00b33e57999d55c82631a8d1bdc74d3af960976 (diff)
the author of e-pTeX updates fam256.ch.
git-svn-id: svn://tug.org/texlive/trunk@28408 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r--Build/source/texk/web2c/eptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/eptexdir/fam256.ch15
2 files changed, 19 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/eptexdir/ChangeLog
index e819d46dd6b..39740231180 100644
--- a/Build/source/texk/web2c/eptexdir/ChangeLog
+++ b/Build/source/texk/web2c/eptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2012-12-01 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * fam256.ch: fix a delcode bug.
+
2012-09-04 Peter Breitenlohner <peb@mppmu.mpg.de>
* eptexextra.h: Set AUTHOR to "Peter Breitenlohner" and
diff --git a/Build/source/texk/web2c/eptexdir/fam256.ch b/Build/source/texk/web2c/eptexdir/fam256.ch
index d219e6228d1..2acae50fde0 100644
--- a/Build/source/texk/web2c/eptexdir/fam256.ch
+++ b/Build/source/texk/web2c/eptexdir/fam256.ch
@@ -291,6 +291,21 @@ else if m=(math_code_base+128) then begin
+(cur_val1 mod @"100);
scanned_result(cur_val)(int_val);
end
+else if m=del_code_base then begin
+ cur_val1:=del_code(cur_val); cur_val:=del_code1(cur_val);
+ if ((cur_val1 div @"100) mod @"100 >= 16) or (cur_val>=@"1000) then
+ begin print_err("Extended delimiter code used as delcode");
+@.Bad delimiter code@>
+ help2("A numeric delimiter code must be between 0 and 2^{27}-1.")@/
+ ("I changed this one to zero."); error;
+ scanned_result(0)(int_val);
+ end
+ else scanned_result(cur_val1*@"1000+cur_val)(int_val);
+ end
+else if m=(del_code_base+128) then begin
+ { Aleph seems \.{\\odelcode} always returns $-1$.}
+ scanned_result(-1)(int_val);
+ end
@z
%-----------------------------------------------
@x