Changeset b1e614f4

Timestamp:

May 15, 2021, 9:47:17 AM (4 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

9449085

Parents:

7fca832

Message:

check for log10(0) in output manipulator eng

File:

• libcfa/src/iostream.cfa (modified) (3 diffs)

libcfa/src/iostream.cfa

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Tue Apr 27 18:01:03 2021
-// Update Count     : 1330
+// Last Modified On : Sat May 15 09:39:21 2021
+// Update Count     : 1342
 //
 
@@ -659 +659 @@
                         int exp10, len2; \
                         eng( f.val, f.pc, exp10 );                                      /* changes arguments */ \
+                        /* printf( "%g %d %d %d %s\n", f.val, f.wd, f.pc, exp10, format ); */ \
                         if ( ! f.flags.left && f.wd > 1 ) { \
-                                /* Exponent size (number of digits, 'e', optional minus sign) */ \
-                                f.wd -= lrint( floor( log10( abs( exp10 ) ) ) ) + 1 + 1 + (exp10 < 0 ? 1 : 0); \
+                                /* Exponent size: 'e', optional minus sign, number of digits: log10(0) => undefined */ \
+                                f.wd -= 1 + (exp10 < 0 ? 1 : 0) + lrint( floor( exp10 == 0 ? 0 : log10( abs( exp10 ) ) ) ) + 1; \
                                 if ( f.wd < 1 ) f.wd = 1; \
                         } /* if */ \
@@ -708 +709 @@
                 if ( ! f.flags.pc ) {                                                   /* no precision */ \
                         fmtstr[sizeof(DFMTNP)-2] = f.base;                      /* sizeof includes '\0' */ \
-                        /* printf( "%g %d %s\n", f.val, f.wd, &fmtstr[star]); */ \
+                        /* printf( "%g %d %s\n", f.val, f.wd, &fmtstr[star] ); */ \
                         PrintWithDP2( os, &fmtstr[star], f.wd, f.val ) \
                 } else {                                                                                /* precision */ \