From 9dffe475b557197f4710bf5de819680e0e836ffb Mon Sep 17 00:00:00 2001
From: John Gilmore <gnu@cygnus>
Date: Thu, 19 Sep 1991 11:51:26 +0000
Subject: [PATCH] Lint

---
 gdb/c-exp.y  |  5 +++--
 gdb/m2-exp.y | 16 ++++++++--------
 2 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/gdb/c-exp.y b/gdb/c-exp.y
index 93a2a04fc2..5e2e4b7e75 100644
--- a/gdb/c-exp.y
+++ b/gdb/c-exp.y
@@ -57,6 +57,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define	yyexca	c_exca
 
 void yyerror ();
+static int parse_number ();
 
 /* #define	YYDEBUG	1 */
 
@@ -1443,7 +1444,7 @@ struct type *builtin_type_unsigned_long_long;
 struct type *builtin_type_float;
 struct type *builtin_type_double;
 
-struct type **(c_builtin_types[]) = 
+struct type ** const (c_builtin_types[]) = 
 {
   &builtin_type_int,
   &builtin_type_long,
@@ -1463,7 +1464,7 @@ struct type **(c_builtin_types[]) =
 
 /* FIXME:  Eventually do a separate defintion for C++.  */
 
-struct language_defn c_language_defn = {
+const struct language_defn c_language_defn = {
   "c",				/* Language name */
   language_c,
   c_builtin_types,
diff --git a/gdb/m2-exp.y b/gdb/m2-exp.y
index 1a5edacbb6..070f7ab026 100644
--- a/gdb/m2-exp.y
+++ b/gdb/m2-exp.y
@@ -57,6 +57,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #define	yyexca	m2_exca
 
 void yyerror ();
+static int yylex ();
 
 /* The sign of the number being parsed. */
 int number_sign = 1;
@@ -726,13 +727,12 @@ parse_number (olen)
      yylval.ulval = n;
      return UINT;
   }
-  else if((unsigned_p && (n<0)))
+  else if((unsigned_p && (n<0))) {
      range_error("Overflow on numeric constant -- number too large.");
-  else
-  {
-     yylval.lval = n;
-     return INT;
+     /* But, this can return if range_check == range_warn.  */
   }
+  yylval.lval = n;
+  return INT;
 }
 
 
@@ -1159,7 +1159,7 @@ struct type *builtin_type_m2_card;
 struct type *builtin_type_m2_real;
 struct type *builtin_type_m2_bool;
 
-struct type **(m2_builtin_types[]) = 
+struct type ** const (m2_builtin_types[]) = 
 {
   &builtin_type_m2_char,
   &builtin_type_m2_int,
@@ -1169,10 +1169,10 @@ struct type **(m2_builtin_types[]) =
   0
 };
 
-struct language_defn m2_language_defn = {
+const struct language_defn m2_language_defn = {
   "modula-2",
   language_m2,
-  &m2_builtin_types[0],
+  m2_builtin_types,
   range_check_on,
   type_check_on,
   m2_parse,			/* parser */
-- 
2.34.1