procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* module.c: Fix formatting issues.

Browse source 
From-SVN: r88846
This commit is contained in:
Tobias Schlüter 2004-10-10 16:35:39 +02:00 • committed by Tobias Schlüter
parent f0b698c1cf
commit 711f836923
2 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -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

11
gcc/fortran/module.c
View file

@ -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;