From d4525729b747827afa62320696709ca499904860 Mon Sep 17 00:00:00 2001 From: Harald Anlauf Date: Sun, 8 Dec 2024 22:30:32 +0100 Subject: Fortran: fix two minor front-end GMP memleaks gcc/fortran/ChangeLog: * expr.cc (find_array_section): Do not initialize GMP variables twice. --- gcc/fortran/expr.cc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/fortran/expr.cc') 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++) -- cgit v1.1