1 /* Build executable statement trees.
2 Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
3 Contributed by Andy Vaught
5 This file is part of GNU G95.
7 GNU G95 is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU G95 is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU G95; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
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)
40 memset (&new_st, '\0', sizeof (new_st));
45 /* Get a gfc_code structure. */
52 c = gfc_getmem (sizeof (gfc_code));
53 c->loc = *gfc_current_locus ();
58 /* Given some part of a gfc_code structure, append a set of code to
59 its tail, returning a pointer to the new tail. */
62 gfc_append_code (gfc_code * tail, gfc_code * new)
67 while (tail->next != NULL)
73 while (new->next != NULL)
80 /* Free a single code structure, but not the actual structure itself. */
83 gfc_free_statement (gfc_code * p)
87 gfc_free_expr (p->expr);
89 gfc_free_expr (p->expr2);
104 case EXEC_POINTER_ASSIGN:
108 case EXEC_LABEL_ASSIGN:
110 case EXEC_ARITHMETIC_IF:
114 gfc_free_actual_arglist (p->ext.actual);
118 if (p->ext.case_list)
119 gfc_free_case_list (p->ext.case_list);
123 gfc_free_iterator (p->ext.iterator, 1);
127 case EXEC_DEALLOCATE:
128 gfc_free_alloc_list (p->ext.alloc_list);
132 gfc_free_open (p->ext.open);
136 gfc_free_close (p->ext.close);
142 gfc_free_filepos (p->ext.filepos);
146 gfc_free_inquire (p->ext.inquire);
151 gfc_free_dt (p->ext.dt);
155 /* The ext.dt member is a duplicate pointer and doesn't need to
160 gfc_free_forall_iterator (p->ext.forall_iterator);
164 gfc_internal_error ("gfc_free_statement(): Bad statement");
169 /* Free a code statement and all other code structures linked to it. */
172 gfc_free_statements (gfc_code * p)
181 gfc_free_statements (p->block);
182 gfc_free_statement (p);