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);
92 case EXEC_END_NESTED_BLOCK:
94 case EXEC_INIT_ASSIGN:
98 case EXEC_END_PROCEDURE:
102 case EXEC_ERROR_STOP:
106 case EXEC_POINTER_ASSIGN:
110 case EXEC_LABEL_ASSIGN:
112 case EXEC_ARITHMETIC_IF:
115 case EXEC_SYNC_IMAGES:
116 case EXEC_SYNC_MEMORY:
122 gfc_free_namespace (p->ext.block.ns);
123 gfc_free_association_list (p->ext.block.assoc);
129 case EXEC_ASSIGN_CALL:
130 gfc_free_actual_arglist (p->ext.actual);
134 case EXEC_SELECT_TYPE:
135 if (p->ext.block.case_list)
136 gfc_free_case_list (p->ext.block.case_list);
140 gfc_free_iterator (p->ext.iterator, 1);
144 case EXEC_DEALLOCATE:
145 gfc_free_alloc_list (p->ext.alloc.list);
149 gfc_free_open (p->ext.open);
153 gfc_free_close (p->ext.close);
160 gfc_free_filepos (p->ext.filepos);
164 gfc_free_inquire (p->ext.inquire);
168 gfc_free_wait (p->ext.wait);
173 gfc_free_dt (p->ext.dt);
177 /* The ext.dt member is a duplicate pointer and doesn't need to
181 case EXEC_DO_CONCURRENT:
183 gfc_free_forall_iterator (p->ext.forall_iterator);
187 case EXEC_OMP_END_SINGLE:
188 case EXEC_OMP_PARALLEL:
189 case EXEC_OMP_PARALLEL_DO:
190 case EXEC_OMP_PARALLEL_SECTIONS:
191 case EXEC_OMP_SECTIONS:
192 case EXEC_OMP_SINGLE:
194 case EXEC_OMP_WORKSHARE:
195 case EXEC_OMP_PARALLEL_WORKSHARE:
196 gfc_free_omp_clauses (p->ext.omp_clauses);
199 case EXEC_OMP_CRITICAL:
200 free (CONST_CAST (char *, p->ext.omp_name));
204 gfc_free_namelist (p->ext.omp_namelist);
207 case EXEC_OMP_ATOMIC:
208 case EXEC_OMP_BARRIER:
209 case EXEC_OMP_MASTER:
210 case EXEC_OMP_ORDERED:
211 case EXEC_OMP_END_NOWAIT:
212 case EXEC_OMP_TASKWAIT:
213 case EXEC_OMP_TASKYIELD:
217 gfc_internal_error ("gfc_free_statement(): Bad statement");
222 /* Free a code statement and all other code structures linked to it. */
225 gfc_free_statements (gfc_code *p)
234 gfc_free_statements (p->block);
235 gfc_free_statement (p);
241 /* Free an association list (of an ASSOCIATE statement). */
244 gfc_free_association_list (gfc_association_list* assoc)
249 gfc_free_association_list (assoc->next);