pdftex[828]

[commits+thanh at tug.org]

Revision: 828
          http://tug.org/svn/pdftex?view=revision&revision=828
Author:   thanh
Date:     2020-05-26 15:37:01 +0200 (Tue, 26 May 2020)
Log Message:
-----------
bugfix: segfault with \pdfadjustinterwordglue

Modified Paths:
--------------
    branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web

Modified: branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web
===================================================================
--- branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web	2020-05-26 13:36:21 UTC (rev 827)
+++ branches/stable/source/src/texk/web2c/pdftexdir/pdftex.web	2020-05-26 13:37:01 UTC (rev 828)
@@ -3753,6 +3753,7 @@
 @d kern_node=11 {|type| of a kern node}
 @d explicit=1 {|subtype| of kern nodes from \.{\\kern} and \.{\\/}}
 @d acc_kern=2 {|subtype| of kern nodes from accents}
+ at d auto_kern=3 {|subtype| of kern nodes created by |get_auto_kern|}
 
 @# {memory structure for marginal kerns}
 @d margin_kern_node = 40
@@ -3776,7 +3777,6 @@
 @d kn_bc_code_base == 10
 @d kn_ac_code_base == 11
 
- at d auto_kern == explicit
 
 @d no_lig_code == 6
 
@@ -4409,6 +4409,7 @@
   print_scaled(width(p));
   if subtype(p)=acc_kern then print(" (for accent)");
 @.for accent@>
+  if subtype(p)=auto_kern then print(" (for \pdfprependkern/\pdfappendkern)");
   end
 else  begin print_esc("mkern"); print_scaled(width(p)); print("mu");
   end
@@ -17240,9 +17241,9 @@
             (save_tail <> null) then
     begin
         r := save_tail;
-        while (link(r) <> null) and (link(r) <> p) do
+        while (r <> null) and (link(r) <> null) and (link(r) <> p) do
             r := link(r);
-        if (link(r) = p) then
+        if (r <> null) and (link(r) = p) then
             set_char_and_font(r); {set |f| and |c| if |r| is a char or ligature}
     end;
     if (c = non_char) then