texlive[66058] Build/source/texk/web2c/luatexdir: fix latelua data

[commits+lscarso at tug.org]

Revision: 66058
          http://tug.org/svn/texlive?view=revision&revision=66058
Author:   lscarso
Date:     2023-02-22 10:51:19 +0100 (Wed, 22 Feb 2023)
Log Message:
-----------
fix latelua data reference (side effect of deferred late additions) (H.Hagen)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/luatexdir/ChangeLog
    trunk/Build/source/texk/web2c/luatexdir/lua/luastuff.c
    trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h
    trunk/Build/source/texk/web2c/luatexdir/tex/texnodes.c

Modified: trunk/Build/source/texk/web2c/luatexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/ChangeLog	2023-02-22 09:30:46 UTC (rev 66057)
+++ trunk/Build/source/texk/web2c/luatexdir/ChangeLog	2023-02-22 09:51:19 UTC (rev 66058)
@@ -1,3 +1,6 @@
+2023-02-22  Luigi Scarso <luigi.scarso at gmail.com> 
+    *  fix latelua data reference (side effect of deferred late additions) (H.Hagen)
+
 2023-02-18  Luigi Scarso <luigi.scarso at gmail.com> 
     * Fixed the "Invalid unicode ranges in CMap beginbfrange operator bug" as in pdfTeX (Hàn Thế Thành)
 

Modified: trunk/Build/source/texk/web2c/luatexdir/lua/luastuff.c
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/lua/luastuff.c	2023-02-22 09:30:46 UTC (rev 66057)
+++ trunk/Build/source/texk/web2c/luatexdir/lua/luastuff.c	2023-02-22 09:51:19 UTC (rev 66058)
@@ -600,7 +600,7 @@
     t = late_lua_type(p);
     if (t == normal) {
         /*tex sets |def_ref| */
-        expand_macros_in_tokenlist(p);
+        expand_macros_in_tokenlist(late_lua_data(p));
         luacall(def_ref, late_lua_name(p), false, p);
         flush_list(def_ref);
     } else if (t == lua_refid_call) {

Modified: trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h	2023-02-22 09:30:46 UTC (rev 66057)
+++ trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h	2023-02-22 09:51:19 UTC (rev 66058)
@@ -1,4 +1,4 @@
 #ifndef luatex_svn_revision_h
 #define luatex_svn_revision_h
-#define luatex_svn_revision 7561
+#define luatex_svn_revision 7562
 #endif

Modified: trunk/Build/source/texk/web2c/luatexdir/tex/texnodes.c
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/tex/texnodes.c	2023-02-22 09:30:46 UTC (rev 66057)
+++ trunk/Build/source/texk/web2c/luatexdir/tex/texnodes.c	2023-02-22 09:51:19 UTC (rev 66058)
@@ -2201,13 +2201,15 @@
 {
     switch (subtype(p)) {
         case open_node:
-        case write_node:
         case close_node:
         case save_pos_node:
             break;
+        case write_node:
+            /* Not similar to elsewhere, already flushed? */
+            break;
         case special_node:
         case late_special_node:
-            delete_token_ref(write_tokens(p));
+            delete_token_ref(special_tokens(p));
             break;
         case late_lua_node:
             free_late_lua(p);
@@ -3482,11 +3484,11 @@
             break;
         case special_node:
             tprint_esc("special");
-            print_mark(write_tokens(p));
+            print_mark(special_tokens(p));
             break;
         case late_special_node:
             tprint_esc("latespecial");
-            print_mark(write_tokens(p));
+            print_mark(late_lua_data(p));
             break;
         case late_lua_node:
             show_late_lua(p);