The R Project SVN – R – Diff – /trunk/src/main/engine.c

 /*
  *  R : A Computer Language for Statistical Data Analysis
- *  Copyright (C) 2001-2017  The R Core Team.
+ *  Copyright (C) 2001-2018  The R Core Team.
+ *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
  *  the Free Software Foundation; either version 2 of the License, or
  *  (at your option) any later version.
 , /* do eps_correction in any case */
 /* return (ns,nu) in  (lo,up) */);
     // The following is ugly since it kind of happens already in R_pretty(..):
 #define rounding_eps 1e-10 /* <- compatible to seq*(); was 1e-7 till 2017-08-14 */
     if(nu >= ns + 1) {
+	int mod = 0;
-	if(               ns * unit < *lo - rounding_eps*unit)
+	if(               ns * unit < *lo - rounding_eps*unit) { ns++; mod++; }
-	    ns++;
-	if(nu > ns + 1 && nu * unit > *up + rounding_eps*unit)
+	if(nu > ns + 1 && nu * unit > *up + rounding_eps*unit) { nu--; mod++; }
-	    nu--;
-	*ndiv = (int)(nu - ns);
+	if(mod) *ndiv = (int)(nu - ns);
+    }
     *lo = ns * unit;
     *up = nu * unit;
 #ifdef non_working_ALTERNATIVE
     if(ns * unit > *lo)

The R Project SVN R