This commit is contained in:
John Gilmore
1991-09-19 11:51:26 +00:00
parent 0def21a0f2
commit 9dffe475b5
2 changed files with 11 additions and 10 deletions

View File

@ -57,6 +57,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#define yyexca c_exca #define yyexca c_exca
void yyerror (); void yyerror ();
static int parse_number ();
/* #define YYDEBUG 1 */ /* #define YYDEBUG 1 */
@ -1443,7 +1444,7 @@ struct type *builtin_type_unsigned_long_long;
struct type *builtin_type_float; struct type *builtin_type_float;
struct type *builtin_type_double; struct type *builtin_type_double;
struct type **(c_builtin_types[]) = struct type ** const (c_builtin_types[]) =
{ {
&builtin_type_int, &builtin_type_int,
&builtin_type_long, &builtin_type_long,
@ -1463,7 +1464,7 @@ struct type **(c_builtin_types[]) =
/* FIXME: Eventually do a separate defintion for C++. */ /* FIXME: Eventually do a separate defintion for C++. */
struct language_defn c_language_defn = { const struct language_defn c_language_defn = {
"c", /* Language name */ "c", /* Language name */
language_c, language_c,
c_builtin_types, c_builtin_types,

View File

@ -57,6 +57,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#define yyexca m2_exca #define yyexca m2_exca
void yyerror (); void yyerror ();
static int yylex ();
/* The sign of the number being parsed. */ /* The sign of the number being parsed. */
int number_sign = 1; int number_sign = 1;
@ -726,13 +727,12 @@ parse_number (olen)
yylval.ulval = n; yylval.ulval = n;
return UINT; return UINT;
} }
else if((unsigned_p && (n<0))) else if((unsigned_p && (n<0))) {
range_error("Overflow on numeric constant -- number too large."); range_error("Overflow on numeric constant -- number too large.");
else /* But, this can return if range_check == range_warn. */
{
yylval.lval = n;
return INT;
} }
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_real;
struct type *builtin_type_m2_bool; struct type *builtin_type_m2_bool;
struct type **(m2_builtin_types[]) = struct type ** const (m2_builtin_types[]) =
{ {
&builtin_type_m2_char, &builtin_type_m2_char,
&builtin_type_m2_int, &builtin_type_m2_int,
@ -1169,10 +1169,10 @@ struct type **(m2_builtin_types[]) =
0 0
}; };
struct language_defn m2_language_defn = { const struct language_defn m2_language_defn = {
"modula-2", "modula-2",
language_m2, language_m2,
&m2_builtin_types[0], m2_builtin_types,
range_check_on, range_check_on,
type_check_on, type_check_on,
m2_parse, /* parser */ m2_parse, /* parser */