summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/mplibdir/mpmathbinary.w
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/mplibdir/mpmathbinary.w')
-rw-r--r--Build/source/texk/web2c/mplibdir/mpmathbinary.w4
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/mplibdir/mpmathbinary.w b/Build/source/texk/web2c/mplibdir/mpmathbinary.w
index f20061de46a..4d7301579a1 100644
--- a/Build/source/texk/web2c/mplibdir/mpmathbinary.w
+++ b/Build/source/texk/web2c/mplibdir/mpmathbinary.w
@@ -902,8 +902,8 @@ void mp_wrapup_numeric_token(MP mp, unsigned char *start, unsigned char *stop) {
lp = strchr(bufp,'.') ? lp-1: lp;
/* strip also trailing 0s */
bufp = buf+l-1;
- while(*bufp == '0') {bufp--; lp=( (lp==0)||(lp==1)?1:lp--);}
- /* force at last one digit, even if the number is 0 */
+ while(*bufp == '0') {bufp--; lp=( ((lp==0)||(lp==1))?1:lp-1);}
+ /* at least one digit, even if the number is 0 */
lp = lp>0? lp: 1;
/* bits needed for buf */
lpbit = (unsigned long)ceil(lp/log10(2)+1);