sys/contrib/dev/acpica/debugger/dbxface.c

   1 /*******************************************************************************
   2  *
   3  * Module Name: dbxface - AML Debugger external interfaces
   4  *
   5  ******************************************************************************/
   6
   7 /*
   8  * Copyright (C) 2000 - 2011, Intel Corp.
   9  * All rights reserved.
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  14  * 1. Redistributions of source code must retain the above copyright
  15  *    notice, this list of conditions, and the following disclaimer,
  16  *    without modification.
  17  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
  18  *    substantially similar to the "NO WARRANTY" disclaimer below
  19  *    ("Disclaimer") and any redistribution must be conditioned upon
  20  *    including a substantially similar Disclaimer requirement for further
  21  *    binary redistribution.
  22  * 3. Neither the names of the above-listed copyright holders nor the names
  23  *    of any contributors may be used to endorse or promote products derived
  24  *    from this software without specific prior written permission.
  25  *
  26  * Alternatively, this software may be distributed under the terms of the
  27  * GNU General Public License ("GPL") version 2 as published by the Free
  28  * Software Foundation.
  29  *
  30  * NO WARRANTY
  31  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  32  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  33  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
  34  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
  35  * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  36  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  37  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  38  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  39  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
  40  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  41  * POSSIBILITY OF SUCH DAMAGES.
  42  */
  43
  44
  45 #include <contrib/dev/acpica/include/acpi.h>
  46 #include <contrib/dev/acpica/include/accommon.h>
  47 #include <contrib/dev/acpica/include/amlcode.h>
  48 #include <contrib/dev/acpica/include/acdebug.h>
  49 #include <contrib/dev/acpica/include/acdisasm.h>
  50
  51
  52 #ifdef ACPI_DEBUGGER
  53
  54 #define _COMPONENT          ACPI_CA_DEBUGGER
  55         ACPI_MODULE_NAME    ("dbxface")
  56
  57
  58 /* Local prototypes */
  59
  60 static ACPI_STATUS
  61 AcpiDbStartCommand (
  62     ACPI_WALK_STATE         *WalkState,
  63     ACPI_PARSE_OBJECT       *Op);
  64
  65 #ifdef ACPI_OBSOLETE_FUNCTIONS
  66 void
  67 AcpiDbMethodEnd (
  68     ACPI_WALK_STATE         *WalkState);
  69 #endif
  70
  71
  72 /*******************************************************************************
  73  *
  74  * FUNCTION:    AcpiDbStartCommand
  75  *
  76  * PARAMETERS:  WalkState       - Current walk
  77  *              Op              - Current executing Op, from AML interpreter
  78  *
  79  * RETURN:      Status
  80  *
  81  * DESCRIPTION: Enter debugger command loop
  82  *
  83  ******************************************************************************/
  84
  85 static ACPI_STATUS
  86 AcpiDbStartCommand (
  87     ACPI_WALK_STATE         *WalkState,
  88     ACPI_PARSE_OBJECT       *Op)
  89 {
  90     ACPI_STATUS             Status;
  91
  92
  93     /* TBD: [Investigate] are there namespace locking issues here? */
  94
  95     /* AcpiUtReleaseMutex (ACPI_MTX_NAMESPACE); */
  96
  97     /* Go into the command loop and await next user command */
  98
  99
 100     AcpiGbl_MethodExecuting = TRUE;
 101     Status = AE_CTRL_TRUE;
 102     while (Status == AE_CTRL_TRUE)
 103     {
 104         if (AcpiGbl_DebuggerConfiguration == DEBUGGER_MULTI_THREADED)
 105         {
 106             /* Handshake with the front-end that gets user command lines */
 107
 108             Status = AcpiUtReleaseMutex (ACPI_MTX_DEBUG_CMD_COMPLETE);
 109             if (ACPI_FAILURE (Status))
 110             {
 111                 return (Status);
 112             }
 113             Status = AcpiUtAcquireMutex (ACPI_MTX_DEBUG_CMD_READY);
 114             if (ACPI_FAILURE (Status))
 115             {
 116                 return (Status);
 117             }
 118         }
 119         else
 120         {
 121             /* Single threaded, we must get a command line ourselves */
 122
 123             /* Force output to console until a command is entered */
 124
 125             AcpiDbSetOutputDestination (ACPI_DB_CONSOLE_OUTPUT);
 126
 127             /* Different prompt if method is executing */
 128
 129             if (!AcpiGbl_MethodExecuting)
 130             {
 131                 AcpiOsPrintf ("%1c ", ACPI_DEBUGGER_COMMAND_PROMPT);
 132             }
 133             else
 134             {
 135                 AcpiOsPrintf ("%1c ", ACPI_DEBUGGER_EXECUTE_PROMPT);
 136             }
 137
 138             /* Get the user input line */
 139
 140             Status = AcpiOsGetLine (AcpiGbl_DbLineBuf,
 141                 ACPI_DB_LINE_BUFFER_SIZE, NULL);
 142             if (ACPI_FAILURE (Status))
 143             {
 144                 ACPI_EXCEPTION ((AE_INFO, Status, "While parsing command line"));
 145                 return (Status);
 146             }
 147         }
 148
 149         Status = AcpiDbCommandDispatch (AcpiGbl_DbLineBuf, WalkState, Op);
 150     }
 151
 152     /* AcpiUtAcquireMutex (ACPI_MTX_NAMESPACE); */
 153
 154     return (Status);
 155 }
 156
 157
 158 /*******************************************************************************
 159  *
 160  * FUNCTION:    AcpiDbSingleStep
 161  *
 162  * PARAMETERS:  WalkState       - Current walk
 163  *              Op              - Current executing op (from aml interpreter)
 164  *              OpcodeClass     - Class of the current AML Opcode
 165  *
 166  * RETURN:      Status
 167  *
 168  * DESCRIPTION: Called just before execution of an AML opcode.
 169  *
 170  ******************************************************************************/
 171
 172 ACPI_STATUS
 173 AcpiDbSingleStep (
 174     ACPI_WALK_STATE         *WalkState,
 175     ACPI_PARSE_OBJECT       *Op,
 176     UINT32                  OpcodeClass)
 177 {
 178     ACPI_PARSE_OBJECT       *Next;
 179     ACPI_STATUS             Status = AE_OK;
 180     UINT32                  OriginalDebugLevel;
 181     ACPI_PARSE_OBJECT       *DisplayOp;
 182     ACPI_PARSE_OBJECT       *ParentOp;
 183
 184
 185     ACPI_FUNCTION_ENTRY ();
 186
 187
 188     /* Check the abort flag */
 189
 190     if (AcpiGbl_AbortMethod)
 191     {
 192         AcpiGbl_AbortMethod = FALSE;
 193         return (AE_ABORT_METHOD);
 194     }
 195
 196     /* Check for single-step breakpoint */
 197
 198     if (WalkState->MethodBreakpoint &&
 199        (WalkState->MethodBreakpoint <= Op->Common.AmlOffset))
 200     {
 201         /* Check if the breakpoint has been reached or passed */
 202         /* Hit the breakpoint, resume single step, reset breakpoint */
 203
 204         AcpiOsPrintf ("***Break*** at AML offset %X\n", Op->Common.AmlOffset);
 205         AcpiGbl_CmSingleStep = TRUE;
 206         AcpiGbl_StepToNextCall = FALSE;
 207         WalkState->MethodBreakpoint = 0;
 208     }
 209
 210     /* Check for user breakpoint (Must be on exact Aml offset) */
 211
 212     else if (WalkState->UserBreakpoint &&
 213             (WalkState->UserBreakpoint == Op->Common.AmlOffset))
 214     {
 215         AcpiOsPrintf ("***UserBreakpoint*** at AML offset %X\n",
 216             Op->Common.AmlOffset);
 217         AcpiGbl_CmSingleStep = TRUE;
 218         AcpiGbl_StepToNextCall = FALSE;
 219         WalkState->MethodBreakpoint = 0;
 220     }
 221
 222     /*
 223      * Check if this is an opcode that we are interested in --
 224      * namely, opcodes that have arguments
 225      */
 226     if (Op->Common.AmlOpcode == AML_INT_NAMEDFIELD_OP)
 227     {
 228         return (AE_OK);
 229     }
 230
 231     switch (OpcodeClass)
 232     {
 233     case AML_CLASS_UNKNOWN:
 234     case AML_CLASS_ARGUMENT:    /* constants, literals, etc.  do nothing */
 235         return (AE_OK);
 236
 237     default:
 238         /* All other opcodes -- continue */
 239         break;
 240     }
 241
 242     /*
 243      * Under certain debug conditions, display this opcode and its operands
 244      */
 245     if ((AcpiGbl_DbOutputToFile)            ||
 246         (AcpiGbl_CmSingleStep)              ||
 247         (AcpiDbgLevel & ACPI_LV_PARSE))
 248     {
 249         if ((AcpiGbl_DbOutputToFile)        ||
 250             (AcpiDbgLevel & ACPI_LV_PARSE))
 251         {
 252             AcpiOsPrintf ("\n[AmlDebug] Next AML Opcode to execute:\n");
 253         }
 254
 255         /*
 256          * Display this op (and only this op - zero out the NEXT field
 257          * temporarily, and disable parser trace output for the duration of
 258          * the display because we don't want the extraneous debug output)
 259          */
 260         OriginalDebugLevel = AcpiDbgLevel;
 261         AcpiDbgLevel &= ~(ACPI_LV_PARSE | ACPI_LV_FUNCTIONS);
 262         Next = Op->Common.Next;
 263         Op->Common.Next = NULL;
 264
 265
 266         DisplayOp = Op;
 267         ParentOp = Op->Common.Parent;
 268         if (ParentOp)
 269         {
 270             if ((WalkState->ControlState) &&
 271                 (WalkState->ControlState->Common.State ==
 272                     ACPI_CONTROL_PREDICATE_EXECUTING))
 273             {
 274                 /*
 275                  * We are executing the predicate of an IF or WHILE statement
 276                  * Search upwards for the containing IF or WHILE so that the
 277                  * entire predicate can be displayed.
 278                  */
 279                 while (ParentOp)
 280                 {
 281                     if ((ParentOp->Common.AmlOpcode == AML_IF_OP) ||
 282                         (ParentOp->Common.AmlOpcode == AML_WHILE_OP))
 283                     {
 284                         DisplayOp = ParentOp;
 285                         break;
 286                     }
 287                     ParentOp = ParentOp->Common.Parent;
 288                 }
 289             }
 290             else
 291             {
 292                 while (ParentOp)
 293                 {
 294                     if ((ParentOp->Common.AmlOpcode == AML_IF_OP)     ||
 295                         (ParentOp->Common.AmlOpcode == AML_ELSE_OP)   ||
 296                         (ParentOp->Common.AmlOpcode == AML_SCOPE_OP)  ||
 297                         (ParentOp->Common.AmlOpcode == AML_METHOD_OP) ||
 298                         (ParentOp->Common.AmlOpcode == AML_WHILE_OP))
 299                     {
 300                         break;
 301                     }
 302                     DisplayOp = ParentOp;
 303                     ParentOp = ParentOp->Common.Parent;
 304                 }
 305             }
 306         }
 307
 308         /* Now we can display it */
 309
 310 #ifdef ACPI_DISASSEMBLER
 311         AcpiDmDisassemble (WalkState, DisplayOp, ACPI_UINT32_MAX);
 312 #endif
 313
 314         if ((Op->Common.AmlOpcode == AML_IF_OP) ||
 315             (Op->Common.AmlOpcode == AML_WHILE_OP))
 316         {
 317             if (WalkState->ControlState->Common.Value)
 318             {
 319                 AcpiOsPrintf ("Predicate = [True], IF block was executed\n");
 320             }
 321             else
 322             {
 323                 AcpiOsPrintf ("Predicate = [False], Skipping IF block\n");
 324             }
 325         }
 326         else if (Op->Common.AmlOpcode == AML_ELSE_OP)
 327         {
 328             AcpiOsPrintf ("Predicate = [False], ELSE block was executed\n");
 329         }
 330
 331         /* Restore everything */
 332
 333         Op->Common.Next = Next;
 334         AcpiOsPrintf ("\n");
 335         if ((AcpiGbl_DbOutputToFile)        ||
 336             (AcpiDbgLevel & ACPI_LV_PARSE))
 337         {
 338             AcpiOsPrintf ("\n");
 339         }
 340         AcpiDbgLevel = OriginalDebugLevel;
 341     }
 342
 343     /* If we are not single stepping, just continue executing the method */
 344
 345     if (!AcpiGbl_CmSingleStep)
 346     {
 347         return (AE_OK);
 348     }
 349
 350     /*
 351      * If we are executing a step-to-call command,
 352      * Check if this is a method call.
 353      */
 354     if (AcpiGbl_StepToNextCall)
 355     {
 356         if (Op->Common.AmlOpcode != AML_INT_METHODCALL_OP)
 357         {
 358             /* Not a method call, just keep executing */
 359
 360             return (AE_OK);
 361         }
 362
 363         /* Found a method call, stop executing */
 364
 365         AcpiGbl_StepToNextCall = FALSE;
 366     }
 367
 368     /*
 369      * If the next opcode is a method call, we will "step over" it
 370      * by default.
 371      */
 372     if (Op->Common.AmlOpcode == AML_INT_METHODCALL_OP)
 373     {
 374         /* Force no more single stepping while executing called method */
 375
 376         AcpiGbl_CmSingleStep = FALSE;
 377
 378         /*
 379          * Set the breakpoint on/before the call, it will stop execution
 380          * as soon as we return
 381          */
 382         WalkState->MethodBreakpoint = 1;  /* Must be non-zero! */
 383     }
 384
 385
 386     Status = AcpiDbStartCommand (WalkState, Op);
 387
 388     /* User commands complete, continue execution of the interrupted method */
 389
 390     return (Status);
 391 }
 392
 393
 394 /*******************************************************************************
 395  *
 396  * FUNCTION:    AcpiDbInitialize
 397  *
 398  * PARAMETERS:  None
 399  *
 400  * RETURN:      Status
 401  *
 402  * DESCRIPTION: Init and start debugger
 403  *
 404  ******************************************************************************/
 405
 406 ACPI_STATUS
 407 AcpiDbInitialize (
 408     void)
 409 {
 410     ACPI_STATUS             Status;
 411
 412
 413     /* Init globals */
 414
 415     AcpiGbl_DbBuffer            = NULL;
 416     AcpiGbl_DbFilename          = NULL;
 417     AcpiGbl_DbOutputToFile      = FALSE;
 418
 419     AcpiGbl_DbDebugLevel        = ACPI_LV_VERBOSITY2;
 420     AcpiGbl_DbConsoleDebugLevel = ACPI_NORMAL_DEFAULT | ACPI_LV_TABLES;
 421     AcpiGbl_DbOutputFlags       = ACPI_DB_CONSOLE_OUTPUT;
 422
 423     AcpiGbl_DbOpt_tables        = FALSE;
 424     AcpiGbl_DbOpt_stats         = FALSE;
 425 #ifdef ACPI_DISASSEMBLER
 426     AcpiGbl_DbOpt_disasm        = FALSE;
 427     AcpiGbl_DbOpt_verbose       = TRUE;
 428 #endif
 429     AcpiGbl_DbOpt_ini_methods   = TRUE;
 430
 431     AcpiGbl_DbBuffer = AcpiOsAllocate (ACPI_DEBUG_BUFFER_SIZE);
 432     if (!AcpiGbl_DbBuffer)
 433     {
 434         return (AE_NO_MEMORY);
 435     }
 436     ACPI_MEMSET (AcpiGbl_DbBuffer, 0, ACPI_DEBUG_BUFFER_SIZE);
 437
 438     /* Initial scope is the root */
 439
 440     AcpiGbl_DbScopeBuf [0] = '\\';
 441     AcpiGbl_DbScopeBuf [1] =  0;
 442     AcpiGbl_DbScopeNode = AcpiGbl_RootNode;
 443
 444     /*
 445      * If configured for multi-thread support, the debug executor runs in
 446      * a separate thread so that the front end can be in another address
 447      * space, environment, or even another machine.
 448      */
 449     if (AcpiGbl_DebuggerConfiguration & DEBUGGER_MULTI_THREADED)
 450     {
 451         /* These were created with one unit, grab it */
 452
 453         Status = AcpiUtAcquireMutex (ACPI_MTX_DEBUG_CMD_COMPLETE);
 454         if (ACPI_FAILURE (Status))
 455         {
 456             AcpiOsPrintf ("Could not get debugger mutex\n");
 457             return (Status);
 458         }
 459
 460         Status = AcpiUtAcquireMutex (ACPI_MTX_DEBUG_CMD_READY);
 461         if (ACPI_FAILURE (Status))
 462         {
 463             AcpiOsPrintf ("Could not get debugger mutex\n");
 464             return (Status);
 465         }
 466
 467         /* Create the debug execution thread to execute commands */
 468
 469         Status = AcpiOsExecute (OSL_DEBUGGER_THREAD, AcpiDbExecuteThread, NULL);
 470         if (ACPI_FAILURE (Status))
 471         {
 472             AcpiOsPrintf ("Could not start debugger thread\n");
 473             return (Status);
 474         }
 475     }
 476
 477 #ifdef ACPI_DISASSEMBLER
 478     if (!AcpiGbl_DbOpt_verbose)
 479     {
 480         AcpiGbl_DbOpt_disasm = TRUE;
 481         AcpiGbl_DbOpt_stats = FALSE;
 482     }
 483 #endif
 484
 485     return (AE_OK);
 486 }
 487
 488
 489 /*******************************************************************************
 490  *
 491  * FUNCTION:    AcpiDbTerminate
 492  *
 493  * PARAMETERS:  None
 494  *
 495  * RETURN:      None
 496  *
 497  * DESCRIPTION: Stop debugger
 498  *
 499  ******************************************************************************/
 500
 501 void
 502 AcpiDbTerminate (
 503     void)
 504 {
 505
 506     if (AcpiGbl_DbBuffer)
 507     {
 508         AcpiOsFree (AcpiGbl_DbBuffer);
 509     }
 510 }
 511
 512
 513 #ifdef ACPI_OBSOLETE_FUNCTIONS
 514 /*******************************************************************************
 515  *
 516  * FUNCTION:    AcpiDbMethodEnd
 517  *
 518  * PARAMETERS:  WalkState       - Current walk
 519  *
 520  * RETURN:      Status
 521  *
 522  * DESCRIPTION: Called at method termination
 523  *
 524  ******************************************************************************/
 525
 526 void
 527 AcpiDbMethodEnd (
 528     ACPI_WALK_STATE         *WalkState)
 529 {
 530
 531     if (!AcpiGbl_CmSingleStep)
 532     {
 533         return;
 534     }
 535
 536     AcpiOsPrintf ("<Method Terminating>\n");
 537
 538     AcpiDbStartCommand (WalkState, NULL);
 539 }
 540 #endif
 541
 542 #endif /* ACPI_DEBUGGER */