Changes in src/Parser/parser.yy [8e9cbb2:c6b1105]
- File:
-
- 1 edited
-
src/Parser/parser.yy (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Parser/parser.yy
r8e9cbb2 rc6b1105 10 10 // Created On : Sat Sep 1 20:22:55 2001 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Thu Jun 30 21:15:54201613 // Update Count : 16 5712 // Last Modified On : Mon Jun 27 17:47:56 2016 13 // Update Count : 1627 14 14 // 15 15 … … 303 303 constant: 304 304 // ENUMERATIONconstant is not included here; it is treated as a variable with type "enumeration constant". 305 INTEGERconstant { $$ = makeConstant( ConstantNode::Integer, $1 ); }306 | FLOATINGconstant { $$ = makeConstant( ConstantNode::Float, $1 ); }307 | CHARACTERconstant { $$ = makeConstant( ConstantNode::Character, $1 ); }305 INTEGERconstant { $$ = new ConstantNode( ConstantNode::Integer, $1 ); } 306 | FLOATINGconstant { $$ = new ConstantNode( ConstantNode::Float, $1 ); } 307 | CHARACTERconstant { $$ = new ConstantNode( ConstantNode::Character, $1 ); } 308 308 ; 309 309 … … 330 330 331 331 string_literal_list: // juxtaposed strings are concatenated 332 STRINGliteral { $$ = makeConstantStr( ConstantNode::String, $1 ); }332 STRINGliteral { $$ = new ConstantNode( ConstantNode::String, $1 ); } 333 333 | string_literal_list STRINGliteral { $$ = $1->appendstr( $2 ); } 334 334 ; … … 682 682 { $$ = new StatementNode( $1 ); } 683 683 | EXTENSION declaration // GCC 684 { // mark all fields in list 685 for ( DeclarationNode *iter = $2; iter != NULL; iter = (DeclarationNode *)iter->get_link() ) 686 iter->set_extension( true ); 687 $$ = new StatementNode( $2 ); 688 } 684 { $$ = new StatementNode( $2 )/*->set_extension( true )*/; } 689 685 | function_definition 690 686 { $$ = new StatementNode( $1 ); } … … 1476 1472 new_field_declaring_list ';' // CFA, new style field declaration 1477 1473 | EXTENSION new_field_declaring_list ';' // GCC 1478 { $$ = $2 ->set_extension( true ); }1474 { $$ = $2/*->set_extension( true )*/; } 1479 1475 | field_declaring_list ';' 1480 1476 | EXTENSION field_declaring_list ';' // GCC 1481 { // mark all fields in list 1482 for ( DeclarationNode *iter = $2; iter != NULL; iter = (DeclarationNode *)iter->get_link() ) 1483 iter->set_extension( true ); 1484 $$ = $2; 1485 } 1477 { $$ = $2/*->set_extension( true )*/; } 1486 1478 ; 1487 1479 … … 1999 1991 } 2000 1992 | EXTENSION external_definition 2001 { // mark all fields in list 2002 for ( DeclarationNode *iter = $2; iter != NULL; iter = (DeclarationNode *)iter->get_link() ) 2003 iter->set_extension( true ); 2004 $$ = $2; 2005 } 1993 { $$ = $2/*->set_extension( true )*/; } 2006 1994 ; 2007 1995
Note:
See TracChangeset
for help on using the changeset viewer.