diff options
Diffstat (limited to 'libgfortran/io/format.c')
| -rw-r--r-- | libgfortran/io/format.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index c7188a8a0d6..5771777a121 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -3,7 +3,7 @@ Contributed by Andy Vaught F2003 I/O support contributed by Jerry DeLisle -This file is part of the GNU Fortran 95 runtime library (libgfortran). +This file is part of the GNU Fortran runtime library (libgfortran). Libgfortran is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -33,6 +33,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include <ctype.h> #include <string.h> #include <stdbool.h> +#include <stdlib.h> #define FARRAY_SIZE 64 @@ -90,7 +91,7 @@ free_format_hash_table (gfc_unit *u) if (u->format_hash_table[i].hashed_fmt != NULL) { free_format_data (u->format_hash_table[i].hashed_fmt); - free_mem (u->format_hash_table[i].key); + free (u->format_hash_table[i].key); } u->format_hash_table[i].key = NULL; u->format_hash_table[i].key_len = 0; @@ -171,7 +172,7 @@ save_parsed_format (st_parameter_dt *dtp) u->format_hash_table[hash].hashed_fmt = NULL; if (u->format_hash_table[hash].key != NULL) - free_mem (u->format_hash_table[hash].key); + free (u->format_hash_table[hash].key); u->format_hash_table[hash].key = get_mem (dtp->format_len); memcpy (u->format_hash_table[hash].key, dtp->format, dtp->format_len); @@ -282,10 +283,10 @@ free_format_data (format_data *fmt) for (fa = fmt->array.next; fa; fa = fa_next) { fa_next = fa->next; - free_mem (fa); + free (fa); } - free_mem (fmt); + free (fmt); fmt = NULL; } |
