texlive[57023] Build/source/texk/web2c: ptex-base.ch: error recovery,

[commits+hironobu at tug.org]

Revision: 57023
          http://tug.org/svn/texlive?view=revision&revision=57023
Author:   hironobu
Date:     2020-11-28 02:03:14 +0100 (Sat, 28 Nov 2020)
Log Message:
-----------
ptex-base.ch: error recovery, syntax

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

Modified: trunk/Build/source/texk/web2c/eptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2020-11-28 00:54:14 UTC (rev 57022)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2020-11-28 01:03:14 UTC (rev 57023)
@@ -1,3 +1,7 @@
+2020-11-29  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* fam256.ch: Adapt to changes in ptex-base.ch.
+
 2020-09-01  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* pdfutils.ch (Scan the argument for command |c|) <expanded_code>:

Modified: trunk/Build/source/texk/web2c/eptexdir/fam256.ch
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/fam256.ch	2020-11-28 00:54:14 UTC (rev 57022)
+++ trunk/Build/source/texk/web2c/eptexdir/fam256.ch	2020-11-28 01:03:14 UTC (rev 57023)
@@ -1218,13 +1218,12 @@
     print_int(n);
     if m=0 then
       begin help1("I'm going to use 0 instead of that illegal code value.");@/
-      error;
+      error; cur_val:=0;
       end
     else
       begin help1("I'm going to use 16 instead of that illegal code value.");@/
-      error;
+      error; cur_val:=16;
       end;
-    cur_val:=m;
   end;
   if p<math_code_base then define(p,data,cur_val)
   else if p<del_code_base then define(p,data,hi(cur_val))
@@ -1264,13 +1263,12 @@
       print_int(n);
       if m=0 then
         begin help1("I'm going to use 0 instead of that illegal code value.");@/
-        error;
+        error; cur_val:=0;
         end
       else
         begin help1("I'm going to use 16 instead of that illegal code value.");@/
-        error;
+        error; cur_val:=16;
         end;
-      cur_val:=m;
     end;
     if p<math_code_base then define(p,data,cur_val)
     else if cur_val1=math_code_base then begin

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2020-11-28 00:54:14 UTC (rev 57022)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2020-11-28 01:03:14 UTC (rev 57023)
@@ -1,3 +1,8 @@
+2020-11-29  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* ptex-base.ch: Fix syntax error of "not equal".
+	Correct error recovery value of illegal catcode for upTeX.
+
 2020-10-30  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* pdvitype.ch: Strict check for DVI ID was wrong for

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2020-11-28 00:54:14 UTC (rev 57022)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2020-11-28 01:03:14 UTC (rev 57023)
@@ -4534,7 +4534,7 @@
       end else c:=qo(character(s));
     end
   else if type(s)=disp_node then goto continue
-  else if (type(s)=penalty_node)and(not subtype(s)=normal) then goto continue
+  else if (type(s)=penalty_node)and(subtype(s)<>normal) then goto continue
 @z
 
 @x [40.899] l.18248 - pTeX: disp_node
@@ -6108,13 +6108,12 @@
     print_int(n);
     if m=0 then
       begin help1("I'm going to use 0 instead of that illegal code value.");@/
-      error;
+      error; cur_val:=0;
       end
     else
       begin help1("I'm going to use 16 instead of that illegal code value.");@/
-      error;
+      error; cur_val:=16;
       end;
-    cur_val:=m;
   end;
   if p<math_code_base then define(p,data,cur_val)
   else if p<del_code_base then define(p,data,hi(cur_val))