URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [fortran/] [trans-decl.c] - Diff between revs 285 and 378

Rev 285	Rev 378
Line 2250...	Line 2250...
`{`	`{`
`sprintf (name, "__result_%.20s",`	`sprintf (name, "__result_%.20s",`
`IDENTIFIER_POINTER (DECL_NAME (this_function_decl)));`	`IDENTIFIER_POINTER (DECL_NAME (this_function_decl)));`

`if (!sym->attr.mixed_entry_master && sym->attr.function)`	`if (!sym->attr.mixed_entry_master && sym->attr.function)`
`decl = build_decl (input_location,`	`decl = build_decl (DECL_SOURCE_LOCATION (this_function_decl),`
`VAR_DECL, get_identifier (name),`	`VAR_DECL, get_identifier (name),`
`gfc_sym_type (sym));`	`gfc_sym_type (sym));`
`else`	`else`
`decl = build_decl (input_location,`	`decl = build_decl (DECL_SOURCE_LOCATION (this_function_decl),`
`VAR_DECL, get_identifier (name),`	`VAR_DECL, get_identifier (name),`
`TREE_TYPE (TREE_TYPE (this_function_decl)));`	`TREE_TYPE (TREE_TYPE (this_function_decl)));`
`DECL_ARTIFICIAL (decl) = 1;`	`DECL_ARTIFICIAL (decl) = 1;`
`DECL_EXTERNAL (decl) = 0;`	`DECL_EXTERNAL (decl) = 0;`
`TREE_PUBLIC (decl) = 0;`	`TREE_PUBLIC (decl) = 0;`