ast_free.c File Reference

#include "gwion_util.h"
#include "gwion_ast.h"

Go to the source code of this file.

Macros
#define	free_stmt_retry   (void *)dummy_func
#define	free_stmt_break   (void *)dummy_func
#define	free_stmt_continue   (void *)dummy_func
#define	free_stmt_return   free_stmt_exp
#define	free_stmt_while   free_stmt_flow
#define	free_stmt_until   free_stmt_flow

Functions
	AST_FREE (StmtList *, stmt_list)
static	AST_FREE (Stmt *, stmt2)
	AST_FREE (Array_Sub, array_sub)
	AST_FREE (Range *, range)
ANN	AST_FREE (Exp_Lambda *, exp_lambda)
ANN	AST_FREE (Exp_Array *, exp_array)
ANN	AST_FREE (Exp_Slice *, exp_slice)
	AST_FREE (SpecializedList *, specialized_list)
	AST_FREE (Type_Decl *, type_decl)
static	AST_FREE (Variable *, variable)
ANN	AST_FREE (Exp_Decl *, exp_decl)
static ANN	AST_FREE (Exp_Binary *, exp_binary)
static ANN	AST_FREE (Exp_Cast *, exp_cast)
static ANN	AST_FREE (Exp_Postfix *, exp_post)
static ANN	AST_FREE (Exp_Unary *, exp_unary)
static ANN	AST_FREE (Exp_If *, exp_if)
	AST_FREE (Tmpl *, tmpl)
ANN	AST_FREE (Func_Base *, func_base)
	AST_FREE (Func_Def, func_def)
ANN	AST_FREE (Type_Def, type_def)
ANN	AST_FREE (Fptr_Def, fptr_def)
static ANN	AST_FREE (Exp_Call *, exp_call)
static ANN	AST_FREE (Exp_Dot *, exp_dot)
static ANN	AST_FREE (Exp_Primary *, prim)
static ANN	AST_FREE (Exp_Named *, exp_named)
static ANN	AST_FREE (Type_Decl **, exp_td)
	AST_FREE (Exp *, exp)
	AST_FREE (ArgList *, arg_list)
static ANN	AST_FREE (Stmt_Code, stmt_code)
static ANN	AST_FREE (struct Stmt_Exp_ *, stmt_exp)
static ANN	AST_FREE (struct Stmt_Flow_ *, stmt_flow)
static ANN	AST_FREE (struct Match *, stmt_case)
static ANN	AST_FREE (HandlerList *, handler_list)
static ANN	AST_FREE (struct Stmt_Try_ *, stmt_try)
static ANN	AST_FREE (struct Match *, stmt_match)
static ANN	AST_FREE (Stmt_For, stmt_for)
static ANN	AST_FREE (Stmt_Each, stmt_each)
static ANN	AST_FREE (Stmt_Loop, stmt_loop)
static ANN	AST_FREE (Stmt_If, stmt_if)
ANN	AST_FREE (Enum_Def, enum_def)
static ANN	AST_FREE (Stmt_PP, stmt_pp)
static ANN	AST_FREE (Stmt_Defer, stmt_defer)
ANN	AST_FREE (VariableList *, variable_list)
ANN	AST_FREE (Union_Def, union_def)
	AST_FREE (Spread_Def, stmt_spread)
static	AST_FREE (Stmt_Using, stmt_using)
static	AST_FREE (Stmt_Import, stmt_import)
	DECL_STMT_FUNC (free, void, MemPool,)
	AST_FREE (Stmt *, stmt)
	AST_FREE (Extend_Def, extend_def)
	AST_FREE (Class_Def, class_def)
	AST_FREE (Trait_Def, trait_def)
	AST_FREE (Prim_Def, prim_def)
static ANN	AST_FREE (const Section *, section)
	AST_FREE (TmplArgList *, tmplarg_list)
	AST_FREE (Ast, ast)

Macro Definition Documentation

free_stmt_break

#define free_stmt_break   (void *)dummy_func

Definition at line 258 of file ast_free.c.

free_stmt_continue

#define free_stmt_continue   (void *)dummy_func

Definition at line 259 of file ast_free.c.

free_stmt_retry

#define free_stmt_retry   (void *)dummy_func

Definition at line 257 of file ast_free.c.

free_stmt_return

#define free_stmt_return   free_stmt_exp

Definition at line 260 of file ast_free.c.

free_stmt_until

#define free_stmt_until   free_stmt_flow

Definition at line 262 of file ast_free.c.

free_stmt_while

#define free_stmt_while   free_stmt_flow

Definition at line 261 of file ast_free.c.

Function Documentation

AST_FREE() [1/55]

AST_FREE	(	ArgList *	,
		arg_list	)

Definition at line 158 of file ast_free.c.

                             {
  for(uint32_t i = 0; i < a->len; i++) {
    Arg *arg = arglist_ptr_at(a, i);
    free_variable(p, &arg->var);
    if (arg->exp) free_exp(p, arg->exp);
  }
  free_arglist(p, a);
}

AST_FREE() [2/55]

AST_FREE	(	Array_Sub	,
		array_sub	)

Definition at line 7 of file ast_free.c.

                               {
  if (a->exp) free_exp(p, a->exp);
  mp_free(p, Array_Sub, a);
}

AST_FREE() [3/55]

AST_FREE	(	Ast	,
		ast	)

Definition at line 362 of file ast_free.c.

                   {
  for(m_uint i = 0; i < a->len; i++) {
    Section section = sectionlist_at(a, i);
    free_section(p, &section);
  }
  free_sectionlist(p, a);
}

AST_FREE() [4/55]

AST_FREE	(	Class_Def	,
		class_def	)

Definition at line 311 of file ast_free.c.

                               {
  if (a->base.ext) free_type_decl(p, a->base.ext);
  if (a->base.tmpl) free_tmpl(p, a->base.tmpl);
  if (a->traits) free_taglist(p, a->traits);
  if (a->body) free_ast(p, a->body);
  mp_free(p, Class_Def, a);
}

AST_FREE() [5/55]

static ANN AST_FREE ( const Section * , section  )

static

Definition at line 329 of file ast_free.c.

                                              {
  const ae_section_t t = a->section_type;
  if (t == ae_section_class)
    free_class_def(p, a->d.class_def);
  else if (t == ae_section_trait)
    free_trait_def(p, a->d.trait_def);
  else if (t == ae_section_extend)
    free_extend_def(p, a->d.extend_def);
  else if (t == ae_section_stmt)
    free_stmt_list(p, a->d.stmt_list);
  else if (t == ae_section_func)
    free_func_def(p, a->d.func_def);
  else if (t == ae_section_enum)
    free_enum_def(p, a->d.enum_def);
  else if (t == ae_section_union)
    free_union_def(p, a->d.union_def);
  else if (t == ae_section_fptr)
    free_fptr_def(p, a->d.fptr_def);
  else if (t == ae_section_type)
    free_type_def(p, a->d.type_def);
  else if (t == ae_section_primitive)
    free_prim_def(p, a->d.prim_def);
}

AST_FREE() [6/55]

ANN AST_FREE	(	Enum_Def	,
		enum_def	)

Definition at line 232 of file ast_free.c.

                                 {
  free_enumvaluelist(p, a->list);
  mp_free(p, Enum_Def, a);
}

AST_FREE() [7/55]

AST_FREE	(	Exp *	,
		exp	)

Definition at line 151 of file ast_free.c.

                    {
  free_exp_func[a->exp_type](p, &a->d);
  Exp* next = a->next;
  mp_free2(p, sizeof(Exp), a);
  if (next) free_exp(p, next);
}

AST_FREE() [8/55]

ANN AST_FREE	(	Exp_Array *	,
		exp_array	)

Definition at line 20 of file ast_free.c.

                                     {
  free_array_sub(p, a->array);
  free_exp(p, a->base);
}

AST_FREE() [9/55]

static ANN AST_FREE ( Exp_Binary * , exp_binary  )

static

Definition at line 55 of file ast_free.c.

                                              {
  free_exp(p, a->lhs);
  free_exp(p, a->rhs);
}

AST_FREE() [10/55]

static ANN AST_FREE ( Exp_Call * , exp_call  )

static

Definition at line 124 of file ast_free.c.

                                          {
  if (a->tmpl) free_tmpl(p, a->tmpl);
  free_exp(p, a->func);
  if (a->args) free_exp(p, a->args);
}

AST_FREE() [11/55]

static ANN AST_FREE ( Exp_Cast * , exp_cast  )

static

Definition at line 60 of file ast_free.c.

                                          {
  free_type_decl(p, a->td);
  free_exp(p, a->exp);
}

AST_FREE() [12/55]

ANN AST_FREE	(	Exp_Decl *	,
		exp_decl	)

Definition at line 50 of file ast_free.c.

                                   {
  free_variable(p, &a->var);
  if(a->args) free_exp(p, a->args);
}

AST_FREE() [13/55]

static ANN AST_FREE ( Exp_Dot * , exp_dot  )

static

Definition at line 130 of file ast_free.c.

                                        {
  if (a->base) free_exp(p, a->base);
}

AST_FREE() [14/55]

static ANN AST_FREE ( Exp_If * , exp_if  )

static

Definition at line 84 of file ast_free.c.

                                      {
  free_exp(p, a->cond);
  if (a->if_exp) free_exp(p, a->if_exp);
  free_exp(p, a->else_exp);
}

AST_FREE() [15/55]

ANN AST_FREE	(	Exp_Lambda *	,
		exp_lambda	)

Definition at line 18 of file ast_free.c.

{ free_func_def(p, a->def); }

AST_FREE() [16/55]

static ANN AST_FREE ( Exp_Named * , exp_named  )

static

Definition at line 144 of file ast_free.c.

                                            {
  free_exp(p, a->exp);
}

AST_FREE() [17/55]

static ANN AST_FREE ( Exp_Postfix * , exp_post  )

inlinestatic

Definition at line 65 of file ast_free.c.

{ free_exp(p, a->exp); }

AST_FREE() [18/55]

static ANN AST_FREE ( Exp_Primary * , prim  )

static

Definition at line 134 of file ast_free.c.

                                         {
  const ae_prim_t t = a->prim_type;
  if (t == ae_prim_hack || t == ae_prim_dict || t == ae_prim_interp)
    free_exp(p, a->d.exp);
  else if (t == ae_prim_array)
    free_array_sub(p, a->d.array);
  else if (t == ae_prim_range)
    free_range(p, a->d.range);
}

AST_FREE() [19/55]

ANN AST_FREE	(	Exp_Slice *	,
		exp_slice	)

Definition at line 25 of file ast_free.c.

                                     {
  free_range(p, a->range);
  free_exp(p, a->base);
}

AST_FREE() [20/55]

static ANN AST_FREE ( Exp_Unary * , exp_unary  )

static

Definition at line 67 of file ast_free.c.

                                            {
  switch (a->unary_type) {
  case unary_exp:
//    if (a->exp) 
free_exp(p, a->exp);
    break;
  case unary_td:
    free_type_decl(p, a->ctor.td);
    if (a->ctor.exp) free_exp(p, a->ctor.exp);
    break;
  case unary_code:
    if (a->code) free_stmt_list(p, a->code);
    break;
  }
  if (a->captures) free_capturelist(p, a->captures);
}

AST_FREE() [21/55]

AST_FREE	(	Extend_Def	,
		extend_def	)

Definition at line 306 of file ast_free.c.

                                 {
  free_type_decl(p, a->td);
  mp_free(p, Extend_Def, a);
}

AST_FREE() [22/55]

ANN AST_FREE	(	Fptr_Def	,
		fptr_def	)

Definition at line 119 of file ast_free.c.

                                 {
  free_func_base(p, a->base);
  mp_free(p, Fptr_Def, a);
}

AST_FREE() [23/55]

ANN AST_FREE	(	Func_Base *	,
		func_base	)

Definition at line 96 of file ast_free.c.

                                     {
  if (a->args) free_arg_list(p, a->args);
  if (a->td) free_type_decl(p, a->td);
  if (a->tmpl) free_tmpl(p, a->tmpl);
  if (a->effects.ptr) vector_release(&a->effects);
}

AST_FREE() [24/55]

AST_FREE	(	Func_Def	,
		func_def	)

Definition at line 103 of file ast_free.c.

                             {
  free_func_base(p, a->base);
  if (!a->builtin && a->d.code) free_stmt_list(p, a->d.code);
  if (a->captures) free_capturelist(p, a->captures);
  mp_free(p, Func_Def, a);
}

AST_FREE() [25/55]

static ANN AST_FREE ( HandlerList * , handler_list  )

static

Definition at line 186 of file ast_free.c.

                                                {
  for(uint32_t i = 0; i  < a->len; i++) {
    const Handler handler = handlerlist_at(a, i);
    free_stmt(p, handler.stmt);
  }
  free_handlerlist(p, a);
}

AST_FREE() [26/55]

AST_FREE	(	Prim_Def	,
		prim_def	)

Definition at line 325 of file ast_free.c.

                             {
  mp_free(p, Prim_Def, a);
}

AST_FREE() [27/55]

AST_FREE	(	Range *	,
		range	)

Definition at line 12 of file ast_free.c.

                         {
  if (a->start) free_exp(p, a->start);
  if (a->end) free_exp(p, a->end);
  mp_free(p, Range, a);
}

AST_FREE() [28/55]

AST_FREE	(	SpecializedList *	,
		specialized_list	)

Definition at line 30 of file ast_free.c.

                                             {
  for(uint32_t i = 0; i < a->len; i++) {
    const Specialized spec = specializedlist_at(a, i);
    if (spec.traits) free_taglist(p, spec.traits);
  }
  free_specializedlist(p, a);
}

AST_FREE() [29/55]

AST_FREE	(	Spread_Def	,
		stmt_spread	)

Definition at line 264 of file ast_free.c.

                                  {
  free_taglist(p, a->list);
  free_mstr(p, a->data);
}

AST_FREE() [30/55]

AST_FREE	(	Stmt *	,
		stmt	)

Definition at line 293 of file ast_free.c.

                      {
  free_stmt_func[a->stmt_type](p, &a->d);
  mp_free2(p, sizeof(Stmt), a);
}

AST_FREE() [31/55]

static AST_FREE ( Stmt * , stmt2  )

static

Definition at line 289 of file ast_free.c.

                              {
  free_stmt_func[a->stmt_type](p, &a->d);
}

AST_FREE() [32/55]

static ANN AST_FREE ( Stmt_Code , stmt_code  )

static

Definition at line 167 of file ast_free.c.

                                          {
  if (a->stmt_list) free_stmt_list(p, a->stmt_list);
}

AST_FREE() [33/55]

static ANN AST_FREE ( Stmt_Defer , stmt_defer  )

static

Definition at line 242 of file ast_free.c.

{ free_stmt(p, a->stmt); }

AST_FREE() [34/55]

static ANN AST_FREE ( Stmt_Each , stmt_each  )

static

Definition at line 216 of file ast_free.c.

                                          {
  free_exp(p, a->exp);
  free_stmt(p, a->body);
}

AST_FREE() [35/55]

static ANN AST_FREE ( Stmt_For , stmt_for  )

static

Definition at line 209 of file ast_free.c.

                                        {
  free_stmt(p, a->c1);
  free_stmt(p, a->c2);
  if (a->c3) free_exp(p, a->c3);
  free_stmt(p, a->body);
}

AST_FREE() [36/55]

static ANN AST_FREE ( Stmt_If , stmt_if  )

static

Definition at line 226 of file ast_free.c.

                                      {
  free_exp(p, a->cond);
  free_stmt(p, a->if_body);
  if (a->else_body) free_stmt(p, a->else_body);
}

AST_FREE() [37/55]

static AST_FREE ( Stmt_Import , stmt_import  )

static

Definition at line 276 of file ast_free.c.

                                          {
  if(a->selection) {
    for(uint32_t i = 0; i < a->selection->len; i++) {
      Stmt_Using item = usingstmtlist_ptr_at(a->selection, i);
      if(item->d.exp)
        free_exp(p, item->d.exp);
    }
    free_usingstmtlist(p, a->selection);
  }
}

AST_FREE() [38/55]

static ANN AST_FREE ( Stmt_Loop , stmt_loop  )

static

Definition at line 221 of file ast_free.c.

                                          {
  free_exp(p, a->cond);
  free_stmt(p, a->body);
}

AST_FREE() [39/55]

static ANN AST_FREE ( Stmt_PP , stmt_pp  )

static

Definition at line 237 of file ast_free.c.

                                      {
  if (a->data) xfree(a->data);
  if (a->exp) free_exp(p, a->exp);
}

AST_FREE() [40/55]

static AST_FREE ( Stmt_Using , stmt_using  )

static

Definition at line 269 of file ast_free.c.

                                        {
  if(a->tag.sym)
    free_exp(p, a->d.exp);
  else
    free_type_decl(p, a->d.td);
}

AST_FREE() [41/55]

AST_FREE	(	StmtList *	,
		stmt_list	)

Definition at line 298 of file ast_free.c.

                               {
  for(m_uint i = 0; i  < a->len; i++) {
    Stmt stmt = stmtlist_at(a, i);
    free_stmt2(p, &stmt);
  }
  free_stmtlist(p, a);
}

AST_FREE() [42/55]

static ANN AST_FREE ( struct Match * , stmt_case  )

static

Definition at line 180 of file ast_free.c.

                                               {
  free_exp(p, a->cond);
  free_stmt_list(p, a->list);
  if (a->when) free_exp(p, a->when);
}

AST_FREE() [43/55]

static ANN AST_FREE ( struct Match * , stmt_match  )

static

Definition at line 199 of file ast_free.c.

                                                {
  free_exp(p, a->cond);
  for(m_uint i = 0; i  < a->list->len; i++) {
    Stmt* stmt = stmtlist_ptr_at(a->list, i);
    free_stmt_case(p, &stmt->d.stmt_match);
  }
  free_stmtlist(p, a->list);
  if (a->where) free_stmt(p, a->where);
}

AST_FREE() [44/55]

static ANN AST_FREE ( struct Stmt_Exp_ * , stmt_exp  )

inlinestatic

Definition at line 171 of file ast_free.c.

                                                         {
  if (a->val) free_exp(p, a->val);
}

AST_FREE() [45/55]

static ANN AST_FREE ( struct Stmt_Flow_ * , stmt_flow  )

static

Definition at line 175 of file ast_free.c.

                                                    {
  free_exp(p, a->cond);
  free_stmt(p, a->body);
}

AST_FREE() [46/55]

static ANN AST_FREE ( struct Stmt_Try_ * , stmt_try  )

static

Definition at line 194 of file ast_free.c.

                                                  {
  free_stmt(p, a->stmt); 
  free_handler_list(p, a->handler);
}

AST_FREE() [47/55]

AST_FREE	(	Tmpl *	,
		tmpl	)

Definition at line 90 of file ast_free.c.

                       {
  if (!a->call) free_specialized_list(p, a->list);
  else free_tmplarg_list(p, a->call);
  mp_free(p, Tmpl, a);
}

AST_FREE() [48/55]

AST_FREE	(	TmplArgList *	,
		tmplarg_list	)

Definition at line 353 of file ast_free.c.

                                     {
  for(uint32_t i = 0; i < a->len; i++) {
    const TmplArg arg = tmplarglist_at(a, i);
    if(arg.type == tmplarg_td) free_type_decl(p, arg.d.td);
    else free_exp(p, arg.d.exp);
  }
  free_tmplarglist(p, a);
}

AST_FREE() [49/55]

AST_FREE	(	Trait_Def	,
		trait_def	)

Definition at line 319 of file ast_free.c.

                               {
  if (a->traits) free_taglist(p, a->traits);
  if (a->body) free_ast(p, a->body);
  mp_free(p, Trait_Def, a);
}

AST_FREE() [50/55]

static ANN AST_FREE ( Type_Decl ** , exp_td  )

static

Definition at line 148 of file ast_free.c.

{ free_type_decl(p, *a); }

AST_FREE() [51/55]

AST_FREE	(	Type_Decl *	,
		type_decl	)

Definition at line 38 of file ast_free.c.

                                 {
  if (a->types) free_tmplarg_list(p, a->types);
  if (a->array) free_array_sub(p, a->array);
  if (a->fptr) free_fptr_def(p, a->fptr);
  if (a->next) free_type_decl(p, a->next);
  mp_free(p, Type_Decl, a);
}

AST_FREE() [52/55]

ANN AST_FREE	(	Type_Def	,
		type_def	)

Definition at line 110 of file ast_free.c.

                                 {
  free_type_decl(p, a->ext);
  if (a->when) {
    free_exp(p, a->when);
    if (a->when_def) free_func_def(p, a->when_def);
  }
  mp_free(p, Type_Def, a);
}

AST_FREE() [53/55]

ANN AST_FREE	(	Union_Def	,
		union_def	)

Definition at line 252 of file ast_free.c.

                                   {
  free_variable_list(p, a->l);
  mp_free(p, Union_Def, a);
}

AST_FREE() [54/55]

static AST_FREE ( Variable * , variable  )

static

Definition at line 46 of file ast_free.c.

                                     {
  if (a->td) free_type_decl(p, a->td);
}

AST_FREE() [55/55]

ANN AST_FREE	(	VariableList *	,
		variable_list	)

Definition at line 244 of file ast_free.c.

                                           {
  for(uint32_t i = 0; i < a->len; i++) {
    const Variable tgt = variablelist_at(a, i);
    free_type_decl(p, tgt.td);
  }
  free_variablelist(p, a);
}

DECL_STMT_FUNC()

DECL_STMT_FUNC	(	free	,
		void	,
		MemPool	)