texlive[63314] Build/source/texk/web2c: luatex, metapost: sync with

[commits+kakuto at tug.org]

Revision: 63314
          http://tug.org/svn/texlive?view=revision&revision=63314
Author:   kakuto
Date:     2022-05-16 22:43:45 +0200 (Mon, 16 May 2022)
Log Message:
-----------
luatex, metapost: sync with the upstream

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/luatexdir/ChangeLog
    trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h
    trunk/Build/source/texk/web2c/mplibdir/mp.w

Modified: trunk/Build/source/texk/web2c/luatexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/ChangeLog	2022-05-16 20:17:11 UTC (rev 63313)
+++ trunk/Build/source/texk/web2c/luatexdir/ChangeLog	2022-05-16 20:43:45 UTC (rev 63314)
@@ -1,3 +1,6 @@
+2022-05-15  Luigi Scarso <luigi.scarso at gmail.com>
+    * Fixed a memory leak in mplib (H.Hagen)
+
 2022-04-26  Luigi Scarso <luigi.scarso at gmail.com>
     * \mathitalicsmode=2 (enforce old school fonts italics code path) (H.Hagen)
 

Modified: trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h	2022-05-16 20:17:11 UTC (rev 63313)
+++ trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h	2022-05-16 20:43:45 UTC (rev 63314)
@@ -1,4 +1,4 @@
 #ifndef luatex_svn_revision_h
 #define luatex_svn_revision_h
-#define luatex_svn_revision 7525
+#define luatex_svn_revision 7526
 #endif

Modified: trunk/Build/source/texk/web2c/mplibdir/mp.w
===================================================================
--- trunk/Build/source/texk/web2c/mplibdir/mp.w	2022-05-16 20:17:11 UTC (rev 63313)
+++ trunk/Build/source/texk/web2c/mplibdir/mp.w	2022-05-16 20:43:45 UTC (rev 63314)
@@ -7659,6 +7659,14 @@
     q->next = mp->knot_nodes;
     mp->knot_nodes = q;
     mp->num_knot_nodes++;
+    if (mp->math_mode > mp_math_double_mode) {
+      free_number (q->x_coord);
+      free_number (q->y_coord);
+      free_number (q->left_x);
+      free_number (q->left_y);
+      free_number (q->right_x);
+      free_number (q->right_y);
+    }
     return;
   }
   if (mp->math_mode > mp_math_double_mode) {
@@ -7667,6 +7675,8 @@
     mp_xfree (q);
   }
 }
+
+
 void mp_toss_knot_list (MP mp, mp_knot p) {
   mp_knot q;    /* the node being freed */
   mp_knot r;    /* the next node */