| 97 | |
| 98 | |
| 99 | void te_free_parameters(te_expr *n) { |
| 100 | if (!n) return; |
| 101 | switch (TYPE_MASK(n->type)) { |
| 102 | case TE_FUNCTION7: case TE_CLOSURE7: te_free(n->parameters[6]); /* Falls through. */ |
| 103 | case TE_FUNCTION6: case TE_CLOSURE6: te_free(n->parameters[5]); /* Falls through. */ |
| 104 | case TE_FUNCTION5: case TE_CLOSURE5: te_free(n->parameters[4]); /* Falls through. */ |
| 105 | case TE_FUNCTION4: case TE_CLOSURE4: te_free(n->parameters[3]); /* Falls through. */ |
| 106 | case TE_FUNCTION3: case TE_CLOSURE3: te_free(n->parameters[2]); /* Falls through. */ |
| 107 | case TE_FUNCTION2: case TE_CLOSURE2: te_free(n->parameters[1]); /* Falls through. */ |
| 108 | case TE_FUNCTION1: case TE_CLOSURE1: te_free(n->parameters[0]); |
| 109 | } |
| 110 | } |
| 111 | |
| 112 | |
| 113 | void te_free(te_expr *n) { |