diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2010-05-07 18:55:59 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2010-05-07 18:55:59 +0300 |
| commit | bb408e876c536829cc57439df8e4a28c43e68456 (patch) | |
| tree | bbdaaba9870daa7c26073e634bce50437a73cd07 /libgfortran/io/lock.c | |
| parent | 5cd0e96b0e8248436fa6f743feb057114abd2f62 (diff) | |
| download | gcc-bb408e876c536829cc57439df8e4a28c43e68456.zip gcc-bb408e876c536829cc57439df8e4a28c43e68456.tar.gz gcc-bb408e876c536829cc57439df8e4a28c43e68456.tar.bz2 | |
Remove free_mem
From-SVN: r159160
Diffstat (limited to 'libgfortran/io/lock.c')
| -rw-r--r-- | libgfortran/io/lock.c | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/libgfortran/io/lock.c b/libgfortran/io/lock.c index 7388557..9e7e951 100644 --- a/libgfortran/io/lock.c +++ b/libgfortran/io/lock.c @@ -1,8 +1,9 @@ /* Thread/recursion locking - Copyright 2002, 2003, 2004, 2005, 2007, 2009 Free Software Foundation, Inc. + Copyright 2002, 2003, 2004, 2005, 2007, 2009, 2010 + Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> and Andy Vaught -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 @@ -25,6 +26,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "io.h" #include <string.h> +#include <stdlib.h> /* library_start()-- Called with a library call is entered. */ @@ -52,13 +54,13 @@ free_ionml (st_parameter_dt *dtp) { t2 = t1; t1 = t1->next; - free_mem (t2->var_name); + free (t2->var_name); if (t2->var_rank) { - free_mem (t2->dim); - free_mem (t2->ls); + free (t2->dim); + free (t2->ls); } - free_mem (t2); + free (t2); } } dtp->u.p.ionml = NULL; |