texlive[41908] Build/source/texk/web2c/mplibdir/mp.w: mplibdir: sync

[commits+kakuto at tug.org]

Revision: 41908
          http://tug.org/svn/texlive?view=revision&revision=41908
Author:   kakuto
Date:     2016-08-23 01:28:52 +0200 (Tue, 23 Aug 2016)
Log Message:
-----------
mplibdir: sync with the upstream

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/mplibdir/mp.w

Modified: trunk/Build/source/texk/web2c/mplibdir/mp.w
===================================================================
--- trunk/Build/source/texk/web2c/mplibdir/mp.w	2016-08-22 22:32:11 UTC (rev 41907)
+++ trunk/Build/source/texk/web2c/mplibdir/mp.w	2016-08-22 23:28:52 UTC (rev 41908)
@@ -1,4 +1,4 @@
-% $Id: mp.w 2080 2016-03-06 21:26:30Z luigi $
+% $Id: mp.w 2089 2016-08-22 09:42:23Z luigi $
 %
 % This file is part of MetaPost;
 % the MetaPost program is in the public domain.
@@ -2568,7 +2568,7 @@
   mp->j_random = 54;
 }
 
-@ To consume a random fraction, the program below will say `|next_random|'. 
+@ To consume a random fraction, the program below will say `|next_random|'.
 Now each number system has its own implementation,
 true to the original as much as possibile.
 
@@ -2597,7 +2597,7 @@
 @c
 /*Unused.
 static void mp_unif_rand (MP mp, mp_number *ret, mp_number x_orig) {
-  mp_number y;     // trial value 
+  mp_number y;     // trial value
   mp_number x, abs_x;
   mp_number u;
   new_fraction (y);
@@ -31118,15 +31118,10 @@
       }
     } else if (t == with_mp_post_script) {
       if (cur_exp_str ()->len) {
-        mp_node k = NULL;    /* for finding the near-last item in a list  */
         if (bp == MP_VOID)
-          k = p;
-        bp = k;
-        while (k && mp_link (k) != NULL) { /* clang: dereference null pointer 'k' */
-          k = mp_link (k);
-          if (has_color (k))
-            bp = k;
-        }
+           bp = p;
+        while ((bp != NULL) && (!has_color (bp)))
+        bp = mp_link (bp);
         if (bp != NULL) {
           if (mp_post_script (bp) != NULL) {
             unsigned old_setting; /* saved |selector| setting */