1 /* Build executable statement trees.
2 Copyright (C) 2000-2023 Free Software Foundation, Inc.
3 Contributed by Andy Vaught
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
21 /* Executable statements are strung together into a singly linked list
22 of code structures. These structures are later translated into GCC
23 GENERIC tree structures and from there to executable code for a
28 #include "coretypes.h"
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, initialized with the current locus
45 and a statement code 'op'. */
48 gfc_get_code (gfc_exec_op op
)
54 c
->loc
= gfc_current_locus
;
59 /* Given some part of a gfc_code structure, append a set of code to
60 its tail, returning a pointer to the new tail. */
63 gfc_append_code (gfc_code
*tail
, gfc_code
*new_code
)
67 while (tail
->next
!= NULL
)
70 tail
->next
= new_code
;
73 while (new_code
->next
!= NULL
)
74 new_code
= new_code
->next
;
80 /* Free a single code structure, but not the actual structure itself. */
83 gfc_free_statement (gfc_code
*p
)
86 gfc_free_expr (p
->expr1
);
88 gfc_free_expr (p
->expr2
);
94 case EXEC_END_NESTED_BLOCK
:
96 case EXEC_INIT_ASSIGN
:
100 case EXEC_END_PROCEDURE
:
104 case EXEC_ERROR_STOP
:
108 case EXEC_POINTER_ASSIGN
:
112 case EXEC_LABEL_ASSIGN
:
114 case EXEC_ARITHMETIC_IF
:
117 case EXEC_SYNC_IMAGES
:
118 case EXEC_SYNC_MEMORY
:
121 case EXEC_EVENT_POST
:
122 case EXEC_EVENT_WAIT
:
123 case EXEC_FAIL_IMAGE
:
124 case EXEC_CHANGE_TEAM
:
131 gfc_free_namespace (p
->ext
.block
.ns
);
132 gfc_free_association_list (p
->ext
.block
.assoc
);
138 case EXEC_ASSIGN_CALL
:
139 gfc_free_actual_arglist (p
->ext
.actual
);
143 case EXEC_SELECT_TYPE
:
144 case EXEC_SELECT_RANK
:
145 if (p
->ext
.block
.case_list
)
146 gfc_free_case_list (p
->ext
.block
.case_list
);
150 gfc_free_iterator (p
->ext
.iterator
, 1);
154 case EXEC_DEALLOCATE
:
155 gfc_free_alloc_list (p
->ext
.alloc
.list
);
159 gfc_free_open (p
->ext
.open
);
163 gfc_free_close (p
->ext
.close
);
170 gfc_free_filepos (p
->ext
.filepos
);
174 gfc_free_inquire (p
->ext
.inquire
);
178 gfc_free_wait (p
->ext
.wait
);
183 gfc_free_dt (p
->ext
.dt
);
187 /* The ext.dt member is a duplicate pointer and doesn't need to
191 case EXEC_DO_CONCURRENT
:
193 gfc_free_forall_iterator (p
->ext
.forall_iterator
);
196 case EXEC_OACC_DECLARE
:
197 if (p
->ext
.oacc_declare
)
198 gfc_free_oacc_declare_clauses (p
->ext
.oacc_declare
);
201 case EXEC_OACC_ATOMIC
:
202 case EXEC_OACC_PARALLEL_LOOP
:
203 case EXEC_OACC_PARALLEL
:
204 case EXEC_OACC_KERNELS_LOOP
:
205 case EXEC_OACC_KERNELS
:
206 case EXEC_OACC_SERIAL_LOOP
:
207 case EXEC_OACC_SERIAL
:
209 case EXEC_OACC_HOST_DATA
:
211 case EXEC_OACC_UPDATE
:
213 case EXEC_OACC_CACHE
:
214 case EXEC_OACC_ENTER_DATA
:
215 case EXEC_OACC_EXIT_DATA
:
216 case EXEC_OACC_ROUTINE
:
217 case EXEC_OMP_ALLOCATE
:
218 case EXEC_OMP_ALLOCATORS
:
219 case EXEC_OMP_ASSUME
:
220 case EXEC_OMP_ATOMIC
:
221 case EXEC_OMP_CANCEL
:
222 case EXEC_OMP_CANCELLATION_POINT
:
223 case EXEC_OMP_CRITICAL
:
224 case EXEC_OMP_DEPOBJ
:
225 case EXEC_OMP_DISTRIBUTE
:
226 case EXEC_OMP_DISTRIBUTE_PARALLEL_DO
:
227 case EXEC_OMP_DISTRIBUTE_PARALLEL_DO_SIMD
:
228 case EXEC_OMP_DISTRIBUTE_SIMD
:
230 case EXEC_OMP_DO_SIMD
:
233 case EXEC_OMP_END_SINGLE
:
234 case EXEC_OMP_MASKED_TASKLOOP
:
235 case EXEC_OMP_MASKED_TASKLOOP_SIMD
:
236 case EXEC_OMP_MASTER_TASKLOOP
:
237 case EXEC_OMP_MASTER_TASKLOOP_SIMD
:
238 case EXEC_OMP_ORDERED
:
239 case EXEC_OMP_MASKED
:
240 case EXEC_OMP_PARALLEL
:
241 case EXEC_OMP_PARALLEL_DO
:
242 case EXEC_OMP_PARALLEL_DO_SIMD
:
243 case EXEC_OMP_PARALLEL_LOOP
:
244 case EXEC_OMP_PARALLEL_MASKED
:
245 case EXEC_OMP_PARALLEL_MASKED_TASKLOOP
:
246 case EXEC_OMP_PARALLEL_MASKED_TASKLOOP_SIMD
:
247 case EXEC_OMP_PARALLEL_MASTER
:
248 case EXEC_OMP_PARALLEL_MASTER_TASKLOOP
:
249 case EXEC_OMP_PARALLEL_MASTER_TASKLOOP_SIMD
:
250 case EXEC_OMP_PARALLEL_SECTIONS
:
251 case EXEC_OMP_PARALLEL_WORKSHARE
:
254 case EXEC_OMP_SECTIONS
:
256 case EXEC_OMP_SINGLE
:
257 case EXEC_OMP_TARGET
:
258 case EXEC_OMP_TARGET_DATA
:
259 case EXEC_OMP_TARGET_ENTER_DATA
:
260 case EXEC_OMP_TARGET_EXIT_DATA
:
261 case EXEC_OMP_TARGET_PARALLEL
:
262 case EXEC_OMP_TARGET_PARALLEL_DO
:
263 case EXEC_OMP_TARGET_PARALLEL_DO_SIMD
:
264 case EXEC_OMP_TARGET_PARALLEL_LOOP
:
265 case EXEC_OMP_TARGET_SIMD
:
266 case EXEC_OMP_TARGET_TEAMS
:
267 case EXEC_OMP_TARGET_TEAMS_DISTRIBUTE
:
268 case EXEC_OMP_TARGET_TEAMS_DISTRIBUTE_PARALLEL_DO
:
269 case EXEC_OMP_TARGET_TEAMS_DISTRIBUTE_PARALLEL_DO_SIMD
:
270 case EXEC_OMP_TARGET_TEAMS_DISTRIBUTE_SIMD
:
271 case EXEC_OMP_TARGET_TEAMS_LOOP
:
272 case EXEC_OMP_TARGET_UPDATE
:
274 case EXEC_OMP_TASKLOOP
:
275 case EXEC_OMP_TASKLOOP_SIMD
:
277 case EXEC_OMP_TEAMS_DISTRIBUTE
:
278 case EXEC_OMP_TEAMS_DISTRIBUTE_PARALLEL_DO
:
279 case EXEC_OMP_TEAMS_DISTRIBUTE_PARALLEL_DO_SIMD
:
280 case EXEC_OMP_TEAMS_DISTRIBUTE_SIMD
:
281 case EXEC_OMP_TEAMS_LOOP
:
282 case EXEC_OMP_WORKSHARE
:
283 gfc_free_omp_clauses (p
->ext
.omp_clauses
);
286 case EXEC_OMP_END_CRITICAL
:
287 free (CONST_CAST (char *, p
->ext
.omp_name
));
291 gfc_free_omp_namelist (p
->ext
.omp_namelist
, false, false, false);
294 case EXEC_OMP_BARRIER
:
295 case EXEC_OMP_MASTER
:
296 case EXEC_OMP_END_NOWAIT
:
297 case EXEC_OMP_TASKGROUP
:
298 case EXEC_OMP_TASKWAIT
:
299 case EXEC_OMP_TASKYIELD
:
303 gfc_internal_error ("gfc_free_statement(): Bad statement");
308 /* Free a code statement and all other code structures linked to it. */
311 gfc_free_statements (gfc_code
*p
)
320 gfc_free_statements (p
->block
);
321 gfc_free_statement (p
);
327 /* Free an association list (of an ASSOCIATE statement). */
330 gfc_free_association_list (gfc_association_list
* assoc
)
335 gfc_free_association_list (assoc
->next
);