From c93bde224c075c14d5ee54331386cbcda48c65dd Mon Sep 17 00:00:00 2001
From: Bernhard Reutner-Fischer <aldot@gcc.gnu.org>
Date: Mon, 8 May 2023 09:45:19 +0200
Subject: [PATCH] fortran: Fix coding style around free()
Fix coding-style errors introduced in ca2f64d5d08c1699ca4b7cb2bf6a76692e809e0f
gcc/fortran/ChangeLog:
* resolve.cc (resolve_select_type): Fix coding style.
libgfortran/ChangeLog:
* caf/single.c (_gfortran_caf_register): Fix coding style.
* io/async.c (update_pdt, async_io): Likewise.
* io/format.c (free_format_data): Likewise.
* io/transfer.c (st_read_done_worker, st_write_done_worker): Likewise.
* io/unix.c (mem_close): Likewise.
---
gcc/fortran/resolve.cc | 2 +-
libgfortran/caf/single.c | 4 ++--
libgfortran/io/async.c | 4 ++--
libgfortran/io/format.c | 2 +-
libgfortran/io/transfer.c | 4 ++--
libgfortran/io/unix.c | 2 +-
6 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
index 3a09de18346e..58f05a3e74ab 100644
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -9931,7 +9931,7 @@ resolve_select_type (gfc_code *code, gfc_namespace *old_ns)
gfc_resolve_blocks (code->block, gfc_current_ns);
gfc_current_ns = old_ns;
- free(ref);
+ free (ref);
}
diff --git a/libgfortran/caf/single.c b/libgfortran/caf/single.c
index fea8b0cc204c..c100d883aae7 100644
--- a/libgfortran/caf/single.c
+++ b/libgfortran/caf/single.c
@@ -163,8 +163,8 @@ _gfortran_caf_register (size_t size, caf_register_t type, caf_token_t *token,
/* Freeing the memory conditionally seems pointless, but
caf_internal_error () may return, when a stat is given and then the
memory may be lost. */
- free(local);
- free(*token);
+ free (local);
+ free (*token);
caf_internal_error (alloc_fail_msg, stat, errmsg, errmsg_len);
return;
}
diff --git a/libgfortran/io/async.c b/libgfortran/io/async.c
index 01adf8f3f783..57097438e893 100644
--- a/libgfortran/io/async.c
+++ b/libgfortran/io/async.c
@@ -71,7 +71,7 @@ update_pdt (st_parameter_dt **old, st_parameter_dt *new) {
NOTE ("Changing pdts, current_unit = %p", (void *) (new->u.p.current_unit));
temp = *old;
*old = new;
- free(temp);
+ free (temp);
}
/* Destroy an adv_cond structure. */
@@ -105,7 +105,7 @@ async_io (void *arg)
/* Loop over the queue entries until they are finished. */
while (ctq)
{
- free(prev);
+ free (prev);
prev = ctq;
if (!au->error.has_error)
{
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c
index 66acbf04d086..f5fe2e464d50 100644
--- a/libgfortran/io/format.c
+++ b/libgfortran/io/format.c
@@ -269,7 +269,7 @@ free_format_data (format_data *fmt)
fnp->format != FMT_NONE; fnp++)
if (fnp->format == FMT_DT)
{
- free(GFC_DESCRIPTOR_DATA(fnp->u.udf.vlist));
+ free (GFC_DESCRIPTOR_DATA(fnp->u.udf.vlist));
free (fnp->u.udf.vlist);
}
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 19b0b9a93247..0104f6ccd696 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -4522,7 +4522,7 @@ st_read_done_worker (st_parameter_dt *dtp, bool unlock)
{
free (dtp->u.p.current_unit->filename);
dtp->u.p.current_unit->filename = NULL;
- free(dtp->u.p.current_unit->ls);
+ free (dtp->u.p.current_unit->ls);
dtp->u.p.current_unit->ls = NULL;
}
free_newunit = true;
@@ -4618,7 +4618,7 @@ st_write_done_worker (st_parameter_dt *dtp, bool unlock)
{
free (dtp->u.p.current_unit->filename);
dtp->u.p.current_unit->filename = NULL;
- free(dtp->u.p.current_unit->ls);
+ free (dtp->u.p.current_unit->ls);
dtp->u.p.current_unit->ls = NULL;
}
free_newunit = true;
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index ef35b85570fa..d466df979dff 100644
--- a/libgfortran/io/unix.c
+++ b/libgfortran/io/unix.c
@@ -1028,7 +1028,7 @@ mem_flush (unix_stream *s __attribute__ ((unused)))
static int
mem_close (unix_stream *s)
{
- free(s);
+ free (s);
return 0;
}
--
GitLab