texlive[43591] Build/source/texk/web2c/mplibdir: fixed increment of

[commits+lscarso at tug.org]

Revision: 43591
          http://tug.org/svn/texlive?view=revision&revision=43591
Author:   lscarso
Date:     2017-03-24 01:34:01 +0100 (Fri, 24 Mar 2017)
Log Message:
-----------
fixed increment of header_last.

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

Modified: trunk/Build/source/texk/web2c/mplibdir/mp.w
===================================================================
--- trunk/Build/source/texk/web2c/mplibdir/mp.w	2017-03-23 22:37:58 UTC (rev 43590)
+++ trunk/Build/source/texk/web2c/mplibdir/mp.w	2017-03-24 00:34:01 UTC (rev 43591)
@@ -33232,9 +33232,15 @@
 
 
 @ The header could contain ASCII zeroes, so can't use |strdup|.
+The index |j| can be beyond the index |header_last|, hence we 
+have to sure  to update the end of stream marker to reflect the
+actual position.
 
 @<Store a list of header bytes@>=
 j--;
+if (mp->header_last<j){
+  mp->header_last=j;
+}
 do {
   if (j >= mp->header_size) {
     size_t l = (size_t) (mp->header_size + (mp->header_size / 4));
@@ -33246,8 +33252,10 @@
     mp->header_size = (int) l;
   }
   mp->header_byte[j] = (char) mp_get_code (mp);
+  if (mp->header_last<j){
+    incr (mp->header_last);
+  }
   incr (j);
-  incr (mp->header_last);
 } while (cur_cmd() == mp_comma)
 
 @ @<Store a list of font dimensions@>=

Modified: trunk/Build/source/texk/web2c/mplibdir/mpmath.w
===================================================================
--- trunk/Build/source/texk/web2c/mplibdir/mpmath.w	2017-03-23 22:37:58 UTC (rev 43590)
+++ trunk/Build/source/texk/web2c/mplibdir/mpmath.w	2017-03-24 00:34:01 UTC (rev 43591)
@@ -1,4 +1,4 @@
-% $Id: mpmath.w 2070 2015-10-06 10:35:23Z luigi $
+% $Id: mpmath.w 2118 2017-02-15 17:49:54Z luigi $
 %
 % This file is part of MetaPost;
 % the MetaPost program is in the public domain.

Modified: trunk/Build/source/texk/web2c/mplibdir/mpmathdouble.w
===================================================================
--- trunk/Build/source/texk/web2c/mplibdir/mpmathdouble.w	2017-03-23 22:37:58 UTC (rev 43590)
+++ trunk/Build/source/texk/web2c/mplibdir/mpmathdouble.w	2017-03-24 00:34:01 UTC (rev 43591)
@@ -1,4 +1,4 @@
-% $Id: mpmathdouble.w 2091 2016-09-16 23:07:58Z luigi $
+% $Id: mpmathdouble.w 2118 2017-02-15 17:49:54Z luigi $
 %
 % This file is part of MetaPost;
 % the MetaPost program is in the public domain.