From: Tobias Schlüter Date: Sun, 10 Oct 2004 14:35:39 +0000 (+0200) Subject: * module.c: Fix formatting issues. X-Git-Tag: releases/gcc-4.0.0~4157 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=711f836923656e4f736eb4a743f0960ade959ff6;p=thirdparty%2Fgcc.git * module.c: Fix formatting issues. From-SVN: r88846 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 43cf5ed51e25..ac87729af11f 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 04e900b88086..594005389708 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;