ACPI_STATUS
acpi_ds_method_data_set_value (
u32 type,
u32 index,
ACPI_OPERAND_OBJECT *src_desc,
ACPI_WALK_STATE *walk_state)
{
ACPI_STATUS status;
ACPI_OPERAND_OBJECT **entry;
/* Parameter validation */
if (!src_desc) {
return (AE_BAD_PARAMETER);
}
/* Get a pointer to the requested method stack entry */
status = acpi_ds_method_data_get_entry (type, index, walk_state, &entry);
if (ACPI_FAILURE (status)) {
goto cleanup;
}
if (*entry == src_desc) {
goto cleanup;
}
/*
* If there is an object already in this slot, we either
* have to delete it, or if this is an argument and there
* is an object reference stored there, we have to do
* an indirect store!
*/
if (*entry) {
/*
* Check for an indirect store if an argument
* contains an object reference (stored as an Node).
* We don't allow this automatic dereferencing for
* locals, since a store to a local should overwrite
* anything there, including an object reference.
*
* If both Arg0 and Local0 contain Ref_of (Local4):
*
* Store (1, Arg0) - Causes indirect store to local4
* Store (1, Local0) - Stores 1 in local0, overwriting
* the reference to local4
* Store (1, De_refof (Local0)) - Causes indirect store to local4
*
* Weird, but true.
*/
if ((type == MTH_TYPE_ARG) &&
(VALID_DESCRIPTOR_TYPE (*entry, ACPI_DESC_TYPE_NAMED)))
{
/* Detach an existing object from the Node */
acpi_ns_detach_object ((ACPI_NAMESPACE_NODE *) *entry);
/*
* Store this object into the Node
* (do the indirect store)
*/
status = acpi_ns_attach_object ((ACPI_NAMESPACE_NODE *) *entry, src_desc,
src_desc->common.type);
return (status);
}
/*
* Otherwise, just delete the existing object
* before storing the new one
*/
acpi_ds_method_data_delete_value (type, index, walk_state);
}
/*
* Install the Obj_stack descriptor (*Src_desc) into
* the descriptor for the Arg or Local.
* Install the new object in the stack entry
* (increments the object reference count by one)
*/
status = acpi_ds_method_data_set_entry (type, index, src_desc, walk_state);
if (ACPI_FAILURE (status)) {
goto cleanup;
}
/* Normal exit */
return (AE_OK);
/* Error exit */
cleanup:
return (status);
}
acpi_status
acpi_ds_store_object_to_local (
u16 opcode,
u32 index,
acpi_operand_object *src_desc,
acpi_walk_state *walk_state)
{
acpi_status status;
acpi_operand_object **entry;
FUNCTION_TRACE ("Ds_method_data_set_value");
ACPI_DEBUG_PRINT ((ACPI_DB_EXEC, "Opcode=%d Idx=%d Obj=%p\n",
opcode, index, src_desc));
/* Parameter validation */
if (!src_desc) {
return_ACPI_STATUS (AE_BAD_PARAMETER);
}
/* Get a pointer to the requested method stack entry */
status = acpi_ds_method_data_get_entry (opcode, index, walk_state, &entry);
if (ACPI_FAILURE (status)) {
goto cleanup;
}
if (*entry == src_desc) {
ACPI_DEBUG_PRINT ((ACPI_DB_EXEC, "Obj=%p already installed!\n", src_desc));
goto cleanup;
}
/*
* If there is an object already in this slot, we either
* have to delete it, or if this is an argument and there
* is an object reference stored there, we have to do
* an indirect store!
*/
if (*entry) {
/*
* Check for an indirect store if an argument
* contains an object reference (stored as an Node).
* We don't allow this automatic dereferencing for
* locals, since a store to a local should overwrite
* anything there, including an object reference.
*
* If both Arg0 and Local0 contain Ref_of (Local4):
*
* Store (1, Arg0) - Causes indirect store to local4
* Store (1, Local0) - Stores 1 in local0, overwriting
* the reference to local4
* Store (1, De_refof (Local0)) - Causes indirect store to local4
*
* Weird, but true.
*/
if ((opcode == AML_ARG_OP) &&
(VALID_DESCRIPTOR_TYPE (*entry, ACPI_DESC_TYPE_NAMED))) {
ACPI_DEBUG_PRINT ((ACPI_DB_EXEC,
"Arg (%p) is an Obj_ref(Node), storing in %p\n",
src_desc, *entry));
/* Detach an existing object from the Node */
acpi_ns_detach_object ((acpi_namespace_node *) *entry);
/*
* Store this object into the Node
* (do the indirect store)
*/
status = acpi_ns_attach_object ((acpi_namespace_node *) *entry, src_desc,
src_desc->common.type);
return_ACPI_STATUS (status);
}
#ifdef ACPI_ENABLE_IMPLICIT_CONVERSION
/*
* Perform "Implicit conversion" of the new object to the type of the
* existing object
*/
status = acpi_ex_convert_to_target_type ((*entry)->common.type, &src_desc, walk_state);
if (ACPI_FAILURE (status)) {
goto cleanup;
}
#endif
/*
* Delete the existing object
* before storing the new one
*/
acpi_ds_method_data_delete_value (opcode, index, walk_state);
}
/*
* Install the Obj_stack descriptor (*Src_desc) into
* the descriptor for the Arg or Local.
* Install the new object in the stack entry
* (increments the object reference count by one)
*/
status = acpi_ds_method_data_set_entry (opcode, index, src_desc, walk_state);
if (ACPI_FAILURE (status)) {
goto cleanup;
}
/* Normal exit */
return_ACPI_STATUS (AE_OK);
/* Error exit */
cleanup:
return_ACPI_STATUS (status);
}
