diff options
author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-10-10 16:35:39 +0200 |
---|---|---|
committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-10-10 16:35:39 +0200 |
commit | 711f836923656e4f736eb4a743f0960ade959ff6 (patch) | |
tree | eddaf7439ae3f979083ca08c6299f862851d4c07 /gcc/fortran/module.c | |
parent | f0b698c1cf8da8f076e191544184d91bde68b79d (diff) | |
download | gcc-711f836923656e4f736eb4a743f0960ade959ff6.zip gcc-711f836923656e4f736eb4a743f0960ade959ff6.tar.gz gcc-711f836923656e4f736eb4a743f0960ade959ff6.tar.bz2 |
* module.c: Fix formatting issues.
From-SVN: r88846
Diffstat (limited to 'gcc/fortran/module.c')
-rw-r--r-- | gcc/fortran/module.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 04e900b..5940053 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -78,7 +78,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA #define MODULE_EXTENSION ".mod" -/* Structure that describes a position within a module file */ +/* Structure that describes a position within a module file. */ typedef struct { @@ -105,7 +105,7 @@ typedef struct fixup_t fixup_t; -/* Structure for holding extra info needed for pointers being read */ +/* Structure for holding extra info needed for pointers being read. */ typedef struct pointer_info { @@ -114,13 +114,13 @@ typedef struct pointer_info pointer_t type; /* The first component of each member of the union is the pointer - being stored */ + being stored. */ fixup_t *fixup; union { - void *pointer; /* Member for doing pointer searches */ + void *pointer; /* Member for doing pointer searches. */ struct { @@ -153,7 +153,7 @@ pointer_info; #define gfc_get_pointer_info() gfc_getmem(sizeof(pointer_info)) -/* Lists of rename info for the USE statement */ +/* Lists of rename info for the USE statement. */ typedef struct gfc_use_rename { @@ -197,7 +197,6 @@ static int symbol_number; /* Counter for assigning symbol numbers */ static void free_pi_tree (pointer_info * p) { - if (p == NULL) return; |