X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Fgfortran.h;h=dd74019447705aaf2403026a91f6820066eb41cf;hp=95794a5ca7bbe64eee485a6d5e6f8dbcaec86697;hb=b92d95502eb80ce009645b3efad36efe7fea81c5;hpb=8ac9b1c868f62a57ffa56062cae168fda33baac3 diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 95794a5ca7b..dd740194477 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -492,17 +492,17 @@ typedef struct ENUM_BITFIELD (ifsrc) if_source:2; ENUM_BITFIELD (procedure_type) proc:3; - + /* Special attributes for Cray pointers, pointees. */ - unsigned cray_pointer:1, cray_pointee:1; + unsigned cray_pointer:1, cray_pointee:1; } symbol_attribute; /* The following three structures are used to identify a location in - the sources. - + the sources. + gfc_file is used to maintain a tree of the source files and how they include each other @@ -510,17 +510,17 @@ symbol_attribute; which file it resides in locus point to the sourceline and the character in the source - line. + line. */ -typedef struct gfc_file +typedef struct gfc_file { struct gfc_file *included_by, *next, *up; int inclusion_line, line; char *filename; } gfc_file; -typedef struct gfc_linebuf +typedef struct gfc_linebuf { #ifdef USE_MAPPED_LOCATION source_location location; @@ -537,7 +537,7 @@ typedef struct gfc_linebuf #define gfc_linebuf_header_size (offsetof (gfc_linebuf, line)) -typedef struct +typedef struct { char *nextc; gfc_linebuf *lb; @@ -786,7 +786,7 @@ typedef struct gfc_common_head int use_assoc, saved; char name[GFC_MAX_SYMBOL_LEN + 1]; struct gfc_symbol *head; -} +} gfc_common_head; #define gfc_get_common_head() gfc_getmem(sizeof(gfc_common_head)) @@ -845,7 +845,7 @@ typedef struct gfc_namespace /* Tree containing all the user-defined operators in the namespace. */ gfc_symtree *uop_root; /* Tree containing all the common blocks. */ - gfc_symtree *common_root; + gfc_symtree *common_root; /* If set_flag[letter] is set, an implicit type has been set for letter. */ int set_flag[GFC_LETTERS]; @@ -1415,7 +1415,7 @@ typedef struct gfc_code ext; /* Points to additional structures required by statement */ /* Backend_decl is used for cycle and break labels in do loops, and - * probably for other constructs as well, once we translate them. */ + probably for other constructs as well, once we translate them. */ tree backend_decl; } gfc_code;