OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix some whitespace.

Browse Source 
gcc/fortran/
	* decl.c (get_struct_decl, gfc_match_map, gfc_match_union): Fix
	whitespace.
	* interface.c (gfc_compare_union_types): Likewise.

From-SVN: r242057
This commit is contained in:
Fritz O. Reese 2016-11-10 21:54:48 +00:00 committed by Fritz Reese
parent f065303fcf
commit 05b8fcb4d2
3 changed files with 138 additions and 132 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2016-11-10 Fritz O. Reese <fritzoreese@gmail.com>
* decl.c (get_struct_decl, gfc_match_map, gfc_match_union): Fix
whitespace.
* interface.c (gfc_compare_union_types): Likewise.
2016-11-10 Jakub Jelinek <jakub@redhat.com>
* cpp.c (cpp_define_builtins): Define _OPENMP to 201511 instead

192
gcc/fortran/decl.c
View File

@ -8597,31 +8597,31 @@ get_struct_decl (const char *name, sym_flavor fl, locus *decl,
match
gfc_match_map (void)
{
/* Counter used to give unique internal names to map structures. */
static unsigned int gfc_map_id = 0;
char name[GFC_MAX_SYMBOL_LEN + 1];
gfc_symbol *sym;
locus old_loc;
/* Counter used to give unique internal names to map structures. */
static unsigned int gfc_map_id = 0;
char name[GFC_MAX_SYMBOL_LEN + 1];
gfc_symbol *sym;
locus old_loc;
old_loc = gfc_current_locus;
old_loc = gfc_current_locus;
if (gfc_match_eos () != MATCH_YES)
{
gfc_error ("Junk after MAP statement at %C");
gfc_current_locus = old_loc;
return MATCH_ERROR;
}
if (gfc_match_eos () != MATCH_YES)
{
gfc_error ("Junk after MAP statement at %C");
gfc_current_locus = old_loc;
return MATCH_ERROR;
}
/* Map blocks are anonymous so we make up unique names for the symbol table
which are invalid Fortran identifiers. */
snprintf (name, GFC_MAX_SYMBOL_LEN + 1, "MM$%u", gfc_map_id++);
/* Map blocks are anonymous so we make up unique names for the symbol table
which are invalid Fortran identifiers. */
snprintf (name, GFC_MAX_SYMBOL_LEN + 1, "MM$%u", gfc_map_id++);
if (!get_struct_decl (name, FL_STRUCT, &old_loc, &sym))
return MATCH_ERROR;
if (!get_struct_decl (name, FL_STRUCT, &old_loc, &sym))
return MATCH_ERROR;
gfc_new_block = sym;
gfc_new_block = sym;
return MATCH_YES;
return MATCH_YES;
}
@ -8630,31 +8630,31 @@ gfc_match_map (void)
match
gfc_match_union (void)
{
/* Counter used to give unique internal names to union types. */
static unsigned int gfc_union_id = 0;
char name[GFC_MAX_SYMBOL_LEN + 1];
gfc_symbol *sym;
locus old_loc;
/* Counter used to give unique internal names to union types. */
static unsigned int gfc_union_id = 0;
char name[GFC_MAX_SYMBOL_LEN + 1];
gfc_symbol *sym;
locus old_loc;
old_loc = gfc_current_locus;
old_loc = gfc_current_locus;
if (gfc_match_eos () != MATCH_YES)
{
gfc_error ("Junk after UNION statement at %C");
gfc_current_locus = old_loc;
return MATCH_ERROR;
}
if (gfc_match_eos () != MATCH_YES)
{
gfc_error ("Junk after UNION statement at %C");
gfc_current_locus = old_loc;
return MATCH_ERROR;
}
/* Unions are anonymous so we make up unique names for the symbol table
which are invalid Fortran identifiers. */
snprintf (name, GFC_MAX_SYMBOL_LEN + 1, "UU$%u", gfc_union_id++);
/* Unions are anonymous so we make up unique names for the symbol table
which are invalid Fortran identifiers. */
snprintf (name, GFC_MAX_SYMBOL_LEN + 1, "UU$%u", gfc_union_id++);
if (!get_struct_decl (name, FL_UNION, &old_loc, &sym))
return MATCH_ERROR;
if (!get_struct_decl (name, FL_UNION, &old_loc, &sym))
return MATCH_ERROR;
gfc_new_block = sym;
gfc_new_block = sym;
return MATCH_YES;
return MATCH_YES;
}
@ -8666,67 +8666,67 @@ gfc_match_union (void)
match
gfc_match_structure_decl (void)
{
/* Counter used to give unique internal names to anonymous structures. */
static unsigned int gfc_structure_id = 0;
char name[GFC_MAX_SYMBOL_LEN + 1];
gfc_symbol *sym;
match m;
locus where;
/* Counter used to give unique internal names to anonymous structures. */
static unsigned int gfc_structure_id = 0;
char name[GFC_MAX_SYMBOL_LEN + 1];
gfc_symbol *sym;
match m;
locus where;
if(!flag_dec_structure)
{
gfc_error ("STRUCTURE at %C is a DEC extension, enable with "
"-fdec-structure");
return MATCH_ERROR;
}
name[0] = '\0';
m = gfc_match (" /%n/", name);
if (m != MATCH_YES)
{
/* Non-nested structure declarations require a structure name. */
if (!gfc_comp_struct (gfc_current_state ()))
{
gfc_error ("Structure name expected in non-nested structure "
"declaration at %C");
return MATCH_ERROR;
}
/* This is an anonymous structure; make up a unique name for it
(upper-case letters never make it to symbol names from the source).
The important thing is initializing the type variable
and setting gfc_new_symbol, which is immediately used by
parse_structure () and variable_decl () to add components of
this type. */
snprintf (name, GFC_MAX_SYMBOL_LEN + 1, "SS$%u", gfc_structure_id++);
}
where = gfc_current_locus;
/* No field list allowed after non-nested structure declaration. */
if (!gfc_comp_struct (gfc_current_state ())
&& gfc_match_eos () != MATCH_YES)
{
gfc_error ("Junk after non-nested STRUCTURE statement at %C");
return MATCH_ERROR;
}
/* Make sure the name is not the name of an intrinsic type. */
if (gfc_is_intrinsic_typename (name))
{
gfc_error ("Structure name '%s' at %C cannot be the same as an"
" intrinsic type", name);
return MATCH_ERROR;
}
/* Store the actual type symbol for the structure with an upper-case first
letter (an invalid Fortran identifier). */
sprintf (name, gfc_dt_upper_string (name));
if (!get_struct_decl (name, FL_STRUCT, &where, &sym))
if (!flag_dec_structure)
{
gfc_error ("STRUCTURE at %C is a DEC extension, enable with "
"-fdec-structure");
return MATCH_ERROR;
}
gfc_new_block = sym;
return MATCH_YES;
name[0] = '\0';
m = gfc_match (" /%n/", name);
if (m != MATCH_YES)
{
/* Non-nested structure declarations require a structure name. */
if (!gfc_comp_struct (gfc_current_state ()))
{
gfc_error ("Structure name expected in non-nested structure "
"declaration at %C");
return MATCH_ERROR;
}
/* This is an anonymous structure; make up a unique name for it
(upper-case letters never make it to symbol names from the source).
The important thing is initializing the type variable
and setting gfc_new_symbol, which is immediately used by
parse_structure () and variable_decl () to add components of
this type. */
snprintf (name, GFC_MAX_SYMBOL_LEN + 1, "SS$%u", gfc_structure_id++);
}
where = gfc_current_locus;
/* No field list allowed after non-nested structure declaration. */
if (!gfc_comp_struct (gfc_current_state ())
&& gfc_match_eos () != MATCH_YES)
{
gfc_error ("Junk after non-nested STRUCTURE statement at %C");
return MATCH_ERROR;
}
/* Make sure the name is not the name of an intrinsic type. */
if (gfc_is_intrinsic_typename (name))
{
gfc_error ("Structure name '%s' at %C cannot be the same as an"
" intrinsic type", name);
return MATCH_ERROR;
}
/* Store the actual type symbol for the structure with an upper-case first
letter (an invalid Fortran identifier). */
sprintf (name, gfc_dt_upper_string (name));
if (!get_struct_decl (name, FL_STRUCT, &where, &sym))
return MATCH_ERROR;
gfc_new_block = sym;
return MATCH_YES;
}

72
gcc/fortran/interface.c
View File

@ -558,47 +558,47 @@ gfc_compare_union_types (gfc_symbol *un1, gfc_symbol *un2)
we will say they are not equal for the purposes of this test; therefore
we compare the maps sequentially. */
for (;;)
{
map1_t = map1->ts.u.derived;
map2_t = map2->ts.u.derived;
cmp1 = map1_t->components;
cmp2 = map2_t->components;
/* Protect against null components. */
if (map1_t->attr.zero_comp != map2_t->attr.zero_comp)
return 0;
if (map1_t->attr.zero_comp)
return 1;
for (;;)
{
/* No two fields will ever point to the same map type unless they are
the same component, because one map field is created with its type
declaration. Therefore don't worry about recursion here. */
/* TODO: worry about recursion into parent types of the unions? */
if (compare_components (cmp1, cmp2, map1_t, map2_t) == 0)
return 0;
map1_t = map1->ts.u.derived;
map2_t = map2->ts.u.derived;
cmp1 = cmp1->next;
cmp2 = cmp2->next;
cmp1 = map1_t->components;
cmp2 = map2_t->components;
if (cmp1 == NULL && cmp2 == NULL)
break;
if (cmp1 == NULL || cmp2 == NULL)
return 0;
/* Protect against null components. */
if (map1_t->attr.zero_comp != map2_t->attr.zero_comp)
return 0;
if (map1_t->attr.zero_comp)
return 1;
for (;;)
{
/* No two fields will ever point to the same map type unless they are
the same component, because one map field is created with its type
declaration. Therefore don't worry about recursion here. */
/* TODO: worry about recursion into parent types of the unions? */
if (compare_components (cmp1, cmp2, map1_t, map2_t) == 0)
return 0;
cmp1 = cmp1->next;
cmp2 = cmp2->next;
if (cmp1 == NULL && cmp2 == NULL)
break;
if (cmp1 == NULL || cmp2 == NULL)
return 0;
}
map1 = map1->next;
map2 = map2->next;
if (map1 == NULL && map2 == NULL)
break;
if (map1 == NULL || map2 == NULL)
return 0;
}
map1 = map1->next;
map2 = map2->next;
if (map1 == NULL && map2 == NULL)
break;
if (map1 == NULL || map2 == NULL)
return 0;
}
return 1;
}