2 /******************************************************************************
 
   4  * Module Name: exstoren - AML Interpreter object store support,
 
   5  *                        Store to Node (namespace object)
 
   7  *****************************************************************************/
 
  10  * Copyright (C) 2000 - 2006, R. Byron Moore
 
  11  * All rights reserved.
 
  13  * Redistribution and use in source and binary forms, with or without
 
  14  * modification, are permitted provided that the following conditions
 
  16  * 1. Redistributions of source code must retain the above copyright
 
  17  *    notice, this list of conditions, and the following disclaimer,
 
  18  *    without modification.
 
  19  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
 
  20  *    substantially similar to the "NO WARRANTY" disclaimer below
 
  21  *    ("Disclaimer") and any redistribution must be conditioned upon
 
  22  *    including a substantially similar Disclaimer requirement for further
 
  23  *    binary redistribution.
 
  24  * 3. Neither the names of the above-listed copyright holders nor the names
 
  25  *    of any contributors may be used to endorse or promote products derived
 
  26  *    from this software without specific prior written permission.
 
  28  * Alternatively, this software may be distributed under the terms of the
 
  29  * GNU General Public License ("GPL") version 2 as published by the Free
 
  30  * Software Foundation.
 
  33  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 
  34  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 
  35  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
 
  36  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 
  37  * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 
  38  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 
  39  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 
  40  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 
  41  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
 
  42  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 
  43  * POSSIBILITY OF SUCH DAMAGES.
 
  46 #include <acpi/acpi.h>
 
  47 #include <acpi/acinterp.h>
 
  48 #include <acpi/amlcode.h>
 
  50 #define _COMPONENT          ACPI_EXECUTER
 
  51 ACPI_MODULE_NAME("exstoren")
 
  53 /*******************************************************************************
 
  55  * FUNCTION:    acpi_ex_resolve_object
 
  57  * PARAMETERS:  source_desc_ptr     - Pointer to the source object
 
  58  *              target_type         - Current type of the target
 
  59  *              walk_state          - Current walk state
 
  61  * RETURN:      Status, resolved object in source_desc_ptr.
 
  63  * DESCRIPTION: Resolve an object.  If the object is a reference, dereference
 
  64  *              it and return the actual object in the source_desc_ptr.
 
  66  ******************************************************************************/
 
  68 acpi_ex_resolve_object(union acpi_operand_object **source_desc_ptr,
 
  69                        acpi_object_type target_type,
 
  70                        struct acpi_walk_state *walk_state)
 
  72         union acpi_operand_object *source_desc = *source_desc_ptr;
 
  73         acpi_status status = AE_OK;
 
  75         ACPI_FUNCTION_TRACE(ex_resolve_object);
 
  77         /* Ensure we have a Target that can be stored to */
 
  79         switch (target_type) {
 
  80         case ACPI_TYPE_BUFFER_FIELD:
 
  81         case ACPI_TYPE_LOCAL_REGION_FIELD:
 
  82         case ACPI_TYPE_LOCAL_BANK_FIELD:
 
  83         case ACPI_TYPE_LOCAL_INDEX_FIELD:
 
  85                  * These cases all require only Integers or values that
 
  86                  * can be converted to Integers (Strings or Buffers)
 
  89         case ACPI_TYPE_INTEGER:
 
  90         case ACPI_TYPE_STRING:
 
  91         case ACPI_TYPE_BUFFER:
 
  94                  * Stores into a Field/Region or into a Integer/Buffer/String
 
  95                  * are all essentially the same.  This case handles the
 
  96                  * "interchangeable" types Integer, String, and Buffer.
 
  98                 if (ACPI_GET_OBJECT_TYPE(source_desc) ==
 
  99                     ACPI_TYPE_LOCAL_REFERENCE) {
 
 101                         /* Resolve a reference object first */
 
 104                             acpi_ex_resolve_to_value(source_desc_ptr,
 
 106                         if (ACPI_FAILURE(status)) {
 
 111                 /* For copy_object, no further validation necessary */
 
 113                 if (walk_state->opcode == AML_COPY_OP) {
 
 117                 /* Must have a Integer, Buffer, or String */
 
 119                 if ((ACPI_GET_OBJECT_TYPE(source_desc) != ACPI_TYPE_INTEGER) &&
 
 120                     (ACPI_GET_OBJECT_TYPE(source_desc) != ACPI_TYPE_BUFFER) &&
 
 121                     (ACPI_GET_OBJECT_TYPE(source_desc) != ACPI_TYPE_STRING) &&
 
 122                     !((ACPI_GET_OBJECT_TYPE(source_desc) ==
 
 123                        ACPI_TYPE_LOCAL_REFERENCE)
 
 124                       && (source_desc->reference.opcode == AML_LOAD_OP))) {
 
 126                         /* Conversion successful but still not a valid type */
 
 129                                     "Cannot assign type %s to %s (must be type Int/Str/Buf)",
 
 130                                     acpi_ut_get_object_type_name(source_desc),
 
 131                                     acpi_ut_get_type_name(target_type)));
 
 132                         status = AE_AML_OPERAND_TYPE;
 
 136         case ACPI_TYPE_LOCAL_ALIAS:
 
 137         case ACPI_TYPE_LOCAL_METHOD_ALIAS:
 
 140                  * All aliases should have been resolved earlier, during the
 
 141                  * operand resolution phase.
 
 143                 ACPI_ERROR((AE_INFO, "Store into an unresolved Alias object"));
 
 144                 status = AE_AML_INTERNAL;
 
 147         case ACPI_TYPE_PACKAGE:
 
 151                  * All other types than Alias and the various Fields come here,
 
 152                  * including the untyped case - ACPI_TYPE_ANY.
 
 157         return_ACPI_STATUS(status);
 
 160 /*******************************************************************************
 
 162  * FUNCTION:    acpi_ex_store_object_to_object
 
 164  * PARAMETERS:  source_desc         - Object to store
 
 165  *              dest_desc           - Object to receive a copy of the source
 
 166  *              new_desc            - New object if dest_desc is obsoleted
 
 167  *              walk_state          - Current walk state
 
 171  * DESCRIPTION: "Store" an object to another object.  This may include
 
 172  *              converting the source type to the target type (implicit
 
 173  *              conversion), and a copy of the value of the source to
 
 176  *              The Assignment of an object to another (not named) object
 
 178  *              The Source passed in will replace the current value (if any)
 
 179  *              with the input value.
 
 181  *              When storing into an object the data is converted to the
 
 182  *              target object type then stored in the object.  This means
 
 183  *              that the target object type (for an initialized target) will
 
 184  *              not be changed by a store operation.
 
 186  *              This module allows destination types of Number, String,
 
 187  *              Buffer, and Package.
 
 189  *              Assumes parameters are already validated.  NOTE: source_desc
 
 190  *              resolution (from a reference object) must be performed by
 
 191  *              the caller if necessary.
 
 193  ******************************************************************************/
 
 196 acpi_ex_store_object_to_object(union acpi_operand_object *source_desc,
 
 197                                union acpi_operand_object *dest_desc,
 
 198                                union acpi_operand_object **new_desc,
 
 199                                struct acpi_walk_state *walk_state)
 
 201         union acpi_operand_object *actual_src_desc;
 
 202         acpi_status status = AE_OK;
 
 204         ACPI_FUNCTION_TRACE_PTR(ex_store_object_to_object, source_desc);
 
 206         actual_src_desc = source_desc;
 
 209                  * There is no destination object (An uninitialized node or
 
 210                  * package element), so we can simply copy the source object
 
 211                  * creating a new destination object
 
 214                     acpi_ut_copy_iobject_to_iobject(actual_src_desc, new_desc,
 
 216                 return_ACPI_STATUS(status);
 
 219         if (ACPI_GET_OBJECT_TYPE(source_desc) !=
 
 220             ACPI_GET_OBJECT_TYPE(dest_desc)) {
 
 222                  * The source type does not match the type of the destination.
 
 223                  * Perform the "implicit conversion" of the source to the current type
 
 224                  * of the target as per the ACPI specification.
 
 226                  * If no conversion performed, actual_src_desc = source_desc.
 
 227                  * Otherwise, actual_src_desc is a temporary object to hold the
 
 231                     acpi_ex_convert_to_target_type(ACPI_GET_OBJECT_TYPE
 
 232                                                    (dest_desc), source_desc,
 
 235                 if (ACPI_FAILURE(status)) {
 
 236                         return_ACPI_STATUS(status);
 
 239                 if (source_desc == actual_src_desc) {
 
 241                          * No conversion was performed. Return the source_desc as the
 
 244                         *new_desc = source_desc;
 
 245                         return_ACPI_STATUS(AE_OK);
 
 250          * We now have two objects of identical types, and we can perform a
 
 251          * copy of the *value* of the source object.
 
 253         switch (ACPI_GET_OBJECT_TYPE(dest_desc)) {
 
 254         case ACPI_TYPE_INTEGER:
 
 256                 dest_desc->integer.value = actual_src_desc->integer.value;
 
 258                 /* Truncate value if we are executing from a 32-bit ACPI table */
 
 260                 acpi_ex_truncate_for32bit_table(dest_desc);
 
 263         case ACPI_TYPE_STRING:
 
 266                     acpi_ex_store_string_to_string(actual_src_desc, dest_desc);
 
 269         case ACPI_TYPE_BUFFER:
 
 272                     acpi_ex_store_buffer_to_buffer(actual_src_desc, dest_desc);
 
 275         case ACPI_TYPE_PACKAGE:
 
 278                     acpi_ut_copy_iobject_to_iobject(actual_src_desc, &dest_desc,
 
 284                  * All other types come here.
 
 286                 ACPI_WARNING((AE_INFO, "Store into type %s not implemented",
 
 287                               acpi_ut_get_object_type_name(dest_desc)));
 
 289                 status = AE_NOT_IMPLEMENTED;
 
 293         if (actual_src_desc != source_desc) {
 
 295                 /* Delete the intermediate (temporary) source object */
 
 297                 acpi_ut_remove_reference(actual_src_desc);
 
 300         *new_desc = dest_desc;
 
 301         return_ACPI_STATUS(status);