| /******************************************************************************* |
| * |
| * Module Name: dbmethod - Debug commands for control methods |
| * |
| ******************************************************************************/ |
| |
| /* |
| * Copyright (C) 2000 - 2015, Intel Corp. |
| * All rights reserved. |
| * |
| * Redistribution and use in source and binary forms, with or without |
| * modification, are permitted provided that the following conditions |
| * are met: |
| * 1. Redistributions of source code must retain the above copyright |
| * notice, this list of conditions, and the following disclaimer, |
| * without modification. |
| * 2. Redistributions in binary form must reproduce at minimum a disclaimer |
| * substantially similar to the "NO WARRANTY" disclaimer below |
| * ("Disclaimer") and any redistribution must be conditioned upon |
| * including a substantially similar Disclaimer requirement for further |
| * binary redistribution. |
| * 3. Neither the names of the above-listed copyright holders nor the names |
| * of any contributors may be used to endorse or promote products derived |
| * from this software without specific prior written permission. |
| * |
| * Alternatively, this software may be distributed under the terms of the |
| * GNU General Public License ("GPL") version 2 as published by the Free |
| * Software Foundation. |
| * |
| * NO WARRANTY |
| * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
| * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
| * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR |
| * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
| * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
| * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
| * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
| * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, |
| * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING |
| * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
| * POSSIBILITY OF SUCH DAMAGES. |
| */ |
| |
| #include <contrib/dev/acpica/include/acpi.h> |
| #include <contrib/dev/acpica/include/accommon.h> |
| #include <contrib/dev/acpica/include/acdispat.h> |
| #include <contrib/dev/acpica/include/acnamesp.h> |
| #include <contrib/dev/acpica/include/acdebug.h> |
| #include <contrib/dev/acpica/include/acparser.h> |
| #include <contrib/dev/acpica/include/acpredef.h> |
| |
| |
| #define _COMPONENT ACPI_CA_DEBUGGER |
| ACPI_MODULE_NAME ("dbmethod") |
| |
| |
| /******************************************************************************* |
| * |
| * FUNCTION: AcpiDbSetMethodBreakpoint |
| * |
| * PARAMETERS: Location - AML offset of breakpoint |
| * WalkState - Current walk info |
| * Op - Current Op (from parse walk) |
| * |
| * RETURN: None |
| * |
| * DESCRIPTION: Set a breakpoint in a control method at the specified |
| * AML offset |
| * |
| ******************************************************************************/ |
| |
| void |
| AcpiDbSetMethodBreakpoint ( |
| char *Location, |
| ACPI_WALK_STATE *WalkState, |
| ACPI_PARSE_OBJECT *Op) |
| { |
| UINT32 Address; |
| UINT32 AmlOffset; |
| |
| |
| if (!Op) |
| { |
| AcpiOsPrintf ("There is no method currently executing\n"); |
| return; |
| } |
| |
| /* Get and verify the breakpoint address */ |
| |
| Address = strtoul (Location, NULL, 16); |
| AmlOffset = (UINT32) ACPI_PTR_DIFF (Op->Common.Aml, |
| WalkState->ParserState.AmlStart); |
| if (Address <= AmlOffset) |
| { |
| AcpiOsPrintf ("Breakpoint %X is beyond current address %X\n", |
| Address, AmlOffset); |
| } |
| |
| /* Save breakpoint in current walk */ |
| |
| WalkState->UserBreakpoint = Address; |
| AcpiOsPrintf ("Breakpoint set at AML offset %X\n", Address); |
| } |
| |
| |
| /******************************************************************************* |
| * |
| * FUNCTION: AcpiDbSetMethodCallBreakpoint |
| * |
| * PARAMETERS: Op - Current Op (from parse walk) |
| * |
| * RETURN: None |
| * |
| * DESCRIPTION: Set a breakpoint in a control method at the specified |
| * AML offset |
| * |
| ******************************************************************************/ |
| |
| void |
| AcpiDbSetMethodCallBreakpoint ( |
| ACPI_PARSE_OBJECT *Op) |
| { |
| |
| |
| if (!Op) |
| { |
| AcpiOsPrintf ("There is no method currently executing\n"); |
| return; |
| } |
| |
| AcpiGbl_StepToNextCall = TRUE; |
| } |
| |
| |
| /******************************************************************************* |
| * |
| * FUNCTION: AcpiDbSetMethodData |
| * |
| * PARAMETERS: TypeArg - L for local, A for argument |
| * IndexArg - which one |
| * ValueArg - Value to set. |
| * |
| * RETURN: None |
| * |
| * DESCRIPTION: Set a local or argument for the running control method. |
| * NOTE: only object supported is Number. |
| * |
| ******************************************************************************/ |
| |
| void |
| AcpiDbSetMethodData ( |
| char *TypeArg, |
| char *IndexArg, |
| char *ValueArg) |
| { |
| char Type; |
| UINT32 Index; |
| UINT32 Value; |
| ACPI_WALK_STATE *WalkState; |
| ACPI_OPERAND_OBJECT *ObjDesc; |
| ACPI_STATUS Status; |
| ACPI_NAMESPACE_NODE *Node; |
| |
| |
| /* Validate TypeArg */ |
| |
| AcpiUtStrupr (TypeArg); |
| Type = TypeArg[0]; |
| if ((Type != 'L') && |
| (Type != 'A') && |
| (Type != 'N')) |
| { |
| AcpiOsPrintf ("Invalid SET operand: %s\n", TypeArg); |
| return; |
| } |
| |
| Value = strtoul (ValueArg, NULL, 16); |
| |
| if (Type == 'N') |
| { |
| Node = AcpiDbConvertToNode (IndexArg); |
| if (!Node) |
| { |
| return; |
| } |
| |
| if (Node->Type != ACPI_TYPE_INTEGER) |
| { |
| AcpiOsPrintf ("Can only set Integer nodes\n"); |
| return; |
| } |
| ObjDesc = Node->Object; |
| ObjDesc->Integer.Value = Value; |
| return; |
| } |
| |
| /* Get the index and value */ |
| |
| Index = strtoul (IndexArg, NULL, 16); |
| |
| WalkState = AcpiDsGetCurrentWalkState (AcpiGbl_CurrentWalkList); |
| if (!WalkState) |
| { |
| AcpiOsPrintf ("There is no method currently executing\n"); |
| return; |
| } |
| |
| /* Create and initialize the new object */ |
| |
| ObjDesc = AcpiUtCreateIntegerObject ((UINT64) Value); |
| if (!ObjDesc) |
| { |
| AcpiOsPrintf ("Could not create an internal object\n"); |
| return; |
| } |
| |
| /* Store the new object into the target */ |
| |
| switch (Type) |
| { |
| case 'A': |
| |
| /* Set a method argument */ |
| |
| if (Index > ACPI_METHOD_MAX_ARG) |
| { |
| AcpiOsPrintf ("Arg%u - Invalid argument name\n", |
| Index); |
| goto Cleanup; |
| } |
| |
| Status = AcpiDsStoreObjectToLocal (ACPI_REFCLASS_ARG, |
| Index, ObjDesc, WalkState); |
| if (ACPI_FAILURE (Status)) |
| { |
| goto Cleanup; |
| } |
| |
| ObjDesc = WalkState->Arguments[Index].Object; |
| |
| AcpiOsPrintf ("Arg%u: ", Index); |
| AcpiDbDisplayInternalObject (ObjDesc, WalkState); |
| break; |
| |
| case 'L': |
| |
| /* Set a method local */ |
| |
| if (Index > ACPI_METHOD_MAX_LOCAL) |
| { |
| AcpiOsPrintf ("Local%u - Invalid local variable name\n", |
| Index); |
| goto Cleanup; |
| } |
| |
| Status = AcpiDsStoreObjectToLocal (ACPI_REFCLASS_LOCAL, |
| Index, ObjDesc, WalkState); |
| if (ACPI_FAILURE (Status)) |
| { |
| goto Cleanup; |
| } |
| |
| ObjDesc = WalkState->LocalVariables[Index].Object; |
| |
| AcpiOsPrintf ("Local%u: ", Index); |
| AcpiDbDisplayInternalObject (ObjDesc, WalkState); |
| break; |
| |
| default: |
| |
| break; |
| } |
| |
| Cleanup: |
| AcpiUtRemoveReference (ObjDesc); |
| } |
| |
| |
| /******************************************************************************* |
| * |
| * FUNCTION: AcpiDbDisassembleAml |
| * |
| * PARAMETERS: Statements - Number of statements to disassemble |
| * Op - Current Op (from parse walk) |
| * |
| * RETURN: None |
| * |
| * DESCRIPTION: Display disassembled AML (ASL) starting from Op for the number |
| * of statements specified. |
| * |
| ******************************************************************************/ |
| |
| void |
| AcpiDbDisassembleAml ( |
| char *Statements, |
| ACPI_PARSE_OBJECT *Op) |
| { |
| UINT32 NumStatements = 8; |
| |
| |
| if (!Op) |
| { |
| AcpiOsPrintf ("There is no method currently executing\n"); |
| return; |
| } |
| |
| if (Statements) |
| { |
| NumStatements = strtoul (Statements, NULL, 0); |
| } |
| |
| #ifdef ACPI_DISASSEMBLER |
| AcpiDmDisassemble (NULL, Op, NumStatements); |
| #endif |
| } |
| |
| |
| /******************************************************************************* |
| * |
| * FUNCTION: AcpiDbDisassembleMethod |
| * |
| * PARAMETERS: Name - Name of control method |
| * |
| * RETURN: None |
| * |
| * DESCRIPTION: Display disassembled AML (ASL) starting from Op for the number |
| * of statements specified. |
| * |
| ******************************************************************************/ |
| |
| ACPI_STATUS |
| AcpiDbDisassembleMethod ( |
| char *Name) |
| { |
| ACPI_STATUS Status; |
| ACPI_PARSE_OBJECT *Op; |
| ACPI_WALK_STATE *WalkState; |
| ACPI_OPERAND_OBJECT *ObjDesc; |
| ACPI_NAMESPACE_NODE *Method; |
| |
| |
| Method = AcpiDbConvertToNode (Name); |
| if (!Method) |
| { |
| return (AE_BAD_PARAMETER); |
| } |
| |
| if (Method->Type != ACPI_TYPE_METHOD) |
| { |
| ACPI_ERROR ((AE_INFO, "%s (%s): Object must be a control method", |
| Name, AcpiUtGetTypeName (Method->Type))); |
| return (AE_BAD_PARAMETER); |
| } |
| |
| ObjDesc = Method->Object; |
| |
| Op = AcpiPsCreateScopeOp (ObjDesc->Method.AmlStart); |
| if (!Op) |
| { |
| return (AE_NO_MEMORY); |
| } |
| |
| /* Create and initialize a new walk state */ |
| |
| WalkState = AcpiDsCreateWalkState (0, Op, NULL, NULL); |
| if (!WalkState) |
| { |
| return (AE_NO_MEMORY); |
| } |
| |
| Status = AcpiDsInitAmlWalk (WalkState, Op, NULL, |
| ObjDesc->Method.AmlStart, |
| ObjDesc->Method.AmlLength, NULL, ACPI_IMODE_LOAD_PASS1); |
| if (ACPI_FAILURE (Status)) |
| { |
| return (Status); |
| } |
| |
| Status = AcpiUtAllocateOwnerId (&ObjDesc->Method.OwnerId); |
| WalkState->OwnerId = ObjDesc->Method.OwnerId; |
| |
| /* Push start scope on scope stack and make it current */ |
| |
| Status = AcpiDsScopeStackPush (Method, |
| Method->Type, WalkState); |
| if (ACPI_FAILURE (Status)) |
| { |
| return (Status); |
| } |
| |
| /* Parse the entire method AML including deferred operators */ |
| |
| WalkState->ParseFlags &= ~ACPI_PARSE_DELETE_TREE; |
| WalkState->ParseFlags |= ACPI_PARSE_DISASSEMBLE; |
| |
| Status = AcpiPsParseAml (WalkState); |
| |
| #ifdef ACPI_DISASSEMBLER |
| (void) AcpiDmParseDeferredOps (Op); |
| |
| /* Now we can disassemble the method */ |
| |
| AcpiGbl_DmOpt_Verbose = FALSE; |
| AcpiDmDisassemble (NULL, Op, 0); |
| AcpiGbl_DmOpt_Verbose = TRUE; |
| #endif |
| |
| AcpiPsDeleteParseTree (Op); |
| |
| /* Method cleanup */ |
| |
| AcpiNsDeleteNamespaceSubtree (Method); |
| AcpiNsDeleteNamespaceByOwner (ObjDesc->Method.OwnerId); |
| AcpiUtReleaseOwnerId (&ObjDesc->Method.OwnerId); |
| return (AE_OK); |
| } |