diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 43cf5ed51e2..ac87729af11 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-10-10 Tobias Schlueter + + * module.c: Fix formatting issues. + 2004-10-09 Tobias Schlueter * module.c (mio_interface_rest): Set where member of interface diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 04e900b8808..59400538970 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;