walkingopen
diff --git a/‎src/express/expparse.y‎
Lines changed: 4 additions & 2 deletions b/‎src/express/expparse.y‎
Lines changed: 4 additions & 2 deletions
@@ -1587,13 +1587,15 @@ literal(A) ::= TOK_INTEGER_LITERAL(B).
 }
 literal(A) ::= TOK_REAL_LITERAL(B).
 {
-    if( ( abs( B.rVal ) <= FLT_EPSILON ) && ( abs( B.rVal ) > 0 ) ) {
+    /* if rVal (a double) is nonzero and <= the smallest positive float, print a warning */
+    if( ( fabs( B.rVal ) <= nextafterf( 0.0, 1.0 ) )
+        && ( fabs( B.rVal ) > 0 ) ) {
         Symbol sym;
         sym.line = yylineno;
         sym.filename = current_filename;
         ERRORreport_with_symbol(ERROR_warn_small_real, &sym, B.rVal );
     }
-    if( abs( B.rVal ) < DBL_EPSILON ) {
+    if( fabs( B.rVal ) < nextafter( 0.0, 1.0 ) ) {
         A = LITERAL_ZERO;
     } else {
         A = EXPcreate_simple(Type_Real);
Original file line number	Diff line number	Diff line change
`@@ -1587,13 +1587,15 @@ literal(A) ::= TOK_INTEGER_LITERAL(B).`
`1587`	`1587`	`}`
`1588`	`1588`	`literal(A) ::= TOK_REAL_LITERAL(B).`
`1589`	`1589`	`{`
`1590`		`- if( ( abs( B.rVal ) <= FLT_EPSILON ) && ( abs( B.rVal ) > 0 ) ) {`
	`1590`	`+ /* if rVal (a double) is nonzero and <= the smallest positive float, print a warning */`
	`1591`	`+ if( ( fabs( B.rVal ) <= nextafterf( 0.0, 1.0 ) )`
	`1592`	`+ && ( fabs( B.rVal ) > 0 ) ) {`
`1591`	`1593`	`Symbol sym;`
`1592`	`1594`	`sym.line = yylineno;`
`1593`	`1595`	`sym.filename = current_filename;`
`1594`	`1596`	`ERRORreport_with_symbol(ERROR_warn_small_real, &sym, B.rVal );`
`1595`	`1597`	`}`
`1596`		`- if( abs( B.rVal ) < DBL_EPSILON ) {`
	`1598`	`+ if( fabs( B.rVal ) < nextafter( 0.0, 1.0 ) ) {`
`1597`	`1599`	`A = LITERAL_ZERO;`
`1598`	`1600`	`} else {`
`1599`	`1601`	`A = EXPcreate_simple(Type_Real);`