From c42a19d5e3a8236af3b727cd708bac22a8608b9d Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Thu, 12 May 2005 17:50:33 +0000 Subject: re PR libfortran/21324 (#undef GFC_CLEAR_MEMORY causes testsuite failures) 2005-05-12 Thomas Koenig PR libfortran/21324 * runtime/memory.c: Don't define GFC_CLEAR_MEMORY (it's a performance hog). * io/open.c (new_unit): Zero freshly allocated memory for unit structure. * io/unit.c (init_units): Zero freshly allocated memory for STDIN, STDOUT and STDERR. * io/unix.c (open_internal): Zero freshly allocated memory for unix_stream. (fd_to_stream): Likewise. From-SVN: r99619 --- libgfortran/io/unix.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'libgfortran/io/unix.c') diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 92eea53..2d8286c 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -872,6 +872,7 @@ open_internal (char *base, int length) unix_stream *s; s = get_mem (sizeof (unix_stream)); + memset (s, '\0', sizeof (unix_stream)); s->buffer = base; s->buffer_offset = 0; @@ -900,6 +901,7 @@ fd_to_stream (int fd, int prot, int avoid_mmap) unix_stream *s; s = get_mem (sizeof (unix_stream)); + memset (s, '\0', sizeof (unix_stream)); s->fd = fd; s->buffer_offset = 0; -- cgit v1.1