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
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,

View File

@ -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 */