mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-26 12:23:59 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

re PR fortran/17091 (gfortran MAIN__ symbol not marked TREE_PUBLIC)

Browse Source 
PR fortran/17091
	* gfortran.h (gfc_access): Give ACCESS_UNKNOWN value 0.
	* symbol.c (gfc_clear_attr): Use memset.

From-SVN: r86279
This commit is contained in:
Paul Brook 2004-08-19 21:37:58 +00:00 committed by Paul Brook
parent e1d5ee28d3
commit bbef13dc2b
3 changed files with 8 additions and 32 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 @@
2004-08-19 Paul Brook <paul@codesourcery.com>
PR fortran/17091
* gfortran.h (gfc_access): Give ACCESS_UNKNOWN value 0.
* symbol.c (gfc_clear_attr): Use memset.
2004-08-19 Paul Brook <paul@codesourcery.com>
PR fortran/14976

2
gcc/fortran/gfortran.h
View File

@ -243,7 +243,7 @@ sym_intent;
/* Access types. */
typedef enum
{ ACCESS_PUBLIC = 1, ACCESS_PRIVATE, ACCESS_UNKNOWN
{ ACCESS_UNKNOWN = 0, ACCESS_PUBLIC, ACCESS_PRIVATE,
}
gfc_access;

32
gcc/fortran/symbol.c
View File

@ -1010,37 +1010,7 @@ gfc_add_type (gfc_symbol * sym, gfc_typespec * ts, locus * where)
void
gfc_clear_attr (symbol_attribute * attr)
{
attr->allocatable = 0;
attr->dimension = 0;
attr->external = 0;
attr->intrinsic = 0;
attr->optional = 0;
attr->pointer = 0;
attr->save = 0;
attr->target = 0;
attr->dummy = 0;
attr->result = 0;
attr->entry = 0;
attr->data = 0;
attr->use_assoc = 0;
attr->in_namelist = 0;
attr->in_common = 0;
attr->function = 0;
attr->subroutine = 0;
attr->generic = 0;
attr->implicit_type = 0;
attr->sequence = 0;
attr->elemental = 0;
attr->pure = 0;
attr->recursive = 0;
attr->access = ACCESS_UNKNOWN;
attr->intent = INTENT_UNKNOWN;
attr->flavor = FL_UNKNOWN;
attr->proc = PROC_UNKNOWN;
attr->if_source = IFSRC_UNKNOWN;
memset (attr, 0, sizeof(symbol_attribute));
}