acpica/dispatcher/dsutils.c

db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * Module Name: dsutils - Dispatcher utilities
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
26f3cdf0SGordon Ross/*
*385cc6b4SJerry Jelinek * Copyright (C) 2000 - 2016, Intel Corp.
db2bae30SDana Myers * All rights reserved.
db2bae30SDana Myers *
26f3cdf0SGordon Ross * Redistribution and use in source and binary forms, with or without
26f3cdf0SGordon Ross * modification, are permitted provided that the following conditions
26f3cdf0SGordon Ross * are met:
26f3cdf0SGordon Ross * 1. Redistributions of source code must retain the above copyright
26f3cdf0SGordon Ross *    notice, this list of conditions, and the following disclaimer,
26f3cdf0SGordon Ross *    without modification.
26f3cdf0SGordon Ross * 2. Redistributions in binary form must reproduce at minimum a disclaimer
26f3cdf0SGordon Ross *    substantially similar to the "NO WARRANTY" disclaimer below
26f3cdf0SGordon Ross *    ("Disclaimer") and any redistribution must be conditioned upon
26f3cdf0SGordon Ross *    including a substantially similar Disclaimer requirement for further
26f3cdf0SGordon Ross *    binary redistribution.
26f3cdf0SGordon Ross * 3. Neither the names of the above-listed copyright holders nor the names
26f3cdf0SGordon Ross *    of any contributors may be used to endorse or promote products derived
26f3cdf0SGordon Ross *    from this software without specific prior written permission.
db2bae30SDana Myers *
26f3cdf0SGordon Ross * Alternatively, this software may be distributed under the terms of the
26f3cdf0SGordon Ross * GNU General Public License ("GPL") version 2 as published by the Free
26f3cdf0SGordon Ross * Software Foundation.
db2bae30SDana Myers *
26f3cdf0SGordon Ross * NO WARRANTY
26f3cdf0SGordon Ross * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
26f3cdf0SGordon Ross * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
26f3cdf0SGordon Ross * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
26f3cdf0SGordon Ross * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
26f3cdf0SGordon Ross * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26f3cdf0SGordon Ross * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26f3cdf0SGordon Ross * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26f3cdf0SGordon Ross * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
26f3cdf0SGordon Ross * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
26f3cdf0SGordon Ross * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
26f3cdf0SGordon Ross * POSSIBILITY OF SUCH DAMAGES.
26f3cdf0SGordon Ross */
db2bae30SDana Myers
db2bae30SDana Myers#include "acpi.h"
aa2aa9a6SDana Myers#include "accommon.h"
db2bae30SDana Myers#include "acparser.h"
db2bae30SDana Myers#include "amlcode.h"
db2bae30SDana Myers#include "acdispat.h"
db2bae30SDana Myers#include "acinterp.h"
db2bae30SDana Myers#include "acnamesp.h"
db2bae30SDana Myers#include "acdebug.h"
db2bae30SDana Myers
db2bae30SDana Myers#define _COMPONENT          ACPI_DISPATCHER
db2bae30SDana Myers        ACPI_MODULE_NAME    ("dsutils")
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsClearImplicitReturn
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState           - Current State
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      None.
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Clear and remove a reference on an implicit return value. Used
db2bae30SDana Myers *              to delete "stale" return values (if enabled, the return value
db2bae30SDana Myers *              from every operator is saved at least momentarily, in case the
db2bae30SDana Myers *              parent method exits.)
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana Myersvoid
db2bae30SDana MyersAcpiDsClearImplicitReturn (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_FUNCTION_NAME (DsClearImplicitReturn);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Slack must be enabled for this feature
db2bae30SDana Myers     */
db2bae30SDana Myers    if (!AcpiGbl_EnableInterpreterSlack)
db2bae30SDana Myers    {
db2bae30SDana Myers        return;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    if (WalkState->ImplicitReturnObj)
db2bae30SDana Myers    {
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Delete any "stale" implicit return. However, in
db2bae30SDana Myers         * complex statements, the implicit return value can be
db2bae30SDana Myers         * bubbled up several levels.
db2bae30SDana Myers         */
db2bae30SDana Myers        ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH,
db2bae30SDana Myers            "Removing reference on stale implicit return obj %p\n",
db2bae30SDana Myers            WalkState->ImplicitReturnObj));
db2bae30SDana Myers
db2bae30SDana Myers        AcpiUtRemoveReference (WalkState->ImplicitReturnObj);
db2bae30SDana Myers        WalkState->ImplicitReturnObj = NULL;
db2bae30SDana Myers    }
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers#ifndef ACPI_NO_METHOD_EXECUTION
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsDoImplicitReturn
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  ReturnDesc          - The return value
db2bae30SDana Myers *              WalkState           - Current State
db2bae30SDana Myers *              AddReference        - True if a reference should be added to the
db2bae30SDana Myers *                                    return object
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      TRUE if implicit return enabled, FALSE otherwise
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Implements the optional "implicit return".  We save the result
db2bae30SDana Myers *              of every ASL operator and control method invocation in case the
db2bae30SDana Myers *              parent method exit. Before storing a new return value, we
db2bae30SDana Myers *              delete the previous return value.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersBOOLEAN
db2bae30SDana MyersAcpiDsDoImplicitReturn (
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ReturnDesc,
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState,
db2bae30SDana Myers    BOOLEAN                 AddReference)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_FUNCTION_NAME (DsDoImplicitReturn);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Slack must be enabled for this feature, and we must
db2bae30SDana Myers     * have a valid return object
db2bae30SDana Myers     */
db2bae30SDana Myers    if ((!AcpiGbl_EnableInterpreterSlack) ||
db2bae30SDana Myers        (!ReturnDesc))
db2bae30SDana Myers    {
db2bae30SDana Myers        return (FALSE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH,
db2bae30SDana Myers        "Result %p will be implicitly returned; Prev=%p\n",
db2bae30SDana Myers        ReturnDesc,
db2bae30SDana Myers        WalkState->ImplicitReturnObj));
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Delete any "stale" implicit return value first. However, in
db2bae30SDana Myers     * complex statements, the implicit return value can be
db2bae30SDana Myers     * bubbled up several levels, so we don't clear the value if it
db2bae30SDana Myers     * is the same as the ReturnDesc.
db2bae30SDana Myers     */
db2bae30SDana Myers    if (WalkState->ImplicitReturnObj)
db2bae30SDana Myers    {
db2bae30SDana Myers        if (WalkState->ImplicitReturnObj == ReturnDesc)
db2bae30SDana Myers        {
db2bae30SDana Myers            return (TRUE);
db2bae30SDana Myers        }
db2bae30SDana Myers        AcpiDsClearImplicitReturn (WalkState);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Save the implicit return value, add a reference if requested */
db2bae30SDana Myers
db2bae30SDana Myers    WalkState->ImplicitReturnObj = ReturnDesc;
db2bae30SDana Myers    if (AddReference)
db2bae30SDana Myers    {
db2bae30SDana Myers        AcpiUtAddReference (ReturnDesc);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    return (TRUE);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsIsResultUsed
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  Op                  - Current Op
db2bae30SDana Myers *              WalkState           - Current State
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      TRUE if result is used, FALSE otherwise
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Check if a result object will be used by the parent
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersBOOLEAN
db2bae30SDana MyersAcpiDsIsResultUsed (
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Op,
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState)
db2bae30SDana Myers{
db2bae30SDana Myers    const ACPI_OPCODE_INFO  *ParentInfo;
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (DsIsResultUsed, Op);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /* Must have both an Op and a Result Object */
db2bae30SDana Myers
db2bae30SDana Myers    if (!Op)
db2bae30SDana Myers    {
db2bae30SDana Myers        ACPI_ERROR ((AE_INFO, "Null Op"));
db2bae30SDana Myers        return_UINT8 (TRUE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * We know that this operator is not a
db2bae30SDana Myers     * Return() operator (would not come here.) The following code is the
db2bae30SDana Myers     * optional support for a so-called "implicit return". Some AML code
db2bae30SDana Myers     * assumes that the last value of the method is "implicitly" returned
db2bae30SDana Myers     * to the caller. Just save the last result as the return value.
db2bae30SDana Myers     * NOTE: this is optional because the ASL language does not actually
db2bae30SDana Myers     * support this behavior.
db2bae30SDana Myers     */
db2bae30SDana Myers    (void) AcpiDsDoImplicitReturn (WalkState->ResultObj, WalkState, TRUE);
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Now determine if the parent will use the result
db2bae30SDana Myers     *
db2bae30SDana Myers     * If there is no parent, or the parent is a ScopeOp, we are executing
db2bae30SDana Myers     * at the method level. An executing method typically has no parent,
db2bae30SDana Myers     * since each method is parsed separately. A method invoked externally
db2bae30SDana Myers     * via ExecuteControlMethod has a ScopeOp as the parent.
db2bae30SDana Myers     */
db2bae30SDana Myers    if ((!Op->Common.Parent) ||
db2bae30SDana Myers        (Op->Common.Parent->Common.AmlOpcode == AML_SCOPE_OP))
db2bae30SDana Myers    {
db2bae30SDana Myers        /* No parent, the return value cannot possibly be used */
db2bae30SDana Myers
db2bae30SDana Myers        ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH,
db2bae30SDana Myers            "At Method level, result of [%s] not used\n",
db2bae30SDana Myers            AcpiPsGetOpcodeName (Op->Common.AmlOpcode)));
db2bae30SDana Myers        return_UINT8 (FALSE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Get info on the parent. The RootOp is AML_SCOPE */
db2bae30SDana Myers
db2bae30SDana Myers    ParentInfo = AcpiPsGetOpcodeInfo (Op->Common.Parent->Common.AmlOpcode);
db2bae30SDana Myers    if (ParentInfo->Class == AML_CLASS_UNKNOWN)
db2bae30SDana Myers    {
db2bae30SDana Myers        ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers            "Unknown parent opcode Op=%p", Op));
db2bae30SDana Myers        return_UINT8 (FALSE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Decide what to do with the result based on the parent. If
db2bae30SDana Myers     * the parent opcode will not use the result, delete the object.
db2bae30SDana Myers     * Otherwise leave it as is, it will be deleted when it is used
db2bae30SDana Myers     * as an operand later.
db2bae30SDana Myers     */
db2bae30SDana Myers    switch (ParentInfo->Class)
db2bae30SDana Myers    {
db2bae30SDana Myers    case AML_CLASS_CONTROL:
db2bae30SDana Myers
db2bae30SDana Myers        switch (Op->Common.Parent->Common.AmlOpcode)
db2bae30SDana Myers        {
db2bae30SDana Myers        case AML_RETURN_OP:
db2bae30SDana Myers
db2bae30SDana Myers            /* Never delete the return value associated with a return opcode */
db2bae30SDana Myers
db2bae30SDana Myers            goto ResultUsed;
db2bae30SDana Myers
db2bae30SDana Myers        case AML_IF_OP:
db2bae30SDana Myers        case AML_WHILE_OP:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * If we are executing the predicate AND this is the predicate op,
db2bae30SDana Myers             * we will use the return value
db2bae30SDana Myers             */
*385cc6b4SJerry Jelinek            if ((WalkState->ControlState->Common.State ==
*385cc6b4SJerry Jelinek                    ACPI_CONTROL_PREDICATE_EXECUTING) &&
db2bae30SDana Myers                (WalkState->ControlState->Control.PredicateOp == Op))
db2bae30SDana Myers            {
db2bae30SDana Myers                goto ResultUsed;
db2bae30SDana Myers            }
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers            /* Ignore other control opcodes */
*385cc6b4SJerry Jelinek
db2bae30SDana Myers            break;
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* The general control opcode returns no result */
db2bae30SDana Myers
db2bae30SDana Myers        goto ResultNotUsed;
db2bae30SDana Myers
db2bae30SDana Myers    case AML_CLASS_CREATE:
db2bae30SDana Myers        /*
db2bae30SDana Myers         * These opcodes allow TermArg(s) as operands and therefore
db2bae30SDana Myers         * the operands can be method calls. The result is used.
db2bae30SDana Myers         */
db2bae30SDana Myers        goto ResultUsed;
db2bae30SDana Myers
db2bae30SDana Myers    case AML_CLASS_NAMED_OBJECT:
db2bae30SDana Myers
db2bae30SDana Myers        if ((Op->Common.Parent->Common.AmlOpcode == AML_REGION_OP)       ||
db2bae30SDana Myers            (Op->Common.Parent->Common.AmlOpcode == AML_DATA_REGION_OP)  ||
db2bae30SDana Myers            (Op->Common.Parent->Common.AmlOpcode == AML_PACKAGE_OP)      ||
db2bae30SDana Myers            (Op->Common.Parent->Common.AmlOpcode == AML_VAR_PACKAGE_OP)  ||
db2bae30SDana Myers            (Op->Common.Parent->Common.AmlOpcode == AML_BUFFER_OP)       ||
db2bae30SDana Myers            (Op->Common.Parent->Common.AmlOpcode == AML_INT_EVAL_SUBTREE_OP) ||
db2bae30SDana Myers            (Op->Common.Parent->Common.AmlOpcode == AML_BANK_FIELD_OP))
db2bae30SDana Myers        {
db2bae30SDana Myers            /*
db2bae30SDana Myers             * These opcodes allow TermArg(s) as operands and therefore
db2bae30SDana Myers             * the operands can be method calls. The result is used.
db2bae30SDana Myers             */
db2bae30SDana Myers            goto ResultUsed;
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        goto ResultNotUsed;
db2bae30SDana Myers
db2bae30SDana Myers    default:
db2bae30SDana Myers        /*
db2bae30SDana Myers         * In all other cases. the parent will actually use the return
db2bae30SDana Myers         * object, so keep it.
db2bae30SDana Myers         */
db2bae30SDana Myers        goto ResultUsed;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana MyersResultUsed:
db2bae30SDana Myers    ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH,
db2bae30SDana Myers        "Result of [%s] used by Parent [%s] Op=%p\n",
db2bae30SDana Myers        AcpiPsGetOpcodeName (Op->Common.AmlOpcode),
db2bae30SDana Myers        AcpiPsGetOpcodeName (Op->Common.Parent->Common.AmlOpcode), Op));
db2bae30SDana Myers
db2bae30SDana Myers    return_UINT8 (TRUE);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana MyersResultNotUsed:
db2bae30SDana Myers    ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH,
db2bae30SDana Myers        "Result of [%s] not used by Parent [%s] Op=%p\n",
db2bae30SDana Myers        AcpiPsGetOpcodeName (Op->Common.AmlOpcode),
db2bae30SDana Myers        AcpiPsGetOpcodeName (Op->Common.Parent->Common.AmlOpcode), Op));
db2bae30SDana Myers
db2bae30SDana Myers    return_UINT8 (FALSE);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsDeleteResultIfNotUsed
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  Op              - Current parse Op
db2bae30SDana Myers *              ResultObj       - Result of the operation
db2bae30SDana Myers *              WalkState       - Current state
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Used after interpretation of an opcode. If there is an internal
db2bae30SDana Myers *              result descriptor, check if the parent opcode will actually use
db2bae30SDana Myers *              this result. If not, delete the result now so that it will
db2bae30SDana Myers *              not become orphaned.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana Myersvoid
db2bae30SDana MyersAcpiDsDeleteResultIfNotUsed (
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Op,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ResultObj,
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc;
db2bae30SDana Myers    ACPI_STATUS             Status;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (DsDeleteResultIfNotUsed, ResultObj);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    if (!Op)
db2bae30SDana Myers    {
db2bae30SDana Myers        ACPI_ERROR ((AE_INFO, "Null Op"));
db2bae30SDana Myers        return_VOID;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    if (!ResultObj)
db2bae30SDana Myers    {
db2bae30SDana Myers        return_VOID;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    if (!AcpiDsIsResultUsed (Op, WalkState))
db2bae30SDana Myers    {
db2bae30SDana Myers        /* Must pop the result stack (ObjDesc should be equal to ResultObj) */
db2bae30SDana Myers
db2bae30SDana Myers        Status = AcpiDsResultPop (&ObjDesc, WalkState);
db2bae30SDana Myers        if (ACPI_SUCCESS (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            AcpiUtRemoveReference (ResultObj);
db2bae30SDana Myers        }
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    return_VOID;
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsResolveOperands
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState           - Current walk state with operands on stack
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Resolve all operands to their values. Used to prepare
db2bae30SDana Myers *              arguments to a control method invocation (a call from one
db2bae30SDana Myers *              method to another.)
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiDsResolveOperands (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState)
db2bae30SDana Myers{
db2bae30SDana Myers    UINT32                  i;
db2bae30SDana Myers    ACPI_STATUS             Status = AE_OK;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (DsResolveOperands, WalkState);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Attempt to resolve each of the valid operands
db2bae30SDana Myers     * Method arguments are passed by reference, not by value. This means
db2bae30SDana Myers     * that the actual objects are passed, not copies of the objects.
db2bae30SDana Myers     */
db2bae30SDana Myers    for (i = 0; i < WalkState->NumOperands; i++)
db2bae30SDana Myers    {
db2bae30SDana Myers        Status = AcpiExResolveToValue (&WalkState->Operands[i], WalkState);
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            break;
db2bae30SDana Myers        }
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsClearOperands
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState           - Current walk state with operands on stack
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      None
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Clear all operands on the current walk state operand stack.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana Myersvoid
db2bae30SDana MyersAcpiDsClearOperands (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState)
db2bae30SDana Myers{
db2bae30SDana Myers    UINT32                  i;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (DsClearOperands, WalkState);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /* Remove a reference on each operand on the stack */
db2bae30SDana Myers
db2bae30SDana Myers    for (i = 0; i < WalkState->NumOperands; i++)
db2bae30SDana Myers    {
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Remove a reference to all operands, including both
db2bae30SDana Myers         * "Arguments" and "Targets".
db2bae30SDana Myers         */
db2bae30SDana Myers        AcpiUtRemoveReference (WalkState->Operands[i]);
db2bae30SDana Myers        WalkState->Operands[i] = NULL;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    WalkState->NumOperands = 0;
db2bae30SDana Myers    return_VOID;
db2bae30SDana Myers}
db2bae30SDana Myers#endif
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsCreateOperand
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState       - Current walk state
db2bae30SDana Myers *              Arg             - Parse object for the argument
db2bae30SDana Myers *              ArgIndex        - Which argument (zero based)
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Translate a parse tree object that is an argument to an AML
db2bae30SDana Myers *              opcode to the equivalent interpreter object. This may include
db2bae30SDana Myers *              looking up a name or entering a new name into the internal
db2bae30SDana Myers *              namespace.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiDsCreateOperand (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState,
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Arg,
db2bae30SDana Myers    UINT32                  ArgIndex)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_STATUS             Status = AE_OK;
db2bae30SDana Myers    char                    *NameString;
db2bae30SDana Myers    UINT32                  NameLength;
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc;
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *ParentOp;
db2bae30SDana Myers    UINT16                  Opcode;
db2bae30SDana Myers    ACPI_INTERPRETER_MODE   InterpreterMode;
db2bae30SDana Myers    const ACPI_OPCODE_INFO  *OpInfo;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (DsCreateOperand, Arg);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /* A valid name must be looked up in the namespace */
db2bae30SDana Myers
db2bae30SDana Myers    if ((Arg->Common.AmlOpcode == AML_INT_NAMEPATH_OP) &&
db2bae30SDana Myers        (Arg->Common.Value.String) &&
db2bae30SDana Myers        !(Arg->Common.Flags & ACPI_PARSEOP_IN_STACK))
db2bae30SDana Myers    {
db2bae30SDana Myers        ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH, "Getting a name: Arg=%p\n", Arg));
db2bae30SDana Myers
db2bae30SDana Myers        /* Get the entire name string from the AML stream */
db2bae30SDana Myers
*385cc6b4SJerry Jelinek        Status = AcpiExGetNameString (ACPI_TYPE_ANY,
*385cc6b4SJerry Jelinek            Arg->Common.Value.Buffer, &NameString, &NameLength);
db2bae30SDana Myers
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (Status);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* All prefixes have been handled, and the name is in NameString */
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Special handling for BufferField declarations. This is a deferred
db2bae30SDana Myers         * opcode that unfortunately defines the field name as the last
db2bae30SDana Myers         * parameter instead of the first. We get here when we are performing
db2bae30SDana Myers         * the deferred execution, so the actual name of the field is already
db2bae30SDana Myers         * in the namespace. We don't want to attempt to look it up again
db2bae30SDana Myers         * because we may be executing in a different scope than where the
db2bae30SDana Myers         * actual opcode exists.
db2bae30SDana Myers         */
db2bae30SDana Myers        if ((WalkState->DeferredNode) &&
db2bae30SDana Myers            (WalkState->DeferredNode->Type == ACPI_TYPE_BUFFER_FIELD) &&
*385cc6b4SJerry Jelinek            (ArgIndex == (UINT32)
*385cc6b4SJerry Jelinek                ((WalkState->Opcode == AML_CREATE_FIELD_OP) ? 3 : 2)))
db2bae30SDana Myers        {
db2bae30SDana Myers            ObjDesc = ACPI_CAST_PTR (
db2bae30SDana Myers                ACPI_OPERAND_OBJECT, WalkState->DeferredNode);
db2bae30SDana Myers            Status = AE_OK;
db2bae30SDana Myers        }
db2bae30SDana Myers        else    /* All other opcodes */
db2bae30SDana Myers        {
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Differentiate between a namespace "create" operation
db2bae30SDana Myers             * versus a "lookup" operation (IMODE_LOAD_PASS2 vs.
db2bae30SDana Myers             * IMODE_EXECUTE) in order to support the creation of
db2bae30SDana Myers             * namespace objects during the execution of control methods.
db2bae30SDana Myers             */
db2bae30SDana Myers            ParentOp = Arg->Common.Parent;
db2bae30SDana Myers            OpInfo = AcpiPsGetOpcodeInfo (ParentOp->Common.AmlOpcode);
*385cc6b4SJerry Jelinek
db2bae30SDana Myers            if ((OpInfo->Flags & AML_NSNODE) &&
db2bae30SDana Myers                (ParentOp->Common.AmlOpcode != AML_INT_METHODCALL_OP) &&
db2bae30SDana Myers                (ParentOp->Common.AmlOpcode != AML_REGION_OP) &&
db2bae30SDana Myers                (ParentOp->Common.AmlOpcode != AML_INT_NAMEPATH_OP))
db2bae30SDana Myers            {
db2bae30SDana Myers                /* Enter name into namespace if not found */
db2bae30SDana Myers
db2bae30SDana Myers                InterpreterMode = ACPI_IMODE_LOAD_PASS2;
db2bae30SDana Myers            }
db2bae30SDana Myers            else
db2bae30SDana Myers            {
db2bae30SDana Myers                /* Return a failure if name not found */
db2bae30SDana Myers
db2bae30SDana Myers                InterpreterMode = ACPI_IMODE_EXECUTE;
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            Status = AcpiNsLookup (WalkState->ScopeInfo, NameString,
db2bae30SDana Myers                ACPI_TYPE_ANY, InterpreterMode,
*385cc6b4SJerry Jelinek                ACPI_NS_SEARCH_PARENT | ACPI_NS_DONT_OPEN_SCOPE, WalkState,
db2bae30SDana Myers                ACPI_CAST_INDIRECT_PTR (ACPI_NAMESPACE_NODE, &ObjDesc));
db2bae30SDana Myers            /*
db2bae30SDana Myers             * The only case where we pass through (ignore) a NOT_FOUND
db2bae30SDana Myers             * error is for the CondRefOf opcode.
db2bae30SDana Myers             */
db2bae30SDana Myers            if (Status == AE_NOT_FOUND)
db2bae30SDana Myers            {
db2bae30SDana Myers                if (ParentOp->Common.AmlOpcode == AML_COND_REF_OF_OP)
db2bae30SDana Myers                {
db2bae30SDana Myers                    /*
db2bae30SDana Myers                     * For the Conditional Reference op, it's OK if
db2bae30SDana Myers                     * the name is not found;  We just need a way to
db2bae30SDana Myers                     * indicate this to the interpreter, set the
db2bae30SDana Myers                     * object to the root
db2bae30SDana Myers                     */
db2bae30SDana Myers                    ObjDesc = ACPI_CAST_PTR (
db2bae30SDana Myers                        ACPI_OPERAND_OBJECT, AcpiGbl_RootNode);
db2bae30SDana Myers                    Status = AE_OK;
db2bae30SDana Myers                }
*385cc6b4SJerry Jelinek                else if (ParentOp->Common.AmlOpcode == AML_EXTERNAL_OP)
*385cc6b4SJerry Jelinek                {
*385cc6b4SJerry Jelinek                    /*
*385cc6b4SJerry Jelinek                     * This opcode should never appear here. It is used only
*385cc6b4SJerry Jelinek                     * by AML disassemblers and is surrounded by an If(0)
*385cc6b4SJerry Jelinek                     * by the ASL compiler.
*385cc6b4SJerry Jelinek                     *
*385cc6b4SJerry Jelinek                     * Therefore, if we see it here, it is a serious error.
*385cc6b4SJerry Jelinek                     */
*385cc6b4SJerry Jelinek                    Status = AE_AML_BAD_OPCODE;
*385cc6b4SJerry Jelinek                }
db2bae30SDana Myers                else
db2bae30SDana Myers                {
db2bae30SDana Myers                    /*
db2bae30SDana Myers                     * We just plain didn't find it -- which is a
db2bae30SDana Myers                     * very serious error at this point
db2bae30SDana Myers                     */
db2bae30SDana Myers                    Status = AE_AML_NAME_NOT_FOUND;
db2bae30SDana Myers                }
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            if (ACPI_FAILURE (Status))
db2bae30SDana Myers            {
db2bae30SDana Myers                ACPI_ERROR_NAMESPACE (NameString, Status);
db2bae30SDana Myers            }
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Free the namestring created above */
db2bae30SDana Myers
db2bae30SDana Myers        ACPI_FREE (NameString);
db2bae30SDana Myers
db2bae30SDana Myers        /* Check status from the lookup */
db2bae30SDana Myers
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (Status);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Put the resulting object onto the current object stack */
db2bae30SDana Myers
db2bae30SDana Myers        Status = AcpiDsObjStackPush (ObjDesc, WalkState);
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (Status);
db2bae30SDana Myers        }
*385cc6b4SJerry Jelinek
*385cc6b4SJerry Jelinek#ifdef ACPI_DEBUGGER
*385cc6b4SJerry Jelinek        AcpiDbDisplayArgumentObject (ObjDesc, WalkState);
*385cc6b4SJerry Jelinek#endif
db2bae30SDana Myers    }
db2bae30SDana Myers    else
db2bae30SDana Myers    {
db2bae30SDana Myers        /* Check for null name case */
db2bae30SDana Myers
db2bae30SDana Myers        if ((Arg->Common.AmlOpcode == AML_INT_NAMEPATH_OP) &&
db2bae30SDana Myers            !(Arg->Common.Flags & ACPI_PARSEOP_IN_STACK))
db2bae30SDana Myers        {
db2bae30SDana Myers            /*
db2bae30SDana Myers             * If the name is null, this means that this is an
db2bae30SDana Myers             * optional result parameter that was not specified
db2bae30SDana Myers             * in the original ASL. Create a Zero Constant for a
db2bae30SDana Myers             * placeholder. (Store to a constant is a Noop.)
db2bae30SDana Myers             */
db2bae30SDana Myers            Opcode = AML_ZERO_OP;       /* Has no arguments! */
db2bae30SDana Myers
db2bae30SDana Myers            ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH,
db2bae30SDana Myers                "Null namepath: Arg=%p\n", Arg));
db2bae30SDana Myers        }
db2bae30SDana Myers        else
db2bae30SDana Myers        {
db2bae30SDana Myers            Opcode = Arg->Common.AmlOpcode;
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Get the object type of the argument */
db2bae30SDana Myers
db2bae30SDana Myers        OpInfo = AcpiPsGetOpcodeInfo (Opcode);
db2bae30SDana Myers        if (OpInfo->ObjectType == ACPI_TYPE_INVALID)
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (AE_NOT_IMPLEMENTED);
db2bae30SDana Myers        }
db2bae30SDana Myers
*385cc6b4SJerry Jelinek        if ((OpInfo->Flags & AML_HAS_RETVAL) ||
*385cc6b4SJerry Jelinek            (Arg->Common.Flags & ACPI_PARSEOP_IN_STACK))
db2bae30SDana Myers        {
db2bae30SDana Myers            ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH,
db2bae30SDana Myers                "Argument previously created, already stacked\n"));
db2bae30SDana Myers
*385cc6b4SJerry Jelinek#ifdef ACPI_DEBUGGER
*385cc6b4SJerry Jelinek            AcpiDbDisplayArgumentObject (
*385cc6b4SJerry Jelinek                WalkState->Operands [WalkState->NumOperands - 1], WalkState);
*385cc6b4SJerry Jelinek#endif
db2bae30SDana Myers
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Use value that was already previously returned
db2bae30SDana Myers             * by the evaluation of this argument
db2bae30SDana Myers             */
db2bae30SDana Myers            Status = AcpiDsResultPop (&ObjDesc, WalkState);
db2bae30SDana Myers            if (ACPI_FAILURE (Status))
db2bae30SDana Myers            {
db2bae30SDana Myers                /*
db2bae30SDana Myers                 * Only error is underflow, and this indicates
db2bae30SDana Myers                 * a missing or null operand!
db2bae30SDana Myers                 */
db2bae30SDana Myers                ACPI_EXCEPTION ((AE_INFO, Status,
db2bae30SDana Myers                    "Missing or null operand"));
db2bae30SDana Myers                return_ACPI_STATUS (Status);
db2bae30SDana Myers            }
db2bae30SDana Myers        }
db2bae30SDana Myers        else
db2bae30SDana Myers        {
db2bae30SDana Myers            /* Create an ACPI_INTERNAL_OBJECT for the argument */
db2bae30SDana Myers
db2bae30SDana Myers            ObjDesc = AcpiUtCreateInternalObject (OpInfo->ObjectType);
db2bae30SDana Myers            if (!ObjDesc)
db2bae30SDana Myers            {
db2bae30SDana Myers                return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            /* Initialize the new object */
db2bae30SDana Myers
db2bae30SDana Myers            Status = AcpiDsInitObjectFromOp (
db2bae30SDana Myers                WalkState, Arg, Opcode, &ObjDesc);
db2bae30SDana Myers            if (ACPI_FAILURE (Status))
db2bae30SDana Myers            {
db2bae30SDana Myers                AcpiUtDeleteObjectDesc (ObjDesc);
db2bae30SDana Myers                return_ACPI_STATUS (Status);
db2bae30SDana Myers            }
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Put the operand object on the object stack */
db2bae30SDana Myers
db2bae30SDana Myers        Status = AcpiDsObjStackPush (ObjDesc, WalkState);
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (Status);
db2bae30SDana Myers        }
db2bae30SDana Myers
*385cc6b4SJerry Jelinek#ifdef ACPI_DEBUGGER
*385cc6b4SJerry Jelinek        AcpiDbDisplayArgumentObject (ObjDesc, WalkState);
*385cc6b4SJerry Jelinek#endif
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsCreateOperands
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState           - Current state
db2bae30SDana Myers *              FirstArg            - First argument of a parser argument tree
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Convert an operator's arguments from a parse tree format to
db2bae30SDana Myers *              namespace objects and place those argument object on the object
db2bae30SDana Myers *              stack in preparation for evaluation by the interpreter.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiDsCreateOperands (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState,
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *FirstArg)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_STATUS             Status = AE_OK;
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Arg;
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Arguments[ACPI_OBJ_NUM_OPERANDS];
db2bae30SDana Myers    UINT32                  ArgCount = 0;
db2bae30SDana Myers    UINT32                  Index = WalkState->NumOperands;
db2bae30SDana Myers    UINT32                  i;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (DsCreateOperands, FirstArg);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /* Get all arguments in the list */
db2bae30SDana Myers
db2bae30SDana Myers    Arg = FirstArg;
db2bae30SDana Myers    while (Arg)
db2bae30SDana Myers    {
db2bae30SDana Myers        if (Index >= ACPI_OBJ_NUM_OPERANDS)
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (AE_BAD_DATA);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        Arguments[Index] = Arg;
db2bae30SDana Myers        WalkState->Operands [Index] = NULL;
db2bae30SDana Myers
db2bae30SDana Myers        /* Move on to next argument, if any */
db2bae30SDana Myers
db2bae30SDana Myers        Arg = Arg->Common.Next;
db2bae30SDana Myers        ArgCount++;
db2bae30SDana Myers        Index++;
db2bae30SDana Myers    }
db2bae30SDana Myers
*385cc6b4SJerry Jelinek    ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH,
*385cc6b4SJerry Jelinek        "NumOperands %d, ArgCount %d, Index %d\n",
*385cc6b4SJerry Jelinek        WalkState->NumOperands, ArgCount, Index));
*385cc6b4SJerry Jelinek
*385cc6b4SJerry Jelinek    /* Create the interpreter arguments, in reverse order */
*385cc6b4SJerry Jelinek
db2bae30SDana Myers    Index--;
db2bae30SDana Myers    for (i = 0; i < ArgCount; i++)
db2bae30SDana Myers    {
db2bae30SDana Myers        Arg = Arguments[Index];
db2bae30SDana Myers        WalkState->OperandIndex = (UINT8) Index;
db2bae30SDana Myers
db2bae30SDana Myers        Status = AcpiDsCreateOperand (WalkState, Arg, Index);
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            goto Cleanup;
db2bae30SDana Myers        }
db2bae30SDana Myers
*385cc6b4SJerry Jelinek        ACPI_DEBUG_PRINT ((ACPI_DB_DISPATCH,
*385cc6b4SJerry Jelinek            "Created Arg #%u (%p) %u args total\n",
*385cc6b4SJerry Jelinek            Index, Arg, ArgCount));
db2bae30SDana Myers        Index--;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana MyersCleanup:
db2bae30SDana Myers    /*
db2bae30SDana Myers     * We must undo everything done above; meaning that we must
db2bae30SDana Myers     * pop everything off of the operand stack and delete those
db2bae30SDana Myers     * objects
db2bae30SDana Myers     */
db2bae30SDana Myers    AcpiDsObjStackPopAndDelete (ArgCount, WalkState);
db2bae30SDana Myers
26f3cdf0SGordon Ross    ACPI_EXCEPTION ((AE_INFO, Status, "While creating Arg %u", Index));
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*****************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsEvaluateNamePath
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState       - Current state of the parse tree walk,
db2bae30SDana Myers *                                the opcode of current operation should be
db2bae30SDana Myers *                                AML_INT_NAMEPATH_OP
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Translate the -NamePath- parse tree object to the equivalent
db2bae30SDana Myers *              interpreter object, convert it to value, if needed, duplicate
db2bae30SDana Myers *              it, if needed, and push it onto the current result stack.
db2bae30SDana Myers *
db2bae30SDana Myers ****************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiDsEvaluateNamePath (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_STATUS             Status = AE_OK;
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Op = WalkState->Op;
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **Operand = &WalkState->Operands[0];
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *NewObjDesc;
db2bae30SDana Myers    UINT8                   Type;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (DsEvaluateNamePath, WalkState);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    if (!Op->Common.Parent)
db2bae30SDana Myers    {
db2bae30SDana Myers        /* This happens after certain exception processing */
db2bae30SDana Myers
db2bae30SDana Myers        goto Exit;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    if ((Op->Common.Parent->Common.AmlOpcode == AML_PACKAGE_OP) ||
db2bae30SDana Myers        (Op->Common.Parent->Common.AmlOpcode == AML_VAR_PACKAGE_OP) ||
db2bae30SDana Myers        (Op->Common.Parent->Common.AmlOpcode == AML_REF_OF_OP))
db2bae30SDana Myers    {
db2bae30SDana Myers        /* TBD: Should we specify this feature as a bit of OpInfo->Flags of these opcodes? */
db2bae30SDana Myers
db2bae30SDana Myers        goto Exit;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    Status = AcpiDsCreateOperand (WalkState, Op, 0);
db2bae30SDana Myers    if (ACPI_FAILURE (Status))
db2bae30SDana Myers    {
db2bae30SDana Myers        goto Exit;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    if (Op->Common.Flags & ACPI_PARSEOP_TARGET)
db2bae30SDana Myers    {
db2bae30SDana Myers        NewObjDesc = *Operand;
db2bae30SDana Myers        goto PushResult;
db2bae30SDana Myers    }
db2bae30SDana Myers
aa2aa9a6SDana Myers    Type = (*Operand)->Common.Type;
db2bae30SDana Myers
db2bae30SDana Myers    Status = AcpiExResolveToValue (Operand, WalkState);
db2bae30SDana Myers    if (ACPI_FAILURE (Status))
db2bae30SDana Myers    {
db2bae30SDana Myers        goto Exit;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    if (Type == ACPI_TYPE_INTEGER)
db2bae30SDana Myers    {
db2bae30SDana Myers        /* It was incremented by AcpiExResolveToValue */
db2bae30SDana Myers
db2bae30SDana Myers        AcpiUtRemoveReference (*Operand);
db2bae30SDana Myers
*385cc6b4SJerry Jelinek        Status = AcpiUtCopyIobjectToIobject (
*385cc6b4SJerry Jelinek            *Operand, &NewObjDesc, WalkState);
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            goto Exit;
db2bae30SDana Myers        }
db2bae30SDana Myers    }
db2bae30SDana Myers    else
db2bae30SDana Myers    {
db2bae30SDana Myers        /*
db2bae30SDana Myers         * The object either was anew created or is
db2bae30SDana Myers         * a Namespace node - don't decrement it.
db2bae30SDana Myers         */
db2bae30SDana Myers        NewObjDesc = *Operand;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Cleanup for name-path operand */
db2bae30SDana Myers
db2bae30SDana Myers    Status = AcpiDsObjStackPop (1, WalkState);
db2bae30SDana Myers    if (ACPI_FAILURE (Status))
db2bae30SDana Myers    {
db2bae30SDana Myers        WalkState->ResultObj = NewObjDesc;
db2bae30SDana Myers        goto Exit;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana MyersPushResult:
db2bae30SDana Myers
db2bae30SDana Myers    WalkState->ResultObj = NewObjDesc;
db2bae30SDana Myers
db2bae30SDana Myers    Status = AcpiDsResultPush (WalkState->ResultObj, WalkState);
db2bae30SDana Myers    if (ACPI_SUCCESS (Status))
db2bae30SDana Myers    {
db2bae30SDana Myers        /* Force to take it from stack */
db2bae30SDana Myers
db2bae30SDana Myers        Op->Common.Flags |= ACPI_PARSEOP_IN_STACK;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana MyersExit:
db2bae30SDana Myers
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers}