acpica/dispatcher/dsobject.c

db2bae30SDana Myers/******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * Module Name: dsobject - Dispatcher object management routines
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 "acnamesp.h"
db2bae30SDana Myers#include "acinterp.h"
db2bae30SDana Myers
db2bae30SDana Myers#define _COMPONENT          ACPI_DISPATCHER
db2bae30SDana Myers        ACPI_MODULE_NAME    ("dsobject")
db2bae30SDana Myers
db2bae30SDana Myers/* Local prototypes */
db2bae30SDana Myers
db2bae30SDana Myersstatic ACPI_STATUS
db2bae30SDana MyersAcpiDsBuildInternalObject (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState,
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Op,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **ObjDescPtr);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers#ifndef ACPI_NO_METHOD_EXECUTION
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsBuildInternalObject
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState       - Current walk state
db2bae30SDana Myers *              Op              - Parser object to be translated
db2bae30SDana Myers *              ObjDescPtr      - Where the ACPI internal object is returned
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Translate a parser Op object to the equivalent namespace object
db2bae30SDana Myers *              Simple objects are any objects other than a package object!
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana Myersstatic ACPI_STATUS
db2bae30SDana MyersAcpiDsBuildInternalObject (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState,
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Op,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **ObjDescPtr)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc;
db2bae30SDana Myers    ACPI_STATUS             Status;
26f3cdf0SGordon Ross    ACPI_OBJECT_TYPE        Type;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE (DsBuildInternalObject);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    *ObjDescPtr = NULL;
db2bae30SDana Myers    if (Op->Common.AmlOpcode == AML_INT_NAMEPATH_OP)
db2bae30SDana Myers    {
db2bae30SDana Myers        /*
db2bae30SDana Myers         * This is a named object reference. If this name was
db2bae30SDana Myers         * previously looked up in the namespace, it was stored in this op.
db2bae30SDana Myers         * Otherwise, go ahead and look it up now
db2bae30SDana Myers         */
db2bae30SDana Myers        if (!Op->Common.Node)
db2bae30SDana Myers        {
db2bae30SDana Myers            Status = AcpiNsLookup (WalkState->ScopeInfo,
db2bae30SDana Myers                Op->Common.Value.String,
db2bae30SDana Myers                ACPI_TYPE_ANY, ACPI_IMODE_EXECUTE,
db2bae30SDana Myers                ACPI_NS_SEARCH_PARENT | ACPI_NS_DONT_OPEN_SCOPE, NULL,
db2bae30SDana Myers                ACPI_CAST_INDIRECT_PTR (ACPI_NAMESPACE_NODE, &(Op->Common.Node)));
db2bae30SDana Myers            if (ACPI_FAILURE (Status))
db2bae30SDana Myers            {
db2bae30SDana Myers                /* Check if we are resolving a named reference within a package */
db2bae30SDana Myers
db2bae30SDana Myers                if ((Status == AE_NOT_FOUND) && (AcpiGbl_EnableInterpreterSlack) &&
db2bae30SDana Myers
db2bae30SDana Myers                    ((Op->Common.Parent->Common.AmlOpcode == AML_PACKAGE_OP) ||
db2bae30SDana Myers                     (Op->Common.Parent->Common.AmlOpcode == AML_VAR_PACKAGE_OP)))
db2bae30SDana Myers                {
db2bae30SDana Myers                    /*
db2bae30SDana Myers                     * We didn't find the target and we are populating elements
db2bae30SDana Myers                     * of a package - ignore if slack enabled. Some ASL code
db2bae30SDana Myers                     * contains dangling invalid references in packages and
db2bae30SDana Myers                     * expects that no exception will be issued. Leave the
db2bae30SDana Myers                     * element as a null element. It cannot be used, but it
db2bae30SDana Myers                     * can be overwritten by subsequent ASL code - this is
db2bae30SDana Myers                     * typically the case.
db2bae30SDana Myers                     */
db2bae30SDana Myers                    ACPI_DEBUG_PRINT ((ACPI_DB_INFO,
db2bae30SDana Myers                        "Ignoring unresolved reference in package [%4.4s]\n",
db2bae30SDana Myers                        WalkState->ScopeInfo->Scope.Node->Name.Ascii));
db2bae30SDana Myers
db2bae30SDana Myers                    return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers                }
db2bae30SDana Myers                else
db2bae30SDana Myers                {
db2bae30SDana Myers                    ACPI_ERROR_NAMESPACE (Op->Common.Value.String, Status);
db2bae30SDana Myers                }
db2bae30SDana Myers
db2bae30SDana Myers                return_ACPI_STATUS (Status);
db2bae30SDana Myers            }
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Special object resolution for elements of a package */
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        {
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Attempt to resolve the node to a value before we insert it into
db2bae30SDana Myers             * the package. If this is a reference to a common data type,
db2bae30SDana Myers             * resolve it immediately. According to the ACPI spec, package
db2bae30SDana Myers             * elements can only be "data objects" or method references.
db2bae30SDana Myers             * Attempt to resolve to an Integer, Buffer, String or Package.
db2bae30SDana Myers             * If cannot, return the named reference (for things like Devices,
db2bae30SDana Myers             * Methods, etc.) Buffer Fields and Fields will resolve to simple
db2bae30SDana Myers             * objects (int/buf/str/pkg).
db2bae30SDana Myers             *
db2bae30SDana Myers             * NOTE: References to things like Devices, Methods, Mutexes, etc.
db2bae30SDana Myers             * will remain as named references. This behavior is not described
db2bae30SDana Myers             * in the ACPI spec, but it appears to be an oversight.
db2bae30SDana Myers             */
db2bae30SDana Myers            ObjDesc = ACPI_CAST_PTR (ACPI_OPERAND_OBJECT, Op->Common.Node);
db2bae30SDana Myers
db2bae30SDana Myers            Status = AcpiExResolveNodeToValue (
db2bae30SDana Myers                ACPI_CAST_INDIRECT_PTR (ACPI_NAMESPACE_NODE, &ObjDesc),
db2bae30SDana Myers                WalkState);
db2bae30SDana Myers            if (ACPI_FAILURE (Status))
db2bae30SDana Myers            {
db2bae30SDana Myers                return_ACPI_STATUS (Status);
db2bae30SDana Myers            }
db2bae30SDana Myers
26f3cdf0SGordon Ross            /*
26f3cdf0SGordon Ross             * Special handling for Alias objects. We need to setup the type
26f3cdf0SGordon Ross             * and the Op->Common.Node to point to the Alias target. Note,
26f3cdf0SGordon Ross             * Alias has at most one level of indirection internally.
26f3cdf0SGordon Ross             */
26f3cdf0SGordon Ross            Type = Op->Common.Node->Type;
26f3cdf0SGordon Ross            if (Type == ACPI_TYPE_LOCAL_ALIAS)
26f3cdf0SGordon Ross            {
26f3cdf0SGordon Ross                Type = ObjDesc->Common.Type;
26f3cdf0SGordon Ross                Op->Common.Node = ACPI_CAST_PTR (ACPI_NAMESPACE_NODE,
26f3cdf0SGordon Ross                    Op->Common.Node->Object);
26f3cdf0SGordon Ross            }
26f3cdf0SGordon Ross
26f3cdf0SGordon Ross            switch (Type)
db2bae30SDana Myers            {
db2bae30SDana Myers            /*
db2bae30SDana Myers             * For these types, we need the actual node, not the subobject.
db2bae30SDana Myers             * However, the subobject did not get an extra reference count above.
db2bae30SDana Myers             *
db2bae30SDana Myers             * TBD: should ExResolveNodeToValue be changed to fix this?
db2bae30SDana Myers             */
db2bae30SDana Myers            case ACPI_TYPE_DEVICE:
db2bae30SDana Myers            case ACPI_TYPE_THERMAL:
db2bae30SDana Myers
db2bae30SDana Myers                AcpiUtAddReference (Op->Common.Node->Object);
db2bae30SDana Myers
db2bae30SDana Myers                /*lint -fallthrough */
db2bae30SDana Myers            /*
db2bae30SDana Myers             * For these types, we need the actual node, not the subobject.
db2bae30SDana Myers             * The subobject got an extra reference count in ExResolveNodeToValue.
db2bae30SDana Myers             */
db2bae30SDana Myers            case ACPI_TYPE_MUTEX:
db2bae30SDana Myers            case ACPI_TYPE_METHOD:
db2bae30SDana Myers            case ACPI_TYPE_POWER:
db2bae30SDana Myers            case ACPI_TYPE_PROCESSOR:
db2bae30SDana Myers            case ACPI_TYPE_EVENT:
db2bae30SDana Myers            case ACPI_TYPE_REGION:
db2bae30SDana Myers
db2bae30SDana Myers                /* We will create a reference object for these types below */
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            default:
db2bae30SDana Myers                /*
db2bae30SDana Myers                 * All other types - the node was resolved to an actual
db2bae30SDana Myers                 * object, we are done.
db2bae30SDana Myers                 */
db2bae30SDana Myers                goto Exit;
db2bae30SDana Myers            }
db2bae30SDana Myers        }
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Create and init a new internal ACPI object */
db2bae30SDana Myers
db2bae30SDana Myers    ObjDesc = AcpiUtCreateInternalObject (
db2bae30SDana Myers        (AcpiPsGetOpcodeInfo (Op->Common.AmlOpcode))->ObjectType);
db2bae30SDana Myers    if (!ObjDesc)
db2bae30SDana Myers    {
db2bae30SDana Myers        return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers    }
db2bae30SDana Myers
*385cc6b4SJerry Jelinek    Status = AcpiDsInitObjectFromOp (
*385cc6b4SJerry Jelinek        WalkState, Op, Op->Common.AmlOpcode, &ObjDesc);
db2bae30SDana Myers    if (ACPI_FAILURE (Status))
db2bae30SDana Myers    {
db2bae30SDana Myers        AcpiUtRemoveReference (ObjDesc);
db2bae30SDana Myers        return_ACPI_STATUS (Status);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana MyersExit:
db2bae30SDana Myers    *ObjDescPtr = ObjDesc;
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsBuildInternalBufferObj
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState       - Current walk state
db2bae30SDana Myers *              Op              - Parser object to be translated
db2bae30SDana Myers *              BufferLength    - Length of the buffer
db2bae30SDana Myers *              ObjDescPtr      - Where the ACPI internal object is returned
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Translate a parser Op package object to the equivalent
db2bae30SDana Myers *              namespace object
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiDsBuildInternalBufferObj (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState,
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Op,
db2bae30SDana Myers    UINT32                  BufferLength,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **ObjDescPtr)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Arg;
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc;
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *ByteList;
db2bae30SDana Myers    UINT32                  ByteListLength = 0;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE (DsBuildInternalBufferObj);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * If we are evaluating a Named buffer object "Name (xxxx, Buffer)".
db2bae30SDana Myers     * The buffer object already exists (from the NS node), otherwise it must
db2bae30SDana Myers     * be created.
db2bae30SDana Myers     */
db2bae30SDana Myers    ObjDesc = *ObjDescPtr;
db2bae30SDana Myers    if (!ObjDesc)
db2bae30SDana Myers    {
db2bae30SDana Myers        /* Create a new buffer object */
db2bae30SDana Myers
db2bae30SDana Myers        ObjDesc = AcpiUtCreateInternalObject (ACPI_TYPE_BUFFER);
db2bae30SDana Myers        *ObjDescPtr = ObjDesc;
db2bae30SDana Myers        if (!ObjDesc)
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers        }
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Second arg is the buffer data (optional) ByteList can be either
db2bae30SDana Myers     * individual bytes or a string initializer. In either case, a
db2bae30SDana Myers     * ByteList appears in the AML.
db2bae30SDana Myers     */
db2bae30SDana Myers    Arg = Op->Common.Value.Arg;         /* skip first arg */
db2bae30SDana Myers
db2bae30SDana Myers    ByteList = Arg->Named.Next;
db2bae30SDana Myers    if (ByteList)
db2bae30SDana Myers    {
db2bae30SDana Myers        if (ByteList->Common.AmlOpcode != AML_INT_BYTELIST_OP)
db2bae30SDana Myers        {
db2bae30SDana Myers            ACPI_ERROR ((AE_INFO,
26f3cdf0SGordon Ross                "Expecting bytelist, found AML opcode 0x%X in op %p",
db2bae30SDana Myers                ByteList->Common.AmlOpcode, ByteList));
db2bae30SDana Myers
db2bae30SDana Myers            AcpiUtRemoveReference (ObjDesc);
db2bae30SDana Myers            return (AE_TYPE);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        ByteListLength = (UINT32) ByteList->Common.Value.Integer;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * The buffer length (number of bytes) will be the larger of:
db2bae30SDana Myers     * 1) The specified buffer length and
db2bae30SDana Myers     * 2) The length of the initializer byte list
db2bae30SDana Myers     */
db2bae30SDana Myers    ObjDesc->Buffer.Length = BufferLength;
db2bae30SDana Myers    if (ByteListLength > BufferLength)
db2bae30SDana Myers    {
db2bae30SDana Myers        ObjDesc->Buffer.Length = ByteListLength;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Allocate the buffer */
db2bae30SDana Myers
db2bae30SDana Myers    if (ObjDesc->Buffer.Length == 0)
db2bae30SDana Myers    {
db2bae30SDana Myers        ObjDesc->Buffer.Pointer = NULL;
db2bae30SDana Myers        ACPI_DEBUG_PRINT ((ACPI_DB_EXEC,
db2bae30SDana Myers            "Buffer defined with zero length in AML, creating\n"));
db2bae30SDana Myers    }
db2bae30SDana Myers    else
db2bae30SDana Myers    {
*385cc6b4SJerry Jelinek        ObjDesc->Buffer.Pointer =
*385cc6b4SJerry Jelinek            ACPI_ALLOCATE_ZEROED (ObjDesc->Buffer.Length);
db2bae30SDana Myers        if (!ObjDesc->Buffer.Pointer)
db2bae30SDana Myers        {
db2bae30SDana Myers            AcpiUtDeleteObjectDesc (ObjDesc);
db2bae30SDana Myers            return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Initialize buffer from the ByteList (if present) */
db2bae30SDana Myers
db2bae30SDana Myers        if (ByteList)
db2bae30SDana Myers        {
*385cc6b4SJerry Jelinek            memcpy (ObjDesc->Buffer.Pointer, ByteList->Named.Data,
db2bae30SDana Myers                ByteListLength);
db2bae30SDana Myers        }
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    ObjDesc->Buffer.Flags |= AOPOBJ_DATA_VALID;
db2bae30SDana Myers    Op->Common.Node = ACPI_CAST_PTR (ACPI_NAMESPACE_NODE, ObjDesc);
db2bae30SDana Myers    return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsBuildInternalPackageObj
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState       - Current walk state
db2bae30SDana Myers *              Op              - Parser object to be translated
db2bae30SDana Myers *              ElementCount    - Number of elements in the package - this is
db2bae30SDana Myers *                                the NumElements argument to Package()
db2bae30SDana Myers *              ObjDescPtr      - Where the ACPI internal object is returned
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Translate a parser Op package object to the equivalent
db2bae30SDana Myers *              namespace object
db2bae30SDana Myers *
db2bae30SDana Myers * NOTE: The number of elements in the package will be always be the NumElements
db2bae30SDana Myers * count, regardless of the number of elements in the package list. If
db2bae30SDana Myers * NumElements is smaller, only that many package list elements are used.
db2bae30SDana Myers * if NumElements is larger, the Package object is padded out with
db2bae30SDana Myers * objects of type Uninitialized (as per ACPI spec.)
db2bae30SDana Myers *
db2bae30SDana Myers * Even though the ASL compilers do not allow NumElements to be smaller
db2bae30SDana Myers * than the Package list length (for the fixed length package opcode), some
db2bae30SDana Myers * BIOS code modifies the AML on the fly to adjust the NumElements, and
db2bae30SDana Myers * this code compensates for that. This also provides compatibility with
db2bae30SDana Myers * other AML interpreters.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiDsBuildInternalPackageObj (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState,
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Op,
db2bae30SDana Myers    UINT32                  ElementCount,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **ObjDescPtr)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Arg;
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Parent;
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc = NULL;
db2bae30SDana Myers    ACPI_STATUS             Status = AE_OK;
db2bae30SDana Myers    UINT32                  i;
db2bae30SDana Myers    UINT16                  Index;
db2bae30SDana Myers    UINT16                  ReferenceCount;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE (DsBuildInternalPackageObj);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /* Find the parent of a possibly nested package */
db2bae30SDana Myers
db2bae30SDana Myers    Parent = Op->Common.Parent;
db2bae30SDana Myers    while ((Parent->Common.AmlOpcode == AML_PACKAGE_OP) ||
db2bae30SDana Myers           (Parent->Common.AmlOpcode == AML_VAR_PACKAGE_OP))
db2bae30SDana Myers    {
db2bae30SDana Myers        Parent = Parent->Common.Parent;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * If we are evaluating a Named package object "Name (xxxx, Package)",
db2bae30SDana Myers     * the package object already exists, otherwise it must be created.
db2bae30SDana Myers     */
db2bae30SDana Myers    ObjDesc = *ObjDescPtr;
db2bae30SDana Myers    if (!ObjDesc)
db2bae30SDana Myers    {
db2bae30SDana Myers        ObjDesc = AcpiUtCreateInternalObject (ACPI_TYPE_PACKAGE);
db2bae30SDana Myers        *ObjDescPtr = ObjDesc;
db2bae30SDana Myers        if (!ObjDesc)
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        ObjDesc->Package.Node = Parent->Common.Node;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Allocate the element array (array of pointers to the individual
db2bae30SDana Myers     * objects) based on the NumElements parameter. Add an extra pointer slot
db2bae30SDana Myers     * so that the list is always null terminated.
db2bae30SDana Myers     */
db2bae30SDana Myers    ObjDesc->Package.Elements = ACPI_ALLOCATE_ZEROED (
db2bae30SDana Myers        ((ACPI_SIZE) ElementCount + 1) * sizeof (void *));
db2bae30SDana Myers
db2bae30SDana Myers    if (!ObjDesc->Package.Elements)
db2bae30SDana Myers    {
db2bae30SDana Myers        AcpiUtDeleteObjectDesc (ObjDesc);
db2bae30SDana Myers        return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    ObjDesc->Package.Count = ElementCount;
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Initialize the elements of the package, up to the NumElements count.
db2bae30SDana Myers     * Package is automatically padded with uninitialized (NULL) elements
db2bae30SDana Myers     * if NumElements is greater than the package list length. Likewise,
db2bae30SDana Myers     * Package is truncated if NumElements is less than the list length.
db2bae30SDana Myers     */
db2bae30SDana Myers    Arg = Op->Common.Value.Arg;
db2bae30SDana Myers    Arg = Arg->Common.Next;
db2bae30SDana Myers    for (i = 0; Arg && (i < ElementCount); i++)
db2bae30SDana Myers    {
db2bae30SDana Myers        if (Arg->Common.AmlOpcode == AML_INT_RETURN_VALUE_OP)
db2bae30SDana Myers        {
db2bae30SDana Myers            if (Arg->Common.Node->Type == ACPI_TYPE_METHOD)
db2bae30SDana Myers            {
db2bae30SDana Myers                /*
db2bae30SDana Myers                 * A method reference "looks" to the parser to be a method
db2bae30SDana Myers                 * invocation, so we special case it here
db2bae30SDana Myers                 */
db2bae30SDana Myers                Arg->Common.AmlOpcode = AML_INT_NAMEPATH_OP;
*385cc6b4SJerry Jelinek                Status = AcpiDsBuildInternalObject (
*385cc6b4SJerry Jelinek                    WalkState, Arg, &ObjDesc->Package.Elements[i]);
db2bae30SDana Myers            }
db2bae30SDana Myers            else
db2bae30SDana Myers            {
db2bae30SDana Myers                /* This package element is already built, just get it */
db2bae30SDana Myers
db2bae30SDana Myers                ObjDesc->Package.Elements[i] =
db2bae30SDana Myers                    ACPI_CAST_PTR (ACPI_OPERAND_OBJECT, Arg->Common.Node);
db2bae30SDana Myers            }
db2bae30SDana Myers        }
db2bae30SDana Myers        else
db2bae30SDana Myers        {
*385cc6b4SJerry Jelinek            Status = AcpiDsBuildInternalObject (
*385cc6b4SJerry Jelinek                WalkState, Arg, &ObjDesc->Package.Elements[i]);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        if (*ObjDescPtr)
db2bae30SDana Myers        {
db2bae30SDana Myers            /* Existing package, get existing reference count */
db2bae30SDana Myers
db2bae30SDana Myers            ReferenceCount = (*ObjDescPtr)->Common.ReferenceCount;
db2bae30SDana Myers            if (ReferenceCount > 1)
db2bae30SDana Myers            {
db2bae30SDana Myers                /* Make new element ref count match original ref count */
db2bae30SDana Myers
db2bae30SDana Myers                for (Index = 0; Index < (ReferenceCount - 1); Index++)
db2bae30SDana Myers                {
db2bae30SDana Myers                    AcpiUtAddReference ((ObjDesc->Package.Elements[i]));
db2bae30SDana Myers                }
db2bae30SDana Myers            }
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        Arg = Arg->Common.Next;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Check for match between NumElements and actual length of PackageList */
db2bae30SDana Myers
db2bae30SDana Myers    if (Arg)
db2bae30SDana Myers    {
db2bae30SDana Myers        /*
db2bae30SDana Myers         * NumElements was exhausted, but there are remaining elements in the
57190917SDana Myers         * PackageList. Truncate the package to NumElements.
db2bae30SDana Myers         *
db2bae30SDana Myers         * Note: technically, this is an error, from ACPI spec: "It is an error
db2bae30SDana Myers         * for NumElements to be less than the number of elements in the
57190917SDana Myers         * PackageList". However, we just print a message and
57190917SDana Myers         * no exception is returned. This provides Windows compatibility. Some
57190917SDana Myers         * BIOSs will alter the NumElements on the fly, creating this type
57190917SDana Myers         * of ill-formed package object.
db2bae30SDana Myers         */
db2bae30SDana Myers        while (Arg)
db2bae30SDana Myers        {
57190917SDana Myers            /*
57190917SDana Myers             * We must delete any package elements that were created earlier
57190917SDana Myers             * and are not going to be used because of the package truncation.
57190917SDana Myers             */
57190917SDana Myers            if (Arg->Common.Node)
57190917SDana Myers            {
57190917SDana Myers                AcpiUtRemoveReference (
57190917SDana Myers                    ACPI_CAST_PTR (ACPI_OPERAND_OBJECT, Arg->Common.Node));
57190917SDana Myers                Arg->Common.Node = NULL;
57190917SDana Myers            }
57190917SDana Myers
db2bae30SDana Myers            /* Find out how many elements there really are */
db2bae30SDana Myers
db2bae30SDana Myers            i++;
db2bae30SDana Myers            Arg = Arg->Common.Next;
db2bae30SDana Myers        }
db2bae30SDana Myers
*385cc6b4SJerry Jelinek        ACPI_INFO ((
*385cc6b4SJerry Jelinek            "Actual Package length (%u) is larger than "
*385cc6b4SJerry Jelinek            "NumElements field (%u), truncated",
db2bae30SDana Myers            i, ElementCount));
db2bae30SDana Myers    }
db2bae30SDana Myers    else if (i < ElementCount)
db2bae30SDana Myers    {
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Arg list (elements) was exhausted, but we did not reach NumElements count.
db2bae30SDana Myers         * Note: this is not an error, the package is padded out with NULLs.
db2bae30SDana Myers         */
db2bae30SDana Myers        ACPI_DEBUG_PRINT ((ACPI_DB_INFO,
*385cc6b4SJerry Jelinek            "Package List length (%u) smaller than NumElements "
*385cc6b4SJerry Jelinek            "count (%u), padded with null elements\n",
db2bae30SDana Myers            i, ElementCount));
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    ObjDesc->Package.Flags |= AOPOBJ_DATA_VALID;
db2bae30SDana Myers    Op->Common.Node = ACPI_CAST_PTR (ACPI_NAMESPACE_NODE, ObjDesc);
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsCreateNode
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState       - Current walk state
db2bae30SDana Myers *              Node            - NS Node to be initialized
db2bae30SDana Myers *              Op              - Parser object to be translated
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Create the object to be associated with a namespace node
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiDsCreateNode (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState,
db2bae30SDana Myers    ACPI_NAMESPACE_NODE     *Node,
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Op)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_STATUS             Status;
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (DsCreateNode, Op);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Because of the execution pass through the non-control-method
db2bae30SDana Myers     * parts of the table, we can arrive here twice. Only init
db2bae30SDana Myers     * the named object node the first time through
db2bae30SDana Myers     */
db2bae30SDana Myers    if (AcpiNsGetAttachedObject (Node))
db2bae30SDana Myers    {
db2bae30SDana Myers        return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    if (!Op->Common.Value.Arg)
db2bae30SDana Myers    {
db2bae30SDana Myers        /* No arguments, there is nothing to do */
db2bae30SDana Myers
db2bae30SDana Myers        return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Build an internal object for the argument(s) */
db2bae30SDana Myers
*385cc6b4SJerry Jelinek    Status = AcpiDsBuildInternalObject (
*385cc6b4SJerry Jelinek        WalkState, Op->Common.Value.Arg, &ObjDesc);
db2bae30SDana Myers    if (ACPI_FAILURE (Status))
db2bae30SDana Myers    {
db2bae30SDana Myers        return_ACPI_STATUS (Status);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Re-type the object according to its argument */
db2bae30SDana Myers
aa2aa9a6SDana Myers    Node->Type = ObjDesc->Common.Type;
db2bae30SDana Myers
db2bae30SDana Myers    /* Attach obj to node */
db2bae30SDana Myers
db2bae30SDana Myers    Status = AcpiNsAttachObject (Node, ObjDesc, Node->Type);
db2bae30SDana Myers
db2bae30SDana Myers    /* Remove local reference to the object */
db2bae30SDana Myers
db2bae30SDana Myers    AcpiUtRemoveReference (ObjDesc);
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers#endif /* ACPI_NO_METHOD_EXECUTION */
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiDsInitObjectFromOp
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  WalkState       - Current walk state
db2bae30SDana Myers *              Op              - Parser op used to init the internal object
db2bae30SDana Myers *              Opcode          - AML opcode associated with the object
db2bae30SDana Myers *              RetObjDesc      - Namespace object to be initialized
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Initialize a namespace object from a parser Op and its
db2bae30SDana Myers *              associated arguments. The namespace object is a more compact
db2bae30SDana Myers *              representation of the Op and its arguments.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiDsInitObjectFromOp (
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState,
db2bae30SDana Myers    ACPI_PARSE_OBJECT       *Op,
db2bae30SDana Myers    UINT16                  Opcode,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **RetObjDesc)
db2bae30SDana Myers{
db2bae30SDana Myers    const ACPI_OPCODE_INFO  *OpInfo;
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc;
db2bae30SDana Myers    ACPI_STATUS             Status = AE_OK;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE (DsInitObjectFromOp);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ObjDesc = *RetObjDesc;
db2bae30SDana Myers    OpInfo = AcpiPsGetOpcodeInfo (Opcode);
db2bae30SDana Myers    if (OpInfo->Class == AML_CLASS_UNKNOWN)
db2bae30SDana Myers    {
db2bae30SDana Myers        /* Unknown opcode */
db2bae30SDana Myers
db2bae30SDana Myers        return_ACPI_STATUS (AE_TYPE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Perform per-object initialization */
db2bae30SDana Myers
aa2aa9a6SDana Myers    switch (ObjDesc->Common.Type)
db2bae30SDana Myers    {
db2bae30SDana Myers    case ACPI_TYPE_BUFFER:
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Defer evaluation of Buffer TermArg operand
db2bae30SDana Myers         */
*385cc6b4SJerry Jelinek        ObjDesc->Buffer.Node = ACPI_CAST_PTR (
*385cc6b4SJerry Jelinek            ACPI_NAMESPACE_NODE, WalkState->Operands[0]);
db2bae30SDana Myers        ObjDesc->Buffer.AmlStart = Op->Named.Data;
db2bae30SDana Myers        ObjDesc->Buffer.AmlLength = Op->Named.Length;
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_PACKAGE:
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Defer evaluation of Package TermArg operand
db2bae30SDana Myers         */
*385cc6b4SJerry Jelinek        ObjDesc->Package.Node = ACPI_CAST_PTR (
*385cc6b4SJerry Jelinek            ACPI_NAMESPACE_NODE, WalkState->Operands[0]);
db2bae30SDana Myers        ObjDesc->Package.AmlStart = Op->Named.Data;
db2bae30SDana Myers        ObjDesc->Package.AmlLength = Op->Named.Length;
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_INTEGER:
db2bae30SDana Myers
db2bae30SDana Myers        switch (OpInfo->Type)
db2bae30SDana Myers        {
db2bae30SDana Myers        case AML_TYPE_CONSTANT:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Resolve AML Constants here - AND ONLY HERE!
db2bae30SDana Myers             * All constants are integers.
db2bae30SDana Myers             * We mark the integer with a flag that indicates that it started
db2bae30SDana Myers             * life as a constant -- so that stores to constants will perform
db2bae30SDana Myers             * as expected (noop). ZeroOp is used as a placeholder for optional
db2bae30SDana Myers             * target operands.
db2bae30SDana Myers             */
db2bae30SDana Myers            ObjDesc->Common.Flags = AOPOBJ_AML_CONSTANT;
db2bae30SDana Myers
db2bae30SDana Myers            switch (Opcode)
db2bae30SDana Myers            {
db2bae30SDana Myers            case AML_ZERO_OP:
db2bae30SDana Myers
db2bae30SDana Myers                ObjDesc->Integer.Value = 0;
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            case AML_ONE_OP:
db2bae30SDana Myers
db2bae30SDana Myers                ObjDesc->Integer.Value = 1;
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            case AML_ONES_OP:
db2bae30SDana Myers
26f3cdf0SGordon Ross                ObjDesc->Integer.Value = ACPI_UINT64_MAX;
db2bae30SDana Myers
db2bae30SDana Myers                /* Truncate value if we are executing from a 32-bit ACPI table */
db2bae30SDana Myers
db2bae30SDana Myers#ifndef ACPI_NO_METHOD_EXECUTION
*385cc6b4SJerry Jelinek                (void) AcpiExTruncateFor32bitTable (ObjDesc);
db2bae30SDana Myers#endif
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            case AML_REVISION_OP:
db2bae30SDana Myers
db2bae30SDana Myers                ObjDesc->Integer.Value = ACPI_CA_VERSION;
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            default:
db2bae30SDana Myers
db2bae30SDana Myers                ACPI_ERROR ((AE_INFO,
26f3cdf0SGordon Ross                    "Unknown constant opcode 0x%X", Opcode));
db2bae30SDana Myers                Status = AE_AML_OPERAND_TYPE;
db2bae30SDana Myers                break;
db2bae30SDana Myers            }
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case AML_TYPE_LITERAL:
db2bae30SDana Myers
db2bae30SDana Myers            ObjDesc->Integer.Value = Op->Common.Value.Integer;
*385cc6b4SJerry Jelinek
db2bae30SDana Myers#ifndef ACPI_NO_METHOD_EXECUTION
*385cc6b4SJerry Jelinek            if (AcpiExTruncateFor32bitTable (ObjDesc))
*385cc6b4SJerry Jelinek            {
*385cc6b4SJerry Jelinek                /* Warn if we found a 64-bit constant in a 32-bit table */
*385cc6b4SJerry Jelinek
*385cc6b4SJerry Jelinek                ACPI_WARNING ((AE_INFO,
*385cc6b4SJerry Jelinek                    "Truncated 64-bit constant found in 32-bit table: %8.8X%8.8X => %8.8X",
*385cc6b4SJerry Jelinek                    ACPI_FORMAT_UINT64 (Op->Common.Value.Integer),
*385cc6b4SJerry Jelinek                    (UINT32) ObjDesc->Integer.Value));
*385cc6b4SJerry Jelinek            }
db2bae30SDana Myers#endif
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        default:
*385cc6b4SJerry Jelinek
26f3cdf0SGordon Ross            ACPI_ERROR ((AE_INFO, "Unknown Integer type 0x%X",
db2bae30SDana Myers                OpInfo->Type));
db2bae30SDana Myers            Status = AE_AML_OPERAND_TYPE;
db2bae30SDana Myers            break;
db2bae30SDana Myers        }
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_STRING:
db2bae30SDana Myers
db2bae30SDana Myers        ObjDesc->String.Pointer = Op->Common.Value.String;
*385cc6b4SJerry Jelinek        ObjDesc->String.Length = (UINT32) strlen (Op->Common.Value.String);
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * The string is contained in the ACPI table, don't ever try
db2bae30SDana Myers         * to delete it
db2bae30SDana Myers         */
db2bae30SDana Myers        ObjDesc->Common.Flags |= AOPOBJ_STATIC_POINTER;
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_METHOD:
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_LOCAL_REFERENCE:
db2bae30SDana Myers
db2bae30SDana Myers        switch (OpInfo->Type)
db2bae30SDana Myers        {
db2bae30SDana Myers        case AML_TYPE_LOCAL_VARIABLE:
db2bae30SDana Myers
db2bae30SDana Myers            /* Local ID (0-7) is (AML opcode - base AML_LOCAL_OP) */
db2bae30SDana Myers
aa2aa9a6SDana Myers            ObjDesc->Reference.Value = ((UINT32) Opcode) - AML_LOCAL_OP;
db2bae30SDana Myers            ObjDesc->Reference.Class = ACPI_REFCLASS_LOCAL;
db2bae30SDana Myers
db2bae30SDana Myers#ifndef ACPI_NO_METHOD_EXECUTION
db2bae30SDana Myers            Status = AcpiDsMethodDataGetNode (ACPI_REFCLASS_LOCAL,
db2bae30SDana Myers                ObjDesc->Reference.Value, WalkState,
db2bae30SDana Myers                ACPI_CAST_INDIRECT_PTR (ACPI_NAMESPACE_NODE,
db2bae30SDana Myers                    &ObjDesc->Reference.Object));
db2bae30SDana Myers#endif
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case AML_TYPE_METHOD_ARGUMENT:
db2bae30SDana Myers
db2bae30SDana Myers            /* Arg ID (0-6) is (AML opcode - base AML_ARG_OP) */
db2bae30SDana Myers
aa2aa9a6SDana Myers            ObjDesc->Reference.Value = ((UINT32) Opcode) - AML_ARG_OP;
db2bae30SDana Myers            ObjDesc->Reference.Class = ACPI_REFCLASS_ARG;
db2bae30SDana Myers
db2bae30SDana Myers#ifndef ACPI_NO_METHOD_EXECUTION
db2bae30SDana Myers            Status = AcpiDsMethodDataGetNode (ACPI_REFCLASS_ARG,
db2bae30SDana Myers                ObjDesc->Reference.Value, WalkState,
db2bae30SDana Myers                ACPI_CAST_INDIRECT_PTR (ACPI_NAMESPACE_NODE,
db2bae30SDana Myers                    &ObjDesc->Reference.Object));
db2bae30SDana Myers#endif
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        default: /* Object name or Debug object */
db2bae30SDana Myers
db2bae30SDana Myers            switch (Op->Common.AmlOpcode)
db2bae30SDana Myers            {
db2bae30SDana Myers            case AML_INT_NAMEPATH_OP:
db2bae30SDana Myers
db2bae30SDana Myers                /* Node was saved in Op */
db2bae30SDana Myers
db2bae30SDana Myers                ObjDesc->Reference.Node = Op->Common.Node;
db2bae30SDana Myers                ObjDesc->Reference.Object = Op->Common.Node->Object;
db2bae30SDana Myers                ObjDesc->Reference.Class = ACPI_REFCLASS_NAME;
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            case AML_DEBUG_OP:
db2bae30SDana Myers
db2bae30SDana Myers                ObjDesc->Reference.Class = ACPI_REFCLASS_DEBUG;
db2bae30SDana Myers                break;
db2bae30SDana Myers
db2bae30SDana Myers            default:
db2bae30SDana Myers
db2bae30SDana Myers                ACPI_ERROR ((AE_INFO,
26f3cdf0SGordon Ross                    "Unimplemented reference type for AML opcode: 0x%4.4X", Opcode));
db2bae30SDana Myers                return_ACPI_STATUS (AE_AML_OPERAND_TYPE);
db2bae30SDana Myers            }
db2bae30SDana Myers            break;
db2bae30SDana Myers        }
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    default:
db2bae30SDana Myers
26f3cdf0SGordon Ross        ACPI_ERROR ((AE_INFO, "Unimplemented data type: 0x%X",
aa2aa9a6SDana Myers            ObjDesc->Common.Type));
db2bae30SDana Myers
db2bae30SDana Myers        Status = AE_AML_OPERAND_TYPE;
db2bae30SDana Myers        break;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers}