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.20 christos /****************************************************************************** 8 1.20 christos * 9 1.20 christos * 1. Copyright Notice 10 1.20 christos * 11 1.21 christos * Some or all of this work - Copyright (c) 1999 - 2025, Intel Corp. 12 1.1 jruoho * All rights reserved. 13 1.1 jruoho * 14 1.20 christos * 2. License 15 1.20 christos * 16 1.20 christos * 2.1. This is your license from Intel Corp. under its intellectual property 17 1.20 christos * rights. You may have additional license terms from the party that provided 18 1.20 christos * you this software, covering your right to use that party's intellectual 19 1.20 christos * property rights. 20 1.20 christos * 21 1.20 christos * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a 22 1.20 christos * copy of the source code appearing in this file ("Covered Code") an 23 1.20 christos * irrevocable, perpetual, worldwide license under Intel's copyrights in the 24 1.20 christos * base code distributed originally by Intel ("Original Intel Code") to copy, 25 1.20 christos * make derivatives, distribute, use and display any portion of the Covered 26 1.20 christos * Code in any form, with the right to sublicense such rights; and 27 1.20 christos * 28 1.20 christos * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent 29 1.20 christos * license (with the right to sublicense), under only those claims of Intel 30 1.20 christos * patents that are infringed by the Original Intel Code, to make, use, sell, 31 1.20 christos * offer to sell, and import the Covered Code and derivative works thereof 32 1.20 christos * solely to the minimum extent necessary to exercise the above copyright 33 1.20 christos * license, and in no event shall the patent license extend to any additions 34 1.20 christos * to or modifications of the Original Intel Code. No other license or right 35 1.20 christos * is granted directly or by implication, estoppel or otherwise; 36 1.20 christos * 37 1.20 christos * The above copyright and patent license is granted only if the following 38 1.20 christos * conditions are met: 39 1.20 christos * 40 1.20 christos * 3. Conditions 41 1.20 christos * 42 1.20 christos * 3.1. Redistribution of Source with Rights to Further Distribute Source. 43 1.20 christos * Redistribution of source code of any substantial portion of the Covered 44 1.20 christos * Code or modification with rights to further distribute source must include 45 1.20 christos * the above Copyright Notice, the above License, this list of Conditions, 46 1.20 christos * and the following Disclaimer and Export Compliance provision. In addition, 47 1.20 christos * Licensee must cause all Covered Code to which Licensee contributes to 48 1.20 christos * contain a file documenting the changes Licensee made to create that Covered 49 1.20 christos * Code and the date of any change. Licensee must include in that file the 50 1.20 christos * documentation of any changes made by any predecessor Licensee. Licensee 51 1.20 christos * must include a prominent statement that the modification is derived, 52 1.20 christos * directly or indirectly, from Original Intel Code. 53 1.20 christos * 54 1.20 christos * 3.2. Redistribution of Source with no Rights to Further Distribute Source. 55 1.20 christos * Redistribution of source code of any substantial portion of the Covered 56 1.20 christos * Code or modification without rights to further distribute source must 57 1.20 christos * include the following Disclaimer and Export Compliance provision in the 58 1.20 christos * documentation and/or other materials provided with distribution. In 59 1.20 christos * addition, Licensee may not authorize further sublicense of source of any 60 1.20 christos * portion of the Covered Code, and must include terms to the effect that the 61 1.20 christos * license from Licensee to its licensee is limited to the intellectual 62 1.20 christos * property embodied in the software Licensee provides to its licensee, and 63 1.20 christos * not to intellectual property embodied in modifications its licensee may 64 1.20 christos * make. 65 1.20 christos * 66 1.20 christos * 3.3. Redistribution of Executable. Redistribution in executable form of any 67 1.20 christos * substantial portion of the Covered Code or modification must reproduce the 68 1.20 christos * above Copyright Notice, and the following Disclaimer and Export Compliance 69 1.20 christos * provision in the documentation and/or other materials provided with the 70 1.20 christos * distribution. 71 1.20 christos * 72 1.20 christos * 3.4. Intel retains all right, title, and interest in and to the Original 73 1.20 christos * Intel Code. 74 1.20 christos * 75 1.20 christos * 3.5. Neither the name Intel nor any other trademark owned or controlled by 76 1.20 christos * Intel shall be used in advertising or otherwise to promote the sale, use or 77 1.20 christos * other dealings in products derived from or relating to the Covered Code 78 1.20 christos * without prior written authorization from Intel. 79 1.20 christos * 80 1.20 christos * 4. Disclaimer and Export Compliance 81 1.20 christos * 82 1.20 christos * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED 83 1.20 christos * HERE. ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE 84 1.20 christos * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT, ASSISTANCE, 85 1.20 christos * INSTALLATION, TRAINING OR OTHER SERVICES. INTEL WILL NOT PROVIDE ANY 86 1.20 christos * UPDATES, ENHANCEMENTS OR EXTENSIONS. INTEL SPECIFICALLY DISCLAIMS ANY 87 1.20 christos * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A 88 1.20 christos * PARTICULAR PURPOSE. 89 1.20 christos * 90 1.20 christos * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES 91 1.20 christos * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR 92 1.20 christos * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT, 93 1.20 christos * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY 94 1.20 christos * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL 95 1.20 christos * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES. THESE LIMITATIONS 96 1.20 christos * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY 97 1.20 christos * LIMITED REMEDY. 98 1.20 christos * 99 1.20 christos * 4.3. Licensee shall not export, either directly or indirectly, any of this 100 1.20 christos * software or system incorporating such software without first obtaining any 101 1.20 christos * required license or other approval from the U. S. Department of Commerce or 102 1.20 christos * any other agency or department of the United States Government. In the 103 1.20 christos * event Licensee exports any such software from the United States or 104 1.20 christos * re-exports any such software from a foreign destination, Licensee shall 105 1.20 christos * ensure that the distribution and export/re-export of the software is in 106 1.20 christos * compliance with all laws, regulations, orders, or other restrictions of the 107 1.20 christos * U.S. Export Administration Regulations. Licensee agrees that neither it nor 108 1.20 christos * any of its subsidiaries will export/re-export any technical data, process, 109 1.20 christos * software, or service, directly or indirectly, to any country for which the 110 1.20 christos * United States government or any agency thereof requires an export license, 111 1.20 christos * other governmental approval, or letter of assurance, without first obtaining 112 1.20 christos * such license, approval or letter. 113 1.20 christos * 114 1.20 christos ***************************************************************************** 115 1.20 christos * 116 1.20 christos * Alternatively, you may choose to be licensed under the terms of the 117 1.20 christos * following license: 118 1.20 christos * 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.20 christos * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 139 1.20 christos * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 140 1.20 christos * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 141 1.20 christos * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 142 1.20 christos * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 143 1.20 christos * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 144 1.20 christos * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 145 1.20 christos * 146 1.20 christos * Alternatively, you may choose to be licensed under the terms of the 147 1.20 christos * GNU General Public License ("GPL") version 2 as published by the Free 148 1.20 christos * Software Foundation. 149 1.20 christos * 150 1.20 christos *****************************************************************************/ 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