This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[gfortran, committed] Fix formatting issues in module.c
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: GCC Fortran mailing list <fortran at gcc dot gnu dot org>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 10 Oct 2004 16:35:00 +0200
- Subject: [gfortran, committed] Fix formatting issues in module.c
Just fixing a bunch of formatting issues in module.c.
I verified that the compiler still builds with these changes.
- Tobi
Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/ChangeLog,v
retrieving revision 1.236
diff -u -p -r1.236 ChangeLog
--- ChangeLog 9 Oct 2004 16:17:45 -0000 1.236
+++ ChangeLog 10 Oct 2004 14:32:51 -0000
@@ -1,3 +1,7 @@
+2004-10-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
+ * module.c: Fix formatting issues.
+
2004-10-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* module.c (mio_interface_rest): Set where member of interface
Index: module.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/module.c,v
retrieving revision 1.18
diff -u -p -r1.18 module.c
--- module.c 9 Oct 2004 16:17:45 -0000 1.18
+++ module.c 10 Oct 2004 14:32:51 -0000
@@ -78,7 +78,7 @@ Software Foundation, 59 Temple Place - S
#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
static void
free_pi_tree (pointer_info * p)
{
-
if (p == NULL)
return;