Home | History | Annotate | Line # | Download | only in parser
psobject.c revision 1.1.1.9
      1      1.1  christos /******************************************************************************
      2      1.1  christos  *
      3      1.1  christos  * Module Name: psobject - Support for parse objects
      4      1.1  christos  *
      5      1.1  christos  *****************************************************************************/
      6      1.1  christos 
      7      1.1  christos /*
      8  1.1.1.6  christos  * Copyright (C) 2000 - 2017, Intel Corp.
      9      1.1  christos  * All rights reserved.
     10      1.1  christos  *
     11      1.1  christos  * Redistribution and use in source and binary forms, with or without
     12      1.1  christos  * modification, are permitted provided that the following conditions
     13      1.1  christos  * are met:
     14      1.1  christos  * 1. Redistributions of source code must retain the above copyright
     15      1.1  christos  *    notice, this list of conditions, and the following disclaimer,
     16      1.1  christos  *    without modification.
     17      1.1  christos  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
     18      1.1  christos  *    substantially similar to the "NO WARRANTY" disclaimer below
     19      1.1  christos  *    ("Disclaimer") and any redistribution must be conditioned upon
     20      1.1  christos  *    including a substantially similar Disclaimer requirement for further
     21      1.1  christos  *    binary redistribution.
     22      1.1  christos  * 3. Neither the names of the above-listed copyright holders nor the names
     23      1.1  christos  *    of any contributors may be used to endorse or promote products derived
     24      1.1  christos  *    from this software without specific prior written permission.
     25      1.1  christos  *
     26      1.1  christos  * Alternatively, this software may be distributed under the terms of the
     27      1.1  christos  * GNU General Public License ("GPL") version 2 as published by the Free
     28      1.1  christos  * Software Foundation.
     29      1.1  christos  *
     30      1.1  christos  * NO WARRANTY
     31      1.1  christos  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
     32      1.1  christos  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
     33      1.1  christos  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
     34      1.1  christos  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
     35      1.1  christos  * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     36      1.1  christos  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     37      1.1  christos  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     38      1.1  christos  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
     39      1.1  christos  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
     40      1.1  christos  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     41      1.1  christos  * POSSIBILITY OF SUCH DAMAGES.
     42      1.1  christos  */
     43      1.1  christos 
     44      1.1  christos #include "acpi.h"
     45      1.1  christos #include "accommon.h"
     46      1.1  christos #include "acparser.h"
     47      1.1  christos #include "amlcode.h"
     48  1.1.1.7  christos #include "acconvert.h"
     49      1.1  christos 
     50      1.1  christos #define _COMPONENT          ACPI_PARSER
     51      1.1  christos         ACPI_MODULE_NAME    ("psobject")
     52      1.1  christos 
     53      1.1  christos 
     54      1.1  christos /* Local prototypes */
     55      1.1  christos 
     56      1.1  christos static ACPI_STATUS
     57      1.1  christos AcpiPsGetAmlOpcode (
     58      1.1  christos     ACPI_WALK_STATE         *WalkState);
     59      1.1  christos 
     60      1.1  christos 
     61      1.1  christos /*******************************************************************************
     62      1.1  christos  *
     63      1.1  christos  * FUNCTION:    AcpiPsGetAmlOpcode
     64      1.1  christos  *
     65      1.1  christos  * PARAMETERS:  WalkState           - Current state
     66      1.1  christos  *
     67      1.1  christos  * RETURN:      Status
     68      1.1  christos  *
     69      1.1  christos  * DESCRIPTION: Extract the next AML opcode from the input stream.
     70      1.1  christos  *
     71      1.1  christos  ******************************************************************************/
     72      1.1  christos 
     73      1.1  christos static ACPI_STATUS
     74      1.1  christos AcpiPsGetAmlOpcode (
     75      1.1  christos     ACPI_WALK_STATE         *WalkState)
     76      1.1  christos {
     77  1.1.1.4  christos     UINT32                  AmlOffset;
     78  1.1.1.4  christos 
     79      1.1  christos 
     80      1.1  christos     ACPI_FUNCTION_TRACE_PTR (PsGetAmlOpcode, WalkState);
     81      1.1  christos 
     82      1.1  christos 
     83  1.1.1.4  christos     WalkState->Aml = WalkState->ParserState.Aml;
     84      1.1  christos     WalkState->Opcode = AcpiPsPeekOpcode (&(WalkState->ParserState));
     85      1.1  christos 
     86      1.1  christos     /*
     87      1.1  christos      * First cut to determine what we have found:
     88      1.1  christos      * 1) A valid AML opcode
     89      1.1  christos      * 2) A name string
     90      1.1  christos      * 3) An unknown/invalid opcode
     91      1.1  christos      */
     92      1.1  christos     WalkState->OpInfo = AcpiPsGetOpcodeInfo (WalkState->Opcode);
     93      1.1  christos 
     94      1.1  christos     switch (WalkState->OpInfo->Class)
     95      1.1  christos     {
     96      1.1  christos     case AML_CLASS_ASCII:
     97      1.1  christos     case AML_CLASS_PREFIX:
     98      1.1  christos         /*
     99      1.1  christos          * Starts with a valid prefix or ASCII char, this is a name
    100      1.1  christos          * string. Convert the bare name string to a namepath.
    101      1.1  christos          */
    102      1.1  christos         WalkState->Opcode = AML_INT_NAMEPATH_OP;
    103      1.1  christos         WalkState->ArgTypes = ARGP_NAMESTRING;
    104      1.1  christos         break;
    105      1.1  christos 
    106      1.1  christos     case AML_CLASS_UNKNOWN:
    107      1.1  christos 
    108      1.1  christos         /* The opcode is unrecognized. Complain and skip unknown opcodes */
    109      1.1  christos 
    110      1.1  christos         if (WalkState->PassNumber == 2)
    111      1.1  christos         {
    112  1.1.1.4  christos             AmlOffset = (UINT32) ACPI_PTR_DIFF (WalkState->Aml,
    113  1.1.1.5  christos                 WalkState->ParserState.AmlStart);
    114  1.1.1.4  christos 
    115      1.1  christos             ACPI_ERROR ((AE_INFO,
    116      1.1  christos                 "Unknown opcode 0x%.2X at table offset 0x%.4X, ignoring",
    117      1.1  christos                 WalkState->Opcode,
    118  1.1.1.4  christos                 (UINT32) (AmlOffset + sizeof (ACPI_TABLE_HEADER))));
    119      1.1  christos 
    120      1.1  christos             ACPI_DUMP_BUFFER ((WalkState->ParserState.Aml - 16), 48);
    121      1.1  christos 
    122      1.1  christos #ifdef ACPI_ASL_COMPILER
    123      1.1  christos             /*
    124      1.1  christos              * This is executed for the disassembler only. Output goes
    125      1.1  christos              * to the disassembled ASL output file.
    126      1.1  christos              */
    127      1.1  christos             AcpiOsPrintf (
    128      1.1  christos                 "/*\nError: Unknown opcode 0x%.2X at table offset 0x%.4X, context:\n",
    129      1.1  christos                 WalkState->Opcode,
    130  1.1.1.4  christos                 (UINT32) (AmlOffset + sizeof (ACPI_TABLE_HEADER)));
    131      1.1  christos 
    132  1.1.1.8  christos             ACPI_ERROR ((AE_INFO,
    133  1.1.1.8  christos                 "Aborting disassembly, AML byte code is corrupt"));
    134  1.1.1.8  christos 
    135      1.1  christos             /* Dump the context surrounding the invalid opcode */
    136      1.1  christos 
    137      1.1  christos             AcpiUtDumpBuffer (((UINT8 *) WalkState->ParserState.Aml - 16),
    138      1.1  christos                 48, DB_BYTE_DISPLAY,
    139  1.1.1.4  christos                 (AmlOffset + sizeof (ACPI_TABLE_HEADER) - 16));
    140      1.1  christos             AcpiOsPrintf (" */\n");
    141  1.1.1.8  christos 
    142  1.1.1.8  christos             /*
    143  1.1.1.8  christos              * Just abort the disassembly, cannot continue because the
    144  1.1.1.8  christos              * parser is essentially lost. The disassembler can then
    145  1.1.1.8  christos              * randomly fail because an ill-constructed parse tree
    146  1.1.1.8  christos              * can result.
    147  1.1.1.8  christos              */
    148  1.1.1.8  christos             return_ACPI_STATUS (AE_AML_BAD_OPCODE);
    149      1.1  christos #endif
    150      1.1  christos         }
    151      1.1  christos 
    152      1.1  christos         /* Increment past one-byte or two-byte opcode */
    153      1.1  christos 
    154      1.1  christos         WalkState->ParserState.Aml++;
    155      1.1  christos         if (WalkState->Opcode > 0xFF) /* Can only happen if first byte is 0x5B */
    156      1.1  christos         {
    157      1.1  christos             WalkState->ParserState.Aml++;
    158      1.1  christos         }
    159      1.1  christos 
    160      1.1  christos         return_ACPI_STATUS (AE_CTRL_PARSE_CONTINUE);
    161      1.1  christos 
    162      1.1  christos     default:
    163      1.1  christos 
    164      1.1  christos         /* Found opcode info, this is a normal opcode */
    165      1.1  christos 
    166  1.1.1.5  christos         WalkState->ParserState.Aml +=
    167  1.1.1.5  christos             AcpiPsGetOpcodeSize (WalkState->Opcode);
    168      1.1  christos         WalkState->ArgTypes = WalkState->OpInfo->ParseArgs;
    169      1.1  christos         break;
    170      1.1  christos     }
    171      1.1  christos 
    172      1.1  christos     return_ACPI_STATUS (AE_OK);
    173      1.1  christos }
    174      1.1  christos 
    175      1.1  christos 
    176      1.1  christos /*******************************************************************************
    177      1.1  christos  *
    178      1.1  christos  * FUNCTION:    AcpiPsBuildNamedOp
    179      1.1  christos  *
    180      1.1  christos  * PARAMETERS:  WalkState           - Current state
    181      1.1  christos  *              AmlOpStart          - Begin of named Op in AML
    182      1.1  christos  *              UnnamedOp           - Early Op (not a named Op)
    183      1.1  christos  *              Op                  - Returned Op
    184      1.1  christos  *
    185      1.1  christos  * RETURN:      Status
    186      1.1  christos  *
    187      1.1  christos  * DESCRIPTION: Parse a named Op
    188      1.1  christos  *
    189      1.1  christos  ******************************************************************************/
    190      1.1  christos 
    191      1.1  christos ACPI_STATUS
    192      1.1  christos AcpiPsBuildNamedOp (
    193      1.1  christos     ACPI_WALK_STATE         *WalkState,
    194      1.1  christos     UINT8                   *AmlOpStart,
    195      1.1  christos     ACPI_PARSE_OBJECT       *UnnamedOp,
    196      1.1  christos     ACPI_PARSE_OBJECT       **Op)
    197      1.1  christos {
    198      1.1  christos     ACPI_STATUS             Status = AE_OK;
    199      1.1  christos     ACPI_PARSE_OBJECT       *Arg = NULL;
    200      1.1  christos 
    201      1.1  christos 
    202      1.1  christos     ACPI_FUNCTION_TRACE_PTR (PsBuildNamedOp, WalkState);
    203      1.1  christos 
    204      1.1  christos 
    205      1.1  christos     UnnamedOp->Common.Value.Arg = NULL;
    206      1.1  christos     UnnamedOp->Common.ArgListLength = 0;
    207      1.1  christos     UnnamedOp->Common.AmlOpcode = WalkState->Opcode;
    208      1.1  christos 
    209      1.1  christos     /*
    210      1.1  christos      * Get and append arguments until we find the node that contains
    211      1.1  christos      * the name (the type ARGP_NAME).
    212      1.1  christos      */
    213      1.1  christos     while (GET_CURRENT_ARG_TYPE (WalkState->ArgTypes) &&
    214      1.1  christos           (GET_CURRENT_ARG_TYPE (WalkState->ArgTypes) != ARGP_NAME))
    215      1.1  christos     {
    216  1.1.1.7  christos         ASL_CV_CAPTURE_COMMENTS (WalkState);
    217      1.1  christos         Status = AcpiPsGetNextArg (WalkState, &(WalkState->ParserState),
    218  1.1.1.5  christos             GET_CURRENT_ARG_TYPE (WalkState->ArgTypes), &Arg);
    219      1.1  christos         if (ACPI_FAILURE (Status))
    220      1.1  christos         {
    221      1.1  christos             return_ACPI_STATUS (Status);
    222      1.1  christos         }
    223      1.1  christos 
    224      1.1  christos         AcpiPsAppendArg (UnnamedOp, Arg);
    225      1.1  christos         INCREMENT_ARG_LIST (WalkState->ArgTypes);
    226      1.1  christos     }
    227      1.1  christos 
    228  1.1.1.7  christos     /* are there any inline comments associated with the NameSeg?? If so, save this. */
    229  1.1.1.7  christos 
    230  1.1.1.7  christos     ASL_CV_CAPTURE_COMMENTS (WalkState);
    231  1.1.1.7  christos 
    232  1.1.1.7  christos #ifdef ACPI_ASL_COMPILER
    233  1.1.1.7  christos     if (AcpiGbl_CurrentInlineComment != NULL)
    234  1.1.1.7  christos     {
    235  1.1.1.7  christos         UnnamedOp->Common.NameComment = AcpiGbl_CurrentInlineComment;
    236  1.1.1.7  christos         AcpiGbl_CurrentInlineComment = NULL;
    237  1.1.1.7  christos     }
    238  1.1.1.7  christos #endif
    239  1.1.1.7  christos 
    240      1.1  christos     /*
    241      1.1  christos      * Make sure that we found a NAME and didn't run out of arguments
    242      1.1  christos      */
    243      1.1  christos     if (!GET_CURRENT_ARG_TYPE (WalkState->ArgTypes))
    244      1.1  christos     {
    245      1.1  christos         return_ACPI_STATUS (AE_AML_NO_OPERAND);
    246      1.1  christos     }
    247      1.1  christos 
    248      1.1  christos     /* We know that this arg is a name, move to next arg */
    249      1.1  christos 
    250      1.1  christos     INCREMENT_ARG_LIST (WalkState->ArgTypes);
    251      1.1  christos 
    252      1.1  christos     /*
    253      1.1  christos      * Find the object. This will either insert the object into
    254      1.1  christos      * the namespace or simply look it up
    255      1.1  christos      */
    256      1.1  christos     WalkState->Op = NULL;
    257      1.1  christos 
    258      1.1  christos     Status = WalkState->DescendingCallback (WalkState, Op);
    259      1.1  christos     if (ACPI_FAILURE (Status))
    260      1.1  christos     {
    261  1.1.1.2  christos         if (Status != AE_CTRL_TERMINATE)
    262  1.1.1.2  christos         {
    263  1.1.1.2  christos             ACPI_EXCEPTION ((AE_INFO, Status, "During name lookup/catalog"));
    264  1.1.1.2  christos         }
    265      1.1  christos         return_ACPI_STATUS (Status);
    266      1.1  christos     }
    267      1.1  christos 
    268      1.1  christos     if (!*Op)
    269      1.1  christos     {
    270      1.1  christos         return_ACPI_STATUS (AE_CTRL_PARSE_CONTINUE);
    271      1.1  christos     }
    272      1.1  christos 
    273      1.1  christos     Status = AcpiPsNextParseState (WalkState, *Op, Status);
    274      1.1  christos     if (ACPI_FAILURE (Status))
    275      1.1  christos     {
    276      1.1  christos         if (Status == AE_CTRL_PENDING)
    277      1.1  christos         {
    278  1.1.1.2  christos             Status = AE_CTRL_PARSE_PENDING;
    279      1.1  christos         }
    280      1.1  christos         return_ACPI_STATUS (Status);
    281      1.1  christos     }
    282      1.1  christos 
    283      1.1  christos     AcpiPsAppendArg (*Op, UnnamedOp->Common.Value.Arg);
    284      1.1  christos 
    285  1.1.1.7  christos #ifdef ACPI_ASL_COMPILER
    286  1.1.1.7  christos 
    287  1.1.1.7  christos     /* save any comments that might be associated with UnnamedOp. */
    288  1.1.1.7  christos 
    289  1.1.1.7  christos     (*Op)->Common.InlineComment     = UnnamedOp->Common.InlineComment;
    290  1.1.1.7  christos     (*Op)->Common.EndNodeComment    = UnnamedOp->Common.EndNodeComment;
    291  1.1.1.7  christos     (*Op)->Common.CloseBraceComment = UnnamedOp->Common.CloseBraceComment;
    292  1.1.1.7  christos     (*Op)->Common.NameComment       = UnnamedOp->Common.NameComment;
    293  1.1.1.7  christos     (*Op)->Common.CommentList       = UnnamedOp->Common.CommentList;
    294  1.1.1.7  christos     (*Op)->Common.EndBlkComment     = UnnamedOp->Common.EndBlkComment;
    295  1.1.1.7  christos     (*Op)->Common.CvFilename        = UnnamedOp->Common.CvFilename;
    296  1.1.1.7  christos     (*Op)->Common.CvParentFilename  = UnnamedOp->Common.CvParentFilename;
    297  1.1.1.7  christos     (*Op)->Named.Aml                = UnnamedOp->Common.Aml;
    298  1.1.1.7  christos 
    299  1.1.1.7  christos     UnnamedOp->Common.InlineComment     = NULL;
    300  1.1.1.7  christos     UnnamedOp->Common.EndNodeComment    = NULL;
    301  1.1.1.7  christos     UnnamedOp->Common.CloseBraceComment = NULL;
    302  1.1.1.7  christos     UnnamedOp->Common.NameComment       = NULL;
    303  1.1.1.7  christos     UnnamedOp->Common.CommentList       = NULL;
    304  1.1.1.7  christos     UnnamedOp->Common.EndBlkComment     = NULL;
    305  1.1.1.7  christos #endif
    306  1.1.1.7  christos 
    307      1.1  christos     if ((*Op)->Common.AmlOpcode == AML_REGION_OP ||
    308      1.1  christos         (*Op)->Common.AmlOpcode == AML_DATA_REGION_OP)
    309      1.1  christos     {
    310      1.1  christos         /*
    311      1.1  christos          * Defer final parsing of an OperationRegion body, because we don't
    312      1.1  christos          * have enough info in the first pass to parse it correctly (i.e.,
    313      1.1  christos          * there may be method calls within the TermArg elements of the body.)
    314      1.1  christos          *
    315      1.1  christos          * However, we must continue parsing because the opregion is not a
    316      1.1  christos          * standalone package -- we don't know where the end is at this point.
    317      1.1  christos          *
    318      1.1  christos          * (Length is unknown until parse of the body complete)
    319      1.1  christos          */
    320      1.1  christos         (*Op)->Named.Data = AmlOpStart;
    321      1.1  christos         (*Op)->Named.Length = 0;
    322      1.1  christos     }
    323      1.1  christos 
    324      1.1  christos     return_ACPI_STATUS (AE_OK);
    325      1.1  christos }
    326      1.1  christos 
    327      1.1  christos 
    328      1.1  christos /*******************************************************************************
    329      1.1  christos  *
    330      1.1  christos  * FUNCTION:    AcpiPsCreateOp
    331      1.1  christos  *
    332      1.1  christos  * PARAMETERS:  WalkState           - Current state
    333      1.1  christos  *              AmlOpStart          - Op start in AML
    334      1.1  christos  *              NewOp               - Returned Op
    335      1.1  christos  *
    336      1.1  christos  * RETURN:      Status
    337      1.1  christos  *
    338      1.1  christos  * DESCRIPTION: Get Op from AML
    339      1.1  christos  *
    340      1.1  christos  ******************************************************************************/
    341      1.1  christos 
    342      1.1  christos ACPI_STATUS
    343      1.1  christos AcpiPsCreateOp (
    344      1.1  christos     ACPI_WALK_STATE         *WalkState,
    345      1.1  christos     UINT8                   *AmlOpStart,
    346      1.1  christos     ACPI_PARSE_OBJECT       **NewOp)
    347      1.1  christos {
    348      1.1  christos     ACPI_STATUS             Status = AE_OK;
    349      1.1  christos     ACPI_PARSE_OBJECT       *Op;
    350      1.1  christos     ACPI_PARSE_OBJECT       *NamedOp = NULL;
    351      1.1  christos     ACPI_PARSE_OBJECT       *ParentScope;
    352      1.1  christos     UINT8                   ArgumentCount;
    353      1.1  christos     const ACPI_OPCODE_INFO  *OpInfo;
    354      1.1  christos 
    355      1.1  christos 
    356      1.1  christos     ACPI_FUNCTION_TRACE_PTR (PsCreateOp, WalkState);
    357      1.1  christos 
    358      1.1  christos 
    359      1.1  christos     Status = AcpiPsGetAmlOpcode (WalkState);
    360      1.1  christos     if (Status == AE_CTRL_PARSE_CONTINUE)
    361      1.1  christos     {
    362      1.1  christos         return_ACPI_STATUS (AE_CTRL_PARSE_CONTINUE);
    363      1.1  christos     }
    364  1.1.1.8  christos     if (ACPI_FAILURE (Status))
    365  1.1.1.8  christos     {
    366  1.1.1.8  christos         return_ACPI_STATUS (Status);
    367  1.1.1.8  christos     }
    368      1.1  christos 
    369      1.1  christos     /* Create Op structure and append to parent's argument list */
    370      1.1  christos 
    371      1.1  christos     WalkState->OpInfo = AcpiPsGetOpcodeInfo (WalkState->Opcode);
    372  1.1.1.4  christos     Op = AcpiPsAllocOp (WalkState->Opcode, AmlOpStart);
    373      1.1  christos     if (!Op)
    374      1.1  christos     {
    375      1.1  christos         return_ACPI_STATUS (AE_NO_MEMORY);
    376      1.1  christos     }
    377      1.1  christos 
    378      1.1  christos     if (WalkState->OpInfo->Flags & AML_NAMED)
    379      1.1  christos     {
    380      1.1  christos         Status = AcpiPsBuildNamedOp (WalkState, AmlOpStart, Op, &NamedOp);
    381      1.1  christos         AcpiPsFreeOp (Op);
    382  1.1.1.8  christos 
    383  1.1.1.8  christos #ifdef ACPI_ASL_COMPILER
    384  1.1.1.8  christos         if (AcpiGbl_DisasmFlag && WalkState->Opcode == AML_EXTERNAL_OP &&
    385  1.1.1.8  christos             Status == AE_NOT_FOUND)
    386  1.1.1.8  christos         {
    387  1.1.1.8  christos             /*
    388  1.1.1.8  christos              * If parsing of AML_EXTERNAL_OP's name path fails, then skip
    389  1.1.1.8  christos              * past this opcode and keep parsing. This is a much better
    390  1.1.1.8  christos              * alternative than to abort the entire disassembler. At this
    391  1.1.1.8  christos              * point, the ParserState is at the end of the namepath of the
    392  1.1.1.8  christos              * external declaration opcode. Setting WalkState->Aml to
    393  1.1.1.8  christos              * WalkState->ParserState.Aml + 2 moves increments the
    394  1.1.1.8  christos              * WalkState->Aml past the object type and the paramcount of the
    395  1.1.1.9  christos              * external opcode.
    396  1.1.1.8  christos              */
    397  1.1.1.8  christos             WalkState->Aml = WalkState->ParserState.Aml + 2;
    398  1.1.1.9  christos             WalkState->ParserState.Aml = WalkState->Aml;
    399  1.1.1.8  christos             return_ACPI_STATUS (AE_CTRL_PARSE_CONTINUE);
    400  1.1.1.8  christos         }
    401  1.1.1.8  christos #endif
    402      1.1  christos         if (ACPI_FAILURE (Status))
    403      1.1  christos         {
    404      1.1  christos             return_ACPI_STATUS (Status);
    405      1.1  christos         }
    406      1.1  christos 
    407      1.1  christos         *NewOp = NamedOp;
    408      1.1  christos         return_ACPI_STATUS (AE_OK);
    409      1.1  christos     }
    410      1.1  christos 
    411      1.1  christos     /* Not a named opcode, just allocate Op and append to parent */
    412      1.1  christos 
    413      1.1  christos     if (WalkState->OpInfo->Flags & AML_CREATE)
    414      1.1  christos     {
    415      1.1  christos         /*
    416      1.1  christos          * Backup to beginning of CreateXXXfield declaration
    417      1.1  christos          * BodyLength is unknown until we parse the body
    418      1.1  christos          */
    419      1.1  christos         Op->Named.Data = AmlOpStart;
    420      1.1  christos         Op->Named.Length = 0;
    421      1.1  christos     }
    422      1.1  christos 
    423      1.1  christos     if (WalkState->Opcode == AML_BANK_FIELD_OP)
    424      1.1  christos     {
    425      1.1  christos         /*
    426      1.1  christos          * Backup to beginning of BankField declaration
    427      1.1  christos          * BodyLength is unknown until we parse the body
    428      1.1  christos          */
    429      1.1  christos         Op->Named.Data = AmlOpStart;
    430      1.1  christos         Op->Named.Length = 0;
    431      1.1  christos     }
    432      1.1  christos 
    433      1.1  christos     ParentScope = AcpiPsGetParentScope (&(WalkState->ParserState));
    434      1.1  christos     AcpiPsAppendArg (ParentScope, Op);
    435      1.1  christos 
    436      1.1  christos     if (ParentScope)
    437      1.1  christos     {
    438      1.1  christos         OpInfo = AcpiPsGetOpcodeInfo (ParentScope->Common.AmlOpcode);
    439      1.1  christos         if (OpInfo->Flags & AML_HAS_TARGET)
    440      1.1  christos         {
    441      1.1  christos             ArgumentCount = AcpiPsGetArgumentCount (OpInfo->Type);
    442      1.1  christos             if (ParentScope->Common.ArgListLength > ArgumentCount)
    443      1.1  christos             {
    444      1.1  christos                 Op->Common.Flags |= ACPI_PARSEOP_TARGET;
    445      1.1  christos             }
    446      1.1  christos         }
    447  1.1.1.6  christos 
    448  1.1.1.6  christos         /*
    449  1.1.1.6  christos          * Special case for both Increment() and Decrement(), where
    450  1.1.1.6  christos          * the lone argument is both a source and a target.
    451  1.1.1.6  christos          */
    452  1.1.1.6  christos         else if ((ParentScope->Common.AmlOpcode == AML_INCREMENT_OP) ||
    453  1.1.1.6  christos                 (ParentScope->Common.AmlOpcode == AML_DECREMENT_OP))
    454      1.1  christos         {
    455      1.1  christos             Op->Common.Flags |= ACPI_PARSEOP_TARGET;
    456      1.1  christos         }
    457      1.1  christos     }
    458      1.1  christos 
    459      1.1  christos     if (WalkState->DescendingCallback != NULL)
    460      1.1  christos     {
    461      1.1  christos         /*
    462      1.1  christos          * Find the object. This will either insert the object into
    463      1.1  christos          * the namespace or simply look it up
    464      1.1  christos          */
    465      1.1  christos         WalkState->Op = *NewOp = Op;
    466      1.1  christos 
    467      1.1  christos         Status = WalkState->DescendingCallback (WalkState, &Op);
    468      1.1  christos         Status = AcpiPsNextParseState (WalkState, Op, Status);
    469      1.1  christos         if (Status == AE_CTRL_PENDING)
    470      1.1  christos         {
    471      1.1  christos             Status = AE_CTRL_PARSE_PENDING;
    472      1.1  christos         }
    473      1.1  christos     }
    474      1.1  christos 
    475      1.1  christos     return_ACPI_STATUS (Status);
    476      1.1  christos }
    477      1.1  christos 
    478      1.1  christos 
    479      1.1  christos /*******************************************************************************
    480      1.1  christos  *
    481      1.1  christos  * FUNCTION:    AcpiPsCompleteOp
    482      1.1  christos  *
    483      1.1  christos  * PARAMETERS:  WalkState           - Current state
    484      1.1  christos  *              Op                  - Returned Op
    485      1.1  christos  *              Status              - Parse status before complete Op
    486      1.1  christos  *
    487      1.1  christos  * RETURN:      Status
    488      1.1  christos  *
    489      1.1  christos  * DESCRIPTION: Complete Op
    490      1.1  christos  *
    491      1.1  christos  ******************************************************************************/
    492      1.1  christos 
    493      1.1  christos ACPI_STATUS
    494      1.1  christos AcpiPsCompleteOp (
    495      1.1  christos     ACPI_WALK_STATE         *WalkState,
    496      1.1  christos     ACPI_PARSE_OBJECT       **Op,
    497      1.1  christos     ACPI_STATUS             Status)
    498      1.1  christos {
    499      1.1  christos     ACPI_STATUS             Status2;
    500      1.1  christos 
    501      1.1  christos 
    502      1.1  christos     ACPI_FUNCTION_TRACE_PTR (PsCompleteOp, WalkState);
    503      1.1  christos 
    504      1.1  christos 
    505      1.1  christos     /*
    506      1.1  christos      * Finished one argument of the containing scope
    507      1.1  christos      */
    508      1.1  christos     WalkState->ParserState.Scope->ParseScope.ArgCount--;
    509      1.1  christos 
    510      1.1  christos     /* Close this Op (will result in parse subtree deletion) */
    511      1.1  christos 
    512      1.1  christos     Status2 = AcpiPsCompleteThisOp (WalkState, *Op);
    513      1.1  christos     if (ACPI_FAILURE (Status2))
    514      1.1  christos     {
    515      1.1  christos         return_ACPI_STATUS (Status2);
    516      1.1  christos     }
    517      1.1  christos 
    518      1.1  christos     *Op = NULL;
    519      1.1  christos 
    520      1.1  christos     switch (Status)
    521      1.1  christos     {
    522      1.1  christos     case AE_OK:
    523      1.1  christos 
    524      1.1  christos         break;
    525      1.1  christos 
    526      1.1  christos     case AE_CTRL_TRANSFER:
    527      1.1  christos 
    528      1.1  christos         /* We are about to transfer to a called method */
    529      1.1  christos 
    530      1.1  christos         WalkState->PrevOp = NULL;
    531      1.1  christos         WalkState->PrevArgTypes = WalkState->ArgTypes;
    532      1.1  christos         return_ACPI_STATUS (Status);
    533      1.1  christos 
    534      1.1  christos     case AE_CTRL_END:
    535      1.1  christos 
    536      1.1  christos         AcpiPsPopScope (&(WalkState->ParserState), Op,
    537      1.1  christos             &WalkState->ArgTypes, &WalkState->ArgCount);
    538      1.1  christos 
    539      1.1  christos         if (*Op)
    540      1.1  christos         {
    541      1.1  christos             WalkState->Op = *Op;
    542      1.1  christos             WalkState->OpInfo = AcpiPsGetOpcodeInfo ((*Op)->Common.AmlOpcode);
    543      1.1  christos             WalkState->Opcode = (*Op)->Common.AmlOpcode;
    544      1.1  christos 
    545      1.1  christos             Status = WalkState->AscendingCallback (WalkState);
    546      1.1  christos             Status = AcpiPsNextParseState (WalkState, *Op, Status);
    547      1.1  christos 
    548      1.1  christos             Status2 = AcpiPsCompleteThisOp (WalkState, *Op);
    549      1.1  christos             if (ACPI_FAILURE (Status2))
    550      1.1  christos             {
    551      1.1  christos                 return_ACPI_STATUS (Status2);
    552      1.1  christos             }
    553      1.1  christos         }
    554      1.1  christos 
    555      1.1  christos         Status = AE_OK;
    556      1.1  christos         break;
    557      1.1  christos 
    558      1.1  christos     case AE_CTRL_BREAK:
    559      1.1  christos     case AE_CTRL_CONTINUE:
    560      1.1  christos 
    561      1.1  christos         /* Pop off scopes until we find the While */
    562      1.1  christos 
    563      1.1  christos         while (!(*Op) || ((*Op)->Common.AmlOpcode != AML_WHILE_OP))
    564      1.1  christos         {
    565      1.1  christos             AcpiPsPopScope (&(WalkState->ParserState), Op,
    566      1.1  christos                 &WalkState->ArgTypes, &WalkState->ArgCount);
    567      1.1  christos         }
    568      1.1  christos 
    569      1.1  christos         /* Close this iteration of the While loop */
    570      1.1  christos 
    571      1.1  christos         WalkState->Op = *Op;
    572      1.1  christos         WalkState->OpInfo = AcpiPsGetOpcodeInfo ((*Op)->Common.AmlOpcode);
    573      1.1  christos         WalkState->Opcode = (*Op)->Common.AmlOpcode;
    574      1.1  christos 
    575      1.1  christos         Status = WalkState->AscendingCallback (WalkState);
    576      1.1  christos         Status = AcpiPsNextParseState (WalkState, *Op, Status);
    577      1.1  christos 
    578      1.1  christos         Status2 = AcpiPsCompleteThisOp (WalkState, *Op);
    579      1.1  christos         if (ACPI_FAILURE (Status2))
    580      1.1  christos         {
    581      1.1  christos             return_ACPI_STATUS (Status2);
    582      1.1  christos         }
    583      1.1  christos 
    584      1.1  christos         Status = AE_OK;
    585      1.1  christos         break;
    586      1.1  christos 
    587      1.1  christos     case AE_CTRL_TERMINATE:
    588      1.1  christos 
    589      1.1  christos         /* Clean up */
    590      1.1  christos         do
    591      1.1  christos         {
    592      1.1  christos             if (*Op)
    593      1.1  christos             {
    594      1.1  christos                 Status2 = AcpiPsCompleteThisOp (WalkState, *Op);
    595      1.1  christos                 if (ACPI_FAILURE (Status2))
    596      1.1  christos                 {
    597      1.1  christos                     return_ACPI_STATUS (Status2);
    598      1.1  christos                 }
    599      1.1  christos 
    600      1.1  christos                 AcpiUtDeleteGenericState (
    601      1.1  christos                     AcpiUtPopGenericState (&WalkState->ControlState));
    602      1.1  christos             }
    603      1.1  christos 
    604      1.1  christos             AcpiPsPopScope (&(WalkState->ParserState), Op,
    605      1.1  christos                 &WalkState->ArgTypes, &WalkState->ArgCount);
    606      1.1  christos 
    607      1.1  christos         } while (*Op);
    608      1.1  christos 
    609      1.1  christos         return_ACPI_STATUS (AE_OK);
    610      1.1  christos 
    611      1.1  christos     default:  /* All other non-AE_OK status */
    612      1.1  christos 
    613      1.1  christos         do
    614      1.1  christos         {
    615      1.1  christos             if (*Op)
    616      1.1  christos             {
    617      1.1  christos                 Status2 = AcpiPsCompleteThisOp (WalkState, *Op);
    618      1.1  christos                 if (ACPI_FAILURE (Status2))
    619      1.1  christos                 {
    620      1.1  christos                     return_ACPI_STATUS (Status2);
    621      1.1  christos                 }
    622      1.1  christos             }
    623      1.1  christos 
    624      1.1  christos             AcpiPsPopScope (&(WalkState->ParserState), Op,
    625      1.1  christos                 &WalkState->ArgTypes, &WalkState->ArgCount);
    626      1.1  christos 
    627      1.1  christos         } while (*Op);
    628      1.1  christos 
    629      1.1  christos 
    630      1.1  christos #if 0
    631      1.1  christos         /*
    632      1.1  christos          * TBD: Cleanup parse ops on error
    633      1.1  christos          */
    634      1.1  christos         if (*Op == NULL)
    635      1.1  christos         {
    636      1.1  christos             AcpiPsPopScope (ParserState, Op,
    637      1.1  christos                 &WalkState->ArgTypes, &WalkState->ArgCount);
    638      1.1  christos         }
    639      1.1  christos #endif
    640      1.1  christos         WalkState->PrevOp = NULL;
    641      1.1  christos         WalkState->PrevArgTypes = WalkState->ArgTypes;
    642      1.1  christos         return_ACPI_STATUS (Status);
    643      1.1  christos     }
    644      1.1  christos 
    645      1.1  christos     /* This scope complete? */
    646      1.1  christos 
    647      1.1  christos     if (AcpiPsHasCompletedScope (&(WalkState->ParserState)))
    648      1.1  christos     {
    649      1.1  christos         AcpiPsPopScope (&(WalkState->ParserState), Op,
    650      1.1  christos             &WalkState->ArgTypes, &WalkState->ArgCount);
    651      1.1  christos         ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, "Popped scope, Op=%p\n", *Op));
    652      1.1  christos     }
    653      1.1  christos     else
    654      1.1  christos     {
    655      1.1  christos         *Op = NULL;
    656      1.1  christos     }
    657      1.1  christos 
    658      1.1  christos     return_ACPI_STATUS (AE_OK);
    659      1.1  christos }
    660      1.1  christos 
    661      1.1  christos 
    662      1.1  christos /*******************************************************************************
    663      1.1  christos  *
    664      1.1  christos  * FUNCTION:    AcpiPsCompleteFinalOp
    665      1.1  christos  *
    666      1.1  christos  * PARAMETERS:  WalkState           - Current state
    667      1.1  christos  *              Op                  - Current Op
    668      1.1  christos  *              Status              - Current parse status before complete last
    669      1.1  christos  *                                    Op
    670      1.1  christos  *
    671      1.1  christos  * RETURN:      Status
    672      1.1  christos  *
    673      1.1  christos  * DESCRIPTION: Complete last Op.
    674      1.1  christos  *
    675      1.1  christos  ******************************************************************************/
    676      1.1  christos 
    677      1.1  christos ACPI_STATUS
    678      1.1  christos AcpiPsCompleteFinalOp (
    679      1.1  christos     ACPI_WALK_STATE         *WalkState,
    680      1.1  christos     ACPI_PARSE_OBJECT       *Op,
    681      1.1  christos     ACPI_STATUS             Status)
    682      1.1  christos {
    683      1.1  christos     ACPI_STATUS             Status2;
    684      1.1  christos 
    685      1.1  christos 
    686      1.1  christos     ACPI_FUNCTION_TRACE_PTR (PsCompleteFinalOp, WalkState);
    687      1.1  christos 
    688      1.1  christos 
    689      1.1  christos     /*
    690      1.1  christos      * Complete the last Op (if not completed), and clear the scope stack.
    691      1.1  christos      * It is easily possible to end an AML "package" with an unbounded number
    692      1.1  christos      * of open scopes (such as when several ASL blocks are closed with
    693      1.1  christos      * sequential closing braces). We want to terminate each one cleanly.
    694      1.1  christos      */
    695      1.1  christos     ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, "AML package complete at Op %p\n", Op));
    696      1.1  christos     do
    697      1.1  christos     {
    698      1.1  christos         if (Op)
    699      1.1  christos         {
    700      1.1  christos             if (WalkState->AscendingCallback != NULL)
    701      1.1  christos             {
    702      1.1  christos                 WalkState->Op = Op;
    703      1.1  christos                 WalkState->OpInfo = AcpiPsGetOpcodeInfo (Op->Common.AmlOpcode);
    704      1.1  christos                 WalkState->Opcode = Op->Common.AmlOpcode;
    705      1.1  christos 
    706      1.1  christos                 Status = WalkState->AscendingCallback (WalkState);
    707      1.1  christos                 Status = AcpiPsNextParseState (WalkState, Op, Status);
    708      1.1  christos                 if (Status == AE_CTRL_PENDING)
    709      1.1  christos                 {
    710      1.1  christos                     Status = AcpiPsCompleteOp (WalkState, &Op, AE_OK);
    711      1.1  christos                     if (ACPI_FAILURE (Status))
    712      1.1  christos                     {
    713      1.1  christos                         return_ACPI_STATUS (Status);
    714      1.1  christos                     }
    715      1.1  christos                 }
    716      1.1  christos 
    717      1.1  christos                 if (Status == AE_CTRL_TERMINATE)
    718      1.1  christos                 {
    719      1.1  christos                     Status = AE_OK;
    720      1.1  christos 
    721      1.1  christos                     /* Clean up */
    722      1.1  christos                     do
    723      1.1  christos                     {
    724      1.1  christos                         if (Op)
    725      1.1  christos                         {
    726      1.1  christos                             Status2 = AcpiPsCompleteThisOp (WalkState, Op);
    727      1.1  christos                             if (ACPI_FAILURE (Status2))
    728      1.1  christos                             {
    729      1.1  christos                                 return_ACPI_STATUS (Status2);
    730      1.1  christos                             }
    731      1.1  christos                         }
    732      1.1  christos 
    733      1.1  christos                         AcpiPsPopScope (&(WalkState->ParserState), &Op,
    734      1.1  christos                             &WalkState->ArgTypes, &WalkState->ArgCount);
    735      1.1  christos 
    736      1.1  christos                     } while (Op);
    737      1.1  christos 
    738      1.1  christos                     return_ACPI_STATUS (Status);
    739      1.1  christos                 }
    740      1.1  christos 
    741      1.1  christos                 else if (ACPI_FAILURE (Status))
    742      1.1  christos                 {
    743      1.1  christos                     /* First error is most important */
    744      1.1  christos 
    745      1.1  christos                     (void) AcpiPsCompleteThisOp (WalkState, Op);
    746      1.1  christos                     return_ACPI_STATUS (Status);
    747      1.1  christos                 }
    748      1.1  christos             }
    749      1.1  christos 
    750      1.1  christos             Status2 = AcpiPsCompleteThisOp (WalkState, Op);
    751      1.1  christos             if (ACPI_FAILURE (Status2))
    752      1.1  christos             {
    753      1.1  christos                 return_ACPI_STATUS (Status2);
    754      1.1  christos             }
    755      1.1  christos         }
    756      1.1  christos 
    757      1.1  christos         AcpiPsPopScope (&(WalkState->ParserState), &Op, &WalkState->ArgTypes,
    758      1.1  christos             &WalkState->ArgCount);
    759      1.1  christos 
    760      1.1  christos     } while (Op);
    761      1.1  christos 
    762      1.1  christos     return_ACPI_STATUS (Status);
    763      1.1  christos }
    764