OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Revert today's change -- there is a subtle bug.

Browse Source 
From-SVN: r43935
This commit is contained in:
Ben Elliston 2001-07-11 13:10:18 +00:00 committed by Ben Elliston
parent 0e41fb04c0
commit 219670f172
5 changed files with 17 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/cp/ChangeLog
View File

@ -1,5 +1,7 @@
2001-07-11 Ben Elliston <bje@redhat.com>
* Revert this change -- there is a subtle bug.
PR c++/80
* decl.c (finish_enum): New "attributes" argument; pass it to
cplus_decl_attributes. Use a narrower type if the enum is packed.

2
gcc/cp/cp-tree.h
View File

@ -3845,7 +3845,7 @@ extern tree xref_tag PARAMS ((tree, tree, int));
extern tree xref_tag_from_type PARAMS ((tree, tree, int));
extern void xref_basetypes PARAMS ((tree, tree, tree, tree));
extern tree start_enum PARAMS ((tree));
extern void finish_enum PARAMS ((tree, tree));
extern void finish_enum PARAMS ((tree));
extern void build_enumerator PARAMS ((tree, tree, tree));
extern int start_function PARAMS ((tree, tree, tree, int));
extern tree finish_function PARAMS ((int));

18
gcc/cp/decl.c
View File

@ -12984,9 +12984,8 @@ start_enum (name)
ENUMTYPE is the type object and VALUES a list of name-value pairs. */
void
finish_enum (enumtype, attributes)
finish_enum (enumtype)
tree enumtype;
tree attributes;
{
tree pair;
tree minnode;
@ -12997,8 +12996,6 @@ finish_enum (enumtype, attributes)
int highprec;
int precision;
cplus_decl_attributes (enumtype, attributes, NULL_TREE);
/* We built up the VALUES in reverse order. */
TYPE_VALUES (enumtype) = nreverse (TYPE_VALUES (enumtype));
@ -13077,14 +13074,11 @@ finish_enum (enumtype, attributes)
else
fixup_signed_type (enumtype);
if (flag_short_enums || TYPE_PACKED (enumtype) ||
(precision > TYPE_PRECISION (integer_type_node)))
{
/* Use the width of the narrowest normal C type which is wide
enough. */
TYPE_PRECISION (enumtype) = TYPE_PRECISION (type_for_size
(precision, 1));
}
if (flag_short_enums || (precision > TYPE_PRECISION (integer_type_node)))
/* Use the width of the narrowest normal C type which is wide
enough. */
TYPE_PRECISION (enumtype) = TYPE_PRECISION (type_for_size
(precision, 1));
else
TYPE_PRECISION (enumtype) = TYPE_PRECISION (integer_type_node);

21
gcc/cp/parse.y
View File

@ -340,7 +340,7 @@ cp_parse_init ()
%type <ttype> init initlist maybeasm maybe_init defarg defarg1
%type <ttype> asm_operands nonnull_asm_operands asm_operand asm_clobbers
%type <ttype> maybe_attribute attributes attribute attribute_list attrib
%type <ttype> any_word enum_head
%type <ttype> any_word
%type <itype> save_lineno
%type <ttype> simple_stmt simple_if
@ -2240,29 +2240,22 @@ pending_defargs:
{ do_pending_defargs (); }
;
enum_head:
ENUM
{ $$ = NULL_TREE; }
| ENUM attributes
{ $$ = $2; }
;
structsp:
enum_head identifier '{'
ENUM identifier '{'
{ $<ttype>$ = current_enum_type;
current_enum_type = start_enum ($2); }
enumlist_opt '}' maybe_attribute
enumlist_opt '}'
{ $$.t = current_enum_type;
finish_enum (current_enum_type, chainon ($1, $7));
finish_enum (current_enum_type);
$$.new_type_flag = 1;
current_enum_type = $<ttype>4;
check_for_missing_semicolon ($$.t); }
| enum_head '{'
| ENUM '{'
{ $<ttype>$ = current_enum_type;
current_enum_type = start_enum (make_anon_name ()); }
enumlist_opt '}' maybe_attribute
enumlist_opt '}'
{ $$.t = current_enum_type;
finish_enum (current_enum_type, chainon ($1, $6));
finish_enum (current_enum_type);
$$.new_type_flag = 1;
current_enum_type = $<ttype>3;
check_for_missing_semicolon ($$.t); }

2
gcc/cp/pt.c
View File

@ -10149,7 +10149,7 @@ tsubst_enum (tag, newtag, args)
build_enumerator (TREE_PURPOSE (e), value, newtag);
}
finish_enum (newtag, NULL_TREE);
finish_enum (newtag);
DECL_SOURCE_LINE (TYPE_NAME (newtag)) = DECL_SOURCE_LINE (TYPE_NAME (tag));
DECL_SOURCE_FILE (TYPE_NAME (newtag)) = DECL_SOURCE_FILE (TYPE_NAME (tag));
}