Pristine nesc-1.3.2

[nesc.git] / src / c-parse.y

diff --git a/src/c-parse.y b/src/c-parse.y
index febdc401a0bde092457540a372412e24a2c05515..5d32fca129a7e9c28f674973edf3d5b59d7587f9 100644 (file)
--- a/src/c-parse.y
+++ b/src/c-parse.y
@@ -1781,13 +1781,13 @@ attribute:
 target_attribute:
          TARGET_ATTRIBUTE0
                { word w = new_word(pr, $1.location, $1.id);
-                 $$ = new_gcc_attribute(pr, $1.location, w, NULL); }
+                 $$ = new_target_attribute(pr, $1.location, w, NULL); }
        | TARGET_ATTRIBUTE1 restricted_expr
                { word w = new_word(pr, $1.location, $1.id);
-                 $$ = new_gcc_attribute(pr, $1.location, w, $2); }
+                 $$ = new_target_attribute(pr, $1.location, w, $2); }
        | '@' restricted_expr
                { word w = new_word(pr, $2->location, str2cstring(pr, "iar_at"));
-                 $$ = new_gcc_attribute(pr, $2->location, w, $2); }
+                 $$ = new_target_attribute(pr, $2->location, w, $2); }
        ;
 
 restricted_expr:
@@ -2040,13 +2040,13 @@ structuse:
 
 structdef:
          structkind tag nesc_attributes '{'
-               { $$ = start_struct($1.location, $1.i, $2);
+               { $<u.telement>$ = start_struct($1.location, $1.i, $2);
                  /* Start scope of tag before parsing components.  */
                }
          component_decl_list '}' maybe_attribute 
                { $$ = finish_struct($<u.telement>5, $6, attribute_chain($3, $8)); }
        | STRUCT '@' tag nesc_attributes '{'
-               { $$ = start_struct($1.location, kind_attribute_ref, $3);
+               { $<u.telement>$ = start_struct($1.location, kind_attribute_ref, $3);
                  /* Start scope of tag before parsing components.  */
                }
          component_decl_list '}' maybe_attribute 
@@ -2056,11 +2056,11 @@ structdef:
                                                  NULL), $3, $5);
                }
        | ENUM tag nesc_attributes '{'
-               { $$ = start_enum($1.location, $2); }
+               { $<u.telement>$ = start_enum($1.location, $2); }
          enumlist maybecomma_warn '}' maybe_attribute
                { $$ = finish_enum($<u.telement>5, declaration_reverse($6), attribute_chain($3, $9)); }
        | ENUM '{'
-               { $$ = start_enum($1.location, NULL); }
+               { $<u.telement>$ = start_enum($1.location, NULL); }
          enumlist maybecomma_warn '}' maybe_attribute
                { $$ = finish_enum($<u.telement>3, declaration_reverse($4), $7); }
        ;