diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2007-01-20 22:01:41 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2007-01-20 22:01:41 +0000 |
| commit | edf1eac29ebf11051dfcba996ac4fb3064e3c95c (patch) | |
| tree | a5e1dd4c7002a6118aa4d0e313e2d22c3b3aa8ad /gcc/fortran/st.c | |
| parent | 70fadd09be30c98ab6fccf3a97eede5f5c253c1e (diff) | |
| download | gcc-edf1eac29ebf11051dfcba996ac4fb3064e3c95c.zip gcc-edf1eac29ebf11051dfcba996ac4fb3064e3c95c.tar.gz gcc-edf1eac29ebf11051dfcba996ac4fb3064e3c95c.tar.bz2 | |
openmp.c, [...]: Next installment in the massive whitespace patch.
* openmp.c, matchexp.c, module.c, scanner.c, resolve.c, st.c,
parse.c, primary.c, options.c, misc.c, simplify.c: Next installment
in the massive whitespace patch.
From-SVN: r121012
Diffstat (limited to 'gcc/fortran/st.c')
| -rw-r--r-- | gcc/fortran/st.c | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/gcc/fortran/st.c b/gcc/fortran/st.c index 24c69da..aba40c7 100644 --- a/gcc/fortran/st.c +++ b/gcc/fortran/st.c @@ -1,5 +1,5 @@ /* Build executable statement trees. - Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006 + Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. Contributed by Andy Vaught @@ -37,7 +37,6 @@ gfc_code new_st; void gfc_clear_new_st (void) { - memset (&new_st, '\0', sizeof (new_st)); new_st.op = EXEC_NOP; } @@ -60,9 +59,8 @@ gfc_get_code (void) its tail, returning a pointer to the new tail. */ gfc_code * -gfc_append_code (gfc_code * tail, gfc_code * new) +gfc_append_code (gfc_code *tail, gfc_code *new) { - if (tail != NULL) { while (tail->next != NULL) @@ -81,9 +79,8 @@ gfc_append_code (gfc_code * tail, gfc_code * new) /* Free a single code structure, but not the actual structure itself. */ void -gfc_free_statement (gfc_code * p) +gfc_free_statement (gfc_code *p) { - if (p->expr) gfc_free_expr (p->expr); if (p->expr2) @@ -157,7 +154,7 @@ gfc_free_statement (gfc_code * p) case EXEC_DT_END: /* The ext.dt member is a duplicate pointer and doesn't need to - be freed. */ + be freed. */ break; case EXEC_FORALL: @@ -200,7 +197,7 @@ gfc_free_statement (gfc_code * p) /* Free a code statement and all other code structures linked to it. */ void -gfc_free_statements (gfc_code * p) +gfc_free_statements (gfc_code *p) { gfc_code *q; |