Subversion Repositories Kolibri OS

/*******************************************************************************

 *

 * Module Name: dbobject - ACPI object decode and display

 *

 ******************************************************************************/

/*

 * Copyright (C) 2000 - 2015, Intel Corp.

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions, and the following disclaimer,

 *    without modification.

 * 2. Redistributions in binary form must reproduce at minimum a disclaimer

 *    substantially similar to the "NO WARRANTY" disclaimer below

 *    ("Disclaimer") and any redistribution must be conditioned upon

 *    including a substantially similar Disclaimer requirement for further

 *    binary redistribution.

 * 3. Neither the names of the above-listed copyright holders nor the names

 *    of any contributors may be used to endorse or promote products derived

 *    from this software without specific prior written permission.

 *

 * Alternatively, this software may be distributed under the terms of the

 * GNU General Public License ("GPL") version 2 as published by the Free

 * Software Foundation.

 *

 * NO WARRANTY

 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR

 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT

 * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,

 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING

 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE

 * POSSIBILITY OF SUCH DAMAGES.

 */

#include 

#include "accommon.h"

#include "acnamesp.h"

#include "acdebug.h"

#define _COMPONENT          ACPI_CA_DEBUGGER

ACPI_MODULE_NAME("dbobject")

/* Local prototypes */

static void acpi_db_decode_node(struct acpi_namespace_node *node);

/*******************************************************************************

 *

 * FUNCTION:    acpi_db_dump_method_info

 *

 * PARAMETERS:  status          - Method execution status

 *              walk_state      - Current state of the parse tree walk

 *

 * RETURN:      None

 *

 * DESCRIPTION: Called when a method has been aborted because of an error.

 *              Dumps the method execution stack, and the method locals/args,

 *              and disassembles the AML opcode that failed.

 *

 ******************************************************************************/

void

acpi_db_dump_method_info(acpi_status status, struct acpi_walk_state *walk_state)

{

	struct acpi_thread_state *thread;

	/* Ignore control codes, they are not errors */

	if ((status & AE_CODE_MASK) == AE_CODE_CONTROL) {

		return;

	}

	/* We may be executing a deferred opcode */

	if (walk_state->deferred_node) {

		acpi_os_printf("Executing subtree for Buffer/Package/Region\n");

		return;

	}

	/*

	 * If there is no Thread, we are not actually executing a method.

	 * This can happen when the iASL compiler calls the interpreter

	 * to perform constant folding.

	 */

	thread = walk_state->thread;

	if (!thread) {

		return;

	}

	/* Display the method locals and arguments */

	acpi_os_printf("\n");

	acpi_db_decode_locals(walk_state);

	acpi_os_printf("\n");

	acpi_db_decode_arguments(walk_state);

	acpi_os_printf("\n");

}

/*******************************************************************************

 *

 * FUNCTION:    acpi_db_decode_internal_object

 *

 * PARAMETERS:  obj_desc        - Object to be displayed

 *

 * RETURN:      None

 *

 * DESCRIPTION: Short display of an internal object. Numbers/Strings/Buffers.

 *

 ******************************************************************************/

void acpi_db_decode_internal_object(union acpi_operand_object *obj_desc)

{

	u32 i;

	if (!obj_desc) {

		acpi_os_printf(" Uninitialized");

		return;

	}

	if (ACPI_GET_DESCRIPTOR_TYPE(obj_desc) != ACPI_DESC_TYPE_OPERAND) {

		acpi_os_printf(" %p [%s]", obj_desc,

			       acpi_ut_get_descriptor_name(obj_desc));

		return;

	}

	acpi_os_printf(" %s", acpi_ut_get_object_type_name(obj_desc));

	switch (obj_desc->common.type) {

	case ACPI_TYPE_INTEGER:

		acpi_os_printf(" %8.8X%8.8X",

			       ACPI_FORMAT_UINT64(obj_desc->integer.value));

		break;

	case ACPI_TYPE_STRING:

		acpi_os_printf("(%u) \"%.24s",

			       obj_desc->string.length,

			       obj_desc->string.pointer);

		if (obj_desc->string.length > 24) {

			acpi_os_printf("...");

		} else {

			acpi_os_printf("\"");

		}

		break;

	case ACPI_TYPE_BUFFER:

		acpi_os_printf("(%u)", obj_desc->buffer.length);

		for (i = 0; (i < 8) && (i < obj_desc->buffer.length); i++) {

			acpi_os_printf(" %2.2X", obj_desc->buffer.pointer[i]);

		}

		break;

	default:

		acpi_os_printf(" %p", obj_desc);

		break;

	}

}

/*******************************************************************************

 *

 * FUNCTION:    acpi_db_decode_node

 *

 * PARAMETERS:  node        - Object to be displayed

 *

 * RETURN:      None

 *

 * DESCRIPTION: Short display of a namespace node

 *

 ******************************************************************************/

static void acpi_db_decode_node(struct acpi_namespace_node *node)

{

	acpi_os_printf("          Name %4.4s",

		       acpi_ut_get_node_name(node));

	if (node->flags & ANOBJ_METHOD_ARG) {

		acpi_os_printf(" [Method Arg]");

	}

	if (node->flags & ANOBJ_METHOD_LOCAL) {

		acpi_os_printf(" [Method Local]");

	}

	switch (node->type) {

		/* These types have no attached object */

	case ACPI_TYPE_DEVICE:

		acpi_os_printf(" Device");

		break;

	case ACPI_TYPE_THERMAL:

		acpi_os_printf(" Thermal Zone");

		break;

	default:

		acpi_db_decode_internal_object(acpi_ns_get_attached_object

					       (node));

		break;

	}

}

/*******************************************************************************

 *

 * FUNCTION:    acpi_db_display_internal_object

 *

 * PARAMETERS:  obj_desc        - Object to be displayed

 *              walk_state      - Current walk state

 *

 * RETURN:      None

 *

 * DESCRIPTION: Short display of an internal object

 *

 ******************************************************************************/

void

acpi_db_display_internal_object(union acpi_operand_object *obj_desc,

				struct acpi_walk_state *walk_state)

{

	u8 type;

	acpi_os_printf("%p ", obj_desc);

	if (!obj_desc) {

		acpi_os_printf("\n");

		return;

	}

	/* Decode the object type */

	switch (ACPI_GET_DESCRIPTOR_TYPE(obj_desc)) {

	case ACPI_DESC_TYPE_PARSER:

		acpi_os_printf(" ");

		break;

	case ACPI_DESC_TYPE_NAMED:

		acpi_db_decode_node((struct acpi_namespace_node *)obj_desc);

		break;

	case ACPI_DESC_TYPE_OPERAND:

		type = obj_desc->common.type;

		if (type > ACPI_TYPE_LOCAL_MAX) {

			acpi_os_printf(" Type %X [Invalid Type]", (u32)type);

			return;

		}

		/* Decode the ACPI object type */

		switch (obj_desc->common.type) {

		case ACPI_TYPE_LOCAL_REFERENCE:

			acpi_os_printf("[%s] ",

				       acpi_ut_get_reference_name(obj_desc));

			/* Decode the refererence */

			switch (obj_desc->reference.class) {

			case ACPI_REFCLASS_LOCAL:

				acpi_os_printf("%X ",

					       obj_desc->reference.value);

				if (walk_state) {

					obj_desc = walk_state->local_variables

					    [obj_desc->reference.value].object;

					acpi_os_printf("%p", obj_desc);

					acpi_db_decode_internal_object

					    (obj_desc);

				}

				break;

			case ACPI_REFCLASS_ARG:

				acpi_os_printf("%X ",

					       obj_desc->reference.value);

				if (walk_state) {

					obj_desc = walk_state->arguments

					    [obj_desc->reference.value].object;

					acpi_os_printf("%p", obj_desc);

					acpi_db_decode_internal_object

					    (obj_desc);

				}

				break;

			case ACPI_REFCLASS_INDEX:

				switch (obj_desc->reference.target_type) {

				case ACPI_TYPE_BUFFER_FIELD:

					acpi_os_printf("%p",

						       obj_desc->reference.

						       object);

					acpi_db_decode_internal_object

					    (obj_desc->reference.object);

					break;

				case ACPI_TYPE_PACKAGE:

					acpi_os_printf("%p",

						       obj_desc->reference.

						       where);

					if (!obj_desc->reference.where) {

						acpi_os_printf

						    (" Uninitialized WHERE pointer");

					} else {

						acpi_db_decode_internal_object(*

									       (obj_desc->

										reference.

										where));

					}

					break;

				default:

					acpi_os_printf

					    ("Unknown index target type");

					break;

				}

				break;

			case ACPI_REFCLASS_REFOF:

				if (!obj_desc->reference.object) {

					acpi_os_printf

					    ("Uninitialized reference subobject pointer");

					break;

				}

				/* Reference can be to a Node or an Operand object */

				switch (ACPI_GET_DESCRIPTOR_TYPE

					(obj_desc->reference.object)) {

				case ACPI_DESC_TYPE_NAMED:

					acpi_db_decode_node(obj_desc->reference.

							    object);

					break;

				case ACPI_DESC_TYPE_OPERAND:

					acpi_db_decode_internal_object

					    (obj_desc->reference.object);

					break;

				default:

					break;

				}

				break;

			case ACPI_REFCLASS_NAME:

				acpi_db_decode_node(obj_desc->reference.node);

				break;

			case ACPI_REFCLASS_DEBUG:

			case ACPI_REFCLASS_TABLE:

				acpi_os_printf("\n");

				break;

			default:	/* Unknown reference class */

				acpi_os_printf("%2.2X\n",

					       obj_desc->reference.class);

				break;

			}

			break;

		default:

			acpi_os_printf("          ");

			acpi_db_decode_internal_object(obj_desc);

			break;

		}

		break;

	default:

		acpi_os_printf(" [%s]",

			       acpi_ut_get_descriptor_name(obj_desc));

		break;

	}

	acpi_os_printf("\n");

}

/*******************************************************************************

 *

 * FUNCTION:    acpi_db_decode_locals

 *

 * PARAMETERS:  walk_state      - State for current method

 *

 * RETURN:      None

 *

 * DESCRIPTION: Display all locals for the currently running control method

 *

 ******************************************************************************/

void acpi_db_decode_locals(struct acpi_walk_state *walk_state)

{

	u32 i;

	union acpi_operand_object *obj_desc;

	struct acpi_namespace_node *node;

	u8 display_locals = FALSE;

	obj_desc = walk_state->method_desc;

	node = walk_state->method_node;

	if (!node) {

		acpi_os_printf

		    ("No method node (Executing subtree for buffer or opregion)\n");

		return;

	}

	if (node->type != ACPI_TYPE_METHOD) {

		acpi_os_printf("Executing subtree for Buffer/Package/Region\n");

		return;

	}

	/* Are any locals actually set? */

	for (i = 0; i < ACPI_METHOD_NUM_LOCALS; i++) {

		obj_desc = walk_state->local_variables[i].object;

		if (obj_desc) {

			display_locals = TRUE;

			break;

		}

	}

	/* If any are set, only display the ones that are set */

	if (display_locals) {

		acpi_os_printf

		    ("\nInitialized Local Variables for method [%4.4s]:\n",

		     acpi_ut_get_node_name(node));

		for (i = 0; i < ACPI_METHOD_NUM_LOCALS; i++) {

			obj_desc = walk_state->local_variables[i].object;

			if (obj_desc) {

				acpi_os_printf("  Local%X: ", i);

				acpi_db_display_internal_object(obj_desc,

								walk_state);

			}

		}

	} else {

		acpi_os_printf

		    ("No Local Variables are initialized for method [%4.4s]\n",

		     acpi_ut_get_node_name(node));

	}

}

/*******************************************************************************

 *

 * FUNCTION:    acpi_db_decode_arguments

 *

 * PARAMETERS:  walk_state      - State for current method

 *

 * RETURN:      None

 *

 * DESCRIPTION: Display all arguments for the currently running control method

 *

 ******************************************************************************/

void acpi_db_decode_arguments(struct acpi_walk_state *walk_state)

{

	u32 i;

	union acpi_operand_object *obj_desc;

	struct acpi_namespace_node *node;

	u8 display_args = FALSE;

	node = walk_state->method_node;

	obj_desc = walk_state->method_desc;

	if (!node) {

		acpi_os_printf

		    ("No method node (Executing subtree for buffer or opregion)\n");

		return;

	}

	if (node->type != ACPI_TYPE_METHOD) {

		acpi_os_printf("Executing subtree for Buffer/Package/Region\n");

		return;

	}

	/* Are any arguments actually set? */

	for (i = 0; i < ACPI_METHOD_NUM_ARGS; i++) {

		obj_desc = walk_state->arguments[i].object;

		if (obj_desc) {

			display_args = TRUE;

			break;

		}

	}

	/* If any are set, only display the ones that are set */

	if (display_args) {

		acpi_os_printf("Initialized Arguments for Method [%4.4s]:  "

			       "(%X arguments defined for method invocation)\n",

			       acpi_ut_get_node_name(node),

			       obj_desc->method.param_count);

		for (i = 0; i < ACPI_METHOD_NUM_ARGS; i++) {

			obj_desc = walk_state->arguments[i].object;

			if (obj_desc) {

				acpi_os_printf("  Arg%u:   ", i);

				acpi_db_display_internal_object(obj_desc,

								walk_state);

			}

		}

	} else {

		acpi_os_printf

		    ("No Arguments are initialized for method [%4.4s]\n",

		     acpi_ut_get_node_name(node));

	}

}