Changes in src/Parser/parser.yy [7f5566b:1db21619]

File:

• src/Parser/parser.yy (modified) (11 diffs)

src/Parser/parser.yy

@@ -10 +10 @@
 // Created On       : Sat Sep  1 20:22:55 2001
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Jul 30 15:29:19 2015
-// Update Count     : 1327
+// Last Modified On : Thu Jul 16 16:25:12 2015
+// Update Count     : 1267
 // 
 
@@ -115 +115 @@
         StatementNode *sn;
         ConstantNode *constant;
-        LabelNode *label;
         InitializerNode *in;
-        bool flag;
 }
 
@@ -136 +134 @@
 %type<en> argument_expression_list              argument_expression                     for_control_expression          assignment_opt
 %type<en> subrange
-%type<en> asm_operands_opt asm_operands_list asm_operand
-%type<label> label_list
-%type<constant> asm_clobbers_list_opt
-%type<flag> asm_volatile_opt
 
 // statements
@@ -384 +378 @@
         | assignment_expression
         | no_attr_identifier ':' assignment_expression
-                { $$ = $3->set_argName( $1 ); }
+                { $$ = $3->set_asArgName( $1 ); }
                 // Only a list of no_attr_identifier_or_type_name is allowed in this context. However, there is insufficient
                 // look ahead to distinguish between this list of parameter names and a tuple, so the tuple form must be used
                 // with an appropriate semantic check.
         | '[' push assignment_expression pop ']' ':' assignment_expression
-                { $$ = $7->set_argName( $3 ); }
+                { $$ = $7->set_asArgName( $3 ); }
         | '[' push assignment_expression ',' tuple_expression_list pop ']' ':' assignment_expression
-                { $$ = $9->set_argName( new CompositeExprNode( new OperatorNode( OperatorNode::TupleC ), (ExpressionNode *)$3->set_link( flattenCommas( $5 )))); }
+                { $$ = $9->set_asArgName( new CompositeExprNode( new OperatorNode( OperatorNode::TupleC ), (ExpressionNode *)$3->set_link( flattenCommas( $5 )))); }
         ;
 
@@ -760 +754 @@
 
 fall_through:                                                                                   // CFA
-        FALLTHRU                                                                        { $$ = new StatementNode( StatementNode::Fallthru ); }
-        | FALLTHRU ';'                                                          { $$ = new StatementNode( StatementNode::Fallthru ); }
+        FALLTHRU                                                                        { $$ = new StatementNode( StatementNode::Fallthru, 0, 0 ); }
+        | FALLTHRU ';'                                                          { $$ = new StatementNode( StatementNode::Fallthru, 0, 0 ); }
         ;
 
@@ -789 +783 @@
         | CONTINUE ';'
                 // A semantic check is required to ensure this statement appears only in the body of an iteration statement.
-                { $$ = new StatementNode( StatementNode::Continue ); }
+                { $$ = new StatementNode( StatementNode::Continue, 0, 0 ); }
         | CONTINUE no_attr_identifier ';'                                       // CFA, multi-level continue
                 // A semantic check is required to ensure this statement appears only in the body of an iteration statement, and
@@ -796 +790 @@
         | BREAK ';'
                 // A semantic check is required to ensure this statement appears only in the body of an iteration statement.
-                { $$ = new StatementNode( StatementNode::Break ); }
+                { $$ = new StatementNode( StatementNode::Break, 0, 0 ); }
         | BREAK no_attr_identifier ';'                                          // CFA, multi-level exit
                 // A semantic check is required to ensure this statement appears only in the body of an iteration statement, and
@@ -806 +800 @@
                 { $$ = new StatementNode( StatementNode::Throw, $2, 0 ); }
         | THROW ';'
-                { $$ = new StatementNode( StatementNode::Throw ); }
+                { $$ = new StatementNode( StatementNode::Throw, 0, 0 ); }
         ;
 
@@ -869 +863 @@
 
 asm_statement:
-        ASM asm_volatile_opt '(' string_literal_list ')' ';'
-                { $$ = new AsmStmtNode( StatementNode::Asm, $2, $4, 0 ); }
-        | ASM asm_volatile_opt '(' string_literal_list ':' asm_operands_opt ')' ';' // remaining GCC
-                { $$ = new AsmStmtNode( StatementNode::Asm, $2, $4, $6 ); }
-        | ASM asm_volatile_opt '(' string_literal_list ':' asm_operands_opt ':' asm_operands_opt ')' ';'
-                { $$ = new AsmStmtNode( StatementNode::Asm, $2, $4, $6, $8 ); }
-        | ASM asm_volatile_opt '(' string_literal_list ':' asm_operands_opt ':' asm_operands_opt ':' asm_clobbers_list_opt ')' ';'
-                { $$ = new AsmStmtNode( StatementNode::Asm, $2, $4, $6, $8, $10 ); }
-        | ASM asm_volatile_opt GOTO '(' string_literal_list ':' ':' asm_operands_opt ':' asm_clobbers_list_opt ':' label_list ')' ';'
-        { $$ = new AsmStmtNode( StatementNode::Asm, $2, $5, 0, $8, $10, $12 ); }
-        ;
-
-asm_volatile_opt:                                                                               // GCC
-        // empty
-                { $$ = false; }
-        | VOLATILE
-                { $$ = true; }
+        ASM type_qualifier_list_opt '(' constant_expression ')' ';'
+                { $$ = new StatementNode( StatementNode::Asm, 0, 0 ); }
+        | ASM type_qualifier_list_opt '(' constant_expression ':' asm_operands_opt ')' ';' // remaining GCC
+                { $$ = new StatementNode( StatementNode::Asm, 0, 0 ); }
+        | ASM type_qualifier_list_opt '(' constant_expression ':' asm_operands_opt ':' asm_operands_opt ')' ';'
+                { $$ = new StatementNode( StatementNode::Asm, 0, 0 ); }
+        | ASM type_qualifier_list_opt '(' constant_expression ':' asm_operands_opt ':' asm_operands_opt ':' asm_clobbers_list ')' ';'
+                { $$ = new StatementNode( StatementNode::Asm, 0, 0 ); }
         ;
 
 asm_operands_opt:                                                                               // GCC
         // empty
-                { $$ = 0; }                                                                             // use default argument
         | asm_operands_list
         ;
@@ -897 +881 @@
         asm_operand
         | asm_operands_list ',' asm_operand
-                { $$ = (ExpressionNode *)$1->set_link( $3 ); }
         ;
 
 asm_operand:                                                                                    // GCC
-        string_literal_list '(' constant_expression ')'
-                { $$ = new AsmExprNode( 0, $1, $3 ); }
-        | '[' constant_expression ']' string_literal_list '(' constant_expression ')'
-                { $$ = new AsmExprNode( $2, $4, $6 ); }
-        ;
-
-asm_clobbers_list_opt:                                                                          // GCC
-        // empty
-                { $$ = 0; }                                                                             // use default argument
-        | string_literal_list
-                { $$ = $1; }
-        | asm_clobbers_list_opt ',' string_literal_list
-                { $$ = (ConstantNode *)$1->set_link( $3 ); }
-        ;
-
-label_list:
-        no_attr_identifier
-                { $$ = new LabelNode(); $$->append_label( $1 ); }
-        | label_list ',' no_attr_identifier
-                { $$ = $1; $1->append_label( $3 ); }
+        STRINGliteral '(' constant_expression ')'       {}
+        ;
+
+asm_clobbers_list:                                                                              // GCC
+        STRINGliteral                                                           {}
+        | asm_clobbers_list ',' STRINGliteral
         ;
 
@@ -960 +929 @@
 
 label_list:                                                                                             // GCC, local label
-        no_attr_identifier_or_type_name                         {}
+        no_attr_identifier_or_type_name                 {}
         | label_list ',' no_attr_identifier_or_type_name {}
         ;