17851SDana.Myers@Sun.COM /****************************************************************************** 27851SDana.Myers@Sun.COM * 37851SDana.Myers@Sun.COM * Module Name: psparse - Parser top level AML parse routines 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 * 11*9980SDana.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 1177851SDana.Myers@Sun.COM /* 1187851SDana.Myers@Sun.COM * Parse the AML and build an operation tree as most interpreters, 1197851SDana.Myers@Sun.COM * like Perl, do. Parsing is done by hand rather than with a YACC 1207851SDana.Myers@Sun.COM * generated parser to tightly constrain stack and dynamic memory 1217851SDana.Myers@Sun.COM * usage. At the same time, parsing is kept flexible and the code 1227851SDana.Myers@Sun.COM * fairly compact by parsing based on a list of AML opcode 1237851SDana.Myers@Sun.COM * templates in AmlOpInfo[] 1247851SDana.Myers@Sun.COM */ 1257851SDana.Myers@Sun.COM 1267851SDana.Myers@Sun.COM #include "acpi.h" 127*9980SDana.Myers@Sun.COM #include "accommon.h" 1287851SDana.Myers@Sun.COM #include "acparser.h" 1297851SDana.Myers@Sun.COM #include "acdispat.h" 1307851SDana.Myers@Sun.COM #include "amlcode.h" 1317851SDana.Myers@Sun.COM #include "acnamesp.h" 1327851SDana.Myers@Sun.COM #include "acinterp.h" 1337851SDana.Myers@Sun.COM 1347851SDana.Myers@Sun.COM #define _COMPONENT ACPI_PARSER 1357851SDana.Myers@Sun.COM ACPI_MODULE_NAME ("psparse") 1367851SDana.Myers@Sun.COM 1377851SDana.Myers@Sun.COM 1387851SDana.Myers@Sun.COM /******************************************************************************* 1397851SDana.Myers@Sun.COM * 1407851SDana.Myers@Sun.COM * FUNCTION: AcpiPsGetOpcodeSize 1417851SDana.Myers@Sun.COM * 1427851SDana.Myers@Sun.COM * PARAMETERS: Opcode - An AML opcode 1437851SDana.Myers@Sun.COM * 1447851SDana.Myers@Sun.COM * RETURN: Size of the opcode, in bytes (1 or 2) 1457851SDana.Myers@Sun.COM * 1467851SDana.Myers@Sun.COM * DESCRIPTION: Get the size of the current opcode. 1477851SDana.Myers@Sun.COM * 1487851SDana.Myers@Sun.COM ******************************************************************************/ 1497851SDana.Myers@Sun.COM 1507851SDana.Myers@Sun.COM UINT32 1517851SDana.Myers@Sun.COM AcpiPsGetOpcodeSize ( 1527851SDana.Myers@Sun.COM UINT32 Opcode) 1537851SDana.Myers@Sun.COM { 1547851SDana.Myers@Sun.COM 1557851SDana.Myers@Sun.COM /* Extended (2-byte) opcode if > 255 */ 1567851SDana.Myers@Sun.COM 1577851SDana.Myers@Sun.COM if (Opcode > 0x00FF) 1587851SDana.Myers@Sun.COM { 1597851SDana.Myers@Sun.COM return (2); 1607851SDana.Myers@Sun.COM } 1617851SDana.Myers@Sun.COM 1627851SDana.Myers@Sun.COM /* Otherwise, just a single byte opcode */ 1637851SDana.Myers@Sun.COM 1647851SDana.Myers@Sun.COM return (1); 1657851SDana.Myers@Sun.COM } 1667851SDana.Myers@Sun.COM 1677851SDana.Myers@Sun.COM 1687851SDana.Myers@Sun.COM /******************************************************************************* 1697851SDana.Myers@Sun.COM * 1707851SDana.Myers@Sun.COM * FUNCTION: AcpiPsPeekOpcode 1717851SDana.Myers@Sun.COM * 1727851SDana.Myers@Sun.COM * PARAMETERS: ParserState - A parser state object 1737851SDana.Myers@Sun.COM * 1747851SDana.Myers@Sun.COM * RETURN: Next AML opcode 1757851SDana.Myers@Sun.COM * 1767851SDana.Myers@Sun.COM * DESCRIPTION: Get next AML opcode (without incrementing AML pointer) 1777851SDana.Myers@Sun.COM * 1787851SDana.Myers@Sun.COM ******************************************************************************/ 1797851SDana.Myers@Sun.COM 1807851SDana.Myers@Sun.COM UINT16 1817851SDana.Myers@Sun.COM AcpiPsPeekOpcode ( 1827851SDana.Myers@Sun.COM ACPI_PARSE_STATE *ParserState) 1837851SDana.Myers@Sun.COM { 1847851SDana.Myers@Sun.COM UINT8 *Aml; 1857851SDana.Myers@Sun.COM UINT16 Opcode; 1867851SDana.Myers@Sun.COM 1877851SDana.Myers@Sun.COM 1887851SDana.Myers@Sun.COM Aml = ParserState->Aml; 1897851SDana.Myers@Sun.COM Opcode = (UINT16) ACPI_GET8 (Aml); 1907851SDana.Myers@Sun.COM 1917851SDana.Myers@Sun.COM if (Opcode == AML_EXTENDED_OP_PREFIX) 1927851SDana.Myers@Sun.COM { 1937851SDana.Myers@Sun.COM /* Extended opcode, get the second opcode byte */ 1947851SDana.Myers@Sun.COM 1957851SDana.Myers@Sun.COM Aml++; 1967851SDana.Myers@Sun.COM Opcode = (UINT16) ((Opcode << 8) | ACPI_GET8 (Aml)); 1977851SDana.Myers@Sun.COM } 1987851SDana.Myers@Sun.COM 1997851SDana.Myers@Sun.COM return (Opcode); 2007851SDana.Myers@Sun.COM } 2017851SDana.Myers@Sun.COM 2027851SDana.Myers@Sun.COM 2037851SDana.Myers@Sun.COM /******************************************************************************* 2047851SDana.Myers@Sun.COM * 2057851SDana.Myers@Sun.COM * FUNCTION: AcpiPsCompleteThisOp 2067851SDana.Myers@Sun.COM * 2077851SDana.Myers@Sun.COM * PARAMETERS: WalkState - Current State 2087851SDana.Myers@Sun.COM * Op - Op to complete 2097851SDana.Myers@Sun.COM * 2107851SDana.Myers@Sun.COM * RETURN: Status 2117851SDana.Myers@Sun.COM * 2127851SDana.Myers@Sun.COM * DESCRIPTION: Perform any cleanup at the completion of an Op. 2137851SDana.Myers@Sun.COM * 2147851SDana.Myers@Sun.COM ******************************************************************************/ 2157851SDana.Myers@Sun.COM 2167851SDana.Myers@Sun.COM ACPI_STATUS 2177851SDana.Myers@Sun.COM AcpiPsCompleteThisOp ( 2187851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState, 2197851SDana.Myers@Sun.COM ACPI_PARSE_OBJECT *Op) 2207851SDana.Myers@Sun.COM { 2217851SDana.Myers@Sun.COM ACPI_PARSE_OBJECT *Prev; 2227851SDana.Myers@Sun.COM ACPI_PARSE_OBJECT *Next; 2237851SDana.Myers@Sun.COM const ACPI_OPCODE_INFO *ParentInfo; 2247851SDana.Myers@Sun.COM ACPI_PARSE_OBJECT *ReplacementOp = NULL; 225*9980SDana.Myers@Sun.COM ACPI_STATUS Status = AE_OK; 2267851SDana.Myers@Sun.COM 2277851SDana.Myers@Sun.COM 2287851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE_PTR (PsCompleteThisOp, Op); 2297851SDana.Myers@Sun.COM 2307851SDana.Myers@Sun.COM 2317851SDana.Myers@Sun.COM /* Check for null Op, can happen if AML code is corrupt */ 2327851SDana.Myers@Sun.COM 2337851SDana.Myers@Sun.COM if (!Op) 2347851SDana.Myers@Sun.COM { 2357851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_OK); /* OK for now */ 2367851SDana.Myers@Sun.COM } 2377851SDana.Myers@Sun.COM 2387851SDana.Myers@Sun.COM /* Delete this op and the subtree below it if asked to */ 2397851SDana.Myers@Sun.COM 2407851SDana.Myers@Sun.COM if (((WalkState->ParseFlags & ACPI_PARSE_TREE_MASK) != ACPI_PARSE_DELETE_TREE) || 2417851SDana.Myers@Sun.COM (WalkState->OpInfo->Class == AML_CLASS_ARGUMENT)) 2427851SDana.Myers@Sun.COM { 2437851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_OK); 2447851SDana.Myers@Sun.COM } 2457851SDana.Myers@Sun.COM 2467851SDana.Myers@Sun.COM /* Make sure that we only delete this subtree */ 2477851SDana.Myers@Sun.COM 2487851SDana.Myers@Sun.COM if (Op->Common.Parent) 2497851SDana.Myers@Sun.COM { 2507851SDana.Myers@Sun.COM Prev = Op->Common.Parent->Common.Value.Arg; 2517851SDana.Myers@Sun.COM if (!Prev) 2527851SDana.Myers@Sun.COM { 2537851SDana.Myers@Sun.COM /* Nothing more to do */ 2547851SDana.Myers@Sun.COM 2557851SDana.Myers@Sun.COM goto Cleanup; 2567851SDana.Myers@Sun.COM } 2577851SDana.Myers@Sun.COM 2587851SDana.Myers@Sun.COM /* 2597851SDana.Myers@Sun.COM * Check if we need to replace the operator and its subtree 2607851SDana.Myers@Sun.COM * with a return value op (placeholder op) 2617851SDana.Myers@Sun.COM */ 2627851SDana.Myers@Sun.COM ParentInfo = AcpiPsGetOpcodeInfo (Op->Common.Parent->Common.AmlOpcode); 2637851SDana.Myers@Sun.COM 2647851SDana.Myers@Sun.COM switch (ParentInfo->Class) 2657851SDana.Myers@Sun.COM { 2667851SDana.Myers@Sun.COM case AML_CLASS_CONTROL: 2677851SDana.Myers@Sun.COM break; 2687851SDana.Myers@Sun.COM 2697851SDana.Myers@Sun.COM case AML_CLASS_CREATE: 2707851SDana.Myers@Sun.COM 2717851SDana.Myers@Sun.COM /* 2727851SDana.Myers@Sun.COM * These opcodes contain TermArg operands. The current 2737851SDana.Myers@Sun.COM * op must be replaced by a placeholder return op 2747851SDana.Myers@Sun.COM */ 2757851SDana.Myers@Sun.COM ReplacementOp = AcpiPsAllocOp (AML_INT_RETURN_VALUE_OP); 2767851SDana.Myers@Sun.COM if (!ReplacementOp) 2777851SDana.Myers@Sun.COM { 278*9980SDana.Myers@Sun.COM Status = AE_NO_MEMORY; 2797851SDana.Myers@Sun.COM } 2807851SDana.Myers@Sun.COM break; 2817851SDana.Myers@Sun.COM 2827851SDana.Myers@Sun.COM case AML_CLASS_NAMED_OBJECT: 2837851SDana.Myers@Sun.COM 2847851SDana.Myers@Sun.COM /* 2857851SDana.Myers@Sun.COM * These opcodes contain TermArg operands. The current 2867851SDana.Myers@Sun.COM * op must be replaced by a placeholder return op 2877851SDana.Myers@Sun.COM */ 2887851SDana.Myers@Sun.COM if ((Op->Common.Parent->Common.AmlOpcode == AML_REGION_OP) || 2897851SDana.Myers@Sun.COM (Op->Common.Parent->Common.AmlOpcode == AML_DATA_REGION_OP) || 2907851SDana.Myers@Sun.COM (Op->Common.Parent->Common.AmlOpcode == AML_BUFFER_OP) || 2917851SDana.Myers@Sun.COM (Op->Common.Parent->Common.AmlOpcode == AML_PACKAGE_OP) || 2927851SDana.Myers@Sun.COM (Op->Common.Parent->Common.AmlOpcode == AML_BANK_FIELD_OP) || 2937851SDana.Myers@Sun.COM (Op->Common.Parent->Common.AmlOpcode == AML_VAR_PACKAGE_OP)) 2947851SDana.Myers@Sun.COM { 2957851SDana.Myers@Sun.COM ReplacementOp = AcpiPsAllocOp (AML_INT_RETURN_VALUE_OP); 2967851SDana.Myers@Sun.COM if (!ReplacementOp) 2977851SDana.Myers@Sun.COM { 298*9980SDana.Myers@Sun.COM Status = AE_NO_MEMORY; 2997851SDana.Myers@Sun.COM } 3007851SDana.Myers@Sun.COM } 3017851SDana.Myers@Sun.COM else if ((Op->Common.Parent->Common.AmlOpcode == AML_NAME_OP) && 3027851SDana.Myers@Sun.COM (WalkState->PassNumber <= ACPI_IMODE_LOAD_PASS2)) 3037851SDana.Myers@Sun.COM { 3047851SDana.Myers@Sun.COM if ((Op->Common.AmlOpcode == AML_BUFFER_OP) || 3057851SDana.Myers@Sun.COM (Op->Common.AmlOpcode == AML_PACKAGE_OP) || 3067851SDana.Myers@Sun.COM (Op->Common.AmlOpcode == AML_VAR_PACKAGE_OP)) 3077851SDana.Myers@Sun.COM { 3087851SDana.Myers@Sun.COM ReplacementOp = AcpiPsAllocOp (Op->Common.AmlOpcode); 3097851SDana.Myers@Sun.COM if (!ReplacementOp) 3107851SDana.Myers@Sun.COM { 311*9980SDana.Myers@Sun.COM Status = AE_NO_MEMORY; 3127851SDana.Myers@Sun.COM } 313*9980SDana.Myers@Sun.COM else 314*9980SDana.Myers@Sun.COM { 315*9980SDana.Myers@Sun.COM ReplacementOp->Named.Data = Op->Named.Data; 316*9980SDana.Myers@Sun.COM ReplacementOp->Named.Length = Op->Named.Length; 317*9980SDana.Myers@Sun.COM } 3187851SDana.Myers@Sun.COM } 3197851SDana.Myers@Sun.COM } 3207851SDana.Myers@Sun.COM break; 3217851SDana.Myers@Sun.COM 3227851SDana.Myers@Sun.COM default: 3237851SDana.Myers@Sun.COM 3247851SDana.Myers@Sun.COM ReplacementOp = AcpiPsAllocOp (AML_INT_RETURN_VALUE_OP); 3257851SDana.Myers@Sun.COM if (!ReplacementOp) 3267851SDana.Myers@Sun.COM { 327*9980SDana.Myers@Sun.COM Status = AE_NO_MEMORY; 3287851SDana.Myers@Sun.COM } 3297851SDana.Myers@Sun.COM } 3307851SDana.Myers@Sun.COM 3317851SDana.Myers@Sun.COM /* We must unlink this op from the parent tree */ 3327851SDana.Myers@Sun.COM 3337851SDana.Myers@Sun.COM if (Prev == Op) 3347851SDana.Myers@Sun.COM { 3357851SDana.Myers@Sun.COM /* This op is the first in the list */ 3367851SDana.Myers@Sun.COM 3377851SDana.Myers@Sun.COM if (ReplacementOp) 3387851SDana.Myers@Sun.COM { 3397851SDana.Myers@Sun.COM ReplacementOp->Common.Parent = Op->Common.Parent; 3407851SDana.Myers@Sun.COM ReplacementOp->Common.Value.Arg = NULL; 3417851SDana.Myers@Sun.COM ReplacementOp->Common.Node = Op->Common.Node; 3427851SDana.Myers@Sun.COM Op->Common.Parent->Common.Value.Arg = ReplacementOp; 3437851SDana.Myers@Sun.COM ReplacementOp->Common.Next = Op->Common.Next; 3447851SDana.Myers@Sun.COM } 3457851SDana.Myers@Sun.COM else 3467851SDana.Myers@Sun.COM { 3477851SDana.Myers@Sun.COM Op->Common.Parent->Common.Value.Arg = Op->Common.Next; 3487851SDana.Myers@Sun.COM } 3497851SDana.Myers@Sun.COM } 3507851SDana.Myers@Sun.COM 3517851SDana.Myers@Sun.COM /* Search the parent list */ 3527851SDana.Myers@Sun.COM 3537851SDana.Myers@Sun.COM else while (Prev) 3547851SDana.Myers@Sun.COM { 3557851SDana.Myers@Sun.COM /* Traverse all siblings in the parent's argument list */ 3567851SDana.Myers@Sun.COM 3577851SDana.Myers@Sun.COM Next = Prev->Common.Next; 3587851SDana.Myers@Sun.COM if (Next == Op) 3597851SDana.Myers@Sun.COM { 3607851SDana.Myers@Sun.COM if (ReplacementOp) 3617851SDana.Myers@Sun.COM { 3627851SDana.Myers@Sun.COM ReplacementOp->Common.Parent = Op->Common.Parent; 3637851SDana.Myers@Sun.COM ReplacementOp->Common.Value.Arg = NULL; 3647851SDana.Myers@Sun.COM ReplacementOp->Common.Node = Op->Common.Node; 3657851SDana.Myers@Sun.COM Prev->Common.Next = ReplacementOp; 3667851SDana.Myers@Sun.COM ReplacementOp->Common.Next = Op->Common.Next; 3677851SDana.Myers@Sun.COM Next = NULL; 3687851SDana.Myers@Sun.COM } 3697851SDana.Myers@Sun.COM else 3707851SDana.Myers@Sun.COM { 3717851SDana.Myers@Sun.COM Prev->Common.Next = Op->Common.Next; 3727851SDana.Myers@Sun.COM Next = NULL; 3737851SDana.Myers@Sun.COM } 3747851SDana.Myers@Sun.COM } 3757851SDana.Myers@Sun.COM Prev = Next; 3767851SDana.Myers@Sun.COM } 3777851SDana.Myers@Sun.COM } 3787851SDana.Myers@Sun.COM 3797851SDana.Myers@Sun.COM 3807851SDana.Myers@Sun.COM Cleanup: 3817851SDana.Myers@Sun.COM 3827851SDana.Myers@Sun.COM /* Now we can actually delete the subtree rooted at Op */ 3837851SDana.Myers@Sun.COM 3847851SDana.Myers@Sun.COM AcpiPsDeleteParseTree (Op); 385*9980SDana.Myers@Sun.COM return_ACPI_STATUS (Status); 3867851SDana.Myers@Sun.COM } 3877851SDana.Myers@Sun.COM 3887851SDana.Myers@Sun.COM 3897851SDana.Myers@Sun.COM /******************************************************************************* 3907851SDana.Myers@Sun.COM * 3917851SDana.Myers@Sun.COM * FUNCTION: AcpiPsNextParseState 3927851SDana.Myers@Sun.COM * 3937851SDana.Myers@Sun.COM * PARAMETERS: WalkState - Current state 3947851SDana.Myers@Sun.COM * Op - Current parse op 3957851SDana.Myers@Sun.COM * CallbackStatus - Status from previous operation 3967851SDana.Myers@Sun.COM * 3977851SDana.Myers@Sun.COM * RETURN: Status 3987851SDana.Myers@Sun.COM * 3997851SDana.Myers@Sun.COM * DESCRIPTION: Update the parser state based upon the return exception from 4007851SDana.Myers@Sun.COM * the parser callback. 4017851SDana.Myers@Sun.COM * 4027851SDana.Myers@Sun.COM ******************************************************************************/ 4037851SDana.Myers@Sun.COM 4047851SDana.Myers@Sun.COM ACPI_STATUS 4057851SDana.Myers@Sun.COM AcpiPsNextParseState ( 4067851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState, 4077851SDana.Myers@Sun.COM ACPI_PARSE_OBJECT *Op, 4087851SDana.Myers@Sun.COM ACPI_STATUS CallbackStatus) 4097851SDana.Myers@Sun.COM { 4107851SDana.Myers@Sun.COM ACPI_PARSE_STATE *ParserState = &WalkState->ParserState; 4117851SDana.Myers@Sun.COM ACPI_STATUS Status = AE_CTRL_PENDING; 4127851SDana.Myers@Sun.COM 4137851SDana.Myers@Sun.COM 4147851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE_PTR (PsNextParseState, Op); 4157851SDana.Myers@Sun.COM 4167851SDana.Myers@Sun.COM 4177851SDana.Myers@Sun.COM switch (CallbackStatus) 4187851SDana.Myers@Sun.COM { 4197851SDana.Myers@Sun.COM case AE_CTRL_TERMINATE: 4207851SDana.Myers@Sun.COM /* 4217851SDana.Myers@Sun.COM * A control method was terminated via a RETURN statement. 4227851SDana.Myers@Sun.COM * The walk of this method is complete. 4237851SDana.Myers@Sun.COM */ 4247851SDana.Myers@Sun.COM ParserState->Aml = ParserState->AmlEnd; 4257851SDana.Myers@Sun.COM Status = AE_CTRL_TERMINATE; 4267851SDana.Myers@Sun.COM break; 4277851SDana.Myers@Sun.COM 4287851SDana.Myers@Sun.COM 4297851SDana.Myers@Sun.COM case AE_CTRL_BREAK: 4307851SDana.Myers@Sun.COM 4317851SDana.Myers@Sun.COM ParserState->Aml = WalkState->AmlLastWhile; 4327851SDana.Myers@Sun.COM WalkState->ControlState->Common.Value = FALSE; 4337851SDana.Myers@Sun.COM Status = AE_CTRL_BREAK; 4347851SDana.Myers@Sun.COM break; 4357851SDana.Myers@Sun.COM 4367851SDana.Myers@Sun.COM 4377851SDana.Myers@Sun.COM case AE_CTRL_CONTINUE: 4387851SDana.Myers@Sun.COM 4397851SDana.Myers@Sun.COM ParserState->Aml = WalkState->AmlLastWhile; 4407851SDana.Myers@Sun.COM Status = AE_CTRL_CONTINUE; 4417851SDana.Myers@Sun.COM break; 4427851SDana.Myers@Sun.COM 4437851SDana.Myers@Sun.COM 4447851SDana.Myers@Sun.COM case AE_CTRL_PENDING: 4457851SDana.Myers@Sun.COM 4467851SDana.Myers@Sun.COM ParserState->Aml = WalkState->AmlLastWhile; 4477851SDana.Myers@Sun.COM break; 4487851SDana.Myers@Sun.COM 4497851SDana.Myers@Sun.COM #if 0 4507851SDana.Myers@Sun.COM case AE_CTRL_SKIP: 4517851SDana.Myers@Sun.COM 4527851SDana.Myers@Sun.COM ParserState->Aml = ParserState->Scope->ParseScope.PkgEnd; 4537851SDana.Myers@Sun.COM Status = AE_OK; 4547851SDana.Myers@Sun.COM break; 4557851SDana.Myers@Sun.COM #endif 4567851SDana.Myers@Sun.COM 4577851SDana.Myers@Sun.COM case AE_CTRL_TRUE: 4587851SDana.Myers@Sun.COM /* 4597851SDana.Myers@Sun.COM * Predicate of an IF was true, and we are at the matching ELSE. 4607851SDana.Myers@Sun.COM * Just close out this package 4617851SDana.Myers@Sun.COM */ 4627851SDana.Myers@Sun.COM ParserState->Aml = AcpiPsGetNextPackageEnd (ParserState); 4637851SDana.Myers@Sun.COM Status = AE_CTRL_PENDING; 4647851SDana.Myers@Sun.COM break; 4657851SDana.Myers@Sun.COM 4667851SDana.Myers@Sun.COM 4677851SDana.Myers@Sun.COM case AE_CTRL_FALSE: 4687851SDana.Myers@Sun.COM /* 4697851SDana.Myers@Sun.COM * Either an IF/WHILE Predicate was false or we encountered a BREAK 4707851SDana.Myers@Sun.COM * opcode. In both cases, we do not execute the rest of the 4717851SDana.Myers@Sun.COM * package; We simply close out the parent (finishing the walk of 4727851SDana.Myers@Sun.COM * this branch of the tree) and continue execution at the parent 4737851SDana.Myers@Sun.COM * level. 4747851SDana.Myers@Sun.COM */ 4757851SDana.Myers@Sun.COM ParserState->Aml = ParserState->Scope->ParseScope.PkgEnd; 4767851SDana.Myers@Sun.COM 4777851SDana.Myers@Sun.COM /* In the case of a BREAK, just force a predicate (if any) to FALSE */ 4787851SDana.Myers@Sun.COM 4797851SDana.Myers@Sun.COM WalkState->ControlState->Common.Value = FALSE; 4807851SDana.Myers@Sun.COM Status = AE_CTRL_END; 4817851SDana.Myers@Sun.COM break; 4827851SDana.Myers@Sun.COM 4837851SDana.Myers@Sun.COM 4847851SDana.Myers@Sun.COM case AE_CTRL_TRANSFER: 4857851SDana.Myers@Sun.COM 4867851SDana.Myers@Sun.COM /* A method call (invocation) -- transfer control */ 4877851SDana.Myers@Sun.COM 4887851SDana.Myers@Sun.COM Status = AE_CTRL_TRANSFER; 4897851SDana.Myers@Sun.COM WalkState->PrevOp = Op; 4907851SDana.Myers@Sun.COM WalkState->MethodCallOp = Op; 4917851SDana.Myers@Sun.COM WalkState->MethodCallNode = (Op->Common.Value.Arg)->Common.Node; 4927851SDana.Myers@Sun.COM 4937851SDana.Myers@Sun.COM /* Will return value (if any) be used by the caller? */ 4947851SDana.Myers@Sun.COM 4957851SDana.Myers@Sun.COM WalkState->ReturnUsed = AcpiDsIsResultUsed (Op, WalkState); 4967851SDana.Myers@Sun.COM break; 4977851SDana.Myers@Sun.COM 4987851SDana.Myers@Sun.COM 4997851SDana.Myers@Sun.COM default: 5007851SDana.Myers@Sun.COM 5017851SDana.Myers@Sun.COM Status = CallbackStatus; 5027851SDana.Myers@Sun.COM if ((CallbackStatus & AE_CODE_MASK) == AE_CODE_CONTROL) 5037851SDana.Myers@Sun.COM { 5047851SDana.Myers@Sun.COM Status = AE_OK; 5057851SDana.Myers@Sun.COM } 5067851SDana.Myers@Sun.COM break; 5077851SDana.Myers@Sun.COM } 5087851SDana.Myers@Sun.COM 5097851SDana.Myers@Sun.COM return_ACPI_STATUS (Status); 5107851SDana.Myers@Sun.COM } 5117851SDana.Myers@Sun.COM 5127851SDana.Myers@Sun.COM 5137851SDana.Myers@Sun.COM /******************************************************************************* 5147851SDana.Myers@Sun.COM * 5157851SDana.Myers@Sun.COM * FUNCTION: AcpiPsParseAml 5167851SDana.Myers@Sun.COM * 5177851SDana.Myers@Sun.COM * PARAMETERS: WalkState - Current state 5187851SDana.Myers@Sun.COM * 5197851SDana.Myers@Sun.COM * 5207851SDana.Myers@Sun.COM * RETURN: Status 5217851SDana.Myers@Sun.COM * 5227851SDana.Myers@Sun.COM * DESCRIPTION: Parse raw AML and return a tree of ops 5237851SDana.Myers@Sun.COM * 5247851SDana.Myers@Sun.COM ******************************************************************************/ 5257851SDana.Myers@Sun.COM 5267851SDana.Myers@Sun.COM ACPI_STATUS 5277851SDana.Myers@Sun.COM AcpiPsParseAml ( 5287851SDana.Myers@Sun.COM ACPI_WALK_STATE *WalkState) 5297851SDana.Myers@Sun.COM { 5307851SDana.Myers@Sun.COM ACPI_STATUS Status; 5317851SDana.Myers@Sun.COM ACPI_THREAD_STATE *Thread; 5327851SDana.Myers@Sun.COM ACPI_THREAD_STATE *PrevWalkList = AcpiGbl_CurrentWalkList; 5337851SDana.Myers@Sun.COM ACPI_WALK_STATE *PreviousWalkState; 5347851SDana.Myers@Sun.COM 5357851SDana.Myers@Sun.COM 5367851SDana.Myers@Sun.COM ACPI_FUNCTION_TRACE (PsParseAml); 5377851SDana.Myers@Sun.COM 5387851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, 5397851SDana.Myers@Sun.COM "Entered with WalkState=%p Aml=%p size=%X\n", 5407851SDana.Myers@Sun.COM WalkState, WalkState->ParserState.Aml, 5417851SDana.Myers@Sun.COM WalkState->ParserState.AmlSize)); 5427851SDana.Myers@Sun.COM 543*9980SDana.Myers@Sun.COM if (!WalkState->ParserState.Aml) 544*9980SDana.Myers@Sun.COM { 545*9980SDana.Myers@Sun.COM return_ACPI_STATUS (AE_NULL_OBJECT); 546*9980SDana.Myers@Sun.COM } 5477851SDana.Myers@Sun.COM 5487851SDana.Myers@Sun.COM /* Create and initialize a new thread state */ 5497851SDana.Myers@Sun.COM 5507851SDana.Myers@Sun.COM Thread = AcpiUtCreateThreadState (); 5517851SDana.Myers@Sun.COM if (!Thread) 5527851SDana.Myers@Sun.COM { 553*9980SDana.Myers@Sun.COM if (WalkState->MethodDesc) 554*9980SDana.Myers@Sun.COM { 555*9980SDana.Myers@Sun.COM /* Executing a control method - additional cleanup */ 556*9980SDana.Myers@Sun.COM 557*9980SDana.Myers@Sun.COM AcpiDsTerminateControlMethod (WalkState->MethodDesc, WalkState); 558*9980SDana.Myers@Sun.COM } 559*9980SDana.Myers@Sun.COM 5607851SDana.Myers@Sun.COM AcpiDsDeleteWalkState (WalkState); 5617851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_NO_MEMORY); 5627851SDana.Myers@Sun.COM } 5637851SDana.Myers@Sun.COM 5647851SDana.Myers@Sun.COM WalkState->Thread = Thread; 5657851SDana.Myers@Sun.COM 5667851SDana.Myers@Sun.COM /* 5677851SDana.Myers@Sun.COM * If executing a method, the starting SyncLevel is this method's 5687851SDana.Myers@Sun.COM * SyncLevel 5697851SDana.Myers@Sun.COM */ 5707851SDana.Myers@Sun.COM if (WalkState->MethodDesc) 5717851SDana.Myers@Sun.COM { 5727851SDana.Myers@Sun.COM WalkState->Thread->CurrentSyncLevel = WalkState->MethodDesc->Method.SyncLevel; 5737851SDana.Myers@Sun.COM } 5747851SDana.Myers@Sun.COM 5757851SDana.Myers@Sun.COM AcpiDsPushWalkState (WalkState, Thread); 5767851SDana.Myers@Sun.COM 5777851SDana.Myers@Sun.COM /* 5787851SDana.Myers@Sun.COM * This global allows the AML debugger to get a handle to the currently 5797851SDana.Myers@Sun.COM * executing control method. 5807851SDana.Myers@Sun.COM */ 5817851SDana.Myers@Sun.COM AcpiGbl_CurrentWalkList = Thread; 5827851SDana.Myers@Sun.COM 5837851SDana.Myers@Sun.COM /* 5847851SDana.Myers@Sun.COM * Execute the walk loop as long as there is a valid Walk State. This 5857851SDana.Myers@Sun.COM * handles nested control method invocations without recursion. 5867851SDana.Myers@Sun.COM */ 5877851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, "State=%p\n", WalkState)); 5887851SDana.Myers@Sun.COM 5897851SDana.Myers@Sun.COM Status = AE_OK; 5907851SDana.Myers@Sun.COM while (WalkState) 5917851SDana.Myers@Sun.COM { 5927851SDana.Myers@Sun.COM if (ACPI_SUCCESS (Status)) 5937851SDana.Myers@Sun.COM { 5947851SDana.Myers@Sun.COM /* 5957851SDana.Myers@Sun.COM * The ParseLoop executes AML until the method terminates 5967851SDana.Myers@Sun.COM * or calls another method. 5977851SDana.Myers@Sun.COM */ 5987851SDana.Myers@Sun.COM Status = AcpiPsParseLoop (WalkState); 5997851SDana.Myers@Sun.COM } 6007851SDana.Myers@Sun.COM 6017851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, 6027851SDana.Myers@Sun.COM "Completed one call to walk loop, %s State=%p\n", 6037851SDana.Myers@Sun.COM AcpiFormatException (Status), WalkState)); 6047851SDana.Myers@Sun.COM 6057851SDana.Myers@Sun.COM if (Status == AE_CTRL_TRANSFER) 6067851SDana.Myers@Sun.COM { 6077851SDana.Myers@Sun.COM /* 6087851SDana.Myers@Sun.COM * A method call was detected. 6097851SDana.Myers@Sun.COM * Transfer control to the called control method 6107851SDana.Myers@Sun.COM */ 6117851SDana.Myers@Sun.COM Status = AcpiDsCallControlMethod (Thread, WalkState, NULL); 6127851SDana.Myers@Sun.COM if (ACPI_FAILURE (Status)) 6137851SDana.Myers@Sun.COM { 6147851SDana.Myers@Sun.COM Status = AcpiDsMethodError (Status, WalkState); 6157851SDana.Myers@Sun.COM } 6167851SDana.Myers@Sun.COM 6177851SDana.Myers@Sun.COM /* 6187851SDana.Myers@Sun.COM * If the transfer to the new method method call worked, a new walk 6197851SDana.Myers@Sun.COM * state was created -- get it 6207851SDana.Myers@Sun.COM */ 6217851SDana.Myers@Sun.COM WalkState = AcpiDsGetCurrentWalkState (Thread); 6227851SDana.Myers@Sun.COM continue; 6237851SDana.Myers@Sun.COM } 6247851SDana.Myers@Sun.COM else if (Status == AE_CTRL_TERMINATE) 6257851SDana.Myers@Sun.COM { 6267851SDana.Myers@Sun.COM Status = AE_OK; 6277851SDana.Myers@Sun.COM } 6287851SDana.Myers@Sun.COM else if ((Status != AE_OK) && (WalkState->MethodDesc)) 6297851SDana.Myers@Sun.COM { 6307851SDana.Myers@Sun.COM /* Either the method parse or actual execution failed */ 6317851SDana.Myers@Sun.COM 6327851SDana.Myers@Sun.COM ACPI_ERROR_METHOD ("Method parse/execution failed", 6337851SDana.Myers@Sun.COM WalkState->MethodNode, NULL, Status); 6347851SDana.Myers@Sun.COM 6357851SDana.Myers@Sun.COM /* Check for possible multi-thread reentrancy problem */ 6367851SDana.Myers@Sun.COM 6377851SDana.Myers@Sun.COM if ((Status == AE_ALREADY_EXISTS) && 6387851SDana.Myers@Sun.COM (!WalkState->MethodDesc->Method.Mutex)) 6397851SDana.Myers@Sun.COM { 6407851SDana.Myers@Sun.COM ACPI_INFO ((AE_INFO, 6417851SDana.Myers@Sun.COM "Marking method %4.4s as Serialized because of AE_ALREADY_EXISTS error", 6427851SDana.Myers@Sun.COM WalkState->MethodNode->Name.Ascii)); 6437851SDana.Myers@Sun.COM 6447851SDana.Myers@Sun.COM /* 6457851SDana.Myers@Sun.COM * Method tried to create an object twice. The probable cause is 6467851SDana.Myers@Sun.COM * that the method cannot handle reentrancy. 6477851SDana.Myers@Sun.COM * 6487851SDana.Myers@Sun.COM * The method is marked NotSerialized, but it tried to create 6497851SDana.Myers@Sun.COM * a named object, causing the second thread entrance to fail. 6507851SDana.Myers@Sun.COM * Workaround this problem by marking the method permanently 6517851SDana.Myers@Sun.COM * as Serialized. 6527851SDana.Myers@Sun.COM */ 6537851SDana.Myers@Sun.COM WalkState->MethodDesc->Method.MethodFlags |= AML_METHOD_SERIALIZED; 6547851SDana.Myers@Sun.COM WalkState->MethodDesc->Method.SyncLevel = 0; 6557851SDana.Myers@Sun.COM } 6567851SDana.Myers@Sun.COM } 6577851SDana.Myers@Sun.COM 6587851SDana.Myers@Sun.COM /* We are done with this walk, move on to the parent if any */ 6597851SDana.Myers@Sun.COM 6607851SDana.Myers@Sun.COM WalkState = AcpiDsPopWalkState (Thread); 6617851SDana.Myers@Sun.COM 6627851SDana.Myers@Sun.COM /* Reset the current scope to the beginning of scope stack */ 6637851SDana.Myers@Sun.COM 6647851SDana.Myers@Sun.COM AcpiDsScopeStackClear (WalkState); 6657851SDana.Myers@Sun.COM 6667851SDana.Myers@Sun.COM /* 6677851SDana.Myers@Sun.COM * If we just returned from the execution of a control method or if we 6687851SDana.Myers@Sun.COM * encountered an error during the method parse phase, there's lots of 6697851SDana.Myers@Sun.COM * cleanup to do 6707851SDana.Myers@Sun.COM */ 6717851SDana.Myers@Sun.COM if (((WalkState->ParseFlags & ACPI_PARSE_MODE_MASK) == ACPI_PARSE_EXECUTE) || 6727851SDana.Myers@Sun.COM (ACPI_FAILURE (Status))) 6737851SDana.Myers@Sun.COM { 6747851SDana.Myers@Sun.COM AcpiDsTerminateControlMethod (WalkState->MethodDesc, WalkState); 6757851SDana.Myers@Sun.COM } 6767851SDana.Myers@Sun.COM 6777851SDana.Myers@Sun.COM /* Delete this walk state and all linked control states */ 6787851SDana.Myers@Sun.COM 6797851SDana.Myers@Sun.COM AcpiPsCleanupScope (&WalkState->ParserState); 6807851SDana.Myers@Sun.COM PreviousWalkState = WalkState; 6817851SDana.Myers@Sun.COM 6827851SDana.Myers@Sun.COM ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, 6837851SDana.Myers@Sun.COM "ReturnValue=%p, ImplicitValue=%p State=%p\n", 6847851SDana.Myers@Sun.COM WalkState->ReturnDesc, WalkState->ImplicitReturnObj, WalkState)); 6857851SDana.Myers@Sun.COM 6867851SDana.Myers@Sun.COM /* Check if we have restarted a preempted walk */ 6877851SDana.Myers@Sun.COM 6887851SDana.Myers@Sun.COM WalkState = AcpiDsGetCurrentWalkState (Thread); 6897851SDana.Myers@Sun.COM if (WalkState) 6907851SDana.Myers@Sun.COM { 6917851SDana.Myers@Sun.COM if (ACPI_SUCCESS (Status)) 6927851SDana.Myers@Sun.COM { 6937851SDana.Myers@Sun.COM /* 6947851SDana.Myers@Sun.COM * There is another walk state, restart it. 6957851SDana.Myers@Sun.COM * If the method return value is not used by the parent, 6967851SDana.Myers@Sun.COM * The object is deleted 6977851SDana.Myers@Sun.COM */ 6987851SDana.Myers@Sun.COM if (!PreviousWalkState->ReturnDesc) 6997851SDana.Myers@Sun.COM { 7007851SDana.Myers@Sun.COM /* 7017851SDana.Myers@Sun.COM * In slack mode execution, if there is no return value 7027851SDana.Myers@Sun.COM * we should implicitly return zero (0) as a default value. 7037851SDana.Myers@Sun.COM */ 7047851SDana.Myers@Sun.COM if (AcpiGbl_EnableInterpreterSlack && 7057851SDana.Myers@Sun.COM !PreviousWalkState->ImplicitReturnObj) 7067851SDana.Myers@Sun.COM { 7077851SDana.Myers@Sun.COM PreviousWalkState->ImplicitReturnObj = 7087851SDana.Myers@Sun.COM AcpiUtCreateInternalObject (ACPI_TYPE_INTEGER); 7097851SDana.Myers@Sun.COM if (!PreviousWalkState->ImplicitReturnObj) 7107851SDana.Myers@Sun.COM { 7117851SDana.Myers@Sun.COM return_ACPI_STATUS (AE_NO_MEMORY); 7127851SDana.Myers@Sun.COM } 7137851SDana.Myers@Sun.COM 7147851SDana.Myers@Sun.COM PreviousWalkState->ImplicitReturnObj->Integer.Value = 0; 7157851SDana.Myers@Sun.COM } 7167851SDana.Myers@Sun.COM 7177851SDana.Myers@Sun.COM /* Restart the calling control method */ 7187851SDana.Myers@Sun.COM 7197851SDana.Myers@Sun.COM Status = AcpiDsRestartControlMethod (WalkState, 7207851SDana.Myers@Sun.COM PreviousWalkState->ImplicitReturnObj); 7217851SDana.Myers@Sun.COM } 7227851SDana.Myers@Sun.COM else 7237851SDana.Myers@Sun.COM { 7247851SDana.Myers@Sun.COM /* 7257851SDana.Myers@Sun.COM * We have a valid return value, delete any implicit 7267851SDana.Myers@Sun.COM * return value. 7277851SDana.Myers@Sun.COM */ 7287851SDana.Myers@Sun.COM AcpiDsClearImplicitReturn (PreviousWalkState); 7297851SDana.Myers@Sun.COM 7307851SDana.Myers@Sun.COM Status = AcpiDsRestartControlMethod (WalkState, 7317851SDana.Myers@Sun.COM PreviousWalkState->ReturnDesc); 7327851SDana.Myers@Sun.COM } 7337851SDana.Myers@Sun.COM if (ACPI_SUCCESS (Status)) 7347851SDana.Myers@Sun.COM { 7357851SDana.Myers@Sun.COM WalkState->WalkType |= ACPI_WALK_METHOD_RESTART; 7367851SDana.Myers@Sun.COM } 7377851SDana.Myers@Sun.COM } 7387851SDana.Myers@Sun.COM else 7397851SDana.Myers@Sun.COM { 740*9980SDana.Myers@Sun.COM /* On error, delete any return object or implicit return */ 7417851SDana.Myers@Sun.COM 7427851SDana.Myers@Sun.COM AcpiUtRemoveReference (PreviousWalkState->ReturnDesc); 743*9980SDana.Myers@Sun.COM AcpiDsClearImplicitReturn (PreviousWalkState); 7447851SDana.Myers@Sun.COM } 7457851SDana.Myers@Sun.COM } 7467851SDana.Myers@Sun.COM 7477851SDana.Myers@Sun.COM /* 7487851SDana.Myers@Sun.COM * Just completed a 1st-level method, save the final internal return 7497851SDana.Myers@Sun.COM * value (if any) 7507851SDana.Myers@Sun.COM */ 7517851SDana.Myers@Sun.COM else if (PreviousWalkState->CallerReturnDesc) 7527851SDana.Myers@Sun.COM { 7537851SDana.Myers@Sun.COM if (PreviousWalkState->ImplicitReturnObj) 7547851SDana.Myers@Sun.COM { 7557851SDana.Myers@Sun.COM *(PreviousWalkState->CallerReturnDesc) = 7567851SDana.Myers@Sun.COM PreviousWalkState->ImplicitReturnObj; 7577851SDana.Myers@Sun.COM } 7587851SDana.Myers@Sun.COM else 7597851SDana.Myers@Sun.COM { 7607851SDana.Myers@Sun.COM /* NULL if no return value */ 7617851SDana.Myers@Sun.COM 7627851SDana.Myers@Sun.COM *(PreviousWalkState->CallerReturnDesc) = 7637851SDana.Myers@Sun.COM PreviousWalkState->ReturnDesc; 7647851SDana.Myers@Sun.COM } 7657851SDana.Myers@Sun.COM } 7667851SDana.Myers@Sun.COM else 7677851SDana.Myers@Sun.COM { 7687851SDana.Myers@Sun.COM if (PreviousWalkState->ReturnDesc) 7697851SDana.Myers@Sun.COM { 7707851SDana.Myers@Sun.COM /* Caller doesn't want it, must delete it */ 7717851SDana.Myers@Sun.COM 7727851SDana.Myers@Sun.COM AcpiUtRemoveReference (PreviousWalkState->ReturnDesc); 7737851SDana.Myers@Sun.COM } 7747851SDana.Myers@Sun.COM if (PreviousWalkState->ImplicitReturnObj) 7757851SDana.Myers@Sun.COM { 7767851SDana.Myers@Sun.COM /* Caller doesn't want it, must delete it */ 7777851SDana.Myers@Sun.COM 7787851SDana.Myers@Sun.COM AcpiUtRemoveReference (PreviousWalkState->ImplicitReturnObj); 7797851SDana.Myers@Sun.COM } 7807851SDana.Myers@Sun.COM } 7817851SDana.Myers@Sun.COM 7827851SDana.Myers@Sun.COM AcpiDsDeleteWalkState (PreviousWalkState); 7837851SDana.Myers@Sun.COM } 7847851SDana.Myers@Sun.COM 7857851SDana.Myers@Sun.COM /* Normal exit */ 7867851SDana.Myers@Sun.COM 7877851SDana.Myers@Sun.COM AcpiExReleaseAllMutexes (Thread); 7887851SDana.Myers@Sun.COM AcpiUtDeleteGenericState (ACPI_CAST_PTR (ACPI_GENERIC_STATE, Thread)); 7897851SDana.Myers@Sun.COM AcpiGbl_CurrentWalkList = PrevWalkList; 7907851SDana.Myers@Sun.COM return_ACPI_STATUS (Status); 7917851SDana.Myers@Sun.COM } 7927851SDana.Myers@Sun.COM 7937851SDana.Myers@Sun.COM 794