Home | History | Annotate | Line # | Download | only in debugger
dbmethod.c revision 1.19.6.1
      1       1.1    jruoho /*******************************************************************************
      2       1.1    jruoho  *
      3       1.1    jruoho  * Module Name: dbmethod - Debug commands for control methods
      4       1.1    jruoho  *
      5       1.1    jruoho  ******************************************************************************/
      6       1.1    jruoho 
      7  1.19.6.1  perseant /******************************************************************************
      8  1.19.6.1  perseant  *
      9  1.19.6.1  perseant  * 1. Copyright Notice
     10  1.19.6.1  perseant  *
     11  1.19.6.1  perseant  * Some or all of this work - Copyright (c) 1999 - 2024, Intel Corp.
     12       1.1    jruoho  * All rights reserved.
     13       1.1    jruoho  *
     14  1.19.6.1  perseant  * 2. License
     15  1.19.6.1  perseant  *
     16  1.19.6.1  perseant  * 2.1. This is your license from Intel Corp. under its intellectual property
     17  1.19.6.1  perseant  * rights. You may have additional license terms from the party that provided
     18  1.19.6.1  perseant  * you this software, covering your right to use that party's intellectual
     19  1.19.6.1  perseant  * property rights.
     20  1.19.6.1  perseant  *
     21  1.19.6.1  perseant  * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a
     22  1.19.6.1  perseant  * copy of the source code appearing in this file ("Covered Code") an
     23  1.19.6.1  perseant  * irrevocable, perpetual, worldwide license under Intel's copyrights in the
     24  1.19.6.1  perseant  * base code distributed originally by Intel ("Original Intel Code") to copy,
     25  1.19.6.1  perseant  * make derivatives, distribute, use and display any portion of the Covered
     26  1.19.6.1  perseant  * Code in any form, with the right to sublicense such rights; and
     27  1.19.6.1  perseant  *
     28  1.19.6.1  perseant  * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent
     29  1.19.6.1  perseant  * license (with the right to sublicense), under only those claims of Intel
     30  1.19.6.1  perseant  * patents that are infringed by the Original Intel Code, to make, use, sell,
     31  1.19.6.1  perseant  * offer to sell, and import the Covered Code and derivative works thereof
     32  1.19.6.1  perseant  * solely to the minimum extent necessary to exercise the above copyright
     33  1.19.6.1  perseant  * license, and in no event shall the patent license extend to any additions
     34  1.19.6.1  perseant  * to or modifications of the Original Intel Code. No other license or right
     35  1.19.6.1  perseant  * is granted directly or by implication, estoppel or otherwise;
     36  1.19.6.1  perseant  *
     37  1.19.6.1  perseant  * The above copyright and patent license is granted only if the following
     38  1.19.6.1  perseant  * conditions are met:
     39  1.19.6.1  perseant  *
     40  1.19.6.1  perseant  * 3. Conditions
     41  1.19.6.1  perseant  *
     42  1.19.6.1  perseant  * 3.1. Redistribution of Source with Rights to Further Distribute Source.
     43  1.19.6.1  perseant  * Redistribution of source code of any substantial portion of the Covered
     44  1.19.6.1  perseant  * Code or modification with rights to further distribute source must include
     45  1.19.6.1  perseant  * the above Copyright Notice, the above License, this list of Conditions,
     46  1.19.6.1  perseant  * and the following Disclaimer and Export Compliance provision. In addition,
     47  1.19.6.1  perseant  * Licensee must cause all Covered Code to which Licensee contributes to
     48  1.19.6.1  perseant  * contain a file documenting the changes Licensee made to create that Covered
     49  1.19.6.1  perseant  * Code and the date of any change. Licensee must include in that file the
     50  1.19.6.1  perseant  * documentation of any changes made by any predecessor Licensee. Licensee
     51  1.19.6.1  perseant  * must include a prominent statement that the modification is derived,
     52  1.19.6.1  perseant  * directly or indirectly, from Original Intel Code.
     53  1.19.6.1  perseant  *
     54  1.19.6.1  perseant  * 3.2. Redistribution of Source with no Rights to Further Distribute Source.
     55  1.19.6.1  perseant  * Redistribution of source code of any substantial portion of the Covered
     56  1.19.6.1  perseant  * Code or modification without rights to further distribute source must
     57  1.19.6.1  perseant  * include the following Disclaimer and Export Compliance provision in the
     58  1.19.6.1  perseant  * documentation and/or other materials provided with distribution. In
     59  1.19.6.1  perseant  * addition, Licensee may not authorize further sublicense of source of any
     60  1.19.6.1  perseant  * portion of the Covered Code, and must include terms to the effect that the
     61  1.19.6.1  perseant  * license from Licensee to its licensee is limited to the intellectual
     62  1.19.6.1  perseant  * property embodied in the software Licensee provides to its licensee, and
     63  1.19.6.1  perseant  * not to intellectual property embodied in modifications its licensee may
     64  1.19.6.1  perseant  * make.
     65  1.19.6.1  perseant  *
     66  1.19.6.1  perseant  * 3.3. Redistribution of Executable. Redistribution in executable form of any
     67  1.19.6.1  perseant  * substantial portion of the Covered Code or modification must reproduce the
     68  1.19.6.1  perseant  * above Copyright Notice, and the following Disclaimer and Export Compliance
     69  1.19.6.1  perseant  * provision in the documentation and/or other materials provided with the
     70  1.19.6.1  perseant  * distribution.
     71  1.19.6.1  perseant  *
     72  1.19.6.1  perseant  * 3.4. Intel retains all right, title, and interest in and to the Original
     73  1.19.6.1  perseant  * Intel Code.
     74  1.19.6.1  perseant  *
     75  1.19.6.1  perseant  * 3.5. Neither the name Intel nor any other trademark owned or controlled by
     76  1.19.6.1  perseant  * Intel shall be used in advertising or otherwise to promote the sale, use or
     77  1.19.6.1  perseant  * other dealings in products derived from or relating to the Covered Code
     78  1.19.6.1  perseant  * without prior written authorization from Intel.
     79  1.19.6.1  perseant  *
     80  1.19.6.1  perseant  * 4. Disclaimer and Export Compliance
     81  1.19.6.1  perseant  *
     82  1.19.6.1  perseant  * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED
     83  1.19.6.1  perseant  * HERE. ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE
     84  1.19.6.1  perseant  * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT, ASSISTANCE,
     85  1.19.6.1  perseant  * INSTALLATION, TRAINING OR OTHER SERVICES. INTEL WILL NOT PROVIDE ANY
     86  1.19.6.1  perseant  * UPDATES, ENHANCEMENTS OR EXTENSIONS. INTEL SPECIFICALLY DISCLAIMS ANY
     87  1.19.6.1  perseant  * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A
     88  1.19.6.1  perseant  * PARTICULAR PURPOSE.
     89  1.19.6.1  perseant  *
     90  1.19.6.1  perseant  * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES
     91  1.19.6.1  perseant  * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR
     92  1.19.6.1  perseant  * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,
     93  1.19.6.1  perseant  * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY
     94  1.19.6.1  perseant  * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL
     95  1.19.6.1  perseant  * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES. THESE LIMITATIONS
     96  1.19.6.1  perseant  * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY
     97  1.19.6.1  perseant  * LIMITED REMEDY.
     98  1.19.6.1  perseant  *
     99  1.19.6.1  perseant  * 4.3. Licensee shall not export, either directly or indirectly, any of this
    100  1.19.6.1  perseant  * software or system incorporating such software without first obtaining any
    101  1.19.6.1  perseant  * required license or other approval from the U. S. Department of Commerce or
    102  1.19.6.1  perseant  * any other agency or department of the United States Government. In the
    103  1.19.6.1  perseant  * event Licensee exports any such software from the United States or
    104  1.19.6.1  perseant  * re-exports any such software from a foreign destination, Licensee shall
    105  1.19.6.1  perseant  * ensure that the distribution and export/re-export of the software is in
    106  1.19.6.1  perseant  * compliance with all laws, regulations, orders, or other restrictions of the
    107  1.19.6.1  perseant  * U.S. Export Administration Regulations. Licensee agrees that neither it nor
    108  1.19.6.1  perseant  * any of its subsidiaries will export/re-export any technical data, process,
    109  1.19.6.1  perseant  * software, or service, directly or indirectly, to any country for which the
    110  1.19.6.1  perseant  * United States government or any agency thereof requires an export license,
    111  1.19.6.1  perseant  * other governmental approval, or letter of assurance, without first obtaining
    112  1.19.6.1  perseant  * such license, approval or letter.
    113  1.19.6.1  perseant  *
    114  1.19.6.1  perseant  *****************************************************************************
    115  1.19.6.1  perseant  *
    116  1.19.6.1  perseant  * Alternatively, you may choose to be licensed under the terms of the
    117  1.19.6.1  perseant  * following license:
    118  1.19.6.1  perseant  *
    119       1.1    jruoho  * Redistribution and use in source and binary forms, with or without
    120       1.1    jruoho  * modification, are permitted provided that the following conditions
    121       1.1    jruoho  * are met:
    122       1.1    jruoho  * 1. Redistributions of source code must retain the above copyright
    123       1.1    jruoho  *    notice, this list of conditions, and the following disclaimer,
    124       1.1    jruoho  *    without modification.
    125       1.1    jruoho  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
    126       1.1    jruoho  *    substantially similar to the "NO WARRANTY" disclaimer below
    127       1.1    jruoho  *    ("Disclaimer") and any redistribution must be conditioned upon
    128       1.1    jruoho  *    including a substantially similar Disclaimer requirement for further
    129       1.1    jruoho  *    binary redistribution.
    130       1.1    jruoho  * 3. Neither the names of the above-listed copyright holders nor the names
    131       1.1    jruoho  *    of any contributors may be used to endorse or promote products derived
    132       1.1    jruoho  *    from this software without specific prior written permission.
    133       1.1    jruoho  *
    134       1.1    jruoho  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
    135       1.1    jruoho  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
    136      1.17  christos  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
    137       1.1    jruoho  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
    138  1.19.6.1  perseant  * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
    139  1.19.6.1  perseant  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
    140  1.19.6.1  perseant  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
    141  1.19.6.1  perseant  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
    142  1.19.6.1  perseant  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
    143  1.19.6.1  perseant  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
    144  1.19.6.1  perseant  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    145  1.19.6.1  perseant  *
    146  1.19.6.1  perseant  * Alternatively, you may choose to be licensed under the terms of the
    147  1.19.6.1  perseant  * GNU General Public License ("GPL") version 2 as published by the Free
    148  1.19.6.1  perseant  * Software Foundation.
    149  1.19.6.1  perseant  *
    150  1.19.6.1  perseant  *****************************************************************************/
    151       1.1    jruoho 
    152       1.1    jruoho #include "acpi.h"
    153       1.1    jruoho #include "accommon.h"
    154       1.1    jruoho #include "acdispat.h"
    155       1.1    jruoho #include "acnamesp.h"
    156       1.1    jruoho #include "acdebug.h"
    157       1.1    jruoho #include "acparser.h"
    158       1.2  christos #include "acpredef.h"
    159       1.1    jruoho 
    160       1.1    jruoho 
    161       1.1    jruoho #define _COMPONENT          ACPI_CA_DEBUGGER
    162       1.1    jruoho         ACPI_MODULE_NAME    ("dbmethod")
    163       1.1    jruoho 
    164       1.7  christos /* Local prototypes */
    165       1.7  christos 
    166       1.7  christos static ACPI_STATUS
    167       1.7  christos AcpiDbWalkForExecute (
    168       1.7  christos     ACPI_HANDLE             ObjHandle,
    169       1.7  christos     UINT32                  NestingLevel,
    170       1.7  christos     void                    *Context,
    171       1.7  christos     void                    **ReturnValue);
    172       1.7  christos 
    173      1.16  christos static ACPI_STATUS
    174      1.16  christos AcpiDbEvaluateObject (
    175      1.16  christos     ACPI_NAMESPACE_NODE     *Node);
    176      1.16  christos 
    177       1.1    jruoho 
    178       1.1    jruoho /*******************************************************************************
    179       1.1    jruoho  *
    180       1.1    jruoho  * FUNCTION:    AcpiDbSetMethodBreakpoint
    181       1.1    jruoho  *
    182       1.1    jruoho  * PARAMETERS:  Location            - AML offset of breakpoint
    183       1.1    jruoho  *              WalkState           - Current walk info
    184       1.1    jruoho  *              Op                  - Current Op (from parse walk)
    185       1.1    jruoho  *
    186       1.1    jruoho  * RETURN:      None
    187       1.1    jruoho  *
    188       1.1    jruoho  * DESCRIPTION: Set a breakpoint in a control method at the specified
    189       1.1    jruoho  *              AML offset
    190       1.1    jruoho  *
    191       1.1    jruoho  ******************************************************************************/
    192       1.1    jruoho 
    193       1.1    jruoho void
    194       1.1    jruoho AcpiDbSetMethodBreakpoint (
    195       1.1    jruoho     char                    *Location,
    196       1.1    jruoho     ACPI_WALK_STATE         *WalkState,
    197       1.1    jruoho     ACPI_PARSE_OBJECT       *Op)
    198       1.1    jruoho {
    199       1.1    jruoho     UINT32                  Address;
    200       1.5  christos     UINT32                  AmlOffset;
    201       1.1    jruoho 
    202       1.1    jruoho 
    203       1.1    jruoho     if (!Op)
    204       1.1    jruoho     {
    205       1.1    jruoho         AcpiOsPrintf ("There is no method currently executing\n");
    206       1.1    jruoho         return;
    207       1.1    jruoho     }
    208       1.1    jruoho 
    209       1.1    jruoho     /* Get and verify the breakpoint address */
    210       1.1    jruoho 
    211       1.5  christos     Address = strtoul (Location, NULL, 16);
    212       1.5  christos     AmlOffset = (UINT32) ACPI_PTR_DIFF (Op->Common.Aml,
    213       1.6  christos         WalkState->ParserState.AmlStart);
    214       1.5  christos     if (Address <= AmlOffset)
    215       1.1    jruoho     {
    216       1.1    jruoho         AcpiOsPrintf ("Breakpoint %X is beyond current address %X\n",
    217       1.5  christos             Address, AmlOffset);
    218       1.1    jruoho     }
    219       1.1    jruoho 
    220       1.1    jruoho     /* Save breakpoint in current walk */
    221       1.1    jruoho 
    222       1.1    jruoho     WalkState->UserBreakpoint = Address;
    223       1.1    jruoho     AcpiOsPrintf ("Breakpoint set at AML offset %X\n", Address);
    224       1.1    jruoho }
    225       1.1    jruoho 
    226       1.1    jruoho 
    227       1.1    jruoho /*******************************************************************************
    228       1.1    jruoho  *
    229       1.1    jruoho  * FUNCTION:    AcpiDbSetMethodCallBreakpoint
    230       1.1    jruoho  *
    231       1.1    jruoho  * PARAMETERS:  Op                  - Current Op (from parse walk)
    232       1.1    jruoho  *
    233       1.1    jruoho  * RETURN:      None
    234       1.1    jruoho  *
    235       1.1    jruoho  * DESCRIPTION: Set a breakpoint in a control method at the specified
    236       1.1    jruoho  *              AML offset
    237       1.1    jruoho  *
    238       1.1    jruoho  ******************************************************************************/
    239       1.1    jruoho 
    240       1.1    jruoho void
    241       1.1    jruoho AcpiDbSetMethodCallBreakpoint (
    242       1.1    jruoho     ACPI_PARSE_OBJECT       *Op)
    243       1.1    jruoho {
    244       1.1    jruoho 
    245       1.1    jruoho 
    246       1.1    jruoho     if (!Op)
    247       1.1    jruoho     {
    248       1.1    jruoho         AcpiOsPrintf ("There is no method currently executing\n");
    249       1.1    jruoho         return;
    250       1.1    jruoho     }
    251       1.1    jruoho 
    252       1.1    jruoho     AcpiGbl_StepToNextCall = TRUE;
    253       1.1    jruoho }
    254       1.1    jruoho 
    255       1.1    jruoho 
    256       1.1    jruoho /*******************************************************************************
    257       1.1    jruoho  *
    258       1.1    jruoho  * FUNCTION:    AcpiDbSetMethodData
    259       1.1    jruoho  *
    260       1.1    jruoho  * PARAMETERS:  TypeArg         - L for local, A for argument
    261       1.1    jruoho  *              IndexArg        - which one
    262       1.1    jruoho  *              ValueArg        - Value to set.
    263       1.1    jruoho  *
    264       1.1    jruoho  * RETURN:      None
    265       1.1    jruoho  *
    266       1.1    jruoho  * DESCRIPTION: Set a local or argument for the running control method.
    267       1.1    jruoho  *              NOTE: only object supported is Number.
    268       1.1    jruoho  *
    269       1.1    jruoho  ******************************************************************************/
    270       1.1    jruoho 
    271       1.1    jruoho void
    272       1.1    jruoho AcpiDbSetMethodData (
    273       1.1    jruoho     char                    *TypeArg,
    274       1.1    jruoho     char                    *IndexArg,
    275       1.1    jruoho     char                    *ValueArg)
    276       1.1    jruoho {
    277       1.1    jruoho     char                    Type;
    278       1.1    jruoho     UINT32                  Index;
    279       1.1    jruoho     UINT32                  Value;
    280       1.1    jruoho     ACPI_WALK_STATE         *WalkState;
    281       1.1    jruoho     ACPI_OPERAND_OBJECT     *ObjDesc;
    282       1.1    jruoho     ACPI_STATUS             Status;
    283       1.1    jruoho     ACPI_NAMESPACE_NODE     *Node;
    284       1.1    jruoho 
    285       1.1    jruoho 
    286       1.1    jruoho     /* Validate TypeArg */
    287       1.1    jruoho 
    288       1.1    jruoho     AcpiUtStrupr (TypeArg);
    289       1.1    jruoho     Type = TypeArg[0];
    290       1.1    jruoho     if ((Type != 'L') &&
    291       1.1    jruoho         (Type != 'A') &&
    292       1.1    jruoho         (Type != 'N'))
    293       1.1    jruoho     {
    294       1.1    jruoho         AcpiOsPrintf ("Invalid SET operand: %s\n", TypeArg);
    295       1.1    jruoho         return;
    296       1.1    jruoho     }
    297       1.1    jruoho 
    298       1.5  christos     Value = strtoul (ValueArg, NULL, 16);
    299       1.1    jruoho 
    300       1.1    jruoho     if (Type == 'N')
    301       1.1    jruoho     {
    302       1.1    jruoho         Node = AcpiDbConvertToNode (IndexArg);
    303       1.3  christos         if (!Node)
    304       1.3  christos         {
    305       1.3  christos             return;
    306       1.3  christos         }
    307       1.3  christos 
    308       1.1    jruoho         if (Node->Type != ACPI_TYPE_INTEGER)
    309       1.1    jruoho         {
    310       1.1    jruoho             AcpiOsPrintf ("Can only set Integer nodes\n");
    311       1.1    jruoho             return;
    312       1.1    jruoho         }
    313       1.1    jruoho         ObjDesc = Node->Object;
    314       1.1    jruoho         ObjDesc->Integer.Value = Value;
    315       1.1    jruoho         return;
    316       1.1    jruoho     }
    317       1.1    jruoho 
    318       1.1    jruoho     /* Get the index and value */
    319       1.1    jruoho 
    320       1.5  christos     Index = strtoul (IndexArg, NULL, 16);
    321       1.1    jruoho 
    322       1.1    jruoho     WalkState = AcpiDsGetCurrentWalkState (AcpiGbl_CurrentWalkList);
    323       1.1    jruoho     if (!WalkState)
    324       1.1    jruoho     {
    325       1.1    jruoho         AcpiOsPrintf ("There is no method currently executing\n");
    326       1.1    jruoho         return;
    327       1.1    jruoho     }
    328       1.1    jruoho 
    329       1.1    jruoho     /* Create and initialize the new object */
    330       1.1    jruoho 
    331       1.1    jruoho     ObjDesc = AcpiUtCreateIntegerObject ((UINT64) Value);
    332       1.1    jruoho     if (!ObjDesc)
    333       1.1    jruoho     {
    334       1.1    jruoho         AcpiOsPrintf ("Could not create an internal object\n");
    335       1.1    jruoho         return;
    336       1.1    jruoho     }
    337       1.1    jruoho 
    338       1.1    jruoho     /* Store the new object into the target */
    339       1.1    jruoho 
    340       1.1    jruoho     switch (Type)
    341       1.1    jruoho     {
    342       1.1    jruoho     case 'A':
    343       1.1    jruoho 
    344       1.1    jruoho         /* Set a method argument */
    345       1.1    jruoho 
    346       1.1    jruoho         if (Index > ACPI_METHOD_MAX_ARG)
    347       1.1    jruoho         {
    348       1.6  christos             AcpiOsPrintf ("Arg%u - Invalid argument name\n",
    349       1.6  christos                 Index);
    350       1.1    jruoho             goto Cleanup;
    351       1.1    jruoho         }
    352       1.1    jruoho 
    353       1.6  christos         Status = AcpiDsStoreObjectToLocal (ACPI_REFCLASS_ARG,
    354       1.6  christos             Index, ObjDesc, WalkState);
    355       1.1    jruoho         if (ACPI_FAILURE (Status))
    356       1.1    jruoho         {
    357       1.1    jruoho             goto Cleanup;
    358       1.1    jruoho         }
    359       1.1    jruoho 
    360       1.1    jruoho         ObjDesc = WalkState->Arguments[Index].Object;
    361       1.1    jruoho 
    362       1.1    jruoho         AcpiOsPrintf ("Arg%u: ", Index);
    363       1.5  christos         AcpiDbDisplayInternalObject (ObjDesc, WalkState);
    364       1.1    jruoho         break;
    365       1.1    jruoho 
    366       1.1    jruoho     case 'L':
    367       1.1    jruoho 
    368       1.1    jruoho         /* Set a method local */
    369       1.1    jruoho 
    370       1.1    jruoho         if (Index > ACPI_METHOD_MAX_LOCAL)
    371       1.1    jruoho         {
    372       1.6  christos             AcpiOsPrintf ("Local%u - Invalid local variable name\n",
    373       1.6  christos                 Index);
    374       1.1    jruoho             goto Cleanup;
    375       1.1    jruoho         }
    376       1.1    jruoho 
    377       1.6  christos         Status = AcpiDsStoreObjectToLocal (ACPI_REFCLASS_LOCAL,
    378       1.6  christos             Index, ObjDesc, WalkState);
    379       1.1    jruoho         if (ACPI_FAILURE (Status))
    380       1.1    jruoho         {
    381       1.1    jruoho             goto Cleanup;
    382       1.1    jruoho         }
    383       1.1    jruoho 
    384       1.1    jruoho         ObjDesc = WalkState->LocalVariables[Index].Object;
    385       1.1    jruoho 
    386       1.1    jruoho         AcpiOsPrintf ("Local%u: ", Index);
    387       1.5  christos         AcpiDbDisplayInternalObject (ObjDesc, WalkState);
    388       1.1    jruoho         break;
    389       1.1    jruoho 
    390       1.1    jruoho     default:
    391       1.2  christos 
    392       1.1    jruoho         break;
    393       1.1    jruoho     }
    394       1.1    jruoho 
    395       1.1    jruoho Cleanup:
    396       1.1    jruoho     AcpiUtRemoveReference (ObjDesc);
    397       1.1    jruoho }
    398       1.1    jruoho 
    399       1.1    jruoho 
    400      1.11  christos #ifdef ACPI_DISASSEMBLER
    401       1.1    jruoho /*******************************************************************************
    402       1.1    jruoho  *
    403       1.1    jruoho  * FUNCTION:    AcpiDbDisassembleAml
    404       1.1    jruoho  *
    405       1.1    jruoho  * PARAMETERS:  Statements          - Number of statements to disassemble
    406       1.1    jruoho  *              Op                  - Current Op (from parse walk)
    407       1.1    jruoho  *
    408       1.1    jruoho  * RETURN:      None
    409       1.1    jruoho  *
    410       1.1    jruoho  * DESCRIPTION: Display disassembled AML (ASL) starting from Op for the number
    411       1.1    jruoho  *              of statements specified.
    412       1.1    jruoho  *
    413       1.1    jruoho  ******************************************************************************/
    414       1.1    jruoho 
    415       1.1    jruoho void
    416       1.1    jruoho AcpiDbDisassembleAml (
    417       1.1    jruoho     char                    *Statements,
    418       1.1    jruoho     ACPI_PARSE_OBJECT       *Op)
    419       1.1    jruoho {
    420       1.1    jruoho     UINT32                  NumStatements = 8;
    421       1.1    jruoho 
    422       1.1    jruoho 
    423       1.1    jruoho     if (!Op)
    424       1.1    jruoho     {
    425       1.1    jruoho         AcpiOsPrintf ("There is no method currently executing\n");
    426       1.1    jruoho         return;
    427       1.1    jruoho     }
    428       1.1    jruoho 
    429       1.1    jruoho     if (Statements)
    430       1.1    jruoho     {
    431       1.5  christos         NumStatements = strtoul (Statements, NULL, 0);
    432       1.1    jruoho     }
    433       1.1    jruoho 
    434       1.1    jruoho     AcpiDmDisassemble (NULL, Op, NumStatements);
    435       1.1    jruoho }
    436       1.1    jruoho 
    437       1.1    jruoho 
    438       1.1    jruoho /*******************************************************************************
    439       1.1    jruoho  *
    440       1.1    jruoho  * FUNCTION:    AcpiDbDisassembleMethod
    441       1.1    jruoho  *
    442       1.1    jruoho  * PARAMETERS:  Name            - Name of control method
    443       1.1    jruoho  *
    444       1.1    jruoho  * RETURN:      None
    445       1.1    jruoho  *
    446       1.1    jruoho  * DESCRIPTION: Display disassembled AML (ASL) starting from Op for the number
    447       1.1    jruoho  *              of statements specified.
    448       1.1    jruoho  *
    449       1.1    jruoho  ******************************************************************************/
    450       1.1    jruoho 
    451       1.1    jruoho ACPI_STATUS
    452       1.1    jruoho AcpiDbDisassembleMethod (
    453       1.1    jruoho     char                    *Name)
    454       1.1    jruoho {
    455       1.1    jruoho     ACPI_STATUS             Status;
    456       1.1    jruoho     ACPI_PARSE_OBJECT       *Op;
    457       1.1    jruoho     ACPI_WALK_STATE         *WalkState;
    458       1.1    jruoho     ACPI_OPERAND_OBJECT     *ObjDesc;
    459       1.1    jruoho     ACPI_NAMESPACE_NODE     *Method;
    460       1.1    jruoho 
    461       1.1    jruoho 
    462       1.1    jruoho     Method = AcpiDbConvertToNode (Name);
    463       1.1    jruoho     if (!Method)
    464       1.1    jruoho     {
    465       1.1    jruoho         return (AE_BAD_PARAMETER);
    466       1.1    jruoho     }
    467       1.1    jruoho 
    468       1.2  christos     if (Method->Type != ACPI_TYPE_METHOD)
    469       1.2  christos     {
    470       1.2  christos         ACPI_ERROR ((AE_INFO, "%s (%s): Object must be a control method",
    471       1.2  christos             Name, AcpiUtGetTypeName (Method->Type)));
    472       1.2  christos         return (AE_BAD_PARAMETER);
    473       1.2  christos     }
    474       1.2  christos 
    475       1.1    jruoho     ObjDesc = Method->Object;
    476       1.1    jruoho 
    477       1.5  christos     Op = AcpiPsCreateScopeOp (ObjDesc->Method.AmlStart);
    478       1.1    jruoho     if (!Op)
    479       1.1    jruoho     {
    480       1.1    jruoho         return (AE_NO_MEMORY);
    481       1.1    jruoho     }
    482       1.1    jruoho 
    483       1.1    jruoho     /* Create and initialize a new walk state */
    484       1.1    jruoho 
    485       1.1    jruoho     WalkState = AcpiDsCreateWalkState (0, Op, NULL, NULL);
    486       1.1    jruoho     if (!WalkState)
    487       1.1    jruoho     {
    488       1.1    jruoho         return (AE_NO_MEMORY);
    489       1.1    jruoho     }
    490       1.1    jruoho 
    491       1.1    jruoho     Status = AcpiDsInitAmlWalk (WalkState, Op, NULL,
    492       1.2  christos         ObjDesc->Method.AmlStart,
    493       1.2  christos         ObjDesc->Method.AmlLength, NULL, ACPI_IMODE_LOAD_PASS1);
    494       1.2  christos     if (ACPI_FAILURE (Status))
    495       1.2  christos     {
    496       1.2  christos         return (Status);
    497       1.2  christos     }
    498       1.2  christos 
    499       1.2  christos     Status = AcpiUtAllocateOwnerId (&ObjDesc->Method.OwnerId);
    500      1.13  christos     if (ACPI_FAILURE(Status))
    501      1.13  christos     {
    502      1.13  christos         return (Status);
    503      1.13  christos     }
    504      1.13  christos 
    505       1.2  christos     WalkState->OwnerId = ObjDesc->Method.OwnerId;
    506       1.2  christos 
    507       1.2  christos     /* Push start scope on scope stack and make it current */
    508       1.2  christos 
    509       1.2  christos     Status = AcpiDsScopeStackPush (Method,
    510       1.2  christos         Method->Type, WalkState);
    511       1.1    jruoho     if (ACPI_FAILURE (Status))
    512       1.1    jruoho     {
    513       1.1    jruoho         return (Status);
    514       1.1    jruoho     }
    515       1.1    jruoho 
    516       1.2  christos     /* Parse the entire method AML including deferred operators */
    517       1.1    jruoho 
    518       1.1    jruoho     WalkState->ParseFlags &= ~ACPI_PARSE_DELETE_TREE;
    519       1.1    jruoho     WalkState->ParseFlags |= ACPI_PARSE_DISASSEMBLE;
    520       1.2  christos 
    521       1.1    jruoho     Status = AcpiPsParseAml (WalkState);
    522      1.14  christos     if (ACPI_FAILURE(Status))
    523      1.14  christos     {
    524      1.14  christos         return (Status);
    525      1.14  christos     }
    526      1.14  christos 
    527       1.2  christos     (void) AcpiDmParseDeferredOps (Op);
    528       1.2  christos 
    529       1.2  christos     /* Now we can disassemble the method */
    530       1.1    jruoho 
    531       1.6  christos     AcpiGbl_DmOpt_Verbose = FALSE;
    532       1.1    jruoho     AcpiDmDisassemble (NULL, Op, 0);
    533       1.6  christos     AcpiGbl_DmOpt_Verbose = TRUE;
    534       1.2  christos 
    535       1.1    jruoho     AcpiPsDeleteParseTree (Op);
    536       1.2  christos 
    537       1.2  christos     /* Method cleanup */
    538       1.2  christos 
    539       1.2  christos     AcpiNsDeleteNamespaceSubtree (Method);
    540       1.2  christos     AcpiNsDeleteNamespaceByOwner (ObjDesc->Method.OwnerId);
    541       1.2  christos     AcpiUtReleaseOwnerId (&ObjDesc->Method.OwnerId);
    542       1.1    jruoho     return (AE_OK);
    543       1.1    jruoho }
    544      1.11  christos #endif
    545       1.7  christos 
    546       1.7  christos 
    547       1.7  christos /*******************************************************************************
    548       1.7  christos  *
    549      1.16  christos  * FUNCTION:    AcpiDbEvaluateObject
    550       1.7  christos  *
    551      1.16  christos  * PARAMETERS:  Node                - Namespace node for the object
    552       1.7  christos  *
    553       1.7  christos  * RETURN:      Status
    554       1.7  christos  *
    555      1.16  christos  * DESCRIPTION: Main execution function for the Evaluate/Execute/All debugger
    556      1.16  christos  *              commands.
    557       1.7  christos  *
    558       1.7  christos  ******************************************************************************/
    559       1.7  christos 
    560       1.7  christos static ACPI_STATUS
    561      1.16  christos AcpiDbEvaluateObject (
    562      1.16  christos     ACPI_NAMESPACE_NODE     *Node)
    563       1.7  christos {
    564       1.7  christos     char                    *Pathname;
    565       1.7  christos     UINT32                  i;
    566       1.7  christos     ACPI_DEVICE_INFO        *ObjInfo;
    567       1.7  christos     ACPI_OBJECT_LIST        ParamObjects;
    568       1.7  christos     ACPI_OBJECT             Params[ACPI_METHOD_NUM_ARGS];
    569      1.16  christos     ACPI_BUFFER             ReturnObj;
    570      1.16  christos     ACPI_STATUS             Status;
    571       1.7  christos 
    572       1.7  christos 
    573       1.7  christos     Pathname = AcpiNsGetExternalPathname (Node);
    574       1.7  christos     if (!Pathname)
    575       1.7  christos     {
    576       1.7  christos         return (AE_OK);
    577       1.7  christos     }
    578       1.7  christos 
    579       1.7  christos     /* Get the object info for number of method parameters */
    580       1.7  christos 
    581      1.16  christos     Status = AcpiGetObjectInfo (Node, &ObjInfo);
    582       1.7  christos     if (ACPI_FAILURE (Status))
    583       1.7  christos     {
    584       1.9  christos         ACPI_FREE (Pathname);
    585       1.7  christos         return (Status);
    586       1.7  christos     }
    587       1.7  christos 
    588       1.7  christos     ParamObjects.Pointer = NULL;
    589       1.7  christos     ParamObjects.Count   = 0;
    590       1.7  christos 
    591       1.7  christos     if (ObjInfo->Type == ACPI_TYPE_METHOD)
    592       1.7  christos     {
    593       1.7  christos         /* Setup default parameters */
    594       1.7  christos 
    595       1.7  christos         for (i = 0; i < ObjInfo->ParamCount; i++)
    596       1.7  christos         {
    597       1.7  christos             Params[i].Type           = ACPI_TYPE_INTEGER;
    598       1.7  christos             Params[i].Integer.Value  = 1;
    599       1.7  christos         }
    600       1.7  christos 
    601       1.7  christos         ParamObjects.Pointer     = Params;
    602       1.7  christos         ParamObjects.Count       = ObjInfo->ParamCount;
    603       1.7  christos     }
    604       1.7  christos 
    605       1.7  christos     ACPI_FREE (ObjInfo);
    606       1.7  christos     ReturnObj.Pointer = NULL;
    607       1.7  christos     ReturnObj.Length = ACPI_ALLOCATE_BUFFER;
    608       1.7  christos 
    609       1.7  christos     /* Do the actual method execution */
    610       1.7  christos 
    611       1.7  christos     AcpiGbl_MethodExecuting = TRUE;
    612       1.7  christos 
    613       1.7  christos     Status = AcpiEvaluateObject (Node, NULL, &ParamObjects, &ReturnObj);
    614      1.16  christos     AcpiGbl_MethodExecuting = FALSE;
    615       1.7  christos 
    616       1.7  christos     AcpiOsPrintf ("%-32s returned %s\n", Pathname, AcpiFormatException (Status));
    617      1.16  christos     if (ReturnObj.Length)
    618      1.16  christos     {
    619      1.16  christos         AcpiOsPrintf ("Evaluation of %s returned object %p, "
    620      1.16  christos             "external buffer length %X\n",
    621      1.16  christos             Pathname, ReturnObj.Pointer, (UINT32) ReturnObj.Length);
    622      1.16  christos 
    623      1.16  christos         AcpiDbDumpExternalObject (ReturnObj.Pointer, 1);
    624      1.16  christos         AcpiOsPrintf ("\n");
    625      1.16  christos     }
    626      1.16  christos 
    627       1.7  christos     ACPI_FREE (Pathname);
    628       1.7  christos 
    629       1.7  christos     /* Ignore status from method execution */
    630       1.7  christos 
    631      1.16  christos     return (AE_OK);
    632      1.16  christos 
    633      1.16  christos     /* Update count, check if we have executed enough methods */
    634      1.16  christos 
    635      1.16  christos }
    636      1.16  christos 
    637      1.16  christos /*******************************************************************************
    638      1.16  christos  *
    639      1.16  christos  * FUNCTION:    AcpiDbWalkForExecute
    640      1.16  christos  *
    641      1.16  christos  * PARAMETERS:  Callback from WalkNamespace
    642      1.16  christos  *
    643      1.16  christos  * RETURN:      Status
    644      1.16  christos  *
    645      1.16  christos  * DESCRIPTION: Batch execution function. Evaluates all "predefined" objects --
    646      1.16  christos  *              the nameseg begins with an underscore.
    647      1.16  christos  *
    648      1.16  christos  ******************************************************************************/
    649      1.16  christos 
    650      1.16  christos static ACPI_STATUS
    651      1.16  christos AcpiDbWalkForExecute (
    652      1.16  christos     ACPI_HANDLE             ObjHandle,
    653      1.16  christos     UINT32                  NestingLevel,
    654      1.16  christos     void                    *Context,
    655      1.16  christos     void                    **ReturnValue)
    656      1.16  christos {
    657      1.16  christos     ACPI_NAMESPACE_NODE     *Node = (ACPI_NAMESPACE_NODE *) ObjHandle;
    658      1.16  christos     ACPI_DB_EXECUTE_WALK    *Info = (ACPI_DB_EXECUTE_WALK *) Context;
    659      1.16  christos     ACPI_STATUS             Status;
    660      1.16  christos     const ACPI_PREDEFINED_INFO *Predefined;
    661      1.16  christos 
    662      1.16  christos 
    663      1.16  christos     Predefined = AcpiUtMatchPredefinedMethod (Node->Name.Ascii);
    664      1.16  christos     if (!Predefined)
    665      1.16  christos     {
    666      1.16  christos         return (AE_OK);
    667      1.16  christos     }
    668      1.16  christos 
    669      1.16  christos     if (Node->Type == ACPI_TYPE_LOCAL_SCOPE)
    670      1.16  christos     {
    671      1.16  christos         return (AE_OK);
    672      1.16  christos     }
    673      1.16  christos 
    674      1.16  christos     AcpiDbEvaluateObject (Node);
    675      1.16  christos 
    676      1.16  christos     /* Ignore status from object evaluation */
    677      1.16  christos 
    678       1.7  christos     Status = AE_OK;
    679       1.7  christos 
    680       1.7  christos     /* Update count, check if we have executed enough methods */
    681       1.7  christos 
    682       1.7  christos     Info->Count++;
    683       1.7  christos     if (Info->Count >= Info->MaxCount)
    684       1.7  christos     {
    685       1.7  christos         Status = AE_CTRL_TERMINATE;
    686       1.7  christos     }
    687       1.7  christos 
    688       1.7  christos     return (Status);
    689       1.7  christos }
    690       1.7  christos 
    691       1.7  christos 
    692       1.7  christos /*******************************************************************************
    693       1.7  christos  *
    694      1.16  christos  * FUNCTION:    AcpiDbWalkForExecuteAll
    695      1.16  christos  *
    696      1.16  christos  * PARAMETERS:  Callback from WalkNamespace
    697      1.16  christos  *
    698      1.16  christos  * RETURN:      Status
    699      1.16  christos  *
    700      1.16  christos  * DESCRIPTION: Batch execution function. Evaluates all objects whose path ends
    701      1.16  christos  *              with the nameseg "Info->NameSeg". Used for the "ALL" command.
    702      1.16  christos  *
    703      1.16  christos  ******************************************************************************/
    704      1.16  christos 
    705      1.16  christos static ACPI_STATUS
    706      1.16  christos AcpiDbWalkForExecuteAll (
    707      1.16  christos     ACPI_HANDLE             ObjHandle,
    708      1.16  christos     UINT32                  NestingLevel,
    709      1.16  christos     void                    *Context,
    710      1.16  christos     void                    **ReturnValue)
    711      1.16  christos {
    712      1.16  christos     ACPI_NAMESPACE_NODE     *Node = (ACPI_NAMESPACE_NODE *) ObjHandle;
    713      1.16  christos     ACPI_DB_EXECUTE_WALK    *Info = (ACPI_DB_EXECUTE_WALK *) Context;
    714      1.16  christos     ACPI_STATUS             Status;
    715      1.16  christos 
    716      1.16  christos 
    717      1.16  christos     if (!ACPI_COMPARE_NAMESEG (Node->Name.Ascii, Info->NameSeg))
    718      1.16  christos     {
    719      1.16  christos         return (AE_OK);
    720      1.16  christos     }
    721      1.16  christos 
    722      1.16  christos     if (Node->Type == ACPI_TYPE_LOCAL_SCOPE)
    723      1.16  christos     {
    724      1.16  christos         return (AE_OK);
    725      1.16  christos     }
    726      1.16  christos 
    727      1.16  christos     /* Now evaluate the input object (node) */
    728      1.16  christos 
    729      1.16  christos     AcpiDbEvaluateObject (Node);
    730      1.16  christos 
    731      1.16  christos     /* Ignore status from method execution */
    732      1.16  christos 
    733      1.16  christos     Status = AE_OK;
    734      1.16  christos 
    735      1.16  christos     /* Update count of executed methods/objects */
    736      1.16  christos 
    737      1.16  christos     Info->Count++;
    738      1.16  christos     return (Status);
    739      1.16  christos }
    740      1.16  christos 
    741      1.16  christos 
    742      1.16  christos /*******************************************************************************
    743      1.16  christos  *
    744       1.7  christos  * FUNCTION:    AcpiDbEvaluatePredefinedNames
    745       1.7  christos  *
    746       1.7  christos  * PARAMETERS:  None
    747       1.7  christos  *
    748       1.7  christos  * RETURN:      None
    749       1.7  christos  *
    750       1.7  christos  * DESCRIPTION: Namespace batch execution. Execute predefined names in the
    751       1.7  christos  *              namespace, up to the max count, if specified.
    752       1.7  christos  *
    753       1.7  christos  ******************************************************************************/
    754       1.7  christos 
    755       1.7  christos void
    756       1.7  christos AcpiDbEvaluatePredefinedNames (
    757       1.7  christos     void)
    758       1.7  christos {
    759       1.7  christos     ACPI_DB_EXECUTE_WALK    Info;
    760       1.7  christos 
    761       1.7  christos 
    762       1.7  christos     Info.Count = 0;
    763       1.7  christos     Info.MaxCount = ACPI_UINT32_MAX;
    764       1.7  christos 
    765       1.7  christos     /* Search all nodes in namespace */
    766       1.7  christos 
    767       1.7  christos     (void) AcpiWalkNamespace (ACPI_TYPE_ANY, ACPI_ROOT_OBJECT, ACPI_UINT32_MAX,
    768       1.7  christos                 AcpiDbWalkForExecute, NULL, (void *) &Info, NULL);
    769       1.7  christos 
    770       1.7  christos     AcpiOsPrintf ("Evaluated %u predefined names in the namespace\n", Info.Count);
    771       1.7  christos }
    772      1.16  christos 
    773      1.16  christos 
    774      1.16  christos /*******************************************************************************
    775      1.16  christos  *
    776      1.16  christos  * FUNCTION:    AcpiDbEvaluateAll
    777      1.16  christos  *
    778      1.16  christos  * PARAMETERS:  NoneAcpiGbl_DbMethodInfo
    779      1.16  christos  *
    780      1.16  christos  * RETURN:      None
    781      1.16  christos  *
    782      1.16  christos  * DESCRIPTION: Namespace batch execution. Implements the "ALL" command.
    783      1.16  christos  *              Execute all namepaths whose final nameseg matches the
    784      1.16  christos  *              input nameseg.
    785      1.16  christos  *
    786      1.16  christos  ******************************************************************************/
    787      1.16  christos 
    788      1.16  christos void
    789      1.16  christos AcpiDbEvaluateAll (
    790      1.16  christos     char                    *NameSeg)
    791      1.16  christos {
    792      1.16  christos     ACPI_DB_EXECUTE_WALK    Info;
    793      1.16  christos 
    794      1.16  christos 
    795      1.16  christos     Info.Count = 0;
    796      1.16  christos     Info.MaxCount = ACPI_UINT32_MAX;
    797      1.16  christos     ACPI_COPY_NAMESEG (Info.NameSeg, NameSeg);
    798      1.16  christos     Info.NameSeg[ACPI_NAMESEG_SIZE] = 0;
    799      1.16  christos 
    800      1.16  christos     /* Search all nodes in namespace */
    801      1.16  christos 
    802      1.16  christos     (void) AcpiWalkNamespace (ACPI_TYPE_ANY, ACPI_ROOT_OBJECT, ACPI_UINT32_MAX,
    803      1.16  christos                 AcpiDbWalkForExecuteAll, NULL, (void *) &Info, NULL);
    804      1.16  christos 
    805      1.16  christos     AcpiOsPrintf ("Evaluated %u names in the namespace\n", Info.Count);
    806      1.16  christos }
    807