Skip to content

Commit

Permalink
Add matching mpfr_clear statements for mpfr_init (shibatch#533)
Browse files Browse the repository at this point in the history
This fixes some of the messages coming up in asan test output,
but not all of them. Same number of tests failing after this change.
  • Loading branch information
joanaxcruz authored Mar 19, 2024
1 parent 36907bb commit e17e496
Show file tree
Hide file tree
Showing 8 changed files with 12 additions and 1 deletion.
5 changes: 5 additions & 0 deletions src/gencoef/gencoef.c
Original file line number Diff line number Diff line change
Expand Up @@ -121,6 +121,7 @@ int main(int argc, char **argv)
mpfr_set_d(b, x, GMP_RNDN);

printf("%g\n", countULP(b, a));
mpfr_clears(a, b, NULL);
exit(0);
}
#endif
Expand All @@ -138,6 +139,7 @@ int main(int argc, char **argv)
mpfr_set_d(b, x, GMP_RNDN);

printf("%g\n", countULP(b, a));
mpfr_clears(a, b, NULL);
exit(0);
}
#endif
Expand All @@ -155,6 +157,7 @@ int main(int argc, char **argv)
mpfr_set_ld(b, x, GMP_RNDN);

printf("%g\n", countULP(b, a));
mpfr_clears(a, b, NULL);
exit(0);
}
#endif
Expand All @@ -172,6 +175,7 @@ int main(int argc, char **argv)
mpfr_set_f128(b, x, GMP_RNDN);

printf("%g\n", countULP(b, a));
mpfr_clears(a, b, NULL);
exit(0);
}
#endif
Expand Down Expand Up @@ -285,6 +289,7 @@ int main(int argc, char **argv)
mpfr_pow(am[i], a[i], frb, GMP_RNDN);
mpfr_set_d(frb, PADD, GMP_RNDN);
mpfr_pow(aa[i], a[i], frb, GMP_RNDN);
mpfr_clears(a[i], v[i], am[i], aa[i], NULL);
}

double best = 1e+100, bestsum = 1e+100, bestworstx;
Expand Down
1 change: 1 addition & 0 deletions src/libm-tester/tester.c
Original file line number Diff line number Diff line change
Expand Up @@ -5038,6 +5038,7 @@ void do_test() {
for(d = -1;d < 8 && success;d += 0.001) checkAccuracy_f(mpfr_erfc, child_erfcf_u15, d, 1.5);
showResult(success);
}
mpfr_clears(frc, frt, frx, fry, frz, NULL);
}

int main(int argc, char **argv) {
Expand Down
2 changes: 1 addition & 1 deletion src/libm-tester/tester2dp.c
Original file line number Diff line number Diff line change
Expand Up @@ -986,6 +986,6 @@ int main(int argc,char **argv)
}
}
}

mpfr_clears(frw, frx, fry, frz, NULL);
exit(0);
}
1 change: 1 addition & 0 deletions src/libm-tester/tester2simddp.c
Original file line number Diff line number Diff line change
Expand Up @@ -1294,4 +1294,5 @@ int main(int argc,char **argv)
}
}
}
mpfr_clears(frw, frx, fry, frz, NULL);
}
1 change: 1 addition & 0 deletions src/libm-tester/tester2simdsp.c
Original file line number Diff line number Diff line change
Expand Up @@ -1294,4 +1294,5 @@ int main(int argc,char **argv)
}
#endif
}
mpfr_clears(frw, frx, fry, frz, NULL);
}
1 change: 1 addition & 0 deletions src/libm-tester/tester2sp.c
Original file line number Diff line number Diff line change
Expand Up @@ -1031,6 +1031,7 @@ int main(int argc,char **argv)
}
}
}
mpfr_clears(frw, frx, fry, frz, NULL);

exit(0);
}
1 change: 1 addition & 0 deletions src/quad-tester/qtester.c
Original file line number Diff line number Diff line change
Expand Up @@ -1491,6 +1491,7 @@ void do_test(int options) {
}
checkResult(success, maxError);
}
mpfr_clears(frw, frx, fry, frz, NULL);
}

int main(int argc, char **argv) {
Expand Down
1 change: 1 addition & 0 deletions src/quad/sleefsimdqp.c
Original file line number Diff line number Diff line change
Expand Up @@ -4515,6 +4515,7 @@ int main(int argc, char **argv) {
mpfr_set_f128(fr3, xgetq(a3, lane), GMP_RNDN);
printf("test : %s\n", sprintfr(fr3));
#endif
mpfr_clears(fr0, fr1, fr2, fr3, NULL);
}
#endif
#endif

0 comments on commit e17e496

Please sign in to comment.