texlive[46129] Build/source/texk/web2c/eptexdir: eptexdir/fam256.ch:

[commits+hironobu at tug.org]

Revision: 46129
          http://tug.org/svn/texlive?view=revision&revision=46129
Author:   hironobu
Date:     2017-12-24 12:15:36 +0100 (Sun, 24 Dec 2017)
Log Message:
-----------
eptexdir/fam256.ch: \delcode defaults to -1, not -4097 (H. Kitagawa)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/eptexdir/ChangeLog
    trunk/Build/source/texk/web2c/eptexdir/fam256.ch

Modified: trunk/Build/source/texk/web2c/eptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2017-12-24 01:22:46 UTC (rev 46128)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2017-12-24 11:15:36 UTC (rev 46129)
@@ -1,3 +1,8 @@
+2017-12-22  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* fam256.ch: \delcode defaults to -1, not -4097, to be compatible
+	with TeX82.
+
 2017-12-15  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* pdfutils.ch: Fix a error message "! File ended while ..."

Modified: trunk/Build/source/texk/web2c/eptexdir/fam256.ch
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/fam256.ch	2017-12-24 01:22:46 UTC (rev 46128)
+++ trunk/Build/source/texk/web2c/eptexdir/fam256.ch	2017-12-24 11:15:36 UTC (rev 46129)
@@ -328,7 +328,10 @@
       ("I changed this one to zero."); error;
     scanned_result(0)(int_val);
     end
-  else scanned_result(cur_val1*@"1000+cur_val)(int_val);
+  else if cur_val1<0 then
+    scanned_result(cur_val)(int_val)
+  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$.}
@@ -1280,10 +1283,13 @@
       define(p-128,data,hi(cur_val));
       end
     else if cur_val1=del_code_base then begin
-      cur_val1:=cur_val div @"1000;
-      cur_val1:=(cur_val1 div @"1000)*@"10000 + cur_val1 mod @"1000;
-      cur_val:=cur_val mod @"1000;
-      del_word_define(p,cur_val1,cur_val);
+      if cur_val>=0 then begin
+        cur_val1:=cur_val div @"1000;
+        cur_val1:=(cur_val1 div @"1000)*@"10000 + cur_val1 mod @"1000;
+        cur_val:=cur_val mod @"1000;
+        del_word_define(p,cur_val1,cur_val); end
+      else
+        del_word_define(p, -1, cur_val);
       end
     else define(p,data,cur_val);
     end;