From 6e36299f55814c4f051a2ef01529cad7edb7ced0 Mon Sep 17 00:00:00 2001 From: Akira Kakuto Date: Sat, 1 Dec 2012 04:32:44 +0000 Subject: the author of e-pTeX updates fam256.ch. git-svn-id: svn://tug.org/texlive/trunk@28408 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/eptexdir/ChangeLog | 4 ++++ Build/source/texk/web2c/eptexdir/fam256.ch | 15 +++++++++++++++ 2 files changed, 19 insertions(+) (limited to 'Build') 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 + + * fam256.ch: fix a delcode bug. + 2012-09-04 Peter Breitenlohner * 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 -- cgit v1.2.3