acpica/executer/exresop.c

db2bae30SDana Myers/******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * Module Name: exresop - AML Interpreter operand/object resolution
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 "amlcode.h"
db2bae30SDana Myers#include "acparser.h"
db2bae30SDana Myers#include "acinterp.h"
db2bae30SDana Myers#include "acnamesp.h"
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers#define _COMPONENT          ACPI_EXECUTER
db2bae30SDana Myers        ACPI_MODULE_NAME    ("exresop")
db2bae30SDana Myers
db2bae30SDana Myers/* Local prototypes */
db2bae30SDana Myers
db2bae30SDana Myersstatic ACPI_STATUS
db2bae30SDana MyersAcpiExCheckObjectType (
db2bae30SDana Myers    ACPI_OBJECT_TYPE        TypeNeeded,
db2bae30SDana Myers    ACPI_OBJECT_TYPE        ThisType,
db2bae30SDana Myers    void                    *Object);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiExCheckObjectType
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  TypeNeeded          Object type needed
db2bae30SDana Myers *              ThisType            Actual object type
db2bae30SDana Myers *              Object              Object pointer
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Check required type against actual type
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana Myersstatic ACPI_STATUS
db2bae30SDana MyersAcpiExCheckObjectType (
db2bae30SDana Myers    ACPI_OBJECT_TYPE        TypeNeeded,
db2bae30SDana Myers    ACPI_OBJECT_TYPE        ThisType,
db2bae30SDana Myers    void                    *Object)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_FUNCTION_ENTRY ();
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    if (TypeNeeded == ACPI_TYPE_ANY)
db2bae30SDana Myers    {
db2bae30SDana Myers        /* All types OK, so we don't perform any typechecks */
db2bae30SDana Myers
db2bae30SDana Myers        return (AE_OK);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    if (TypeNeeded == ACPI_TYPE_LOCAL_REFERENCE)
db2bae30SDana Myers    {
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Allow the AML "Constant" opcodes (Zero, One, etc.) to be reference
db2bae30SDana Myers         * objects and thus allow them to be targets. (As per the ACPI
db2bae30SDana Myers         * specification, a store to a constant is a noop.)
db2bae30SDana Myers         */
db2bae30SDana Myers        if ((ThisType == ACPI_TYPE_INTEGER) &&
*385cc6b4SJerry Jelinek            (((ACPI_OPERAND_OBJECT *) Object)->Common.Flags &
*385cc6b4SJerry Jelinek                AOPOBJ_AML_CONSTANT))
db2bae30SDana Myers        {
db2bae30SDana Myers            return (AE_OK);
db2bae30SDana Myers        }
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    if (TypeNeeded != ThisType)
db2bae30SDana Myers    {
db2bae30SDana Myers        ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers            "Needed type [%s], found [%s] %p",
db2bae30SDana Myers            AcpiUtGetTypeName (TypeNeeded),
db2bae30SDana Myers            AcpiUtGetTypeName (ThisType), Object));
db2bae30SDana Myers
db2bae30SDana Myers        return (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    return (AE_OK);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiExResolveOperands
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  Opcode              - Opcode being interpreted
db2bae30SDana Myers *              StackPtr            - Pointer to the operand stack to be
db2bae30SDana Myers *                                    resolved
db2bae30SDana Myers *              WalkState           - Current state
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Convert multiple input operands to the types required by the
db2bae30SDana Myers *              target operator.
db2bae30SDana Myers *
db2bae30SDana Myers *      Each 5-bit group in ArgTypes represents one required
db2bae30SDana Myers *      operand and indicates the required Type. The corresponding operand
db2bae30SDana Myers *      will be converted to the required type if possible, otherwise we
db2bae30SDana Myers *      abort with an exception.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiExResolveOperands (
db2bae30SDana Myers    UINT16                  Opcode,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **StackPtr,
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc;
db2bae30SDana Myers    ACPI_STATUS             Status = AE_OK;
db2bae30SDana Myers    UINT8                   ObjectType;
db2bae30SDana Myers    UINT32                  ArgTypes;
db2bae30SDana Myers    const ACPI_OPCODE_INFO  *OpInfo;
db2bae30SDana Myers    UINT32                  ThisArgType;
db2bae30SDana Myers    ACPI_OBJECT_TYPE        TypeNeeded;
db2bae30SDana Myers    UINT16                  TargetOp = 0;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_U32 (ExResolveOperands, Opcode);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    OpInfo = AcpiPsGetOpcodeInfo (Opcode);
db2bae30SDana Myers    if (OpInfo->Class == AML_CLASS_UNKNOWN)
db2bae30SDana Myers    {
db2bae30SDana Myers        return_ACPI_STATUS (AE_AML_BAD_OPCODE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    ArgTypes = OpInfo->RuntimeArgs;
db2bae30SDana Myers    if (ArgTypes == ARGI_INVALID_OPCODE)
db2bae30SDana Myers    {
26f3cdf0SGordon Ross        ACPI_ERROR ((AE_INFO, "Unknown AML opcode 0x%X",
db2bae30SDana Myers            Opcode));
db2bae30SDana Myers
db2bae30SDana Myers        return_ACPI_STATUS (AE_AML_INTERNAL);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_DEBUG_PRINT ((ACPI_DB_EXEC,
db2bae30SDana Myers        "Opcode %X [%s] RequiredOperandTypes=%8.8X\n",
db2bae30SDana Myers        Opcode, OpInfo->Name, ArgTypes));
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Normal exit is with (ArgTypes == 0) at end of argument list.
db2bae30SDana Myers     * Function will return an exception from within the loop upon
db2bae30SDana Myers     * finding an entry which is not (or cannot be converted
db2bae30SDana Myers     * to) the required type; if stack underflows; or upon
db2bae30SDana Myers     * finding a NULL stack entry (which should not happen).
db2bae30SDana Myers     */
db2bae30SDana Myers    while (GET_CURRENT_ARG_TYPE (ArgTypes))
db2bae30SDana Myers    {
db2bae30SDana Myers        if (!StackPtr || !*StackPtr)
db2bae30SDana Myers        {
db2bae30SDana Myers            ACPI_ERROR ((AE_INFO, "Null stack entry at %p",
db2bae30SDana Myers                StackPtr));
db2bae30SDana Myers
db2bae30SDana Myers            return_ACPI_STATUS (AE_AML_INTERNAL);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Extract useful items */
db2bae30SDana Myers
db2bae30SDana Myers        ObjDesc = *StackPtr;
db2bae30SDana Myers
db2bae30SDana Myers        /* Decode the descriptor type */
db2bae30SDana Myers
db2bae30SDana Myers        switch (ACPI_GET_DESCRIPTOR_TYPE (ObjDesc))
db2bae30SDana Myers        {
db2bae30SDana Myers        case ACPI_DESC_TYPE_NAMED:
db2bae30SDana Myers
db2bae30SDana Myers            /* Namespace Node */
db2bae30SDana Myers
db2bae30SDana Myers            ObjectType = ((ACPI_NAMESPACE_NODE *) ObjDesc)->Type;
db2bae30SDana Myers
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Resolve an alias object. The construction of these objects
db2bae30SDana Myers             * guarantees that there is only one level of alias indirection;
db2bae30SDana Myers             * thus, the attached object is always the aliased namespace node
db2bae30SDana Myers             */
db2bae30SDana Myers            if (ObjectType == ACPI_TYPE_LOCAL_ALIAS)
db2bae30SDana Myers            {
*385cc6b4SJerry Jelinek                ObjDesc = AcpiNsGetAttachedObject (
*385cc6b4SJerry Jelinek                    (ACPI_NAMESPACE_NODE *) ObjDesc);
db2bae30SDana Myers                *StackPtr = ObjDesc;
db2bae30SDana Myers                ObjectType = ((ACPI_NAMESPACE_NODE *) ObjDesc)->Type;
db2bae30SDana Myers            }
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case ACPI_DESC_TYPE_OPERAND:
db2bae30SDana Myers
db2bae30SDana Myers            /* ACPI internal object */
db2bae30SDana Myers
aa2aa9a6SDana Myers            ObjectType = ObjDesc->Common.Type;
db2bae30SDana Myers
db2bae30SDana Myers            /* Check for bad ACPI_OBJECT_TYPE */
db2bae30SDana Myers
db2bae30SDana Myers            if (!AcpiUtValidObjectType (ObjectType))
db2bae30SDana Myers            {
db2bae30SDana Myers                ACPI_ERROR ((AE_INFO,
26f3cdf0SGordon Ross                    "Bad operand object type [0x%X]", ObjectType));
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            if (ObjectType == (UINT8) ACPI_TYPE_LOCAL_REFERENCE)
db2bae30SDana Myers            {
db2bae30SDana Myers                /* Validate the Reference */
db2bae30SDana Myers
db2bae30SDana Myers                switch (ObjDesc->Reference.Class)
db2bae30SDana Myers                {
db2bae30SDana Myers                case ACPI_REFCLASS_DEBUG:
db2bae30SDana Myers
db2bae30SDana Myers                    TargetOp = AML_DEBUG_OP;
db2bae30SDana Myers
db2bae30SDana Myers                    /*lint -fallthrough */
db2bae30SDana Myers
db2bae30SDana Myers                case ACPI_REFCLASS_ARG:
db2bae30SDana Myers                case ACPI_REFCLASS_LOCAL:
db2bae30SDana Myers                case ACPI_REFCLASS_INDEX:
db2bae30SDana Myers                case ACPI_REFCLASS_REFOF:
db2bae30SDana Myers                case ACPI_REFCLASS_TABLE:    /* DdbHandle from LOAD_OP or LOAD_TABLE_OP */
db2bae30SDana Myers                case ACPI_REFCLASS_NAME:     /* Reference to a named object */
db2bae30SDana Myers
db2bae30SDana Myers                    ACPI_DEBUG_PRINT ((ACPI_DB_EXEC,
db2bae30SDana Myers                        "Operand is a Reference, Class [%s] %2.2X\n",
db2bae30SDana Myers                        AcpiUtGetReferenceName (ObjDesc),
db2bae30SDana Myers                        ObjDesc->Reference.Class));
db2bae30SDana Myers                    break;
db2bae30SDana Myers
db2bae30SDana Myers                default:
db2bae30SDana Myers
db2bae30SDana Myers                    ACPI_ERROR ((AE_INFO,
26f3cdf0SGordon Ross                        "Unknown Reference Class 0x%2.2X in %p",
db2bae30SDana Myers                        ObjDesc->Reference.Class, ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                    return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers                }
db2bae30SDana Myers            }
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        default:
db2bae30SDana Myers
db2bae30SDana Myers            /* Invalid descriptor */
db2bae30SDana Myers
db2bae30SDana Myers            ACPI_ERROR ((AE_INFO, "Invalid descriptor %p [%s]",
db2bae30SDana Myers                ObjDesc, AcpiUtGetDescriptorName (ObjDesc)));
db2bae30SDana Myers
db2bae30SDana Myers            return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Get one argument type, point to the next */
db2bae30SDana Myers
db2bae30SDana Myers        ThisArgType = GET_CURRENT_ARG_TYPE (ArgTypes);
db2bae30SDana Myers        INCREMENT_ARG_LIST (ArgTypes);
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Handle cases where the object does not need to be
db2bae30SDana Myers         * resolved to a value
db2bae30SDana Myers         */
db2bae30SDana Myers        switch (ThisArgType)
db2bae30SDana Myers        {
db2bae30SDana Myers        case ARGI_REF_OR_STRING:        /* Can be a String or Reference */
db2bae30SDana Myers
*385cc6b4SJerry Jelinek            if ((ACPI_GET_DESCRIPTOR_TYPE (ObjDesc) ==
*385cc6b4SJerry Jelinek                ACPI_DESC_TYPE_OPERAND) &&
aa2aa9a6SDana Myers                (ObjDesc->Common.Type == ACPI_TYPE_STRING))
db2bae30SDana Myers            {
db2bae30SDana Myers                /*
db2bae30SDana Myers                 * String found - the string references a named object and
db2bae30SDana Myers                 * must be resolved to a node
db2bae30SDana Myers                 */
db2bae30SDana Myers                goto NextOperand;
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Else not a string - fall through to the normal Reference
db2bae30SDana Myers             * case below
db2bae30SDana Myers             */
db2bae30SDana Myers            /*lint -fallthrough */
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_REFERENCE:            /* References: */
db2bae30SDana Myers        case ARGI_INTEGER_REF:
db2bae30SDana Myers        case ARGI_OBJECT_REF:
db2bae30SDana Myers        case ARGI_DEVICE_REF:
db2bae30SDana Myers        case ARGI_TARGETREF:     /* Allows implicit conversion rules before store */
db2bae30SDana Myers        case ARGI_FIXED_TARGET:  /* No implicit conversion before store to target */
db2bae30SDana Myers        case ARGI_SIMPLE_TARGET: /* Name, Local, or Arg - no implicit conversion  */
*385cc6b4SJerry Jelinek        case ARGI_STORE_TARGET:
db2bae30SDana Myers
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Need an operand of type ACPI_TYPE_LOCAL_REFERENCE
db2bae30SDana Myers             * A Namespace Node is OK as-is
db2bae30SDana Myers             */
db2bae30SDana Myers            if (ACPI_GET_DESCRIPTOR_TYPE (ObjDesc) == ACPI_DESC_TYPE_NAMED)
db2bae30SDana Myers            {
db2bae30SDana Myers                goto NextOperand;
db2bae30SDana Myers            }
db2bae30SDana Myers
*385cc6b4SJerry Jelinek            Status = AcpiExCheckObjectType (
*385cc6b4SJerry Jelinek                ACPI_TYPE_LOCAL_REFERENCE, ObjectType, ObjDesc);
db2bae30SDana Myers            if (ACPI_FAILURE (Status))
db2bae30SDana Myers            {
db2bae30SDana Myers                return_ACPI_STATUS (Status);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_DATAREFOBJ:  /* Store operator only */
db2bae30SDana Myers            /*
db2bae30SDana Myers             * We don't want to resolve IndexOp reference objects during
db2bae30SDana Myers             * a store because this would be an implicit DeRefOf operation.
db2bae30SDana Myers             * Instead, we just want to store the reference object.
db2bae30SDana Myers             * -- All others must be resolved below.
db2bae30SDana Myers             */
db2bae30SDana Myers            if ((Opcode == AML_STORE_OP) &&
aa2aa9a6SDana Myers                ((*StackPtr)->Common.Type == ACPI_TYPE_LOCAL_REFERENCE) &&
db2bae30SDana Myers                ((*StackPtr)->Reference.Class == ACPI_REFCLASS_INDEX))
db2bae30SDana Myers            {
db2bae30SDana Myers                goto NextOperand;
db2bae30SDana Myers            }
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers            /* All cases covered above */
*385cc6b4SJerry Jelinek
db2bae30SDana Myers            break;
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Resolve this object to a value
db2bae30SDana Myers         */
db2bae30SDana Myers        Status = AcpiExResolveToValue (StackPtr, WalkState);
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (Status);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Get the resolved object */
db2bae30SDana Myers
db2bae30SDana Myers        ObjDesc = *StackPtr;
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Check the resulting object (value) type
db2bae30SDana Myers         */
db2bae30SDana Myers        switch (ThisArgType)
db2bae30SDana Myers        {
db2bae30SDana Myers        /*
db2bae30SDana Myers         * For the simple cases, only one type of resolved object
db2bae30SDana Myers         * is allowed
db2bae30SDana Myers         */
db2bae30SDana Myers        case ARGI_MUTEX:
db2bae30SDana Myers
db2bae30SDana Myers            /* Need an operand of type ACPI_TYPE_MUTEX */
db2bae30SDana Myers
db2bae30SDana Myers            TypeNeeded = ACPI_TYPE_MUTEX;
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_EVENT:
db2bae30SDana Myers
db2bae30SDana Myers            /* Need an operand of type ACPI_TYPE_EVENT */
db2bae30SDana Myers
db2bae30SDana Myers            TypeNeeded = ACPI_TYPE_EVENT;
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_PACKAGE:   /* Package */
db2bae30SDana Myers
db2bae30SDana Myers            /* Need an operand of type ACPI_TYPE_PACKAGE */
db2bae30SDana Myers
db2bae30SDana Myers            TypeNeeded = ACPI_TYPE_PACKAGE;
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_ANYTYPE:
db2bae30SDana Myers
db2bae30SDana Myers            /* Any operand type will do */
db2bae30SDana Myers
db2bae30SDana Myers            TypeNeeded = ACPI_TYPE_ANY;
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_DDBHANDLE:
db2bae30SDana Myers
db2bae30SDana Myers            /* Need an operand of type ACPI_TYPE_DDB_HANDLE */
db2bae30SDana Myers
db2bae30SDana Myers            TypeNeeded = ACPI_TYPE_LOCAL_REFERENCE;
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * The more complex cases allow multiple resolved object types
db2bae30SDana Myers         */
db2bae30SDana Myers        case ARGI_INTEGER:
db2bae30SDana Myers
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Need an operand of type ACPI_TYPE_INTEGER,
db2bae30SDana Myers             * But we can implicitly convert from a STRING or BUFFER
db2bae30SDana Myers             * Aka - "Implicit Source Operand Conversion"
db2bae30SDana Myers             */
db2bae30SDana Myers            Status = AcpiExConvertToInteger (ObjDesc, StackPtr, 16);
db2bae30SDana Myers            if (ACPI_FAILURE (Status))
db2bae30SDana Myers            {
db2bae30SDana Myers                if (Status == AE_TYPE)
db2bae30SDana Myers                {
db2bae30SDana Myers                    ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers                        "Needed [Integer/String/Buffer], found [%s] %p",
db2bae30SDana Myers                        AcpiUtGetObjectTypeName (ObjDesc), ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                    return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers                }
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (Status);
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            if (ObjDesc != *StackPtr)
db2bae30SDana Myers            {
db2bae30SDana Myers                AcpiUtRemoveReference (ObjDesc);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_BUFFER:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Need an operand of type ACPI_TYPE_BUFFER,
db2bae30SDana Myers             * But we can implicitly convert from a STRING or INTEGER
db2bae30SDana Myers             * Aka - "Implicit Source Operand Conversion"
db2bae30SDana Myers             */
db2bae30SDana Myers            Status = AcpiExConvertToBuffer (ObjDesc, StackPtr);
db2bae30SDana Myers            if (ACPI_FAILURE (Status))
db2bae30SDana Myers            {
db2bae30SDana Myers                if (Status == AE_TYPE)
db2bae30SDana Myers                {
db2bae30SDana Myers                    ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers                        "Needed [Integer/String/Buffer], found [%s] %p",
db2bae30SDana Myers                        AcpiUtGetObjectTypeName (ObjDesc), ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                    return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers                }
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (Status);
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            if (ObjDesc != *StackPtr)
db2bae30SDana Myers            {
db2bae30SDana Myers                AcpiUtRemoveReference (ObjDesc);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_STRING:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Need an operand of type ACPI_TYPE_STRING,
db2bae30SDana Myers             * But we can implicitly convert from a BUFFER or INTEGER
db2bae30SDana Myers             * Aka - "Implicit Source Operand Conversion"
db2bae30SDana Myers             */
*385cc6b4SJerry Jelinek            Status = AcpiExConvertToString (
*385cc6b4SJerry Jelinek                ObjDesc, StackPtr, ACPI_IMPLICIT_CONVERT_HEX);
db2bae30SDana Myers            if (ACPI_FAILURE (Status))
db2bae30SDana Myers            {
db2bae30SDana Myers                if (Status == AE_TYPE)
db2bae30SDana Myers                {
db2bae30SDana Myers                    ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers                        "Needed [Integer/String/Buffer], found [%s] %p",
db2bae30SDana Myers                        AcpiUtGetObjectTypeName (ObjDesc), ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                    return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers                }
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (Status);
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            if (ObjDesc != *StackPtr)
db2bae30SDana Myers            {
db2bae30SDana Myers                AcpiUtRemoveReference (ObjDesc);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_COMPUTEDATA:
db2bae30SDana Myers
db2bae30SDana Myers            /* Need an operand of type INTEGER, STRING or BUFFER */
db2bae30SDana Myers
aa2aa9a6SDana Myers            switch (ObjDesc->Common.Type)
db2bae30SDana Myers            {
db2bae30SDana Myers            case ACPI_TYPE_INTEGER:
db2bae30SDana Myers            case ACPI_TYPE_STRING:
db2bae30SDana Myers            case ACPI_TYPE_BUFFER:
db2bae30SDana Myers
db2bae30SDana Myers                /* Valid operand */
db2bae30SDana Myers               break;
db2bae30SDana Myers
db2bae30SDana Myers            default:
db2bae30SDana Myers                ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers                    "Needed [Integer/String/Buffer], found [%s] %p",
db2bae30SDana Myers                    AcpiUtGetObjectTypeName (ObjDesc), ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_BUFFER_OR_STRING:
db2bae30SDana Myers
db2bae30SDana Myers            /* Need an operand of type STRING or BUFFER */
db2bae30SDana Myers
aa2aa9a6SDana Myers            switch (ObjDesc->Common.Type)
db2bae30SDana Myers            {
db2bae30SDana Myers            case ACPI_TYPE_STRING:
db2bae30SDana Myers            case ACPI_TYPE_BUFFER:
db2bae30SDana Myers
db2bae30SDana Myers                /* Valid operand */
db2bae30SDana Myers               break;
db2bae30SDana Myers
db2bae30SDana Myers            case ACPI_TYPE_INTEGER:
db2bae30SDana Myers
db2bae30SDana Myers                /* Highest priority conversion is to type Buffer */
db2bae30SDana Myers
db2bae30SDana Myers                Status = AcpiExConvertToBuffer (ObjDesc, StackPtr);
db2bae30SDana Myers                if (ACPI_FAILURE (Status))
db2bae30SDana Myers                {
db2bae30SDana Myers                    return_ACPI_STATUS (Status);
db2bae30SDana Myers                }
db2bae30SDana Myers
db2bae30SDana Myers                if (ObjDesc != *StackPtr)
db2bae30SDana Myers                {
db2bae30SDana Myers                    AcpiUtRemoveReference (ObjDesc);
db2bae30SDana Myers                }
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            default:
db2bae30SDana Myers                ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers                    "Needed [Integer/String/Buffer], found [%s] %p",
db2bae30SDana Myers                    AcpiUtGetObjectTypeName (ObjDesc), ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_DATAOBJECT:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * ARGI_DATAOBJECT is only used by the SizeOf operator.
db2bae30SDana Myers             * Need a buffer, string, package, or RefOf reference.
db2bae30SDana Myers             *
db2bae30SDana Myers             * The only reference allowed here is a direct reference to
db2bae30SDana Myers             * a namespace node.
db2bae30SDana Myers             */
aa2aa9a6SDana Myers            switch (ObjDesc->Common.Type)
db2bae30SDana Myers            {
db2bae30SDana Myers            case ACPI_TYPE_PACKAGE:
db2bae30SDana Myers            case ACPI_TYPE_STRING:
db2bae30SDana Myers            case ACPI_TYPE_BUFFER:
db2bae30SDana Myers            case ACPI_TYPE_LOCAL_REFERENCE:
db2bae30SDana Myers
db2bae30SDana Myers                /* Valid operand */
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers                ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers                    "Needed [Buffer/String/Package/Reference], found [%s] %p",
db2bae30SDana Myers                    AcpiUtGetObjectTypeName (ObjDesc), ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_COMPLEXOBJ:
db2bae30SDana Myers
db2bae30SDana Myers            /* Need a buffer or package or (ACPI 2.0) String */
db2bae30SDana Myers
aa2aa9a6SDana Myers            switch (ObjDesc->Common.Type)
db2bae30SDana Myers            {
db2bae30SDana Myers            case ACPI_TYPE_PACKAGE:
db2bae30SDana Myers            case ACPI_TYPE_STRING:
db2bae30SDana Myers            case ACPI_TYPE_BUFFER:
db2bae30SDana Myers
db2bae30SDana Myers                /* Valid operand */
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers                ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers                    "Needed [Buffer/String/Package], found [%s] %p",
db2bae30SDana Myers                    AcpiUtGetObjectTypeName (ObjDesc), ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_REGION_OR_BUFFER: /* Used by Load() only */
db2bae30SDana Myers
*385cc6b4SJerry Jelinek            /*
*385cc6b4SJerry Jelinek             * Need an operand of type REGION or a BUFFER
*385cc6b4SJerry Jelinek             * (which could be a resolved region field)
*385cc6b4SJerry Jelinek             */
aa2aa9a6SDana Myers            switch (ObjDesc->Common.Type)
db2bae30SDana Myers            {
db2bae30SDana Myers            case ACPI_TYPE_BUFFER:
db2bae30SDana Myers            case ACPI_TYPE_REGION:
db2bae30SDana Myers
db2bae30SDana Myers                /* Valid operand */
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers                ACPI_ERROR ((AE_INFO,
db2bae30SDana Myers                    "Needed [Region/Buffer], found [%s] %p",
db2bae30SDana Myers                    AcpiUtGetObjectTypeName (ObjDesc), ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        case ARGI_DATAREFOBJ:
db2bae30SDana Myers
db2bae30SDana Myers            /* Used by the Store() operator only */
db2bae30SDana Myers
aa2aa9a6SDana Myers            switch (ObjDesc->Common.Type)
db2bae30SDana Myers            {
db2bae30SDana Myers            case ACPI_TYPE_INTEGER:
db2bae30SDana Myers            case ACPI_TYPE_PACKAGE:
db2bae30SDana Myers            case ACPI_TYPE_STRING:
db2bae30SDana Myers            case ACPI_TYPE_BUFFER:
db2bae30SDana Myers            case ACPI_TYPE_BUFFER_FIELD:
db2bae30SDana Myers            case ACPI_TYPE_LOCAL_REFERENCE:
db2bae30SDana Myers            case ACPI_TYPE_LOCAL_REGION_FIELD:
db2bae30SDana Myers            case ACPI_TYPE_LOCAL_BANK_FIELD:
db2bae30SDana Myers            case ACPI_TYPE_LOCAL_INDEX_FIELD:
db2bae30SDana Myers            case ACPI_TYPE_DDB_HANDLE:
db2bae30SDana Myers
db2bae30SDana Myers                /* Valid operand */
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            default:
db2bae30SDana Myers
db2bae30SDana Myers                if (AcpiGbl_EnableInterpreterSlack)
db2bae30SDana Myers                {
db2bae30SDana Myers                    /*
*385cc6b4SJerry Jelinek                     * Enable original behavior of Store(), allowing any
*385cc6b4SJerry Jelinek                     * and all objects as the source operand. The ACPI
*385cc6b4SJerry Jelinek                     * spec does not allow this, however.
db2bae30SDana Myers                     */
db2bae30SDana Myers                    break;
db2bae30SDana Myers                }
db2bae30SDana Myers
db2bae30SDana Myers                if (TargetOp == AML_DEBUG_OP)
db2bae30SDana Myers                {
db2bae30SDana Myers                    /* Allow store of any object to the Debug object */
db2bae30SDana Myers
db2bae30SDana Myers                    break;
db2bae30SDana Myers                }
db2bae30SDana Myers
db2bae30SDana Myers                ACPI_ERROR ((AE_INFO,
*385cc6b4SJerry Jelinek                    "Needed Integer/Buffer/String/Package/Ref/Ddb]"
*385cc6b4SJerry Jelinek                    ", found [%s] %p",
db2bae30SDana Myers                    AcpiUtGetObjectTypeName (ObjDesc), ObjDesc));
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers            }
db2bae30SDana Myers            goto NextOperand;
db2bae30SDana Myers
db2bae30SDana Myers        default:
db2bae30SDana Myers
db2bae30SDana Myers            /* Unknown type */
db2bae30SDana Myers
db2bae30SDana Myers            ACPI_ERROR ((AE_INFO,
26f3cdf0SGordon Ross                "Internal - Unknown ARGI (required operand) type 0x%X",
db2bae30SDana Myers                ThisArgType));
db2bae30SDana Myers
db2bae30SDana Myers            return_ACPI_STATUS (AE_BAD_PARAMETER);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Make sure that the original object was resolved to the
db2bae30SDana Myers         * required object type (Simple cases only).
db2bae30SDana Myers         */
*385cc6b4SJerry Jelinek        Status = AcpiExCheckObjectType (
*385cc6b4SJerry Jelinek            TypeNeeded, (*StackPtr)->Common.Type, *StackPtr);
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (Status);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana MyersNextOperand:
db2bae30SDana Myers        /*
db2bae30SDana Myers         * If more operands needed, decrement StackPtr to point
db2bae30SDana Myers         * to next operand on stack
db2bae30SDana Myers         */
db2bae30SDana Myers        if (GET_CURRENT_ARG_TYPE (ArgTypes))
db2bae30SDana Myers        {
db2bae30SDana Myers            StackPtr--;
db2bae30SDana Myers        }
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_DUMP_OPERANDS (WalkState->Operands,
db2bae30SDana Myers        AcpiPsGetOpcodeName (Opcode), WalkState->NumOperands);
db2bae30SDana Myers
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers}