17851SDana.Myers@Sun.COM /*******************************************************************************
27851SDana.Myers@Sun.COM *
37851SDana.Myers@Sun.COM * Module Name: dsmthdat - control method arguments and local variables
47851SDana.Myers@Sun.COM *
57851SDana.Myers@Sun.COM ******************************************************************************/
67851SDana.Myers@Sun.COM
77851SDana.Myers@Sun.COM /******************************************************************************
87851SDana.Myers@Sun.COM *
97851SDana.Myers@Sun.COM * 1. Copyright Notice
107851SDana.Myers@Sun.COM *
119980SDana.Myers@Sun.COM * Some or all of this work - Copyright (c) 1999 - 2009, Intel Corp.
127851SDana.Myers@Sun.COM * All rights reserved.
137851SDana.Myers@Sun.COM *
147851SDana.Myers@Sun.COM * 2. License
157851SDana.Myers@Sun.COM *
167851SDana.Myers@Sun.COM * 2.1. This is your license from Intel Corp. under its intellectual property
177851SDana.Myers@Sun.COM * rights. You may have additional license terms from the party that provided
187851SDana.Myers@Sun.COM * you this software, covering your right to use that party's intellectual
197851SDana.Myers@Sun.COM * property rights.
207851SDana.Myers@Sun.COM *
217851SDana.Myers@Sun.COM * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a
227851SDana.Myers@Sun.COM * copy of the source code appearing in this file ("Covered Code") an
237851SDana.Myers@Sun.COM * irrevocable, perpetual, worldwide license under Intel's copyrights in the
247851SDana.Myers@Sun.COM * base code distributed originally by Intel ("Original Intel Code") to copy,
257851SDana.Myers@Sun.COM * make derivatives, distribute, use and display any portion of the Covered
267851SDana.Myers@Sun.COM * Code in any form, with the right to sublicense such rights; and
277851SDana.Myers@Sun.COM *
287851SDana.Myers@Sun.COM * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent
297851SDana.Myers@Sun.COM * license (with the right to sublicense), under only those claims of Intel
307851SDana.Myers@Sun.COM * patents that are infringed by the Original Intel Code, to make, use, sell,
317851SDana.Myers@Sun.COM * offer to sell, and import the Covered Code and derivative works thereof
327851SDana.Myers@Sun.COM * solely to the minimum extent necessary to exercise the above copyright
337851SDana.Myers@Sun.COM * license, and in no event shall the patent license extend to any additions
347851SDana.Myers@Sun.COM * to or modifications of the Original Intel Code. No other license or right
357851SDana.Myers@Sun.COM * is granted directly or by implication, estoppel or otherwise;
367851SDana.Myers@Sun.COM *
377851SDana.Myers@Sun.COM * The above copyright and patent license is granted only if the following
387851SDana.Myers@Sun.COM * conditions are met:
397851SDana.Myers@Sun.COM *
407851SDana.Myers@Sun.COM * 3. Conditions
417851SDana.Myers@Sun.COM *
427851SDana.Myers@Sun.COM * 3.1. Redistribution of Source with Rights to Further Distribute Source.
437851SDana.Myers@Sun.COM * Redistribution of source code of any substantial portion of the Covered
447851SDana.Myers@Sun.COM * Code or modification with rights to further distribute source must include
457851SDana.Myers@Sun.COM * the above Copyright Notice, the above License, this list of Conditions,
467851SDana.Myers@Sun.COM * and the following Disclaimer and Export Compliance provision. In addition,
477851SDana.Myers@Sun.COM * Licensee must cause all Covered Code to which Licensee contributes to
487851SDana.Myers@Sun.COM * contain a file documenting the changes Licensee made to create that Covered
497851SDana.Myers@Sun.COM * Code and the date of any change. Licensee must include in that file the
507851SDana.Myers@Sun.COM * documentation of any changes made by any predecessor Licensee. Licensee
517851SDana.Myers@Sun.COM * must include a prominent statement that the modification is derived,
527851SDana.Myers@Sun.COM * directly or indirectly, from Original Intel Code.
537851SDana.Myers@Sun.COM *
547851SDana.Myers@Sun.COM * 3.2. Redistribution of Source with no Rights to Further Distribute Source.
557851SDana.Myers@Sun.COM * Redistribution of source code of any substantial portion of the Covered
567851SDana.Myers@Sun.COM * Code or modification without rights to further distribute source must
577851SDana.Myers@Sun.COM * include the following Disclaimer and Export Compliance provision in the
587851SDana.Myers@Sun.COM * documentation and/or other materials provided with distribution. In
597851SDana.Myers@Sun.COM * addition, Licensee may not authorize further sublicense of source of any
607851SDana.Myers@Sun.COM * portion of the Covered Code, and must include terms to the effect that the
617851SDana.Myers@Sun.COM * license from Licensee to its licensee is limited to the intellectual
627851SDana.Myers@Sun.COM * property embodied in the software Licensee provides to its licensee, and
637851SDana.Myers@Sun.COM * not to intellectual property embodied in modifications its licensee may
647851SDana.Myers@Sun.COM * make.
657851SDana.Myers@Sun.COM *
667851SDana.Myers@Sun.COM * 3.3. Redistribution of Executable. Redistribution in executable form of any
677851SDana.Myers@Sun.COM * substantial portion of the Covered Code or modification must reproduce the
687851SDana.Myers@Sun.COM * above Copyright Notice, and the following Disclaimer and Export Compliance
697851SDana.Myers@Sun.COM * provision in the documentation and/or other materials provided with the
707851SDana.Myers@Sun.COM * distribution.
717851SDana.Myers@Sun.COM *
727851SDana.Myers@Sun.COM * 3.4. Intel retains all right, title, and interest in and to the Original
737851SDana.Myers@Sun.COM * Intel Code.
747851SDana.Myers@Sun.COM *
757851SDana.Myers@Sun.COM * 3.5. Neither the name Intel nor any other trademark owned or controlled by
767851SDana.Myers@Sun.COM * Intel shall be used in advertising or otherwise to promote the sale, use or
777851SDana.Myers@Sun.COM * other dealings in products derived from or relating to the Covered Code
787851SDana.Myers@Sun.COM * without prior written authorization from Intel.
797851SDana.Myers@Sun.COM *
807851SDana.Myers@Sun.COM * 4. Disclaimer and Export Compliance
817851SDana.Myers@Sun.COM *
827851SDana.Myers@Sun.COM * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED
837851SDana.Myers@Sun.COM * HERE. ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE
847851SDana.Myers@Sun.COM * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT, ASSISTANCE,
857851SDana.Myers@Sun.COM * INSTALLATION, TRAINING OR OTHER SERVICES. INTEL WILL NOT PROVIDE ANY
867851SDana.Myers@Sun.COM * UPDATES, ENHANCEMENTS OR EXTENSIONS. INTEL SPECIFICALLY DISCLAIMS ANY
877851SDana.Myers@Sun.COM * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A
887851SDana.Myers@Sun.COM * PARTICULAR PURPOSE.
897851SDana.Myers@Sun.COM *
907851SDana.Myers@Sun.COM * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES
917851SDana.Myers@Sun.COM * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR
927851SDana.Myers@Sun.COM * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,
937851SDana.Myers@Sun.COM * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY
947851SDana.Myers@Sun.COM * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL
957851SDana.Myers@Sun.COM * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES. THESE LIMITATIONS
967851SDana.Myers@Sun.COM * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY
977851SDana.Myers@Sun.COM * LIMITED REMEDY.
987851SDana.Myers@Sun.COM *
997851SDana.Myers@Sun.COM * 4.3. Licensee shall not export, either directly or indirectly, any of this
1007851SDana.Myers@Sun.COM * software or system incorporating such software without first obtaining any
1017851SDana.Myers@Sun.COM * required license or other approval from the U. S. Department of Commerce or
1027851SDana.Myers@Sun.COM * any other agency or department of the United States Government. In the
1037851SDana.Myers@Sun.COM * event Licensee exports any such software from the United States or
1047851SDana.Myers@Sun.COM * re-exports any such software from a foreign destination, Licensee shall
1057851SDana.Myers@Sun.COM * ensure that the distribution and export/re-export of the software is in
1067851SDana.Myers@Sun.COM * compliance with all laws, regulations, orders, or other restrictions of the
1077851SDana.Myers@Sun.COM * U.S. Export Administration Regulations. Licensee agrees that neither it nor
1087851SDana.Myers@Sun.COM * any of its subsidiaries will export/re-export any technical data, process,
1097851SDana.Myers@Sun.COM * software, or service, directly or indirectly, to any country for which the
1107851SDana.Myers@Sun.COM * United States government or any agency thereof requires an export license,
1117851SDana.Myers@Sun.COM * other governmental approval, or letter of assurance, without first obtaining
1127851SDana.Myers@Sun.COM * such license, approval or letter.
1137851SDana.Myers@Sun.COM *
1147851SDana.Myers@Sun.COM *****************************************************************************/
1157851SDana.Myers@Sun.COM
1167851SDana.Myers@Sun.COM #define __DSMTHDAT_C__
1177851SDana.Myers@Sun.COM
1187851SDana.Myers@Sun.COM #include "acpi.h"
1199980SDana.Myers@Sun.COM #include "accommon.h"
1207851SDana.Myers@Sun.COM #include "acdispat.h"
1217851SDana.Myers@Sun.COM #include "acnamesp.h"
1227851SDana.Myers@Sun.COM #include "acinterp.h"
1237851SDana.Myers@Sun.COM
1247851SDana.Myers@Sun.COM
1257851SDana.Myers@Sun.COM #define _COMPONENT ACPI_DISPATCHER
1267851SDana.Myers@Sun.COM ACPI_MODULE_NAME ("dsmthdat")
1277851SDana.Myers@Sun.COM
1287851SDana.Myers@Sun.COM /* Local prototypes */
1297851SDana.Myers@Sun.COM
1307851SDana.Myers@Sun.COM static void
1317851SDana.Myers@Sun.COM AcpiDsMethodDataDeleteValue (
1327851SDana.Myers@Sun.COM UINT8 Type,
1337851SDana.Myers@Sun.COM UINT32 Index,
1347851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState);
1357851SDana.Myers@Sun.COM
1367851SDana.Myers@Sun.COM static ACPI_STATUS
1377851SDana.Myers@Sun.COM AcpiDsMethodDataSetValue (
1387851SDana.Myers@Sun.COM UINT8 Type,
1397851SDana.Myers@Sun.COM UINT32 Index,
1407851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT *Object,
1417851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState);
1427851SDana.Myers@Sun.COM
1437851SDana.Myers@Sun.COM #ifdef ACPI_OBSOLETE_FUNCTIONS
1447851SDana.Myers@Sun.COM ACPI_OBJECT_TYPE
1457851SDana.Myers@Sun.COM AcpiDsMethodDataGetType (
1467851SDana.Myers@Sun.COM UINT16 Opcode,
1477851SDana.Myers@Sun.COM UINT32 Index,
1487851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState);
1497851SDana.Myers@Sun.COM #endif
1507851SDana.Myers@Sun.COM
1517851SDana.Myers@Sun.COM
1527851SDana.Myers@Sun.COM /*******************************************************************************
1537851SDana.Myers@Sun.COM *
1547851SDana.Myers@Sun.COM * FUNCTION: AcpiDsMethodDataInit
1557851SDana.Myers@Sun.COM *
1567851SDana.Myers@Sun.COM * PARAMETERS: WalkState - Current walk state object
1577851SDana.Myers@Sun.COM *
1587851SDana.Myers@Sun.COM * RETURN: Status
1597851SDana.Myers@Sun.COM *
1607851SDana.Myers@Sun.COM * DESCRIPTION: Initialize the data structures that hold the method's arguments
1617851SDana.Myers@Sun.COM * and locals. The data struct is an array of namespace nodes for
1627851SDana.Myers@Sun.COM * each - this allows RefOf and DeRefOf to work properly for these
1637851SDana.Myers@Sun.COM * special data types.
1647851SDana.Myers@Sun.COM *
1657851SDana.Myers@Sun.COM * NOTES: WalkState fields are initialized to zero by the
1667851SDana.Myers@Sun.COM * ACPI_ALLOCATE_ZEROED().
1677851SDana.Myers@Sun.COM *
1687851SDana.Myers@Sun.COM * A pseudo-Namespace Node is assigned to each argument and local
1697851SDana.Myers@Sun.COM * so that RefOf() can return a pointer to the Node.
1707851SDana.Myers@Sun.COM *
1717851SDana.Myers@Sun.COM ******************************************************************************/
1727851SDana.Myers@Sun.COM
1737851SDana.Myers@Sun.COM void
AcpiDsMethodDataInit(ACPI_WALK_STATE * WalkState)1747851SDana.Myers@Sun.COM AcpiDsMethodDataInit (
1757851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState)
1767851SDana.Myers@Sun.COM {
1777851SDana.Myers@Sun.COM UINT32 i;
1787851SDana.Myers@Sun.COM
1797851SDana.Myers@Sun.COM
1807851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE (DsMethodDataInit);
1817851SDana.Myers@Sun.COM
1827851SDana.Myers@Sun.COM
1837851SDana.Myers@Sun.COM /* Init the method arguments */
1847851SDana.Myers@Sun.COM
1857851SDana.Myers@Sun.COM for (i = 0; i < ACPI_METHOD_NUM_ARGS; i++)
1867851SDana.Myers@Sun.COM {
1877851SDana.Myers@Sun.COM ACPI_MOVE_32_TO_32 (&WalkState->Arguments[i].Name, NAMEOF_ARG_NTE);
1887851SDana.Myers@Sun.COM WalkState->Arguments[i].Name.Integer |= (i << 24);
1897851SDana.Myers@Sun.COM WalkState->Arguments[i].DescriptorType = ACPI_DESC_TYPE_NAMED;
1907851SDana.Myers@Sun.COM WalkState->Arguments[i].Type = ACPI_TYPE_ANY;
1917851SDana.Myers@Sun.COM WalkState->Arguments[i].Flags =
1927851SDana.Myers@Sun.COM ANOBJ_END_OF_PEER_LIST | ANOBJ_METHOD_ARG;
1937851SDana.Myers@Sun.COM }
1947851SDana.Myers@Sun.COM
1957851SDana.Myers@Sun.COM /* Init the method locals */
1967851SDana.Myers@Sun.COM
1977851SDana.Myers@Sun.COM for (i = 0; i < ACPI_METHOD_NUM_LOCALS; i++)
1987851SDana.Myers@Sun.COM {
1997851SDana.Myers@Sun.COM ACPI_MOVE_32_TO_32 (&WalkState->LocalVariables[i].Name, NAMEOF_LOCAL_NTE);
2007851SDana.Myers@Sun.COM
2017851SDana.Myers@Sun.COM WalkState->LocalVariables[i].Name.Integer |= (i << 24);
2027851SDana.Myers@Sun.COM WalkState->LocalVariables[i].DescriptorType = ACPI_DESC_TYPE_NAMED;
2037851SDana.Myers@Sun.COM WalkState->LocalVariables[i].Type = ACPI_TYPE_ANY;
2047851SDana.Myers@Sun.COM WalkState->LocalVariables[i].Flags =
2057851SDana.Myers@Sun.COM ANOBJ_END_OF_PEER_LIST | ANOBJ_METHOD_LOCAL;
2067851SDana.Myers@Sun.COM }
2077851SDana.Myers@Sun.COM
2087851SDana.Myers@Sun.COM return_VOID;
2097851SDana.Myers@Sun.COM }
2107851SDana.Myers@Sun.COM
2117851SDana.Myers@Sun.COM
2127851SDana.Myers@Sun.COM /*******************************************************************************
2137851SDana.Myers@Sun.COM *
2147851SDana.Myers@Sun.COM * FUNCTION: AcpiDsMethodDataDeleteAll
2157851SDana.Myers@Sun.COM *
2167851SDana.Myers@Sun.COM * PARAMETERS: WalkState - Current walk state object
2177851SDana.Myers@Sun.COM *
2187851SDana.Myers@Sun.COM * RETURN: None
2197851SDana.Myers@Sun.COM *
2207851SDana.Myers@Sun.COM * DESCRIPTION: Delete method locals and arguments. Arguments are only
2217851SDana.Myers@Sun.COM * deleted if this method was called from another method.
2227851SDana.Myers@Sun.COM *
2237851SDana.Myers@Sun.COM ******************************************************************************/
2247851SDana.Myers@Sun.COM
2257851SDana.Myers@Sun.COM void
AcpiDsMethodDataDeleteAll(ACPI_WALK_STATE * WalkState)2267851SDana.Myers@Sun.COM AcpiDsMethodDataDeleteAll (
2277851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState)
2287851SDana.Myers@Sun.COM {
2297851SDana.Myers@Sun.COM UINT32 Index;
2307851SDana.Myers@Sun.COM
2317851SDana.Myers@Sun.COM
2327851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE (DsMethodDataDeleteAll);
2337851SDana.Myers@Sun.COM
2347851SDana.Myers@Sun.COM
2357851SDana.Myers@Sun.COM /* Detach the locals */
2367851SDana.Myers@Sun.COM
2377851SDana.Myers@Sun.COM for (Index = 0; Index < ACPI_METHOD_NUM_LOCALS; Index++)
2387851SDana.Myers@Sun.COM {
2397851SDana.Myers@Sun.COM if (WalkState->LocalVariables[Index].Object)
2407851SDana.Myers@Sun.COM {
2417851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_EXEC, "Deleting Local%d=%p\n",
2427851SDana.Myers@Sun.COM Index, WalkState->LocalVariables[Index].Object));
2437851SDana.Myers@Sun.COM
2447851SDana.Myers@Sun.COM /* Detach object (if present) and remove a reference */
2457851SDana.Myers@Sun.COM
2467851SDana.Myers@Sun.COM AcpiNsDetachObject (&WalkState->LocalVariables[Index]);
2477851SDana.Myers@Sun.COM }
2487851SDana.Myers@Sun.COM }
2497851SDana.Myers@Sun.COM
2507851SDana.Myers@Sun.COM /* Detach the arguments */
2517851SDana.Myers@Sun.COM
2527851SDana.Myers@Sun.COM for (Index = 0; Index < ACPI_METHOD_NUM_ARGS; Index++)
2537851SDana.Myers@Sun.COM {
2547851SDana.Myers@Sun.COM if (WalkState->Arguments[Index].Object)
2557851SDana.Myers@Sun.COM {
2567851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_EXEC, "Deleting Arg%d=%p\n",
2577851SDana.Myers@Sun.COM Index, WalkState->Arguments[Index].Object));
2587851SDana.Myers@Sun.COM
2597851SDana.Myers@Sun.COM /* Detach object (if present) and remove a reference */
2607851SDana.Myers@Sun.COM
2617851SDana.Myers@Sun.COM AcpiNsDetachObject (&WalkState->Arguments[Index]);
2627851SDana.Myers@Sun.COM }
2637851SDana.Myers@Sun.COM }
2647851SDana.Myers@Sun.COM
2657851SDana.Myers@Sun.COM return_VOID;
2667851SDana.Myers@Sun.COM }
2677851SDana.Myers@Sun.COM
2687851SDana.Myers@Sun.COM
2697851SDana.Myers@Sun.COM /*******************************************************************************
2707851SDana.Myers@Sun.COM *
2717851SDana.Myers@Sun.COM * FUNCTION: AcpiDsMethodDataInitArgs
2727851SDana.Myers@Sun.COM *
2737851SDana.Myers@Sun.COM * PARAMETERS: *Params - Pointer to a parameter list for the method
2747851SDana.Myers@Sun.COM * MaxParamCount - The arg count for this method
2757851SDana.Myers@Sun.COM * WalkState - Current walk state object
2767851SDana.Myers@Sun.COM *
2777851SDana.Myers@Sun.COM * RETURN: Status
2787851SDana.Myers@Sun.COM *
2797851SDana.Myers@Sun.COM * DESCRIPTION: Initialize arguments for a method. The parameter list is a list
2807851SDana.Myers@Sun.COM * of ACPI operand objects, either null terminated or whose length
2817851SDana.Myers@Sun.COM * is defined by MaxParamCount.
2827851SDana.Myers@Sun.COM *
2837851SDana.Myers@Sun.COM ******************************************************************************/
2847851SDana.Myers@Sun.COM
2857851SDana.Myers@Sun.COM ACPI_STATUS
AcpiDsMethodDataInitArgs(ACPI_OPERAND_OBJECT ** Params,UINT32 MaxParamCount,ACPI_WALK_STATE * WalkState)2867851SDana.Myers@Sun.COM AcpiDsMethodDataInitArgs (
2877851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT **Params,
2887851SDana.Myers@Sun.COM UINT32 MaxParamCount,
2897851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState)
2907851SDana.Myers@Sun.COM {
2917851SDana.Myers@Sun.COM ACPI_STATUS Status;
2927851SDana.Myers@Sun.COM UINT32 Index = 0;
2937851SDana.Myers@Sun.COM
2947851SDana.Myers@Sun.COM
2957851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE_PTR (DsMethodDataInitArgs, Params);
2967851SDana.Myers@Sun.COM
2977851SDana.Myers@Sun.COM
2987851SDana.Myers@Sun.COM if (!Params)
2997851SDana.Myers@Sun.COM {
3007851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_EXEC, "No param list passed to method\n"));
3017851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_OK);
3027851SDana.Myers@Sun.COM }
3037851SDana.Myers@Sun.COM
3047851SDana.Myers@Sun.COM /* Copy passed parameters into the new method stack frame */
3057851SDana.Myers@Sun.COM
3067851SDana.Myers@Sun.COM while ((Index < ACPI_METHOD_NUM_ARGS) &&
3077851SDana.Myers@Sun.COM (Index < MaxParamCount) &&
3087851SDana.Myers@Sun.COM Params[Index])
3097851SDana.Myers@Sun.COM {
3107851SDana.Myers@Sun.COM /*
3117851SDana.Myers@Sun.COM * A valid parameter.
3127851SDana.Myers@Sun.COM * Store the argument in the method/walk descriptor.
3137851SDana.Myers@Sun.COM * Do not copy the arg in order to implement call by reference
3147851SDana.Myers@Sun.COM */
3157851SDana.Myers@Sun.COM Status = AcpiDsMethodDataSetValue (ACPI_REFCLASS_ARG, Index,
3167851SDana.Myers@Sun.COM Params[Index], WalkState);
3177851SDana.Myers@Sun.COM if (ACPI_FAILURE (Status))
3187851SDana.Myers@Sun.COM {
3197851SDana.Myers@Sun.COM return_ACPI_STATUS (Status);
3207851SDana.Myers@Sun.COM }
3217851SDana.Myers@Sun.COM
3227851SDana.Myers@Sun.COM Index++;
3237851SDana.Myers@Sun.COM }
3247851SDana.Myers@Sun.COM
3257851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_EXEC, "%d args passed to method\n", Index));
3267851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_OK);
3277851SDana.Myers@Sun.COM }
3287851SDana.Myers@Sun.COM
3297851SDana.Myers@Sun.COM
3307851SDana.Myers@Sun.COM /*******************************************************************************
3317851SDana.Myers@Sun.COM *
3327851SDana.Myers@Sun.COM * FUNCTION: AcpiDsMethodDataGetNode
3337851SDana.Myers@Sun.COM *
3347851SDana.Myers@Sun.COM * PARAMETERS: Type - Either ACPI_REFCLASS_LOCAL or
3357851SDana.Myers@Sun.COM * ACPI_REFCLASS_ARG
3367851SDana.Myers@Sun.COM * Index - Which Local or Arg whose type to get
3377851SDana.Myers@Sun.COM * WalkState - Current walk state object
3387851SDana.Myers@Sun.COM * Node - Where the node is returned.
3397851SDana.Myers@Sun.COM *
3407851SDana.Myers@Sun.COM * RETURN: Status and node
3417851SDana.Myers@Sun.COM *
3427851SDana.Myers@Sun.COM * DESCRIPTION: Get the Node associated with a local or arg.
3437851SDana.Myers@Sun.COM *
3447851SDana.Myers@Sun.COM ******************************************************************************/
3457851SDana.Myers@Sun.COM
3467851SDana.Myers@Sun.COM ACPI_STATUS
AcpiDsMethodDataGetNode(UINT8 Type,UINT32 Index,ACPI_WALK_STATE * WalkState,ACPI_NAMESPACE_NODE ** Node)3477851SDana.Myers@Sun.COM AcpiDsMethodDataGetNode (
3487851SDana.Myers@Sun.COM UINT8 Type,
3497851SDana.Myers@Sun.COM UINT32 Index,
3507851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState,
3517851SDana.Myers@Sun.COM ACPI_NAMESPACE_NODE **Node)
3527851SDana.Myers@Sun.COM {
3537851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE (DsMethodDataGetNode);
3547851SDana.Myers@Sun.COM
3557851SDana.Myers@Sun.COM
3567851SDana.Myers@Sun.COM /*
3577851SDana.Myers@Sun.COM * Method Locals and Arguments are supported
3587851SDana.Myers@Sun.COM */
3597851SDana.Myers@Sun.COM switch (Type)
3607851SDana.Myers@Sun.COM {
3617851SDana.Myers@Sun.COM case ACPI_REFCLASS_LOCAL:
3627851SDana.Myers@Sun.COM
3637851SDana.Myers@Sun.COM if (Index > ACPI_METHOD_MAX_LOCAL)
3647851SDana.Myers@Sun.COM {
3657851SDana.Myers@Sun.COM ACPI_ERROR ((AE_INFO,
3667851SDana.Myers@Sun.COM "Local index %d is invalid (max %d)",
3677851SDana.Myers@Sun.COM Index, ACPI_METHOD_MAX_LOCAL));
3687851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_AML_INVALID_INDEX);
3697851SDana.Myers@Sun.COM }
3707851SDana.Myers@Sun.COM
3717851SDana.Myers@Sun.COM /* Return a pointer to the pseudo-node */
3727851SDana.Myers@Sun.COM
3737851SDana.Myers@Sun.COM *Node = &WalkState->LocalVariables[Index];
3747851SDana.Myers@Sun.COM break;
3757851SDana.Myers@Sun.COM
3767851SDana.Myers@Sun.COM case ACPI_REFCLASS_ARG:
3777851SDana.Myers@Sun.COM
3787851SDana.Myers@Sun.COM if (Index > ACPI_METHOD_MAX_ARG)
3797851SDana.Myers@Sun.COM {
3807851SDana.Myers@Sun.COM ACPI_ERROR ((AE_INFO,
3817851SDana.Myers@Sun.COM "Arg index %d is invalid (max %d)",
3827851SDana.Myers@Sun.COM Index, ACPI_METHOD_MAX_ARG));
3837851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_AML_INVALID_INDEX);
3847851SDana.Myers@Sun.COM }
3857851SDana.Myers@Sun.COM
3867851SDana.Myers@Sun.COM /* Return a pointer to the pseudo-node */
3877851SDana.Myers@Sun.COM
3887851SDana.Myers@Sun.COM *Node = &WalkState->Arguments[Index];
3897851SDana.Myers@Sun.COM break;
3907851SDana.Myers@Sun.COM
3917851SDana.Myers@Sun.COM default:
3927851SDana.Myers@Sun.COM ACPI_ERROR ((AE_INFO, "Type %d is invalid", Type));
3937851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_TYPE);
3947851SDana.Myers@Sun.COM }
3957851SDana.Myers@Sun.COM
3967851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_OK);
3977851SDana.Myers@Sun.COM }
3987851SDana.Myers@Sun.COM
3997851SDana.Myers@Sun.COM
4007851SDana.Myers@Sun.COM /*******************************************************************************
4017851SDana.Myers@Sun.COM *
4027851SDana.Myers@Sun.COM * FUNCTION: AcpiDsMethodDataSetValue
4037851SDana.Myers@Sun.COM *
4047851SDana.Myers@Sun.COM * PARAMETERS: Type - Either ACPI_REFCLASS_LOCAL or
4057851SDana.Myers@Sun.COM * ACPI_REFCLASS_ARG
4067851SDana.Myers@Sun.COM * Index - Which Local or Arg to get
4077851SDana.Myers@Sun.COM * Object - Object to be inserted into the stack entry
4087851SDana.Myers@Sun.COM * WalkState - Current walk state object
4097851SDana.Myers@Sun.COM *
4107851SDana.Myers@Sun.COM * RETURN: Status
4117851SDana.Myers@Sun.COM *
4127851SDana.Myers@Sun.COM * DESCRIPTION: Insert an object onto the method stack at entry Opcode:Index.
4137851SDana.Myers@Sun.COM * Note: There is no "implicit conversion" for locals.
4147851SDana.Myers@Sun.COM *
4157851SDana.Myers@Sun.COM ******************************************************************************/
4167851SDana.Myers@Sun.COM
4177851SDana.Myers@Sun.COM static ACPI_STATUS
AcpiDsMethodDataSetValue(UINT8 Type,UINT32 Index,ACPI_OPERAND_OBJECT * Object,ACPI_WALK_STATE * WalkState)4187851SDana.Myers@Sun.COM AcpiDsMethodDataSetValue (
4197851SDana.Myers@Sun.COM UINT8 Type,
4207851SDana.Myers@Sun.COM UINT32 Index,
4217851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT *Object,
4227851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState)
4237851SDana.Myers@Sun.COM {
4247851SDana.Myers@Sun.COM ACPI_STATUS Status;
4257851SDana.Myers@Sun.COM ACPI_NAMESPACE_NODE *Node;
4267851SDana.Myers@Sun.COM
4277851SDana.Myers@Sun.COM
4287851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE (DsMethodDataSetValue);
4297851SDana.Myers@Sun.COM
4307851SDana.Myers@Sun.COM
4317851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_EXEC,
4327851SDana.Myers@Sun.COM "NewObj %p Type %2.2X, Refs=%d [%s]\n", Object,
4337851SDana.Myers@Sun.COM Type, Object->Common.ReferenceCount,
4347851SDana.Myers@Sun.COM AcpiUtGetTypeName (Object->Common.Type)));
4357851SDana.Myers@Sun.COM
4367851SDana.Myers@Sun.COM /* Get the namespace node for the arg/local */
4377851SDana.Myers@Sun.COM
4387851SDana.Myers@Sun.COM Status = AcpiDsMethodDataGetNode (Type, Index, WalkState, &Node);
4397851SDana.Myers@Sun.COM if (ACPI_FAILURE (Status))
4407851SDana.Myers@Sun.COM {
4417851SDana.Myers@Sun.COM return_ACPI_STATUS (Status);
4427851SDana.Myers@Sun.COM }
4437851SDana.Myers@Sun.COM
4447851SDana.Myers@Sun.COM /*
4457851SDana.Myers@Sun.COM * Increment ref count so object can't be deleted while installed.
4467851SDana.Myers@Sun.COM * NOTE: We do not copy the object in order to preserve the call by
4477851SDana.Myers@Sun.COM * reference semantics of ACPI Control Method invocation.
4487851SDana.Myers@Sun.COM * (See ACPI Specification 2.0C)
4497851SDana.Myers@Sun.COM */
4507851SDana.Myers@Sun.COM AcpiUtAddReference (Object);
4517851SDana.Myers@Sun.COM
4527851SDana.Myers@Sun.COM /* Install the object */
4537851SDana.Myers@Sun.COM
4547851SDana.Myers@Sun.COM Node->Object = Object;
4557851SDana.Myers@Sun.COM return_ACPI_STATUS (Status);
4567851SDana.Myers@Sun.COM }
4577851SDana.Myers@Sun.COM
4587851SDana.Myers@Sun.COM
4597851SDana.Myers@Sun.COM /*******************************************************************************
4607851SDana.Myers@Sun.COM *
4617851SDana.Myers@Sun.COM * FUNCTION: AcpiDsMethodDataGetValue
4627851SDana.Myers@Sun.COM *
4637851SDana.Myers@Sun.COM * PARAMETERS: Type - Either ACPI_REFCLASS_LOCAL or
4647851SDana.Myers@Sun.COM * ACPI_REFCLASS_ARG
4657851SDana.Myers@Sun.COM * Index - Which localVar or argument to get
4667851SDana.Myers@Sun.COM * WalkState - Current walk state object
4677851SDana.Myers@Sun.COM * DestDesc - Where Arg or Local value is returned
4687851SDana.Myers@Sun.COM *
4697851SDana.Myers@Sun.COM * RETURN: Status
4707851SDana.Myers@Sun.COM *
4717851SDana.Myers@Sun.COM * DESCRIPTION: Retrieve value of selected Arg or Local for this method
4727851SDana.Myers@Sun.COM * Used only in AcpiExResolveToValue().
4737851SDana.Myers@Sun.COM *
4747851SDana.Myers@Sun.COM ******************************************************************************/
4757851SDana.Myers@Sun.COM
4767851SDana.Myers@Sun.COM ACPI_STATUS
AcpiDsMethodDataGetValue(UINT8 Type,UINT32 Index,ACPI_WALK_STATE * WalkState,ACPI_OPERAND_OBJECT ** DestDesc)4777851SDana.Myers@Sun.COM AcpiDsMethodDataGetValue (
4787851SDana.Myers@Sun.COM UINT8 Type,
4797851SDana.Myers@Sun.COM UINT32 Index,
4807851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState,
4817851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT **DestDesc)
4827851SDana.Myers@Sun.COM {
4837851SDana.Myers@Sun.COM ACPI_STATUS Status;
4847851SDana.Myers@Sun.COM ACPI_NAMESPACE_NODE *Node;
4857851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT *Object;
4867851SDana.Myers@Sun.COM
4877851SDana.Myers@Sun.COM
4887851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE (DsMethodDataGetValue);
4897851SDana.Myers@Sun.COM
4907851SDana.Myers@Sun.COM
4917851SDana.Myers@Sun.COM /* Validate the object descriptor */
4927851SDana.Myers@Sun.COM
4937851SDana.Myers@Sun.COM if (!DestDesc)
4947851SDana.Myers@Sun.COM {
4957851SDana.Myers@Sun.COM ACPI_ERROR ((AE_INFO, "Null object descriptor pointer"));
4967851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_BAD_PARAMETER);
4977851SDana.Myers@Sun.COM }
4987851SDana.Myers@Sun.COM
4997851SDana.Myers@Sun.COM /* Get the namespace node for the arg/local */
5007851SDana.Myers@Sun.COM
5017851SDana.Myers@Sun.COM Status = AcpiDsMethodDataGetNode (Type, Index, WalkState, &Node);
5027851SDana.Myers@Sun.COM if (ACPI_FAILURE (Status))
5037851SDana.Myers@Sun.COM {
5047851SDana.Myers@Sun.COM return_ACPI_STATUS (Status);
5057851SDana.Myers@Sun.COM }
5067851SDana.Myers@Sun.COM
5077851SDana.Myers@Sun.COM /* Get the object from the node */
5087851SDana.Myers@Sun.COM
5097851SDana.Myers@Sun.COM Object = Node->Object;
5107851SDana.Myers@Sun.COM
5117851SDana.Myers@Sun.COM /* Examine the returned object, it must be valid. */
5127851SDana.Myers@Sun.COM
5137851SDana.Myers@Sun.COM if (!Object)
5147851SDana.Myers@Sun.COM {
5157851SDana.Myers@Sun.COM /*
5167851SDana.Myers@Sun.COM * Index points to uninitialized object.
5177851SDana.Myers@Sun.COM * This means that either 1) The expected argument was
5187851SDana.Myers@Sun.COM * not passed to the method, or 2) A local variable
5197851SDana.Myers@Sun.COM * was referenced by the method (via the ASL)
5207851SDana.Myers@Sun.COM * before it was initialized. Either case is an error.
5217851SDana.Myers@Sun.COM */
5227851SDana.Myers@Sun.COM
5237851SDana.Myers@Sun.COM /* If slack enabled, init the LocalX/ArgX to an Integer of value zero */
5247851SDana.Myers@Sun.COM
5257851SDana.Myers@Sun.COM if (AcpiGbl_EnableInterpreterSlack)
5267851SDana.Myers@Sun.COM {
527*11225SDana.Myers@Sun.COM Object = AcpiUtCreateIntegerObject ((UINT64) 0);
5287851SDana.Myers@Sun.COM if (!Object)
5297851SDana.Myers@Sun.COM {
5307851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_NO_MEMORY);
5317851SDana.Myers@Sun.COM }
5327851SDana.Myers@Sun.COM
5337851SDana.Myers@Sun.COM Node->Object = Object;
5347851SDana.Myers@Sun.COM }
5357851SDana.Myers@Sun.COM
5367851SDana.Myers@Sun.COM /* Otherwise, return the error */
5377851SDana.Myers@Sun.COM
5387851SDana.Myers@Sun.COM else switch (Type)
5397851SDana.Myers@Sun.COM {
5407851SDana.Myers@Sun.COM case ACPI_REFCLASS_ARG:
5417851SDana.Myers@Sun.COM
5427851SDana.Myers@Sun.COM ACPI_ERROR ((AE_INFO,
5437851SDana.Myers@Sun.COM "Uninitialized Arg[%d] at node %p",
5447851SDana.Myers@Sun.COM Index, Node));
5457851SDana.Myers@Sun.COM
5467851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_AML_UNINITIALIZED_ARG);
5477851SDana.Myers@Sun.COM
5487851SDana.Myers@Sun.COM case ACPI_REFCLASS_LOCAL:
5497851SDana.Myers@Sun.COM
550*11225SDana.Myers@Sun.COM /*
551*11225SDana.Myers@Sun.COM * No error message for this case, will be trapped again later to
552*11225SDana.Myers@Sun.COM * detect and ignore cases of Store(LocalX,LocalX)
553*11225SDana.Myers@Sun.COM */
5547851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_AML_UNINITIALIZED_LOCAL);
5557851SDana.Myers@Sun.COM
5567851SDana.Myers@Sun.COM default:
5577851SDana.Myers@Sun.COM
5587851SDana.Myers@Sun.COM ACPI_ERROR ((AE_INFO, "Not a Arg/Local opcode: %X", Type));
5597851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_AML_INTERNAL);
5607851SDana.Myers@Sun.COM }
5617851SDana.Myers@Sun.COM }
5627851SDana.Myers@Sun.COM
5637851SDana.Myers@Sun.COM /*
5647851SDana.Myers@Sun.COM * The Index points to an initialized and valid object.
5657851SDana.Myers@Sun.COM * Return an additional reference to the object
5667851SDana.Myers@Sun.COM */
5677851SDana.Myers@Sun.COM *DestDesc = Object;
5687851SDana.Myers@Sun.COM AcpiUtAddReference (Object);
5697851SDana.Myers@Sun.COM
5707851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_OK);
5717851SDana.Myers@Sun.COM }
5727851SDana.Myers@Sun.COM
5737851SDana.Myers@Sun.COM
5747851SDana.Myers@Sun.COM /*******************************************************************************
5757851SDana.Myers@Sun.COM *
5767851SDana.Myers@Sun.COM * FUNCTION: AcpiDsMethodDataDeleteValue
5777851SDana.Myers@Sun.COM *
5787851SDana.Myers@Sun.COM * PARAMETERS: Type - Either ACPI_REFCLASS_LOCAL or
5797851SDana.Myers@Sun.COM * ACPI_REFCLASS_ARG
5807851SDana.Myers@Sun.COM * Index - Which localVar or argument to delete
5817851SDana.Myers@Sun.COM * WalkState - Current walk state object
5827851SDana.Myers@Sun.COM *
5837851SDana.Myers@Sun.COM * RETURN: None
5847851SDana.Myers@Sun.COM *
5857851SDana.Myers@Sun.COM * DESCRIPTION: Delete the entry at Opcode:Index. Inserts
5867851SDana.Myers@Sun.COM * a null into the stack slot after the object is deleted.
5877851SDana.Myers@Sun.COM *
5887851SDana.Myers@Sun.COM ******************************************************************************/
5897851SDana.Myers@Sun.COM
5907851SDana.Myers@Sun.COM static void
AcpiDsMethodDataDeleteValue(UINT8 Type,UINT32 Index,ACPI_WALK_STATE * WalkState)5917851SDana.Myers@Sun.COM AcpiDsMethodDataDeleteValue (
5927851SDana.Myers@Sun.COM UINT8 Type,
5937851SDana.Myers@Sun.COM UINT32 Index,
5947851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState)
5957851SDana.Myers@Sun.COM {
5967851SDana.Myers@Sun.COM ACPI_STATUS Status;
5977851SDana.Myers@Sun.COM ACPI_NAMESPACE_NODE *Node;
5987851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT *Object;
5997851SDana.Myers@Sun.COM
6007851SDana.Myers@Sun.COM
6017851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE (DsMethodDataDeleteValue);
6027851SDana.Myers@Sun.COM
6037851SDana.Myers@Sun.COM
6047851SDana.Myers@Sun.COM /* Get the namespace node for the arg/local */
6057851SDana.Myers@Sun.COM
6067851SDana.Myers@Sun.COM Status = AcpiDsMethodDataGetNode (Type, Index, WalkState, &Node);
6077851SDana.Myers@Sun.COM if (ACPI_FAILURE (Status))
6087851SDana.Myers@Sun.COM {
6097851SDana.Myers@Sun.COM return_VOID;
6107851SDana.Myers@Sun.COM }
6117851SDana.Myers@Sun.COM
6127851SDana.Myers@Sun.COM /* Get the associated object */
6137851SDana.Myers@Sun.COM
6147851SDana.Myers@Sun.COM Object = AcpiNsGetAttachedObject (Node);
6157851SDana.Myers@Sun.COM
6167851SDana.Myers@Sun.COM /*
6177851SDana.Myers@Sun.COM * Undefine the Arg or Local by setting its descriptor
6187851SDana.Myers@Sun.COM * pointer to NULL. Locals/Args can contain both
6197851SDana.Myers@Sun.COM * ACPI_OPERAND_OBJECTS and ACPI_NAMESPACE_NODEs
6207851SDana.Myers@Sun.COM */
6217851SDana.Myers@Sun.COM Node->Object = NULL;
6227851SDana.Myers@Sun.COM
6237851SDana.Myers@Sun.COM if ((Object) &&
6247851SDana.Myers@Sun.COM (ACPI_GET_DESCRIPTOR_TYPE (Object) == ACPI_DESC_TYPE_OPERAND))
6257851SDana.Myers@Sun.COM {
6267851SDana.Myers@Sun.COM /*
6277851SDana.Myers@Sun.COM * There is a valid object.
6287851SDana.Myers@Sun.COM * Decrement the reference count by one to balance the
6297851SDana.Myers@Sun.COM * increment when the object was stored.
6307851SDana.Myers@Sun.COM */
6317851SDana.Myers@Sun.COM AcpiUtRemoveReference (Object);
6327851SDana.Myers@Sun.COM }
6337851SDana.Myers@Sun.COM
6347851SDana.Myers@Sun.COM return_VOID;
6357851SDana.Myers@Sun.COM }
6367851SDana.Myers@Sun.COM
6377851SDana.Myers@Sun.COM
6387851SDana.Myers@Sun.COM /*******************************************************************************
6397851SDana.Myers@Sun.COM *
6407851SDana.Myers@Sun.COM * FUNCTION: AcpiDsStoreObjectToLocal
6417851SDana.Myers@Sun.COM *
6427851SDana.Myers@Sun.COM * PARAMETERS: Type - Either ACPI_REFCLASS_LOCAL or
6437851SDana.Myers@Sun.COM * ACPI_REFCLASS_ARG
6447851SDana.Myers@Sun.COM * Index - Which Local or Arg to set
6457851SDana.Myers@Sun.COM * ObjDesc - Value to be stored
6467851SDana.Myers@Sun.COM * WalkState - Current walk state
6477851SDana.Myers@Sun.COM *
6487851SDana.Myers@Sun.COM * RETURN: Status
6497851SDana.Myers@Sun.COM *
6507851SDana.Myers@Sun.COM * DESCRIPTION: Store a value in an Arg or Local. The ObjDesc is installed
6517851SDana.Myers@Sun.COM * as the new value for the Arg or Local and the reference count
6527851SDana.Myers@Sun.COM * for ObjDesc is incremented.
6537851SDana.Myers@Sun.COM *
6547851SDana.Myers@Sun.COM ******************************************************************************/
6557851SDana.Myers@Sun.COM
6567851SDana.Myers@Sun.COM ACPI_STATUS
AcpiDsStoreObjectToLocal(UINT8 Type,UINT32 Index,ACPI_OPERAND_OBJECT * ObjDesc,ACPI_WALK_STATE * WalkState)6577851SDana.Myers@Sun.COM AcpiDsStoreObjectToLocal (
6587851SDana.Myers@Sun.COM UINT8 Type,
6597851SDana.Myers@Sun.COM UINT32 Index,
6607851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT *ObjDesc,
6617851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState)
6627851SDana.Myers@Sun.COM {
6637851SDana.Myers@Sun.COM ACPI_STATUS Status;
6647851SDana.Myers@Sun.COM ACPI_NAMESPACE_NODE *Node;
6657851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT *CurrentObjDesc;
6667851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT *NewObjDesc;
6677851SDana.Myers@Sun.COM
6687851SDana.Myers@Sun.COM
6697851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE (DsStoreObjectToLocal);
6707851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_EXEC, "Type=%2.2X Index=%d Obj=%p\n",
6717851SDana.Myers@Sun.COM Type, Index, ObjDesc));
6727851SDana.Myers@Sun.COM
6737851SDana.Myers@Sun.COM /* Parameter validation */
6747851SDana.Myers@Sun.COM
6757851SDana.Myers@Sun.COM if (!ObjDesc)
6767851SDana.Myers@Sun.COM {
6777851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_BAD_PARAMETER);
6787851SDana.Myers@Sun.COM }
6797851SDana.Myers@Sun.COM
6807851SDana.Myers@Sun.COM /* Get the namespace node for the arg/local */
6817851SDana.Myers@Sun.COM
6827851SDana.Myers@Sun.COM Status = AcpiDsMethodDataGetNode (Type, Index, WalkState, &Node);
6837851SDana.Myers@Sun.COM if (ACPI_FAILURE (Status))
6847851SDana.Myers@Sun.COM {
6857851SDana.Myers@Sun.COM return_ACPI_STATUS (Status);
6867851SDana.Myers@Sun.COM }
6877851SDana.Myers@Sun.COM
6887851SDana.Myers@Sun.COM CurrentObjDesc = AcpiNsGetAttachedObject (Node);
6897851SDana.Myers@Sun.COM if (CurrentObjDesc == ObjDesc)
6907851SDana.Myers@Sun.COM {
6917851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_EXEC, "Obj=%p already installed!\n",
6927851SDana.Myers@Sun.COM ObjDesc));
6937851SDana.Myers@Sun.COM return_ACPI_STATUS (Status);
6947851SDana.Myers@Sun.COM }
6957851SDana.Myers@Sun.COM
6967851SDana.Myers@Sun.COM /*
6977851SDana.Myers@Sun.COM * If the reference count on the object is more than one, we must
6987851SDana.Myers@Sun.COM * take a copy of the object before we store. A reference count
6997851SDana.Myers@Sun.COM * of exactly 1 means that the object was just created during the
7007851SDana.Myers@Sun.COM * evaluation of an expression, and we can safely use it since it
7017851SDana.Myers@Sun.COM * is not used anywhere else.
7027851SDana.Myers@Sun.COM */
7037851SDana.Myers@Sun.COM NewObjDesc = ObjDesc;
7047851SDana.Myers@Sun.COM if (ObjDesc->Common.ReferenceCount > 1)
7057851SDana.Myers@Sun.COM {
7067851SDana.Myers@Sun.COM Status = AcpiUtCopyIobjectToIobject (ObjDesc, &NewObjDesc, WalkState);
7077851SDana.Myers@Sun.COM if (ACPI_FAILURE (Status))
7087851SDana.Myers@Sun.COM {
7097851SDana.Myers@Sun.COM return_ACPI_STATUS (Status);
7107851SDana.Myers@Sun.COM }
7117851SDana.Myers@Sun.COM }
7127851SDana.Myers@Sun.COM
7137851SDana.Myers@Sun.COM /*
7147851SDana.Myers@Sun.COM * If there is an object already in this slot, we either
7157851SDana.Myers@Sun.COM * have to delete it, or if this is an argument and there
7167851SDana.Myers@Sun.COM * is an object reference stored there, we have to do
7177851SDana.Myers@Sun.COM * an indirect store!
7187851SDana.Myers@Sun.COM */
7197851SDana.Myers@Sun.COM if (CurrentObjDesc)
7207851SDana.Myers@Sun.COM {
7217851SDana.Myers@Sun.COM /*
7227851SDana.Myers@Sun.COM * Check for an indirect store if an argument
7237851SDana.Myers@Sun.COM * contains an object reference (stored as an Node).
7247851SDana.Myers@Sun.COM * We don't allow this automatic dereferencing for
7257851SDana.Myers@Sun.COM * locals, since a store to a local should overwrite
7267851SDana.Myers@Sun.COM * anything there, including an object reference.
7277851SDana.Myers@Sun.COM *
7287851SDana.Myers@Sun.COM * If both Arg0 and Local0 contain RefOf (Local4):
7297851SDana.Myers@Sun.COM *
7307851SDana.Myers@Sun.COM * Store (1, Arg0) - Causes indirect store to local4
7317851SDana.Myers@Sun.COM * Store (1, Local0) - Stores 1 in local0, overwriting
7327851SDana.Myers@Sun.COM * the reference to local4
7337851SDana.Myers@Sun.COM * Store (1, DeRefof (Local0)) - Causes indirect store to local4
7347851SDana.Myers@Sun.COM *
7357851SDana.Myers@Sun.COM * Weird, but true.
7367851SDana.Myers@Sun.COM */
7377851SDana.Myers@Sun.COM if (Type == ACPI_REFCLASS_ARG)
7387851SDana.Myers@Sun.COM {
7397851SDana.Myers@Sun.COM /*
7407851SDana.Myers@Sun.COM * If we have a valid reference object that came from RefOf(),
7417851SDana.Myers@Sun.COM * do the indirect store
7427851SDana.Myers@Sun.COM */
7437851SDana.Myers@Sun.COM if ((ACPI_GET_DESCRIPTOR_TYPE (CurrentObjDesc) == ACPI_DESC_TYPE_OPERAND) &&
7447851SDana.Myers@Sun.COM (CurrentObjDesc->Common.Type == ACPI_TYPE_LOCAL_REFERENCE) &&
7457851SDana.Myers@Sun.COM (CurrentObjDesc->Reference.Class == ACPI_REFCLASS_REFOF))
7467851SDana.Myers@Sun.COM {
7477851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_EXEC,
7487851SDana.Myers@Sun.COM "Arg (%p) is an ObjRef(Node), storing in node %p\n",
7497851SDana.Myers@Sun.COM NewObjDesc, CurrentObjDesc));
7507851SDana.Myers@Sun.COM
7517851SDana.Myers@Sun.COM /*
7527851SDana.Myers@Sun.COM * Store this object to the Node (perform the indirect store)
7537851SDana.Myers@Sun.COM * NOTE: No implicit conversion is performed, as per the ACPI
7547851SDana.Myers@Sun.COM * specification rules on storing to Locals/Args.
7557851SDana.Myers@Sun.COM */
7567851SDana.Myers@Sun.COM Status = AcpiExStoreObjectToNode (NewObjDesc,
7577851SDana.Myers@Sun.COM CurrentObjDesc->Reference.Object, WalkState,
7587851SDana.Myers@Sun.COM ACPI_NO_IMPLICIT_CONVERSION);
7597851SDana.Myers@Sun.COM
7607851SDana.Myers@Sun.COM /* Remove local reference if we copied the object above */
7617851SDana.Myers@Sun.COM
7627851SDana.Myers@Sun.COM if (NewObjDesc != ObjDesc)
7637851SDana.Myers@Sun.COM {
7647851SDana.Myers@Sun.COM AcpiUtRemoveReference (NewObjDesc);
7657851SDana.Myers@Sun.COM }
7667851SDana.Myers@Sun.COM return_ACPI_STATUS (Status);
7677851SDana.Myers@Sun.COM }
7687851SDana.Myers@Sun.COM }
7697851SDana.Myers@Sun.COM
7707851SDana.Myers@Sun.COM /* Delete the existing object before storing the new one */
7717851SDana.Myers@Sun.COM
7727851SDana.Myers@Sun.COM AcpiDsMethodDataDeleteValue (Type, Index, WalkState);
7737851SDana.Myers@Sun.COM }
7747851SDana.Myers@Sun.COM
7757851SDana.Myers@Sun.COM /*
7767851SDana.Myers@Sun.COM * Install the Obj descriptor (*NewObjDesc) into
7777851SDana.Myers@Sun.COM * the descriptor for the Arg or Local.
7787851SDana.Myers@Sun.COM * (increments the object reference count by one)
7797851SDana.Myers@Sun.COM */
7807851SDana.Myers@Sun.COM Status = AcpiDsMethodDataSetValue (Type, Index, NewObjDesc, WalkState);
7817851SDana.Myers@Sun.COM
7827851SDana.Myers@Sun.COM /* Remove local reference if we copied the object above */
7837851SDana.Myers@Sun.COM
7847851SDana.Myers@Sun.COM if (NewObjDesc != ObjDesc)
7857851SDana.Myers@Sun.COM {
7867851SDana.Myers@Sun.COM AcpiUtRemoveReference (NewObjDesc);
7877851SDana.Myers@Sun.COM }
7887851SDana.Myers@Sun.COM
7897851SDana.Myers@Sun.COM return_ACPI_STATUS (Status);
7907851SDana.Myers@Sun.COM }
7917851SDana.Myers@Sun.COM
7927851SDana.Myers@Sun.COM
7937851SDana.Myers@Sun.COM #ifdef ACPI_OBSOLETE_FUNCTIONS
7947851SDana.Myers@Sun.COM /*******************************************************************************
7957851SDana.Myers@Sun.COM *
7967851SDana.Myers@Sun.COM * FUNCTION: AcpiDsMethodDataGetType
7977851SDana.Myers@Sun.COM *
7987851SDana.Myers@Sun.COM * PARAMETERS: Opcode - Either AML_LOCAL_OP or AML_ARG_OP
7997851SDana.Myers@Sun.COM * Index - Which Local or Arg whose type to get
8007851SDana.Myers@Sun.COM * WalkState - Current walk state object
8017851SDana.Myers@Sun.COM *
8027851SDana.Myers@Sun.COM * RETURN: Data type of current value of the selected Arg or Local
8037851SDana.Myers@Sun.COM *
8047851SDana.Myers@Sun.COM * DESCRIPTION: Get the type of the object stored in the Local or Arg
8057851SDana.Myers@Sun.COM *
8067851SDana.Myers@Sun.COM ******************************************************************************/
8077851SDana.Myers@Sun.COM
8087851SDana.Myers@Sun.COM ACPI_OBJECT_TYPE
AcpiDsMethodDataGetType(UINT16 Opcode,UINT32 Index,ACPI_WALK_STATE * WalkState)8097851SDana.Myers@Sun.COM AcpiDsMethodDataGetType (
8107851SDana.Myers@Sun.COM UINT16 Opcode,
8117851SDana.Myers@Sun.COM UINT32 Index,
8127851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState)
8137851SDana.Myers@Sun.COM {
8147851SDana.Myers@Sun.COM ACPI_STATUS Status;
8157851SDana.Myers@Sun.COM ACPI_NAMESPACE_NODE *Node;
8167851SDana.Myers@Sun.COM ACPI_OPERAND_OBJECT *Object;
8177851SDana.Myers@Sun.COM
8187851SDana.Myers@Sun.COM
8197851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE (DsMethodDataGetType);
8207851SDana.Myers@Sun.COM
8217851SDana.Myers@Sun.COM
8227851SDana.Myers@Sun.COM /* Get the namespace node for the arg/local */
8237851SDana.Myers@Sun.COM
8247851SDana.Myers@Sun.COM Status = AcpiDsMethodDataGetNode (Opcode, Index, WalkState, &Node);
8257851SDana.Myers@Sun.COM if (ACPI_FAILURE (Status))
8267851SDana.Myers@Sun.COM {
8277851SDana.Myers@Sun.COM return_VALUE ((ACPI_TYPE_NOT_FOUND));
8287851SDana.Myers@Sun.COM }
8297851SDana.Myers@Sun.COM
8307851SDana.Myers@Sun.COM /* Get the object */
8317851SDana.Myers@Sun.COM
8327851SDana.Myers@Sun.COM Object = AcpiNsGetAttachedObject (Node);
8337851SDana.Myers@Sun.COM if (!Object)
8347851SDana.Myers@Sun.COM {
8357851SDana.Myers@Sun.COM /* Uninitialized local/arg, return TYPE_ANY */
8367851SDana.Myers@Sun.COM
8377851SDana.Myers@Sun.COM return_VALUE (ACPI_TYPE_ANY);
8387851SDana.Myers@Sun.COM }
8397851SDana.Myers@Sun.COM
8407851SDana.Myers@Sun.COM /* Get the object type */
8417851SDana.Myers@Sun.COM
8429980SDana.Myers@Sun.COM return_VALUE (Object->Type);
8437851SDana.Myers@Sun.COM }
8447851SDana.Myers@Sun.COM #endif
8457851SDana.Myers@Sun.COM
8467851SDana.Myers@Sun.COM
847