Home | History | Annotate | Line # | Download | only in parser
psobject.c revision 1.1.1.10
      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.10  christos  * Copyright (C) 2000 - 2018, 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.10  christos     ACPI_ERROR_ONLY (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.10  christos             ACPI_ERROR_ONLY(AmlOffset = (UINT32) ACPI_PTR_DIFF (WalkState->Aml,
    113  1.1.1.10  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