mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-25 20:03:58 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

backspace.c (unformatted_backspace): Do not dereference the pointer to the stream.

Browse Source 
* io/backspace.c (unformatted_backspace): Do not dereference
	the pointer to the stream.

From-SVN: r97851
This commit is contained in:
Eric Botcazou 2005-04-08 19:07:54 +00:00
parent 9ff7d88e0f
commit 01d87b6f3d
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2005-04-08 Eric Botcazou <ebotcazou@libertysurf.fr>
* io/backspace.c (unformatted_backspace): Do not dereference
the pointer to the stream.
2005-04-07 Andrew Pinski <pinskia@physics.uc.edu>
PR libfortran/20766
@ -1493,7 +1498,7 @@
* libgfortan.h,intrinsics/random.c: Made random_seed visible.
* runtime/main.c(init): Call random_seed as part of MAIN init.
2004-05-13 Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
2004-05-13 Tobias Schlter <tobias.schlueter@physik.uni-muenchen.de>
* io/format.c: (parse_format_list): No comma is required after
P descriptor.
@ -1950,7 +1955,7 @@
(calculate_G_format): Rewrite it to eliminate an infinte loop and set
the scale_factor to 0 for F editing.
2003-05-11 Tobias Schlüter <innenminister@gmx.de>
2003-05-11 Tobias Schlter <innenminister@gmx.de>
* libgfor.h: Only include stdint.h if it exists.
@ -1965,11 +1970,11 @@
* libgfor.h (offsetof): Define if nobody else does.
* runtime/memory.c (HEADER_SIZE): Use it.
2003-05-01 Tobias Schlüter <innenminister@gmx.de>
2003-05-01 Tobias Schlter <innenminister@gmx.de>
* configure.in: Require autoconf 2.54.
2003-04-28 Tobias Schlüter <innenminister@gmx.de>
2003-04-28 Tobias Schlter <innenminister@gmx.de>
Paul Brook <paul@nowt.org>
* intrinsics/reshape_generic.c: Copy the whole element, not just the
@ -1983,7 +1988,7 @@
* io/format.c (parse_format_list): Allow 'X' without integer
prefix. This is an extension. Interpretation is '1X'.
2003-04-18 Tobias Schlüter <Tobias.Schlueter@physik.uni-muenchen.de>
2003-04-18 Tobias Schlter <Tobias.Schlueter@physik.uni-muenchen.de>
* io/format.c (parse_format_list): Allow '0P'.

11
libgfortran/io/backspace.c
View File

@ -28,6 +28,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
#include "config.h"
#include <string.h>
#include "libgfortran.h"
#include "io.h"
@ -101,17 +102,19 @@ formatted_backspace (void)
static void
unformatted_backspace (void)
{
gfc_offset *p, new;
gfc_offset m, new;
int length;
char *p;
length = sizeof (gfc_offset);
p = (gfc_offset *) salloc_r_at (current_unit->s, &length,
file_position (current_unit->s) - length);
p = salloc_r_at (current_unit->s, &length,
file_position (current_unit->s) - length);
if (p == NULL)
goto io_error;
new = file_position (current_unit->s) - *p - 2*length;
memcpy (&m, p, sizeof (gfc_offset));
new = file_position (current_unit->s) - m - 2*length;
if (sseek (current_unit->s, new) == FAILURE)
goto io_error;