Changes in src/Parser/parser.yy [c6b1105:8e9cbb2]

File:

• src/Parser/parser.yy (modified) (6 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 : Mon Jun 27 17:47:56 2016
-// Update Count     : 1627
+// Last Modified On : Thu Jun 30 21:15:54 2016
+// Update Count     : 1657
 //
 
@@ -303 +303 @@
 constant:
                 // ENUMERATIONconstant is not included here; it is treated as a variable with type "enumeration constant".
-        INTEGERconstant                                                         { $$ = new ConstantNode( ConstantNode::Integer, $1 ); }
-        | FLOATINGconstant                                                      { $$ = new ConstantNode( ConstantNode::Float, $1 ); }
-        | CHARACTERconstant                                                     { $$ = new ConstantNode( ConstantNode::Character, $1 ); }
+INTEGERconstant                                                                 { $$ = makeConstant( ConstantNode::Integer, $1 ); }
+        | FLOATINGconstant                                                      { $$ = makeConstant( ConstantNode::Float, $1 ); }
+        | CHARACTERconstant                                                     { $$ = makeConstant( ConstantNode::Character, $1 ); }
         ;
 
@@ -330 +330 @@
 
 string_literal_list:                                                                    // juxtaposed strings are concatenated
-        STRINGliteral                                                           { $$ = new ConstantNode( ConstantNode::String, $1 ); }
+        STRINGliteral                                                           { $$ = makeConstantStr( ConstantNode::String, $1 ); }
         | string_literal_list STRINGliteral                     { $$ = $1->appendstr( $2 ); }
         ;
@@ -682 +682 @@
                 { $$ = new StatementNode( $1 ); }
         | EXTENSION declaration                                                         // GCC
-                { $$ = new StatementNode( $2 )/*->set_extension( true )*/; }
+                {       // mark all fields in list
+                        for ( DeclarationNode *iter = $2; iter != NULL; iter = (DeclarationNode *)iter->get_link() )
+                                iter->set_extension( true );
+                        $$ = new StatementNode( $2 );
+                }
         | function_definition
                 { $$ = new StatementNode( $1 ); }
@@ -1472 +1476 @@
         new_field_declaring_list ';'                                            // CFA, new style field declaration
         | EXTENSION new_field_declaring_list ';'                        // GCC
-                { $$ = $2/*->set_extension( true )*/; }
+                { $$ = $2->set_extension( true ); }
         | field_declaring_list ';'
         | EXTENSION field_declaring_list ';'                            // GCC
-                { $$ = $2/*->set_extension( true )*/; }
+                {       // mark all fields in list
+                        for ( DeclarationNode *iter = $2; iter != NULL; iter = (DeclarationNode *)iter->get_link() )
+                                iter->set_extension( true );
+                        $$ = $2;
+                }
         ;
 
@@ -1991 +1999 @@
                 }
         | EXTENSION external_definition
-                { $$ = $2/*->set_extension( true )*/; }
+                {       // mark all fields in list
+                        for ( DeclarationNode *iter = $2; iter != NULL; iter = (DeclarationNode *)iter->get_link() )
+                                iter->set_extension( true );
+                        $$ = $2;
+                }
         ;