blob: bb8b0f0da29ee5c38575aeecf102ec2a1d60a81d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Index: mpi-1.8.6/mpi.c
===================================================================
--- mpi-1.8.6.orig/mpi.c 2011-12-10 19:41:00.000000000 -0800
+++ mpi-1.8.6/mpi.c 2011-12-10 19:43:09.000000000 -0800
@@ -3263,7 +3263,7 @@
}
for(ix = 0; ix < max; ix++) {
- w = (dp[ix] * d) + k;
+ w = (dp[ix] * (mp_word) d) + k;
dp[ix] = ACCUM(w);
k = CARRYOUT(w);
}
@@ -3480,7 +3480,7 @@
pa = DIGITS(a);
for(jx = 0; jx < ua; ++jx, ++pa) {
pt = pbt + ix + jx;
- w = *pb * *pa + k + *pt;
+ w = *pb * (mp_word) *pa + k + *pt;
*pt = ACCUM(w);
k = CARRYOUT(w);
}
|