drivers/acpi/acpica/dspkginit.c

   1 /******************************************************************************
   2  *
   3  * Module Name: dspkginit - Completion of deferred package initialization
   4  *
   5  *****************************************************************************/
   6
   7 /*
   8  * Copyright (C) 2000 - 2017, Intel Corp.
   9  * All rights reserved.
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  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.
  25  *
  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.
  29  *
  30  * NO WARRANTY
  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.
  42  */
  43
  44 #include <acpi/acpi.h>
  45 #include "accommon.h"
  46 #include "acnamesp.h"
  47 #include "amlcode.h"
  48 #include "acdispat.h"
  49 #include "acinterp.h"
  50
  51 #define _COMPONENT          ACPI_NAMESPACE
  52 ACPI_MODULE_NAME("dspkginit")
  53
  54 /* Local prototypes */
  55 static void
  56 acpi_ds_resolve_package_element(union acpi_operand_object **element);
  57
  58 /*******************************************************************************
  59  *
  60  * FUNCTION:    acpi_ds_build_internal_package_obj
  61  *
  62  * PARAMETERS:  walk_state      - Current walk state
  63  *              op              - Parser object to be translated
  64  *              element_count   - Number of elements in the package - this is
  65  *                                the num_elements argument to Package()
  66  *              obj_desc_ptr    - Where the ACPI internal object is returned
  67  *
  68  * RETURN:      Status
  69  *
  70  * DESCRIPTION: Translate a parser Op package object to the equivalent
  71  *              namespace object
  72  *
  73  * NOTE: The number of elements in the package will be always be the num_elements
  74  * count, regardless of the number of elements in the package list. If
  75  * num_elements is smaller, only that many package list elements are used.
  76  * if num_elements is larger, the Package object is padded out with
  77  * objects of type Uninitialized (as per ACPI spec.)
  78  *
  79  * Even though the ASL compilers do not allow num_elements to be smaller
  80  * than the Package list length (for the fixed length package opcode), some
  81  * BIOS code modifies the AML on the fly to adjust the num_elements, and
  82  * this code compensates for that. This also provides compatibility with
  83  * other AML interpreters.
  84  *
  85  ******************************************************************************/
  86
  87 acpi_status
  88 acpi_ds_build_internal_package_obj(struct acpi_walk_state *walk_state,
  89                                    union acpi_parse_object *op,
  90                                    u32 element_count,
  91                                    union acpi_operand_object **obj_desc_ptr)
  92 {
  93         union acpi_parse_object *arg;
  94         union acpi_parse_object *parent;
  95         union acpi_operand_object *obj_desc = NULL;
  96         acpi_status status = AE_OK;
  97         u16 reference_count;
  98         u32 index;
  99         u32 i;
 100
 101         ACPI_FUNCTION_TRACE(ds_build_internal_package_obj);
 102
 103         /* Find the parent of a possibly nested package */
 104
 105         parent = op->common.parent;
 106         while ((parent->common.aml_opcode == AML_PACKAGE_OP) ||
 107                (parent->common.aml_opcode == AML_VARIABLE_PACKAGE_OP)) {
 108                 parent = parent->common.parent;
 109         }
 110
 111         /*
 112          * If we are evaluating a Named package object of the form:
 113          *      Name (xxxx, Package)
 114          * the package object already exists, otherwise it must be created.
 115          */
 116         obj_desc = *obj_desc_ptr;
 117         if (!obj_desc) {
 118                 obj_desc = acpi_ut_create_internal_object(ACPI_TYPE_PACKAGE);
 119                 *obj_desc_ptr = obj_desc;
 120                 if (!obj_desc) {
 121                         return_ACPI_STATUS(AE_NO_MEMORY);
 122                 }
 123
 124                 obj_desc->package.node = parent->common.node;
 125         }
 126
 127         if (obj_desc->package.flags & AOPOBJ_DATA_VALID) {      /* Just in case */
 128                 return_ACPI_STATUS(AE_OK);
 129         }
 130
 131         /*
 132          * Allocate the element array (array of pointers to the individual
 133          * objects) based on the num_elements parameter. Add an extra pointer slot
 134          * so that the list is always null terminated.
 135          */
 136         obj_desc->package.elements = ACPI_ALLOCATE_ZEROED(((acpi_size)
 137                                                            element_count +
 138                                                            1) * sizeof(void *));
 139
 140         if (!obj_desc->package.elements) {
 141                 acpi_ut_delete_object_desc(obj_desc);
 142                 return_ACPI_STATUS(AE_NO_MEMORY);
 143         }
 144
 145         obj_desc->package.count = element_count;
 146         arg = op->common.value.arg;
 147         arg = arg->common.next;
 148
 149         if (arg) {
 150                 obj_desc->package.flags |= AOPOBJ_DATA_VALID;
 151         }
 152
 153         /*
 154          * Initialize the elements of the package, up to the num_elements count.
 155          * Package is automatically padded with uninitialized (NULL) elements
 156          * if num_elements is greater than the package list length. Likewise,
 157          * Package is truncated if num_elements is less than the list length.
 158          */
 159         for (i = 0; arg && (i < element_count); i++) {
 160                 if (arg->common.aml_opcode == AML_INT_RETURN_VALUE_OP) {
 161                         if (arg->common.node->type == ACPI_TYPE_METHOD) {
 162                                 /*
 163                                  * A method reference "looks" to the parser to be a method
 164                                  * invocation, so we special case it here
 165                                  */
 166                                 arg->common.aml_opcode = AML_INT_NAMEPATH_OP;
 167                                 status =
 168                                     acpi_ds_build_internal_object(walk_state,
 169                                                                   arg,
 170                                                                   &obj_desc->
 171                                                                   package.
 172                                                                   elements[i]);
 173                         } else {
 174                                 /* This package element is already built, just get it */
 175
 176                                 obj_desc->package.elements[i] =
 177                                     ACPI_CAST_PTR(union acpi_operand_object,
 178                                                   arg->common.node);
 179                         }
 180                 } else {
 181                         status =
 182                             acpi_ds_build_internal_object(walk_state, arg,
 183                                                           &obj_desc->package.
 184                                                           elements[i]);
 185                         if (status == AE_NOT_FOUND) {
 186                                 ACPI_ERROR((AE_INFO, "%-48s",
 187                                             "****DS namepath not found"));
 188                         }
 189
 190                         /*
 191                          * Initialize this package element. This function handles the
 192                          * resolution of named references within the package.
 193                          */
 194                         acpi_ds_init_package_element(0,
 195                                                      obj_desc->package.
 196                                                      elements[i], NULL,
 197                                                      &obj_desc->package.
 198                                                      elements[i]);
 199                 }
 200
 201                 if (*obj_desc_ptr) {
 202
 203                         /* Existing package, get existing reference count */
 204
 205                         reference_count =
 206                             (*obj_desc_ptr)->common.reference_count;
 207                         if (reference_count > 1) {
 208
 209                                 /* Make new element ref count match original ref count */
 210                                 /* TBD: Probably need an acpi_ut_add_references function */
 211
 212                                 for (index = 0;
 213                                      index < ((u32)reference_count - 1);
 214                                      index++) {
 215                                         acpi_ut_add_reference((obj_desc->
 216                                                                package.
 217                                                                elements[i]));
 218                                 }
 219                         }
 220                 }
 221
 222                 arg = arg->common.next;
 223         }
 224
 225         /* Check for match between num_elements and actual length of package_list */
 226
 227         if (arg) {
 228                 /*
 229                  * num_elements was exhausted, but there are remaining elements in
 230                  * the package_list. Truncate the package to num_elements.
 231                  *
 232                  * Note: technically, this is an error, from ACPI spec: "It is an
 233                  * error for NumElements to be less than the number of elements in
 234                  * the PackageList". However, we just print a message and no
 235                  * exception is returned. This provides compatibility with other
 236                  * ACPI implementations. Some firmware implementations will alter
 237                  * the num_elements on the fly, possibly creating this type of
 238                  * ill-formed package object.
 239                  */
 240                 while (arg) {
 241                         /*
 242                          * We must delete any package elements that were created earlier
 243                          * and are not going to be used because of the package truncation.
 244                          */
 245                         if (arg->common.node) {
 246                                 acpi_ut_remove_reference(ACPI_CAST_PTR
 247                                                          (union
 248                                                           acpi_operand_object,
 249                                                           arg->common.node));
 250                                 arg->common.node = NULL;
 251                         }
 252
 253                         /* Find out how many elements there really are */
 254
 255                         i++;
 256                         arg = arg->common.next;
 257                 }
 258
 259                 ACPI_INFO(("Actual Package length (%u) is larger than "
 260                            "NumElements field (%u), truncated",
 261                            i, element_count));
 262         } else if (i < element_count) {
 263                 /*
 264                  * Arg list (elements) was exhausted, but we did not reach
 265                  * num_elements count.
 266                  *
 267                  * Note: this is not an error, the package is padded out
 268                  * with NULLs.
 269                  */
 270                 ACPI_DEBUG_PRINT((ACPI_DB_INFO,
 271                                   "Package List length (%u) smaller than NumElements "
 272                                   "count (%u), padded with null elements\n",
 273                                   i, element_count));
 274         }
 275
 276         obj_desc->package.flags |= AOPOBJ_DATA_VALID;
 277         op->common.node = ACPI_CAST_PTR(struct acpi_namespace_node, obj_desc);
 278         return_ACPI_STATUS(status);
 279 }
 280
 281 /*******************************************************************************
 282  *
 283  * FUNCTION:    acpi_ds_init_package_element
 284  *
 285  * PARAMETERS:  acpi_pkg_callback
 286  *
 287  * RETURN:      Status
 288  *
 289  * DESCRIPTION: Resolve a named reference element within a package object
 290  *
 291  ******************************************************************************/
 292
 293 acpi_status
 294 acpi_ds_init_package_element(u8 object_type,
 295                              union acpi_operand_object *source_object,
 296                              union acpi_generic_state *state, void *context)
 297 {
 298         union acpi_operand_object **element_ptr;
 299
 300         if (!source_object) {
 301                 return (AE_OK);
 302         }
 303
 304         /*
 305          * The following code is a bit of a hack to workaround a (current)
 306          * limitation of the acpi_pkg_callback interface. We need a pointer
 307          * to the location within the element array because a new object
 308          * may be created and stored there.
 309          */
 310         if (context) {
 311
 312                 /* A direct call was made to this function */
 313
 314                 element_ptr = (union acpi_operand_object **)context;
 315         } else {
 316                 /* Call came from acpi_ut_walk_package_tree */
 317
 318                 element_ptr = state->pkg.this_target_obj;
 319         }
 320
 321         /* We are only interested in reference objects/elements */
 322
 323         if (source_object->common.type == ACPI_TYPE_LOCAL_REFERENCE) {
 324
 325                 /* Attempt to resolve the (named) reference to a namespace node */
 326
 327                 acpi_ds_resolve_package_element(element_ptr);
 328         } else if (source_object->common.type == ACPI_TYPE_PACKAGE) {
 329                 source_object->package.flags |= AOPOBJ_DATA_VALID;
 330         }
 331
 332         return (AE_OK);
 333 }
 334
 335 /*******************************************************************************
 336  *
 337  * FUNCTION:    acpi_ds_resolve_package_element
 338  *
 339  * PARAMETERS:  element_ptr         - Pointer to a reference object
 340  *
 341  * RETURN:      Possible new element is stored to the indirect element_ptr
 342  *
 343  * DESCRIPTION: Resolve a package element that is a reference to a named
 344  *              object.
 345  *
 346  ******************************************************************************/
 347
 348 static void
 349 acpi_ds_resolve_package_element(union acpi_operand_object **element_ptr)
 350 {
 351         acpi_status status;
 352         union acpi_generic_state scope_info;
 353         union acpi_operand_object *element = *element_ptr;
 354         struct acpi_namespace_node *resolved_node;
 355         char *external_path = NULL;
 356         acpi_object_type type;
 357
 358         ACPI_FUNCTION_TRACE(ds_resolve_package_element);
 359
 360         /* Check if reference element is already resolved */
 361
 362         if (element->reference.resolved) {
 363                 return_VOID;
 364         }
 365
 366         /* Element must be a reference object of correct type */
 367
 368         scope_info.scope.node = element->reference.node;        /* Prefix node */
 369
 370         status = acpi_ns_lookup(&scope_info, (char *)element->reference.aml,    /* Pointer to AML path */
 371                                 ACPI_TYPE_ANY, ACPI_IMODE_EXECUTE,
 372                                 ACPI_NS_SEARCH_PARENT | ACPI_NS_DONT_OPEN_SCOPE,
 373                                 NULL, &resolved_node);
 374         if (ACPI_FAILURE(status)) {
 375                 status = acpi_ns_externalize_name(ACPI_UINT32_MAX,
 376                                                   (char *)element->reference.
 377                                                   aml, NULL, &external_path);
 378
 379                 ACPI_EXCEPTION((AE_INFO, status,
 380                                 "Could not find/resolve named package element: %s",
 381                                 external_path));
 382
 383                 ACPI_FREE(external_path);
 384                 *element_ptr = NULL;
 385                 return_VOID;
 386         } else if (resolved_node->type == ACPI_TYPE_ANY) {
 387
 388                 /* Named reference not resolved, return a NULL package element */
 389
 390                 ACPI_ERROR((AE_INFO,
 391                             "Could not resolve named package element [%4.4s] in [%4.4s]",
 392                             resolved_node->name.ascii,
 393                             scope_info.scope.node->name.ascii));
 394                 *element_ptr = NULL;
 395                 return_VOID;
 396         }
 397 #if 0
 398         else if (resolved_node->flags & ANOBJ_TEMPORARY) {
 399                 /*
 400                  * A temporary node found here indicates that the reference is
 401                  * to a node that was created within this method. We are not
 402                  * going to allow it (especially if the package is returned
 403                  * from the method) -- the temporary node will be deleted out
 404                  * from under the method. (05/2017).
 405                  */
 406                 ACPI_ERROR((AE_INFO,
 407                             "Package element refers to a temporary name [%4.4s], "
 408                             "inserting a NULL element",
 409                             resolved_node->name.ascii));
 410                 *element_ptr = NULL;
 411                 return_VOID;
 412         }
 413 #endif
 414
 415         /*
 416          * Special handling for Alias objects. We need resolved_node to point
 417          * to the Alias target. This effectively "resolves" the alias.
 418          */
 419         if (resolved_node->type == ACPI_TYPE_LOCAL_ALIAS) {
 420                 resolved_node = ACPI_CAST_PTR(struct acpi_namespace_node,
 421                                               resolved_node->object);
 422         }
 423
 424         /* Update the reference object */
 425
 426         element->reference.resolved = TRUE;
 427         element->reference.node = resolved_node;
 428         type = element->reference.node->type;
 429
 430         /*
 431          * Attempt to resolve the node to a value before we insert it into
 432          * the package. If this is a reference to a common data type,
 433          * resolve it immediately. According to the ACPI spec, package
 434          * elements can only be "data objects" or method references.
 435          * Attempt to resolve to an Integer, Buffer, String or Package.
 436          * If cannot, return the named reference (for things like Devices,
 437          * Methods, etc.) Buffer Fields and Fields will resolve to simple
 438          * objects (int/buf/str/pkg).
 439          *
 440          * NOTE: References to things like Devices, Methods, Mutexes, etc.
 441          * will remain as named references. This behavior is not described
 442          * in the ACPI spec, but it appears to be an oversight.
 443          */
 444         status = acpi_ex_resolve_node_to_value(&resolved_node, NULL);
 445         if (ACPI_FAILURE(status)) {
 446                 return_VOID;
 447         }
 448 #if 0
 449 /* TBD - alias support */
 450         /*
 451          * Special handling for Alias objects. We need to setup the type
 452          * and the Op->Common.Node to point to the Alias target. Note,
 453          * Alias has at most one level of indirection internally.
 454          */
 455         type = op->common.node->type;
 456         if (type == ACPI_TYPE_LOCAL_ALIAS) {
 457                 type = obj_desc->common.type;
 458                 op->common.node = ACPI_CAST_PTR(struct acpi_namespace_node,
 459                                                 op->common.node->object);
 460         }
 461 #endif
 462
 463         switch (type) {
 464                 /*
 465                  * These object types are a result of named references, so we will
 466                  * leave them as reference objects. In other words, these types
 467                  * have no intrinsic "value".
 468                  */
 469         case ACPI_TYPE_DEVICE:
 470         case ACPI_TYPE_THERMAL:
 471
 472                 /* TBD: This may not be necesssary */
 473
 474                 acpi_ut_add_reference(resolved_node->object);
 475                 break;
 476
 477         case ACPI_TYPE_MUTEX:
 478         case ACPI_TYPE_METHOD:
 479         case ACPI_TYPE_POWER:
 480         case ACPI_TYPE_PROCESSOR:
 481         case ACPI_TYPE_EVENT:
 482         case ACPI_TYPE_REGION:
 483
 484                 break;
 485
 486         default:
 487                 /*
 488                  * For all other types - the node was resolved to an actual
 489                  * operand object with a value, return the object
 490                  */
 491                 *element_ptr = (union acpi_operand_object *)resolved_node;
 492                 break;
 493         }
 494
 495         return_VOID;
 496 }