Ejemplo n.º 1
0
static inline NODE *
lfp_svar_place(rb_thread_t *th, VALUE *lfp)
{
    VALUE *svar;

    if (lfp && th->local_lfp != lfp) {
	svar = &lfp[-1];
    }
    else {
	svar = &th->local_svar;
    }
    if (NIL_P(*svar)) {
	*svar = (VALUE)NEW_IF(Qnil, Qnil, Qnil);
    }
    return (NODE *)*svar;
}
Ejemplo n.º 2
0
    // Free the while-loop node itself
    ast_free_leaf(node);
}

unsigned int pass_while_to_do(ast_node *root)
{
    AST_TRAVERSE_START(root, node)

    if (AST_NODE_TYPE(node) == NODE_WHILE) {
        // Create the body of the loop
        ast_node *do_stmt = NEW_DO_WHILE();
        ast_node_append(do_stmt, node->children[0]);
        ast_node_append(do_stmt, node->children[1]);

        // Create if statement and its condition
        ast_node *if_stmt = NEW_IF();
        ast_node_append(if_stmt, ast_node_clone(node->children[0]));
        ast_node_append(if_stmt, do_stmt);

        if (!if_stmt)
            return 1;

        // Insert the if-statement before the while-loop node
        int pos = ast_node_pos(node->parent, node);
        ast_node_insert(node->parent, if_stmt, pos);

        // Remove the while-loop from the AST and free its memory
        ast_node_remove(node->parent, node);
        free_while_loop(node);
        node = NULL;
    }