diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2024-12-08 22:30:32 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2024-12-09 18:19:57 +0100 |
| commit | d4525729b747827afa62320696709ca499904860 (patch) | |
| tree | c6ee311f359ae0feb1560d40733c993203c2ef87 /gcc/fortran/expr.cc | |
| parent | 12de1942a0a673f9f2f1c2bfce4279a666061ffc (diff) | |
| download | gcc-d4525729b747827afa62320696709ca499904860.zip gcc-d4525729b747827afa62320696709ca499904860.tar.gz gcc-d4525729b747827afa62320696709ca499904860.tar.bz2 | |
Fortran: fix two minor front-end GMP memleaks
gcc/fortran/ChangeLog:
* expr.cc (find_array_section): Do not initialize GMP variables
twice.
Diffstat (limited to 'gcc/fortran/expr.cc')
| -rw-r--r-- | gcc/fortran/expr.cc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc index a997bda..a349d98 100644 --- a/gcc/fortran/expr.cc +++ b/gcc/fortran/expr.cc @@ -1613,7 +1613,7 @@ find_array_section (gfc_expr *expr, gfc_ref *ref) /* Zero-sized arrays have no shape and no elements, stop early. */ if (!begin->shape) { - mpz_init_set_ui (nelts, 0); + mpz_set_ui (nelts, 0); break; } @@ -1714,7 +1714,7 @@ find_array_section (gfc_expr *expr, gfc_ref *ref) constructor. */ for (idx = 0; idx < (int) mpz_get_si (nelts); idx++) { - mpz_init_set_ui (ptr, 0); + mpz_set_ui (ptr, 0); incr_ctr = true; for (d = 0; d < rank; d++) |