Commit 949446f5 by Bernhard Fischer Committed by Steven G. Kargl

gfortran.h: remove superfluous whitespace and use GNU comment-style for the documentation...

2005-11-27 Bernhard Fischer <rep.nop@aon.at>

	* gfortran.h: remove superfluous whitespace and use GNU
	comment-style for the documentation of backend_decl.

From-SVN: r107571
parent 78019d16
2005-11-27 Bernhard Fischer <rep.nop@aon.at>
* gfortran.h: remove superfluous whitespace and use GNU
comment-style for the documentation of backend_decl.
2005-11-27 Steven G. Kargl <kargls@comcast.net> 2005-11-27 Steven G. Kargl <kargls@comcast.net>
PR fortran/24917 PR fortran/24917
......
...@@ -492,17 +492,17 @@ typedef struct ...@@ -492,17 +492,17 @@ typedef struct
ENUM_BITFIELD (ifsrc) if_source:2; ENUM_BITFIELD (ifsrc) if_source:2;
ENUM_BITFIELD (procedure_type) proc:3; ENUM_BITFIELD (procedure_type) proc:3;
/* Special attributes for Cray pointers, pointees. */ /* Special attributes for Cray pointers, pointees. */
unsigned cray_pointer:1, cray_pointee:1; unsigned cray_pointer:1, cray_pointee:1;
} }
symbol_attribute; symbol_attribute;
/* The following three structures are used to identify a location in /* 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 gfc_file is used to maintain a tree of the source files and how
they include each other they include each other
...@@ -510,17 +510,17 @@ symbol_attribute; ...@@ -510,17 +510,17 @@ symbol_attribute;
which file it resides in which file it resides in
locus point to the sourceline and the character in the source 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; struct gfc_file *included_by, *next, *up;
int inclusion_line, line; int inclusion_line, line;
char *filename; char *filename;
} gfc_file; } gfc_file;
typedef struct gfc_linebuf typedef struct gfc_linebuf
{ {
#ifdef USE_MAPPED_LOCATION #ifdef USE_MAPPED_LOCATION
source_location location; source_location location;
...@@ -537,7 +537,7 @@ typedef struct gfc_linebuf ...@@ -537,7 +537,7 @@ typedef struct gfc_linebuf
#define gfc_linebuf_header_size (offsetof (gfc_linebuf, line)) #define gfc_linebuf_header_size (offsetof (gfc_linebuf, line))
typedef struct typedef struct
{ {
char *nextc; char *nextc;
gfc_linebuf *lb; gfc_linebuf *lb;
...@@ -786,7 +786,7 @@ typedef struct gfc_common_head ...@@ -786,7 +786,7 @@ typedef struct gfc_common_head
int use_assoc, saved; int use_assoc, saved;
char name[GFC_MAX_SYMBOL_LEN + 1]; char name[GFC_MAX_SYMBOL_LEN + 1];
struct gfc_symbol *head; struct gfc_symbol *head;
} }
gfc_common_head; gfc_common_head;
#define gfc_get_common_head() gfc_getmem(sizeof(gfc_common_head)) #define gfc_get_common_head() gfc_getmem(sizeof(gfc_common_head))
...@@ -845,7 +845,7 @@ typedef struct gfc_namespace ...@@ -845,7 +845,7 @@ typedef struct gfc_namespace
/* Tree containing all the user-defined operators in the namespace. */ /* Tree containing all the user-defined operators in the namespace. */
gfc_symtree *uop_root; gfc_symtree *uop_root;
/* Tree containing all the common blocks. */ /* 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. */ /* If set_flag[letter] is set, an implicit type has been set for letter. */
int set_flag[GFC_LETTERS]; int set_flag[GFC_LETTERS];
...@@ -1415,7 +1415,7 @@ typedef struct gfc_code ...@@ -1415,7 +1415,7 @@ typedef struct gfc_code
ext; /* Points to additional structures required by statement */ ext; /* Points to additional structures required by statement */
/* Backend_decl is used for cycle and break labels in do loops, and /* 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; tree backend_decl;
} }
gfc_code; gfc_code;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment