Float format long values, re issue #658

trealla-prolog · Jan 19, 2025 · f659668 · f659668
1 parent 02ad44f
commit f659668
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/bif_format.c b/src/bif_format.c
@@ -420,7 +420,8 @@ bool do_format(query *q, cell *str, pl_idx str_ctx, cell *p1, pl_idx p1_ctx, cel
 				return throw_error(q, c, q->st.curr_frame, "type_error", "float");
 			}
 
-			len = argval || argval_specified ? argval : 40;
+			len = argval;
+			if (len <= 40) len = 40;
 			CHECK_BUF(len);
 
 			if (argval || argval_specified) {
@@ -444,7 +445,8 @@ bool do_format(query *q, cell *str, pl_idx str_ctx, cell *p1, pl_idx p1_ctx, cel
 				return throw_error(q, c, q->st.curr_frame, "type_error", "float");
 			}
 
-			len = argval || argval_specified ? argval : 40;
+			len = argval;
+			if (len <= 40) len = 40;
 			CHECK_BUF(len);
 
 			if (argval || argval_specified) {
@@ -467,7 +469,8 @@ bool do_format(query *q, cell *str, pl_idx str_ctx, cell *p1, pl_idx p1_ctx, cel
 				return throw_error(q, c, q->st.curr_frame, "type_error", "float");
 			}
 
-			len = argval || argval_specified ? argval : 40;
+			len = argval;
+			if (len <= 40) len = 40;
 			CHECK_BUF(len);
 
 			if (argval || argval_specified)