// SPDX-License-Identifier: BSD-3-Clause OR GPL-2.0
/******************************************************************************
 *
 * Module Name: pswalk - Parser routines to walk parsed op tree(s)
 *
 * Copyright (C) 2000 - 2025, Intel Corp.
 *
 *****************************************************************************/

#include <acpi/acpi.h>
#include "accommon.h"
#include "acparser.h"

#define _COMPONENT          ACPI_PARSER
ACPI_MODULE_NAME("pswalk")

/*******************************************************************************
 *
 * FUNCTION:    acpi_ps_delete_parse_tree
 *
 * PARAMETERS:  subtree_root        - Root of tree (or subtree) to delete
 *
 * RETURN:      None
 *
 * DESCRIPTION: Delete a portion of or an entire parse tree.
 *
 ******************************************************************************/
#include "amlcode.h"
void acpi_ps_delete_parse_tree(union acpi_parse_object *subtree_root)
{
        union acpi_parse_object *op = subtree_root;
        union acpi_parse_object *next = NULL;
        union acpi_parse_object *parent = NULL;
        u32 level = 0;

        ACPI_FUNCTION_TRACE_PTR(ps_delete_parse_tree, subtree_root);

        ACPI_DEBUG_PRINT((ACPI_DB_PARSE_TREES, " root %p\n", subtree_root));

        /* Visit all nodes in the subtree */

        while (op) {
                if (op != parent) {

                        /* This is the descending case */

                        if (ACPI_IS_DEBUG_ENABLED
                            (ACPI_LV_PARSE_TREES, _COMPONENT)) {

                                /* This debug option will print the entire parse tree */

                                acpi_os_printf("      %*.s%s %p", (level * 4),
                                               " ",
                                               acpi_ps_get_opcode_name(op->
                                                                       common.
                                                                       aml_opcode),
                                               op);

                                if (op->named.aml_opcode == AML_INT_NAMEPATH_OP) {
                                        acpi_os_printf("  %4.4s",
                                                       op->common.value.string);
                                }
                                if (op->named.aml_opcode == AML_STRING_OP) {
                                        acpi_os_printf("  %s",
                                                       op->common.value.string);
                                }
                                acpi_os_printf("\n");
                        }

                        /* Look for an argument or child of the current op */

                        next = acpi_ps_get_arg(op, 0);
                        if (next) {

                                /* Still going downward in tree (Op is not completed yet) */

                                op = next;
                                level++;
                                continue;
                        }
                }

                /* No more children, this Op is complete. */

                next = op->common.next;
                parent = op->common.parent;

                acpi_ps_free_op(op);

                /* If we are back to the starting point, the walk is complete. */

                if (op == subtree_root) {
                        return_VOID;
                }

                if (next) {
                        op = next;
                } else {
                        level--;
                        op = parent;
                }
        }

        return_VOID;
}