OSDN Git Service

Remove free_mem
authorjb@138bc75d-0d04-0410-961f-82ee72b054a4 <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 7 May 2010 15:55:59 +0000 (15:55 +0000)
committerMasaki Muranaka <monaka@monami-software.com>
Sun, 23 May 2010 05:02:41 +0000 (14:02 +0900)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@159160 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/io/unix.c

index a7994ff..bfe2f7e 100644 (file)
@@ -1,3 +1,31 @@
+2010-05-07  Janne Blomqvist  <jb@gcc.gnu.org>
+
+        * libgfortran.h (free_mem): Remove prototype.
+        * runtime/memory.c (free_mem): Remove function.
+        * intrinsics/date_and_time.c (secnds): Replace free_mem() with
+        free().
+        * io/fbuf.c (fbuf_destroy): Likewise.
+        * io/format.c (free_format_hash_table): Likewise.
+        (save_parsed_format): Likewise.
+        (free_format_data): Likewise.
+        * io/list_read.c (free_saved): Likewise.
+        (free_line): Likewise.
+        (nml_touch_nodes): Likewise.
+        (nml_read_obj): Likewise
+        * io/lock.c (free_ionml): Likewise.
+        * io/open.c (new_unit): Likewise.
+        (already_open): Likewise.
+        * io/unit.c (destroy_unit_mutex): Likewise.
+        (free_internal_unit): Likewise.
+        (close_unit_1): Likewise.
+        * io/unix.c (raw_close): Likewise.
+        (buf_close): Likewise.
+        (mem_close): Likewise.
+        (tempfile): Likewise.
+        * io/write.c (nml_write_obj): Likewise.
+        * io/write_float.def (output_float_FMT_G_##): Likewise.
+        * runtime/error.c (show_locus): Likewise.
+
 2010-05-04  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 
        PR other/43620
index 9ab5bcd..f0cd3b9 100644 (file)
@@ -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
@@ -351,7 +351,7 @@ raw_close (unix_stream * s)
     retval = close (s->fd);
   else
     retval = 0;
-  free_mem (s);
+  free (s);
   return retval;
 }
 
@@ -564,7 +564,7 @@ buf_close (unix_stream * s)
 {
   if (buf_flush (s) != 0)
     return -1;
-  free_mem (s->buffer);
+  free (s->buffer);
   return raw_close (s);
 }
 
@@ -739,7 +739,7 @@ static int
 mem_close (unix_stream * s)
 {
   if (s != NULL)
-    free_mem (s);
+    free (s);
 
   return 0;
 }
@@ -937,7 +937,7 @@ tempfile (st_parameter_open *opp)
 #endif /* HAVE_MKSTEMP */
 
   if (fd < 0)
-    free_mem (template);
+    free (template);
   else
     {
       opp->file = template;
@@ -1395,7 +1395,7 @@ retry:
          __gthread_mutex_lock (&unit_lock);
          __gthread_mutex_unlock (&u->lock);
          if (predec_waiting_locked (u) == 0)
-           free_mem (u);
+           free (u);
          goto retry;
        }
 
@@ -1460,7 +1460,7 @@ flush_all_units (void)
          __gthread_mutex_lock (&unit_lock);
          __gthread_mutex_unlock (&u->lock);
          if (predec_waiting_locked (u) == 0)
-           free_mem (u);
+           free (u);
        }
     }
   while (1);