1 /* Build executable statement trees.
2 Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2008, 2009, 2010
3 Free Software Foundation, Inc.
4 Contributed by Andy Vaught
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 3, or (at your option) any later
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
22 /* Executable statements are strung together into a singly linked list
23 of code structures. These structures are later translated into GCC
24 GENERIC tree structures and from there to executable code for a
34 /* Zeroes out the new_st structure. */
37 gfc_clear_new_st (void)
39 memset (&new_st
, '\0', sizeof (new_st
));
44 /* Get a gfc_code structure. */
52 c
->loc
= gfc_current_locus
;
57 /* Given some part of a gfc_code structure, append a set of code to
58 its tail, returning a pointer to the new tail. */
61 gfc_append_code (gfc_code
*tail
, gfc_code
*new_code
)
65 while (tail
->next
!= NULL
)
68 tail
->next
= new_code
;
71 while (new_code
->next
!= NULL
)
72 new_code
= new_code
->next
;
78 /* Free a single code structure, but not the actual structure itself. */
81 gfc_free_statement (gfc_code
*p
)
84 gfc_free_expr (p
->expr1
);
86 gfc_free_expr (p
->expr2
);
93 case EXEC_INIT_ASSIGN
:
97 case EXEC_END_PROCEDURE
:
101 case EXEC_ERROR_STOP
:
105 case EXEC_POINTER_ASSIGN
:
109 case EXEC_LABEL_ASSIGN
:
111 case EXEC_ARITHMETIC_IF
:
114 case EXEC_SYNC_IMAGES
:
115 case EXEC_SYNC_MEMORY
:
119 gfc_free_namespace (p
->ext
.block
.ns
);
120 gfc_free_association_list (p
->ext
.block
.assoc
);
126 case EXEC_ASSIGN_CALL
:
127 gfc_free_actual_arglist (p
->ext
.actual
);
131 case EXEC_SELECT_TYPE
:
132 if (p
->ext
.case_list
)
133 gfc_free_case_list (p
->ext
.case_list
);
137 gfc_free_iterator (p
->ext
.iterator
, 1);
141 case EXEC_DEALLOCATE
:
142 gfc_free_alloc_list (p
->ext
.alloc
.list
);
146 gfc_free_open (p
->ext
.open
);
150 gfc_free_close (p
->ext
.close
);
157 gfc_free_filepos (p
->ext
.filepos
);
161 gfc_free_inquire (p
->ext
.inquire
);
165 gfc_free_wait (p
->ext
.wait
);
170 gfc_free_dt (p
->ext
.dt
);
174 /* The ext.dt member is a duplicate pointer and doesn't need to
179 gfc_free_forall_iterator (p
->ext
.forall_iterator
);
183 case EXEC_OMP_END_SINGLE
:
184 case EXEC_OMP_PARALLEL
:
185 case EXEC_OMP_PARALLEL_DO
:
186 case EXEC_OMP_PARALLEL_SECTIONS
:
187 case EXEC_OMP_SECTIONS
:
188 case EXEC_OMP_SINGLE
:
190 case EXEC_OMP_WORKSHARE
:
191 case EXEC_OMP_PARALLEL_WORKSHARE
:
192 gfc_free_omp_clauses (p
->ext
.omp_clauses
);
195 case EXEC_OMP_CRITICAL
:
196 gfc_free (CONST_CAST (char *, p
->ext
.omp_name
));
200 gfc_free_namelist (p
->ext
.omp_namelist
);
203 case EXEC_OMP_ATOMIC
:
204 case EXEC_OMP_BARRIER
:
205 case EXEC_OMP_MASTER
:
206 case EXEC_OMP_ORDERED
:
207 case EXEC_OMP_END_NOWAIT
:
208 case EXEC_OMP_TASKWAIT
:
212 gfc_internal_error ("gfc_free_statement(): Bad statement");
217 /* Free a code statement and all other code structures linked to it. */
220 gfc_free_statements (gfc_code
*p
)
229 gfc_free_statements (p
->block
);
230 gfc_free_statement (p
);
236 /* Free an association list (of an ASSOCIATE statement). */
239 gfc_free_association_list (gfc_association_list
* assoc
)
244 gfc_free_association_list (assoc
->next
);