From c0b1738da2f6682ed11ed77389e8ee9b3acd2448 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Fri, 26 Oct 2001 17:03:05 +0000 Subject: [PATCH] * gmem.c (__gnat_gmem_read_next): Properly check for EOF From-SVN: r46552 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/gmem.c | 9 +++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3ddc5f9f2bfa..c302afa307f5 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2001-10-26 Richard Kenner + + * gmem.c (__gnat_gmem_read_next): Properly check for EOF + 2001-10-26 Richard Kenner * decl.c (validate_size): Modify message for bad size to avoid diff --git a/gcc/ada/gmem.c b/gcc/ada/gmem.c index 809ef0b80182..772667b62959 100644 --- a/gcc/ada/gmem.c +++ b/gcc/ada/gmem.c @@ -112,7 +112,7 @@ __gnat_gmem_initialize (dumpname) fclose (gmemfile); return 0; } - + return 1; } @@ -140,16 +140,17 @@ __gnat_gmem_read_next (buf) { void *addr; int size; - char c; + int j; - if ((c = fgetc (gmemfile)) == EOF) + j = fgetc (gmemfile); + if (j == EOF) { fclose (gmemfile); sprintf (buf, "Program exited."); } else { - switch (c) + switch (j) { case 'A' : fread (&addr, sizeof (char *), 1, gmemfile); -- 2.43.5