summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2015-07-28 10:19:53 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2015-07-28 10:19:53 +0000
commitea2cecc22b9678258ec0e4240a5e93055d18c9dc (patch)
tree6baa513aec2768c199ca9998d8f078b5cc210a2c
parent50aad573ddce31e078b3e5cd8ff81d4a4412a13b (diff)
e-(u)pTeX: Fix delcode initialization (from Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>)
git-svn-id: svn://tug.org/texlive/trunk@37979 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/web2c/eptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/eptexdir/fam256.ch4
2 files changed, 8 insertions, 0 deletions
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 <h_kitagawa2001@yahoo.co.jp>
+
+ * fam256.ch: Fix delcode initialization.
+
2015-07-10 Peter Breitenlohner <peb@mppmu.mpg.de>
* 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