gh-128: Fix FPROD.

python-processing-unit · python-processing-unit · commit a60d3114a878 · 2026-04-26T19:44:55.000-04:00
diff --git a/src/builtins.c b/src/builtins.c
@@ -6798,11 +6798,14 @@ static Value builtin_fprod(Interpreter* interp, Value* args, int argc, Expr** ar
     }
     
     double prod = 1.0;
+    int out_base = numeric_base_of(args[0]);
     for (int i = 0; i < argc; i++) {
         EXPECT_NUM(args[i], "FPROD", interp, line, col);
         prod *= args[i].type == VAL_FLT ? args[i].as.f : (double)args[i].as.i;
+        int bi = numeric_base_of(args[i]);
+        if (bi > out_base) out_base = bi;
     }
-    return value_flt(prod);
+    return value_flt_base(prod, out_base);
 }
 
 // ROUND

Original file line number	Diff line number	Diff line change
`@@ -6798,11 +6798,14 @@ static Value builtin_fprod(Interpreter* interp, Value* args, int argc, Expr** ar`
`6798`	`6798`	`}`
`6799`	`6799`
`6800`	`6800`	`double prod = 1.0;`
	`6801`	`+ int out_base = numeric_base_of(args[0]);`
`6801`	`6802`	`for (int i = 0; i < argc; i++) {`
`6802`	`6803`	`EXPECT_NUM(args[i], "FPROD", interp, line, col);`
`6803`	`6804`	`prod *= args[i].type == VAL_FLT ? args[i].as.f : (double)args[i].as.i;`
	`6805`	`+ int bi = numeric_base_of(args[i]);`
	`6806`	`+ if (bi > out_base) out_base = bi;`
`6804`	`6807`	`}`
`6805`		`- return value_flt(prod);`
	`6808`	`+ return value_flt_base(prod, out_base);`
`6806`	`6809`	`}`
`6807`	`6810`
`6808`	`6811`	`// ROUND`