Changeset 11575 for trunk/source/lisp-kernel/lisp-debug.c

Timestamp:

Jan 5, 2009, 5:26:03 AM (12 years ago)

Author:

gb

Message:

Don't ignore the return value from fgets() (to keep some versions of gcc
quiet), but don't really expect to handle a NULL, either.

File:

• trunk/source/lisp-kernel/lisp-debug.c (modified) (6 diffs)

trunk/source/lisp-kernel/lisp-debug.c

@@ -557 +557 @@
 {
   static char buf[128];
-  char *p;
+  char *p, *res;
 
   do {
@@ -563 +563 @@
     fprintf(stderr, "\n %s :",prompt);
     buf[0] = 0;
-    fgets(buf, sizeof(buf)-1, stdin);
+    res = fgets(buf, sizeof(buf), stdin);
   } while (0);
-  p = strchr(buf, '\n');
+  p = strchr(res, '\n');
   if (p) {
     *p = 0;
@@ -576 +576 @@
 debug_get_natural_value(char *prompt)
 {
-  char s[32];
+  char s[32], *res;
   int n;
   natural val;
@@ -583 +583 @@
     fpurge(stdin);
     fprintf(stderr, "\n  %s :", prompt);
-    fgets(s, 24, stdin);
+    s[0]=0;
+    res = fgets(s, 24, stdin);
     n = sscanf(s, "%lu", &val);
   } while (n != 1);
@@ -592 +593 @@
 debug_get_u5_value(char *prompt)
 {
-  char s[32];
+  char s[32], *res;
   int n;
   unsigned val;
@@ -599 +600 @@
     fpurge(stdin);
     fprintf(stderr, "\n  %s :", prompt);
-    fgets(s, 24, stdin);
-    n = sscanf(s, "%i", &val);
+    res = fgets(s, 24, stdin);
+    n = sscanf(res, "%i", &val);
   } while ((n != 1) || (val > 31));
   return val;