1 // SPDX-License-Identifier: BSD-3-Clause OR GPL-2.0
2 /*******************************************************************************
3 *
4 * Module Name: dbmethod - Debug commands for control methods
5 *
6 ******************************************************************************/
7
8 #include <acpi/acpi.h>
9 #include "accommon.h"
10 #include "acdispat.h"
11 #include "acnamesp.h"
12 #include "acdebug.h"
13 #include "acparser.h"
14 #include "acpredef.h"
15
16 #define _COMPONENT ACPI_CA_DEBUGGER
17 ACPI_MODULE_NAME("dbmethod")
18
19 /* Local prototypes */
20 static acpi_status
21 acpi_db_walk_for_execute(acpi_handle obj_handle,
22 u32 nesting_level, void *context, void **return_value);
23
24 /*******************************************************************************
25 *
26 * FUNCTION: acpi_db_set_method_breakpoint
27 *
28 * PARAMETERS: location - AML offset of breakpoint
29 * walk_state - Current walk info
30 * op - Current Op (from parse walk)
31 *
32 * RETURN: None
33 *
34 * DESCRIPTION: Set a breakpoint in a control method at the specified
35 * AML offset
36 *
37 ******************************************************************************/
38
39 void
acpi_db_set_method_breakpoint(char * location,struct acpi_walk_state * walk_state,union acpi_parse_object * op)40 acpi_db_set_method_breakpoint(char *location,
41 struct acpi_walk_state *walk_state,
42 union acpi_parse_object *op)
43 {
44 u32 address;
45 u32 aml_offset;
46
47 if (!op) {
48 acpi_os_printf("There is no method currently executing\n");
49 return;
50 }
51
52 /* Get and verify the breakpoint address */
53
54 address = strtoul(location, NULL, 16);
55 aml_offset = (u32)ACPI_PTR_DIFF(op->common.aml,
56 walk_state->parser_state.aml_start);
57 if (address <= aml_offset) {
58 acpi_os_printf("Breakpoint %X is beyond current address %X\n",
59 address, aml_offset);
60 }
61
62 /* Save breakpoint in current walk */
63
64 walk_state->user_breakpoint = address;
65 acpi_os_printf("Breakpoint set at AML offset %X\n", address);
66 }
67
68 /*******************************************************************************
69 *
70 * FUNCTION: acpi_db_set_method_call_breakpoint
71 *
72 * PARAMETERS: op - Current Op (from parse walk)
73 *
74 * RETURN: None
75 *
76 * DESCRIPTION: Set a breakpoint in a control method at the specified
77 * AML offset
78 *
79 ******************************************************************************/
80
acpi_db_set_method_call_breakpoint(union acpi_parse_object * op)81 void acpi_db_set_method_call_breakpoint(union acpi_parse_object *op)
82 {
83
84 if (!op) {
85 acpi_os_printf("There is no method currently executing\n");
86 return;
87 }
88
89 acpi_gbl_step_to_next_call = TRUE;
90 }
91
92 /*******************************************************************************
93 *
94 * FUNCTION: acpi_db_set_method_data
95 *
96 * PARAMETERS: type_arg - L for local, A for argument
97 * index_arg - which one
98 * value_arg - Value to set.
99 *
100 * RETURN: None
101 *
102 * DESCRIPTION: Set a local or argument for the running control method.
103 * NOTE: only object supported is Number.
104 *
105 ******************************************************************************/
106
acpi_db_set_method_data(char * type_arg,char * index_arg,char * value_arg)107 void acpi_db_set_method_data(char *type_arg, char *index_arg, char *value_arg)
108 {
109 char type;
110 u32 index;
111 u32 value;
112 struct acpi_walk_state *walk_state;
113 union acpi_operand_object *obj_desc;
114 acpi_status status;
115 struct acpi_namespace_node *node;
116
117 /* Validate type_arg */
118
119 acpi_ut_strupr(type_arg);
120 type = type_arg[0];
121 if ((type != 'L') && (type != 'A') && (type != 'N')) {
122 acpi_os_printf("Invalid SET operand: %s\n", type_arg);
123 return;
124 }
125
126 value = strtoul(value_arg, NULL, 16);
127
128 if (type == 'N') {
129 node = acpi_db_convert_to_node(index_arg);
130 if (!node) {
131 return;
132 }
133
134 if (node->type != ACPI_TYPE_INTEGER) {
135 acpi_os_printf("Can only set Integer nodes\n");
136 return;
137 }
138 obj_desc = node->object;
139 obj_desc->integer.value = value;
140 return;
141 }
142
143 /* Get the index and value */
144
145 index = strtoul(index_arg, NULL, 16);
146
147 walk_state = acpi_ds_get_current_walk_state(acpi_gbl_current_walk_list);
148 if (!walk_state) {
149 acpi_os_printf("There is no method currently executing\n");
150 return;
151 }
152
153 /* Create and initialize the new object */
154
155 obj_desc = acpi_ut_create_integer_object((u64)value);
156 if (!obj_desc) {
157 acpi_os_printf("Could not create an internal object\n");
158 return;
159 }
160
161 /* Store the new object into the target */
162
163 switch (type) {
164 case 'A':
165
166 /* Set a method argument */
167
168 if (index > ACPI_METHOD_MAX_ARG) {
169 acpi_os_printf("Arg%u - Invalid argument name\n",
170 index);
171 goto cleanup;
172 }
173
174 status = acpi_ds_store_object_to_local(ACPI_REFCLASS_ARG,
175 index, obj_desc,
176 walk_state);
177 if (ACPI_FAILURE(status)) {
178 goto cleanup;
179 }
180
181 obj_desc = walk_state->arguments[index].object;
182
183 acpi_os_printf("Arg%u: ", index);
184 acpi_db_display_internal_object(obj_desc, walk_state);
185 break;
186
187 case 'L':
188
189 /* Set a method local */
190
191 if (index > ACPI_METHOD_MAX_LOCAL) {
192 acpi_os_printf
193 ("Local%u - Invalid local variable name\n", index);
194 goto cleanup;
195 }
196
197 status = acpi_ds_store_object_to_local(ACPI_REFCLASS_LOCAL,
198 index, obj_desc,
199 walk_state);
200 if (ACPI_FAILURE(status)) {
201 goto cleanup;
202 }
203
204 obj_desc = walk_state->local_variables[index].object;
205
206 acpi_os_printf("Local%u: ", index);
207 acpi_db_display_internal_object(obj_desc, walk_state);
208 break;
209
210 default:
211
212 break;
213 }
214
215 cleanup:
216 acpi_ut_remove_reference(obj_desc);
217 }
218
219 #ifdef ACPI_DISASSEMBLER
220 /*******************************************************************************
221 *
222 * FUNCTION: acpi_db_disassemble_aml
223 *
224 * PARAMETERS: statements - Number of statements to disassemble
225 * op - Current Op (from parse walk)
226 *
227 * RETURN: None
228 *
229 * DESCRIPTION: Display disassembled AML (ASL) starting from Op for the number
230 * of statements specified.
231 *
232 ******************************************************************************/
233
acpi_db_disassemble_aml(char * statements,union acpi_parse_object * op)234 void acpi_db_disassemble_aml(char *statements, union acpi_parse_object *op)
235 {
236 u32 num_statements = 8;
237
238 if (!op) {
239 acpi_os_printf("There is no method currently executing\n");
240 return;
241 }
242
243 if (statements) {
244 num_statements = strtoul(statements, NULL, 0);
245 }
246
247 acpi_dm_disassemble(NULL, op, num_statements);
248 }
249
250 /*******************************************************************************
251 *
252 * FUNCTION: acpi_db_disassemble_method
253 *
254 * PARAMETERS: name - Name of control method
255 *
256 * RETURN: None
257 *
258 * DESCRIPTION: Display disassembled AML (ASL) starting from Op for the number
259 * of statements specified.
260 *
261 ******************************************************************************/
262
acpi_db_disassemble_method(char * name)263 acpi_status acpi_db_disassemble_method(char *name)
264 {
265 acpi_status status;
266 union acpi_parse_object *op;
267 struct acpi_walk_state *walk_state;
268 union acpi_operand_object *obj_desc;
269 struct acpi_namespace_node *method;
270
271 method = acpi_db_convert_to_node(name);
272 if (!method) {
273 return (AE_BAD_PARAMETER);
274 }
275
276 if (method->type != ACPI_TYPE_METHOD) {
277 ACPI_ERROR((AE_INFO, "%s (%s): Object must be a control method",
278 name, acpi_ut_get_type_name(method->type)));
279 return (AE_BAD_PARAMETER);
280 }
281
282 obj_desc = method->object;
283
284 op = acpi_ps_create_scope_op(obj_desc->method.aml_start);
285 if (!op) {
286 return (AE_NO_MEMORY);
287 }
288
289 /* Create and initialize a new walk state */
290
291 walk_state = acpi_ds_create_walk_state(0, op, NULL, NULL);
292 if (!walk_state) {
293 return (AE_NO_MEMORY);
294 }
295
296 status = acpi_ds_init_aml_walk(walk_state, op, NULL,
297 obj_desc->method.aml_start,
298 obj_desc->method.aml_length, NULL,
299 ACPI_IMODE_LOAD_PASS1);
300 if (ACPI_FAILURE(status)) {
301 return (status);
302 }
303
304 status = acpi_ut_allocate_owner_id(&obj_desc->method.owner_id);
305 if (ACPI_FAILURE(status)) {
306 return (status);
307 }
308
309 walk_state->owner_id = obj_desc->method.owner_id;
310
311 /* Push start scope on scope stack and make it current */
312
313 status = acpi_ds_scope_stack_push(method, method->type, walk_state);
314 if (ACPI_FAILURE(status)) {
315 return (status);
316 }
317
318 /* Parse the entire method AML including deferred operators */
319
320 walk_state->parse_flags &= ~ACPI_PARSE_DELETE_TREE;
321 walk_state->parse_flags |= ACPI_PARSE_DISASSEMBLE;
322
323 status = acpi_ps_parse_aml(walk_state);
324 (void)acpi_dm_parse_deferred_ops(op);
325
326 /* Now we can disassemble the method */
327
328 acpi_gbl_dm_opt_verbose = FALSE;
329 acpi_dm_disassemble(NULL, op, 0);
330 acpi_gbl_dm_opt_verbose = TRUE;
331
332 acpi_ps_delete_parse_tree(op);
333
334 /* Method cleanup */
335
336 acpi_ns_delete_namespace_subtree(method);
337 acpi_ns_delete_namespace_by_owner(obj_desc->method.owner_id);
338 acpi_ut_release_owner_id(&obj_desc->method.owner_id);
339 return (AE_OK);
340 }
341 #endif
342
343 /*******************************************************************************
344 *
345 * FUNCTION: acpi_db_walk_for_execute
346 *
347 * PARAMETERS: Callback from walk_namespace
348 *
349 * RETURN: Status
350 *
351 * DESCRIPTION: Batch execution module. Currently only executes predefined
352 * ACPI names.
353 *
354 ******************************************************************************/
355
356 static acpi_status
acpi_db_walk_for_execute(acpi_handle obj_handle,u32 nesting_level,void * context,void ** return_value)357 acpi_db_walk_for_execute(acpi_handle obj_handle,
358 u32 nesting_level, void *context, void **return_value)
359 {
360 struct acpi_namespace_node *node =
361 (struct acpi_namespace_node *)obj_handle;
362 struct acpi_db_execute_walk *info =
363 (struct acpi_db_execute_walk *)context;
364 struct acpi_buffer return_obj;
365 acpi_status status;
366 char *pathname;
367 u32 i;
368 struct acpi_device_info *obj_info;
369 struct acpi_object_list param_objects;
370 union acpi_object params[ACPI_METHOD_NUM_ARGS];
371 const union acpi_predefined_info *predefined;
372
373 predefined = acpi_ut_match_predefined_method(node->name.ascii);
374 if (!predefined) {
375 return (AE_OK);
376 }
377
378 if (node->type == ACPI_TYPE_LOCAL_SCOPE) {
379 return (AE_OK);
380 }
381
382 pathname = acpi_ns_get_external_pathname(node);
383 if (!pathname) {
384 return (AE_OK);
385 }
386
387 /* Get the object info for number of method parameters */
388
389 status = acpi_get_object_info(obj_handle, &obj_info);
390 if (ACPI_FAILURE(status)) {
391 ACPI_FREE(pathname);
392 return (status);
393 }
394
395 param_objects.pointer = NULL;
396 param_objects.count = 0;
397
398 if (obj_info->type == ACPI_TYPE_METHOD) {
399
400 /* Setup default parameters */
401
402 for (i = 0; i < obj_info->param_count; i++) {
403 params[i].type = ACPI_TYPE_INTEGER;
404 params[i].integer.value = 1;
405 }
406
407 param_objects.pointer = params;
408 param_objects.count = obj_info->param_count;
409 }
410
411 ACPI_FREE(obj_info);
412 return_obj.pointer = NULL;
413 return_obj.length = ACPI_ALLOCATE_BUFFER;
414
415 /* Do the actual method execution */
416
417 acpi_gbl_method_executing = TRUE;
418
419 status = acpi_evaluate_object(node, NULL, ¶m_objects, &return_obj);
420
421 acpi_os_printf("%-32s returned %s\n", pathname,
422 acpi_format_exception(status));
423 acpi_gbl_method_executing = FALSE;
424 ACPI_FREE(pathname);
425
426 /* Ignore status from method execution */
427
428 status = AE_OK;
429
430 /* Update count, check if we have executed enough methods */
431
432 info->count++;
433 if (info->count >= info->max_count) {
434 status = AE_CTRL_TERMINATE;
435 }
436
437 return (status);
438 }
439
440 /*******************************************************************************
441 *
442 * FUNCTION: acpi_db_evaluate_predefined_names
443 *
444 * PARAMETERS: None
445 *
446 * RETURN: None
447 *
448 * DESCRIPTION: Namespace batch execution. Execute predefined names in the
449 * namespace, up to the max count, if specified.
450 *
451 ******************************************************************************/
452
acpi_db_evaluate_predefined_names(void)453 void acpi_db_evaluate_predefined_names(void)
454 {
455 struct acpi_db_execute_walk info;
456
457 info.count = 0;
458 info.max_count = ACPI_UINT32_MAX;
459
460 /* Search all nodes in namespace */
461
462 (void)acpi_walk_namespace(ACPI_TYPE_ANY, ACPI_ROOT_OBJECT,
463 ACPI_UINT32_MAX, acpi_db_walk_for_execute,
464 NULL, (void *)&info, NULL);
465
466 acpi_os_printf("Evaluated %u predefined names in the namespace\n",
467 info.count);
468 }
469
