Add in the large component first.

rhettinger · rhettinger · commit 2e772cb94d22 · 2023-01-07T00:24:30.000-06:00
diff --git a/Modules/mathmodule.c b/Modules/mathmodule.c
@@ -2903,8 +2903,8 @@ static inline DoubleLength
 dl_fma(DoubleLength total, double p, double q)
 {
     DoubleLength product = dl_mul(p, q);
-    total = dl_add(total, product.lo);
-    return  dl_add(total, product.hi);
+    total = dl_add(total, product.hi);
+    return  dl_add(total, product.lo);
 }
 
 static inline double

Original file line number	Diff line number	Diff line change
`@@ -2903,8 +2903,8 @@ static inline DoubleLength`
`2903`	`2903`	`dl_fma(DoubleLength total, double p, double q)`
`2904`	`2904`	`{`
`2905`	`2905`	`DoubleLength product = dl_mul(p, q);`
`2906`		`- total = dl_add(total, product.lo);`
`2907`		`- return dl_add(total, product.hi);`
	`2906`	`+ total = dl_add(total, product.hi);`
	`2907`	`+ return dl_add(total, product.lo);`
`2908`	`2908`	`}`
`2909`	`2909`
`2910`	`2910`	`static inline double`