xref: /onnv-gate/usr/src/uts/intel/io/acpica/dispatcher/dsmthdat.c (revision 11225:eb6056029d84)
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