From c0b1738da2f6682ed11ed77389e8ee9b3acd2448 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Fri, 26 Oct 2001 17:03:05 +0000 Subject: * gmem.c (__gnat_gmem_read_next): Properly check for EOF From-SVN: r46552 --- gcc/ada/gmem.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'gcc/ada/gmem.c') diff --git a/gcc/ada/gmem.c b/gcc/ada/gmem.c index 809ef0b..772667b 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); -- cgit v1.1