#include "config.h"
#include "system.h"
#include "gfortran.h"
gfc_code new_st;
void
gfc_clear_new_st (void)
{
memset (&new_st, '\0', sizeof (new_st));
new_st.op = EXEC_NOP;
}
gfc_code *
gfc_get_code (void)
{
gfc_code *c;
c = gfc_getmem (sizeof (gfc_code));
c->loc = gfc_current_locus;
return c;
}
gfc_code *
gfc_append_code (gfc_code * tail, gfc_code * new)
{
if (tail != NULL)
{
while (tail->next != NULL)
tail = tail->next;
tail->next = new;
}
while (new->next != NULL)
new = new->next;
return new;
}
void
gfc_free_statement (gfc_code * p)
{
if (p->expr)
gfc_free_expr (p->expr);
if (p->expr2)
gfc_free_expr (p->expr2);
switch (p->op)
{
case EXEC_NOP:
case EXEC_ASSIGN:
case EXEC_GOTO:
case EXEC_CYCLE:
case EXEC_RETURN:
case EXEC_IF:
case EXEC_PAUSE:
case EXEC_STOP:
case EXEC_EXIT:
case EXEC_WHERE:
case EXEC_IOLENGTH:
case EXEC_POINTER_ASSIGN:
case EXEC_DO_WHILE:
case EXEC_CONTINUE:
case EXEC_TRANSFER:
case EXEC_LABEL_ASSIGN:
case EXEC_ENTRY:
case EXEC_ARITHMETIC_IF:
break;
case EXEC_CALL:
gfc_free_actual_arglist (p->ext.actual);
break;
case EXEC_SELECT:
if (p->ext.case_list)
gfc_free_case_list (p->ext.case_list);
break;
case EXEC_DO:
gfc_free_iterator (p->ext.iterator, 1);
break;
case EXEC_ALLOCATE:
case EXEC_DEALLOCATE:
gfc_free_alloc_list (p->ext.alloc_list);
break;
case EXEC_OPEN:
gfc_free_open (p->ext.open);
break;
case EXEC_CLOSE:
gfc_free_close (p->ext.close);
break;
case EXEC_BACKSPACE:
case EXEC_ENDFILE:
case EXEC_REWIND:
gfc_free_filepos (p->ext.filepos);
break;
case EXEC_INQUIRE:
gfc_free_inquire (p->ext.inquire);
break;
case EXEC_READ:
case EXEC_WRITE:
gfc_free_dt (p->ext.dt);
break;
case EXEC_DT_END:
break;
case EXEC_FORALL:
gfc_free_forall_iterator (p->ext.forall_iterator);
break;
default:
gfc_internal_error ("gfc_free_statement(): Bad statement");
}
}
void
gfc_free_statements (gfc_code * p)
{
gfc_code *q;
for (; p; p = q)
{
q = p->next;
if (p->block)
gfc_free_statements (p->block);
gfc_free_statement (p);
gfc_free (p);
}
}