From ea2cecc22b9678258ec0e4240a5e93055d18c9dc Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Tue, 28 Jul 2015 10:19:53 +0000 Subject: e-(u)pTeX: Fix delcode initialization (from Hironori Kitagawa ) git-svn-id: svn://tug.org/texlive/trunk@37979 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/eptexdir/ChangeLog | 4 ++++ Build/source/texk/web2c/eptexdir/fam256.ch | 4 ++++ 2 files changed, 8 insertions(+) (limited to 'Build') diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/eptexdir/ChangeLog index a1a654008dc..6101754f5b5 100644 --- a/Build/source/texk/web2c/eptexdir/ChangeLog +++ b/Build/source/texk/web2c/eptexdir/ChangeLog @@ -1,3 +1,7 @@ +2015-07-28 Hironori Kitagawa + + * fam256.ch: Fix delcode initialization. + 2015-07-10 Peter Breitenlohner * eptriptest (removed): Renamed ... diff --git a/Build/source/texk/web2c/eptexdir/fam256.ch b/Build/source/texk/web2c/eptexdir/fam256.ch index 2acae50fde0..f0e3c34d35b 100644 --- a/Build/source/texk/web2c/eptexdir/fam256.ch +++ b/Build/source/texk/web2c/eptexdir/fam256.ch @@ -134,8 +134,12 @@ else begin print_esc("scriptscriptfont"); @z %----------------------------------------------- @x +for k:=0 to 255 do del_code(k):=-1; del_code("."):=0; {this null delimiter is used in error recovery} @y +for k:=0 to 255 do + begin del_code(k):=-1; setintone(eqtb[del_code_base+k],-1); + end; del_code("."):=0; setintone(eqtb[del_code_base+"."],0); {this null delimiter is used in error recovery} @z -- cgit v1.2.3