1 /*******************************************************************************
3 * Module Name: dbexec - debugger control method execution
5 ******************************************************************************/
8 * Copyright (C) 2000 - 2016, Intel Corp.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
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.
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.
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.
44 #include <acpi/acpi.h>
49 #define _COMPONENT ACPI_CA_DEBUGGER
50 ACPI_MODULE_NAME("dbexec")
52 static struct acpi_db_method_info acpi_gbl_db_method_info
;
54 /* Local prototypes */
57 acpi_db_execute_method(struct acpi_db_method_info
*info
,
58 struct acpi_buffer
*return_obj
);
60 static acpi_status
acpi_db_execute_setup(struct acpi_db_method_info
*info
);
62 static u32
acpi_db_get_outstanding_allocations(void);
64 static void ACPI_SYSTEM_XFACE
acpi_db_method_thread(void *context
);
67 acpi_db_execution_walk(acpi_handle obj_handle
,
68 u32 nesting_level
, void *context
, void **return_value
);
70 /*******************************************************************************
72 * FUNCTION: acpi_db_delete_objects
74 * PARAMETERS: count - Count of objects in the list
75 * objects - Array of ACPI_OBJECTs to be deleted
79 * DESCRIPTION: Delete a list of ACPI_OBJECTS. Handles packages and nested
80 * packages via recursion.
82 ******************************************************************************/
84 void acpi_db_delete_objects(u32 count
, union acpi_object
*objects
)
88 for (i
= 0; i
< count
; i
++) {
89 switch (objects
[i
].type
) {
90 case ACPI_TYPE_BUFFER
:
92 ACPI_FREE(objects
[i
].buffer
.pointer
);
95 case ACPI_TYPE_PACKAGE
:
97 /* Recursive call to delete package elements */
99 acpi_db_delete_objects(objects
[i
].package
.count
,
100 objects
[i
].package
.elements
);
102 /* Free the elements array */
104 ACPI_FREE(objects
[i
].package
.elements
);
114 /*******************************************************************************
116 * FUNCTION: acpi_db_execute_method
118 * PARAMETERS: info - Valid info segment
119 * return_obj - Where to put return object
123 * DESCRIPTION: Execute a control method.
125 ******************************************************************************/
128 acpi_db_execute_method(struct acpi_db_method_info
*info
,
129 struct acpi_buffer
*return_obj
)
132 struct acpi_object_list param_objects
;
133 union acpi_object params
[ACPI_DEBUGGER_MAX_ARGS
+ 1];
136 ACPI_FUNCTION_TRACE(db_execute_method
);
138 if (acpi_gbl_db_output_to_file
&& !acpi_dbg_level
) {
139 acpi_os_printf("Warning: debug output is not enabled!\n");
142 param_objects
.count
= 0;
143 param_objects
.pointer
= NULL
;
145 /* Pass through any command-line arguments */
147 if (info
->args
&& info
->args
[0]) {
149 /* Get arguments passed on the command line */
151 for (i
= 0; (info
->args
[i
] && *(info
->args
[i
])); i
++) {
153 /* Convert input string (token) to an actual union acpi_object */
155 status
= acpi_db_convert_to_object(info
->types
[i
],
158 if (ACPI_FAILURE(status
)) {
159 ACPI_EXCEPTION((AE_INFO
, status
,
160 "While parsing method arguments"));
165 param_objects
.count
= i
;
166 param_objects
.pointer
= params
;
169 /* Prepare for a return object of arbitrary size */
171 return_obj
->pointer
= acpi_gbl_db_buffer
;
172 return_obj
->length
= ACPI_DEBUG_BUFFER_SIZE
;
174 /* Do the actual method execution */
176 acpi_gbl_method_executing
= TRUE
;
177 status
= acpi_evaluate_object(NULL
, info
->pathname
,
178 ¶m_objects
, return_obj
);
180 acpi_gbl_cm_single_step
= FALSE
;
181 acpi_gbl_method_executing
= FALSE
;
183 if (ACPI_FAILURE(status
)) {
184 ACPI_EXCEPTION((AE_INFO
, status
,
185 "while executing %s from debugger",
188 if (status
== AE_BUFFER_OVERFLOW
) {
190 "Possible overflow of internal debugger "
191 "buffer (size 0x%X needed 0x%X)",
192 ACPI_DEBUG_BUFFER_SIZE
,
193 (u32
)return_obj
->length
));
198 acpi_db_delete_objects(param_objects
.count
, params
);
199 return_ACPI_STATUS(status
);
202 /*******************************************************************************
204 * FUNCTION: acpi_db_execute_setup
206 * PARAMETERS: info - Valid method info
210 * DESCRIPTION: Setup info segment prior to method execution
212 ******************************************************************************/
214 static acpi_status
acpi_db_execute_setup(struct acpi_db_method_info
*info
)
218 ACPI_FUNCTION_NAME(db_execute_setup
);
220 /* Catenate the current scope to the supplied name */
222 info
->pathname
[0] = 0;
223 if ((info
->name
[0] != '\\') && (info
->name
[0] != '/')) {
224 if (acpi_ut_safe_strcat(info
->pathname
, sizeof(info
->pathname
),
225 acpi_gbl_db_scope_buf
)) {
226 status
= AE_BUFFER_OVERFLOW
;
231 if (acpi_ut_safe_strcat(info
->pathname
, sizeof(info
->pathname
),
233 status
= AE_BUFFER_OVERFLOW
;
237 acpi_db_prep_namestring(info
->pathname
);
239 acpi_db_set_output_destination(ACPI_DB_DUPLICATE_OUTPUT
);
240 acpi_os_printf("Evaluating %s\n", info
->pathname
);
242 if (info
->flags
& EX_SINGLE_STEP
) {
243 acpi_gbl_cm_single_step
= TRUE
;
244 acpi_db_set_output_destination(ACPI_DB_CONSOLE_OUTPUT
);
248 /* No single step, allow redirection to a file */
250 acpi_db_set_output_destination(ACPI_DB_REDIRECTABLE_OUTPUT
);
257 ACPI_EXCEPTION((AE_INFO
, status
, "During setup for method execution"));
261 #ifdef ACPI_DBG_TRACK_ALLOCATIONS
262 u32
acpi_db_get_cache_info(struct acpi_memory_list
*cache
)
265 return (cache
->total_allocated
- cache
->total_freed
-
266 cache
->current_depth
);
270 /*******************************************************************************
272 * FUNCTION: acpi_db_get_outstanding_allocations
276 * RETURN: Current global allocation count minus cache entries
278 * DESCRIPTION: Determine the current number of "outstanding" allocations --
279 * those allocations that have not been freed and also are not
280 * in one of the various object caches.
282 ******************************************************************************/
284 static u32
acpi_db_get_outstanding_allocations(void)
288 #ifdef ACPI_DBG_TRACK_ALLOCATIONS
290 outstanding
+= acpi_db_get_cache_info(acpi_gbl_state_cache
);
291 outstanding
+= acpi_db_get_cache_info(acpi_gbl_ps_node_cache
);
292 outstanding
+= acpi_db_get_cache_info(acpi_gbl_ps_node_ext_cache
);
293 outstanding
+= acpi_db_get_cache_info(acpi_gbl_operand_cache
);
296 return (outstanding
);
299 /*******************************************************************************
301 * FUNCTION: acpi_db_execution_walk
303 * PARAMETERS: WALK_CALLBACK
307 * DESCRIPTION: Execute a control method. Name is relative to the current
310 ******************************************************************************/
313 acpi_db_execution_walk(acpi_handle obj_handle
,
314 u32 nesting_level
, void *context
, void **return_value
)
316 union acpi_operand_object
*obj_desc
;
317 struct acpi_namespace_node
*node
=
318 (struct acpi_namespace_node
*)obj_handle
;
319 struct acpi_buffer return_obj
;
322 obj_desc
= acpi_ns_get_attached_object(node
);
323 if (obj_desc
->method
.param_count
) {
327 return_obj
.pointer
= NULL
;
328 return_obj
.length
= ACPI_ALLOCATE_BUFFER
;
330 acpi_ns_print_node_pathname(node
, "Evaluating");
332 /* Do the actual method execution */
334 acpi_os_printf("\n");
335 acpi_gbl_method_executing
= TRUE
;
337 status
= acpi_evaluate_object(node
, NULL
, NULL
, &return_obj
);
339 acpi_os_printf("Evaluation of [%4.4s] returned %s\n",
340 acpi_ut_get_node_name(node
),
341 acpi_format_exception(status
));
343 acpi_gbl_method_executing
= FALSE
;
347 /*******************************************************************************
349 * FUNCTION: acpi_db_execute
351 * PARAMETERS: name - Name of method to execute
352 * args - Parameters to the method
354 * flags - single step/no single step
358 * DESCRIPTION: Execute a control method. Name is relative to the current
361 ******************************************************************************/
364 acpi_db_execute(char *name
, char **args
, acpi_object_type
*types
, u32 flags
)
367 struct acpi_buffer return_obj
;
370 #ifdef ACPI_DEBUG_OUTPUT
371 u32 previous_allocations
;
376 * Allow one execution to be performed by debugger or single step
377 * execution will be dead locked by the interpreter mutexes.
379 if (acpi_gbl_method_executing
) {
380 acpi_os_printf("Only one debugger execution is allowed.\n");
383 #ifdef ACPI_DEBUG_OUTPUT
384 /* Memory allocation tracking */
386 previous_allocations
= acpi_db_get_outstanding_allocations();
390 (void)acpi_walk_namespace(ACPI_TYPE_METHOD
, ACPI_ROOT_OBJECT
,
392 acpi_db_execution_walk
, NULL
, NULL
,
397 name_string
= ACPI_ALLOCATE(strlen(name
) + 1);
402 memset(&acpi_gbl_db_method_info
, 0, sizeof(struct acpi_db_method_info
));
403 strcpy(name_string
, name
);
404 acpi_ut_strupr(name_string
);
406 /* Subcommand to Execute all predefined names in the namespace */
408 if (!strncmp(name_string
, "PREDEF", 6)) {
409 acpi_db_evaluate_predefined_names();
410 ACPI_FREE(name_string
);
414 acpi_gbl_db_method_info
.name
= name_string
;
415 acpi_gbl_db_method_info
.args
= args
;
416 acpi_gbl_db_method_info
.types
= types
;
417 acpi_gbl_db_method_info
.flags
= flags
;
419 return_obj
.pointer
= NULL
;
420 return_obj
.length
= ACPI_ALLOCATE_BUFFER
;
422 status
= acpi_db_execute_setup(&acpi_gbl_db_method_info
);
423 if (ACPI_FAILURE(status
)) {
424 ACPI_FREE(name_string
);
428 /* Get the NS node, determines existence also */
430 status
= acpi_get_handle(NULL
, acpi_gbl_db_method_info
.pathname
,
431 &acpi_gbl_db_method_info
.method
);
432 if (ACPI_SUCCESS(status
)) {
433 status
= acpi_db_execute_method(&acpi_gbl_db_method_info
,
436 ACPI_FREE(name_string
);
439 * Allow any handlers in separate threads to complete.
440 * (Such as Notify handlers invoked from AML executed above).
442 acpi_os_sleep((u64
)10);
444 #ifdef ACPI_DEBUG_OUTPUT
446 /* Memory allocation tracking */
449 acpi_db_get_outstanding_allocations() - previous_allocations
;
451 acpi_db_set_output_destination(ACPI_DB_DUPLICATE_OUTPUT
);
453 if (allocations
> 0) {
455 ("0x%X Outstanding allocations after evaluation of %s\n",
456 allocations
, acpi_gbl_db_method_info
.pathname
);
460 if (ACPI_FAILURE(status
)) {
461 acpi_os_printf("Evaluation of %s failed with status %s\n",
462 acpi_gbl_db_method_info
.pathname
,
463 acpi_format_exception(status
));
465 /* Display a return object, if any */
467 if (return_obj
.length
) {
468 acpi_os_printf("Evaluation of %s returned object %p, "
469 "external buffer length %X\n",
470 acpi_gbl_db_method_info
.pathname
,
472 (u32
)return_obj
.length
);
474 acpi_db_dump_external_object(return_obj
.pointer
, 1);
476 /* Dump a _PLD buffer if present */
478 if (ACPI_COMPARE_NAME
480 (struct acpi_namespace_node
,
481 acpi_gbl_db_method_info
.method
)->name
.ascii
),
483 acpi_db_dump_pld_buffer(return_obj
.pointer
);
487 ("No object was returned from evaluation of %s\n",
488 acpi_gbl_db_method_info
.pathname
);
492 acpi_db_set_output_destination(ACPI_DB_CONSOLE_OUTPUT
);
495 /*******************************************************************************
497 * FUNCTION: acpi_db_method_thread
499 * PARAMETERS: context - Execution info segment
503 * DESCRIPTION: Debugger execute thread. Waits for a command line, then
504 * simply dispatches it.
506 ******************************************************************************/
508 static void ACPI_SYSTEM_XFACE
acpi_db_method_thread(void *context
)
511 struct acpi_db_method_info
*info
= context
;
512 struct acpi_db_method_info local_info
;
515 struct acpi_buffer return_obj
;
518 * acpi_gbl_db_method_info.Arguments will be passed as method arguments.
519 * Prevent acpi_gbl_db_method_info from being modified by multiple threads
522 * Note: The arguments we are passing are used by the ASL test suite
523 * (aslts). Do not change them without updating the tests.
525 (void)acpi_os_wait_semaphore(info
->info_gate
, 1, ACPI_WAIT_FOREVER
);
527 if (info
->init_args
) {
528 acpi_db_uint32_to_hex_string(info
->num_created
,
529 info
->index_of_thread_str
);
530 acpi_db_uint32_to_hex_string((u32
)acpi_os_get_thread_id(),
531 info
->id_of_thread_str
);
534 if (info
->threads
&& (info
->num_created
< info
->num_threads
)) {
535 info
->threads
[info
->num_created
++] = acpi_os_get_thread_id();
539 local_info
.args
= local_info
.arguments
;
540 local_info
.arguments
[0] = local_info
.num_threads_str
;
541 local_info
.arguments
[1] = local_info
.id_of_thread_str
;
542 local_info
.arguments
[2] = local_info
.index_of_thread_str
;
543 local_info
.arguments
[3] = NULL
;
545 local_info
.types
= local_info
.arg_types
;
547 (void)acpi_os_signal_semaphore(info
->info_gate
, 1);
549 for (i
= 0; i
< info
->num_loops
; i
++) {
550 status
= acpi_db_execute_method(&local_info
, &return_obj
);
551 if (ACPI_FAILURE(status
)) {
553 ("%s During evaluation of %s at iteration %X\n",
554 acpi_format_exception(status
), info
->pathname
, i
);
555 if (status
== AE_ABORT_METHOD
) {
560 if ((i
% 100) == 0) {
561 acpi_os_printf("%u loops, Thread 0x%x\n",
562 i
, acpi_os_get_thread_id());
565 if (return_obj
.length
) {
567 ("Evaluation of %s returned object %p Buflen %X\n",
568 info
->pathname
, return_obj
.pointer
,
569 (u32
)return_obj
.length
);
570 acpi_db_dump_external_object(return_obj
.pointer
, 1);
575 /* Signal our completion */
578 (void)acpi_os_wait_semaphore(info
->thread_complete_gate
,
579 1, ACPI_WAIT_FOREVER
);
580 info
->num_completed
++;
582 if (info
->num_completed
== info
->num_threads
) {
584 /* Do signal for main thread once only */
588 (void)acpi_os_signal_semaphore(info
->thread_complete_gate
, 1);
591 status
= acpi_os_signal_semaphore(info
->main_thread_gate
, 1);
592 if (ACPI_FAILURE(status
)) {
594 ("Could not signal debugger thread sync semaphore, %s\n",
595 acpi_format_exception(status
));
600 /*******************************************************************************
602 * FUNCTION: acpi_db_create_execution_threads
604 * PARAMETERS: num_threads_arg - Number of threads to create
605 * num_loops_arg - Loop count for the thread(s)
606 * method_name_arg - Control method to execute
610 * DESCRIPTION: Create threads to execute method(s)
612 ******************************************************************************/
615 acpi_db_create_execution_threads(char *num_threads_arg
,
616 char *num_loops_arg
, char *method_name_arg
)
623 acpi_mutex main_thread_gate
;
624 acpi_mutex thread_complete_gate
;
625 acpi_mutex info_gate
;
627 /* Get the arguments */
629 num_threads
= strtoul(num_threads_arg
, NULL
, 0);
630 num_loops
= strtoul(num_loops_arg
, NULL
, 0);
632 if (!num_threads
|| !num_loops
) {
633 acpi_os_printf("Bad argument: Threads %X, Loops %X\n",
634 num_threads
, num_loops
);
639 * Create the semaphore for synchronization of
640 * the created threads with the main thread.
642 status
= acpi_os_create_semaphore(1, 0, &main_thread_gate
);
643 if (ACPI_FAILURE(status
)) {
644 acpi_os_printf("Could not create semaphore for "
645 "synchronization with the main thread, %s\n",
646 acpi_format_exception(status
));
651 * Create the semaphore for synchronization
652 * between the created threads.
654 status
= acpi_os_create_semaphore(1, 1, &thread_complete_gate
);
655 if (ACPI_FAILURE(status
)) {
656 acpi_os_printf("Could not create semaphore for "
657 "synchronization between the created threads, %s\n",
658 acpi_format_exception(status
));
660 (void)acpi_os_delete_semaphore(main_thread_gate
);
664 status
= acpi_os_create_semaphore(1, 1, &info_gate
);
665 if (ACPI_FAILURE(status
)) {
666 acpi_os_printf("Could not create semaphore for "
667 "synchronization of AcpiGbl_DbMethodInfo, %s\n",
668 acpi_format_exception(status
));
670 (void)acpi_os_delete_semaphore(thread_complete_gate
);
671 (void)acpi_os_delete_semaphore(main_thread_gate
);
675 memset(&acpi_gbl_db_method_info
, 0, sizeof(struct acpi_db_method_info
));
677 /* Array to store IDs of threads */
679 acpi_gbl_db_method_info
.num_threads
= num_threads
;
680 size
= sizeof(acpi_thread_id
) * acpi_gbl_db_method_info
.num_threads
;
682 acpi_gbl_db_method_info
.threads
= acpi_os_allocate(size
);
683 if (acpi_gbl_db_method_info
.threads
== NULL
) {
684 acpi_os_printf("No memory for thread IDs array\n");
685 (void)acpi_os_delete_semaphore(main_thread_gate
);
686 (void)acpi_os_delete_semaphore(thread_complete_gate
);
687 (void)acpi_os_delete_semaphore(info_gate
);
690 memset(acpi_gbl_db_method_info
.threads
, 0, size
);
692 /* Setup the context to be passed to each thread */
694 acpi_gbl_db_method_info
.name
= method_name_arg
;
695 acpi_gbl_db_method_info
.flags
= 0;
696 acpi_gbl_db_method_info
.num_loops
= num_loops
;
697 acpi_gbl_db_method_info
.main_thread_gate
= main_thread_gate
;
698 acpi_gbl_db_method_info
.thread_complete_gate
= thread_complete_gate
;
699 acpi_gbl_db_method_info
.info_gate
= info_gate
;
701 /* Init arguments to be passed to method */
703 acpi_gbl_db_method_info
.init_args
= 1;
704 acpi_gbl_db_method_info
.args
= acpi_gbl_db_method_info
.arguments
;
705 acpi_gbl_db_method_info
.arguments
[0] =
706 acpi_gbl_db_method_info
.num_threads_str
;
707 acpi_gbl_db_method_info
.arguments
[1] =
708 acpi_gbl_db_method_info
.id_of_thread_str
;
709 acpi_gbl_db_method_info
.arguments
[2] =
710 acpi_gbl_db_method_info
.index_of_thread_str
;
711 acpi_gbl_db_method_info
.arguments
[3] = NULL
;
713 acpi_gbl_db_method_info
.types
= acpi_gbl_db_method_info
.arg_types
;
714 acpi_gbl_db_method_info
.arg_types
[0] = ACPI_TYPE_INTEGER
;
715 acpi_gbl_db_method_info
.arg_types
[1] = ACPI_TYPE_INTEGER
;
716 acpi_gbl_db_method_info
.arg_types
[2] = ACPI_TYPE_INTEGER
;
718 acpi_db_uint32_to_hex_string(num_threads
,
719 acpi_gbl_db_method_info
.num_threads_str
);
721 status
= acpi_db_execute_setup(&acpi_gbl_db_method_info
);
722 if (ACPI_FAILURE(status
)) {
723 goto cleanup_and_exit
;
726 /* Get the NS node, determines existence also */
728 status
= acpi_get_handle(NULL
, acpi_gbl_db_method_info
.pathname
,
729 &acpi_gbl_db_method_info
.method
);
730 if (ACPI_FAILURE(status
)) {
731 acpi_os_printf("%s Could not get handle for %s\n",
732 acpi_format_exception(status
),
733 acpi_gbl_db_method_info
.pathname
);
734 goto cleanup_and_exit
;
737 /* Create the threads */
739 acpi_os_printf("Creating %X threads to execute %X times each\n",
740 num_threads
, num_loops
);
742 for (i
= 0; i
< (num_threads
); i
++) {
744 acpi_os_execute(OSL_DEBUGGER_EXEC_THREAD
,
745 acpi_db_method_thread
,
746 &acpi_gbl_db_method_info
);
747 if (ACPI_FAILURE(status
)) {
752 /* Wait for all threads to complete */
754 (void)acpi_os_wait_semaphore(main_thread_gate
, 1, ACPI_WAIT_FOREVER
);
756 acpi_db_set_output_destination(ACPI_DB_DUPLICATE_OUTPUT
);
757 acpi_os_printf("All threads (%X) have completed\n", num_threads
);
758 acpi_db_set_output_destination(ACPI_DB_CONSOLE_OUTPUT
);
762 /* Cleanup and exit */
764 (void)acpi_os_delete_semaphore(main_thread_gate
);
765 (void)acpi_os_delete_semaphore(thread_complete_gate
);
766 (void)acpi_os_delete_semaphore(info_gate
);
768 acpi_os_free(acpi_gbl_db_method_info
.threads
);
769 acpi_gbl_db_method_info
.threads
= NULL
;