dbmethod.c revision 1.21 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