Initial import of the Intel-maintained ACPI Component Architecture. This

is Intel's reference implementation of the core operating-system ACPI
support.  (This import is on the vendor branch.)

1 files changed, 826 insertions, 0 deletions

diff --git a/sys/contrib/dev/acpica/utcopy.c b/sys/contrib/dev/acpica/utcopy.c
new file mode 100644
index 000000000000..e7f36c50e209
--- /dev/null
+++ b/sys/contrib/dev/acpica/utcopy.c
@@ -0,0 +1,826 @@
+/******************************************************************************
+ *
+ * Module Name: cmcopy - Internal to external object translation utilities
+ *              $Revision: 56 $
+ *
+ *****************************************************************************/
+
+/******************************************************************************
+ *
+ * 1. Copyright Notice
+ *
+ * Some or all of this work - Copyright (c) 1999, Intel Corp.  All rights
+ * reserved.
+ *
+ * 2. License
+ *
+ * 2.1. This is your license from Intel Corp. under its intellectual property
+ * rights.  You may have additional license terms from the party that provided
+ * you this software, covering your right to use that party's intellectual
+ * property rights.
+ *
+ * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a
+ * copy of the source code appearing in this file ("Covered Code") an
+ * irrevocable, perpetual, worldwide license under Intel's copyrights in the
+ * base code distributed originally by Intel ("Original Intel Code") to copy,
+ * make derivatives, distribute, use and display any portion of the Covered
+ * Code in any form, with the right to sublicense such rights; and
+ *
+ * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent
+ * license (with the right to sublicense), under only those claims of Intel
+ * patents that are infringed by the Original Intel Code, to make, use, sell,
+ * offer to sell, and import the Covered Code and derivative works thereof
+ * solely to the minimum extent necessary to exercise the above copyright
+ * license, and in no event shall the patent license extend to any additions
+ * to or modifications of the Original Intel Code.  No other license or right
+ * is granted directly or by implication, estoppel or otherwise;
+ *
+ * The above copyright and patent license is granted only if the following
+ * conditions are met:
+ *
+ * 3. Conditions
+ *
+ * 3.1. Redistribution of Source with Rights to Further Distribute Source.
+ * Redistribution of source code of any substantial portion of the Covered
+ * Code or modification with rights to further distribute source must include
+ * the above Copyright Notice, the above License, this list of Conditions,
+ * and the following Disclaimer and Export Compliance provision.  In addition,
+ * Licensee must cause all Covered Code to which Licensee contributes to
+ * contain a file documenting the changes Licensee made to create that Covered
+ * Code and the date of any change.  Licensee must include in that file the
+ * documentation of any changes made by any predecessor Licensee.  Licensee
+ * must include a prominent statement that the modification is derived,
+ * directly or indirectly, from Original Intel Code.
+ *
+ * 3.2. Redistribution of Source with no Rights to Further Distribute Source.
+ * Redistribution of source code of any substantial portion of the Covered
+ * Code or modification without rights to further distribute source must
+ * include the following Disclaimer and Export Compliance provision in the
+ * documentation and/or other materials provided with distribution.  In
+ * addition, Licensee may not authorize further sublicense of source of any
+ * portion of the Covered Code, and must include terms to the effect that the
+ * license from Licensee to its licensee is limited to the intellectual
+ * property embodied in the software Licensee provides to its licensee, and
+ * not to intellectual property embodied in modifications its licensee may
+ * make.
+ *
+ * 3.3. Redistribution of Executable. Redistribution in executable form of any
+ * substantial portion of the Covered Code or modification must reproduce the
+ * above Copyright Notice, and the following Disclaimer and Export Compliance
+ * provision in the documentation and/or other materials provided with the
+ * distribution.
+ *
+ * 3.4. Intel retains all right, title, and interest in and to the Original
+ * Intel Code.
+ *
+ * 3.5. Neither the name Intel nor any other trademark owned or controlled by
+ * Intel shall be used in advertising or otherwise to promote the sale, use or
+ * other dealings in products derived from or relating to the Covered Code
+ * without prior written authorization from Intel.
+ *
+ * 4. Disclaimer and Export Compliance
+ *
+ * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED
+ * HERE.  ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE
+ * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT,  ASSISTANCE,
+ * INSTALLATION, TRAINING OR OTHER SERVICES.  INTEL WILL NOT PROVIDE ANY
+ * UPDATES, ENHANCEMENTS OR EXTENSIONS.  INTEL SPECIFICALLY DISCLAIMS ANY
+ * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A
+ * PARTICULAR PURPOSE.
+ *
+ * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES
+ * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR
+ * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,
+ * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY
+ * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL
+ * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES.  THESE LIMITATIONS
+ * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY
+ * LIMITED REMEDY.
+ *
+ * 4.3. Licensee shall not export, either directly or indirectly, any of this
+ * software or system incorporating such software without first obtaining any
+ * required license or other approval from the U. S. Department of Commerce or
+ * any other agency or department of the United States Government.  In the
+ * event Licensee exports any such software from the United States or
+ * re-exports any such software from a foreign destination, Licensee shall
+ * ensure that the distribution and export/re-export of the software is in
+ * compliance with all laws, regulations, orders, or other restrictions of the
+ * U.S. Export Administration Regulations. Licensee agrees that neither it nor
+ * any of its subsidiaries will export/re-export any technical data, process,
+ * software, or service, directly or indirectly, to any country for which the
+ * United States government or any agency thereof requires an export license,
+ * other governmental approval, or letter of assurance, without first obtaining
+ * such license, approval or letter.
+ *
+ *****************************************************************************/
+
+#define __CMCOPY_C__
+
+#include "acpi.h"
+#include "acinterp.h"
+#include "acnamesp.h"
+
+
+#define _COMPONENT          MISCELLANEOUS
+        MODULE_NAME         ("cmcopy")
+
+
+typedef struct Search_st
+{
+    ACPI_OPERAND_OBJECT         *InternalObj;
+    UINT32                      Index;
+    ACPI_OBJECT                 *ExternalObj;
+
+} PKG_SEARCH_INFO;
+
+
+/* Used to traverse nested packages */
+
+PKG_SEARCH_INFO                 Level[MAX_PACKAGE_DEPTH];
+
+/******************************************************************************
+ *
+ * FUNCTION:    AcpiCmBuildExternalSimpleObject
+ *
+ * PARAMETERS:  *InternalObj    - Pointer to the object we are examining
+ *              *Buffer         - Where the object is returned
+ *              *SpaceUsed      - Where the data length is returned
+ *
+ * RETURN:      Status          - the status of the call
+ *
+ * DESCRIPTION: This function is called to place a simple object in a user
+ *                  buffer.
+ *
+ *              The buffer is assumed to have sufficient space for the object.
+ *
+ ******************************************************************************/
+
+ACPI_STATUS
+AcpiCmBuildExternalSimpleObject (
+    ACPI_OPERAND_OBJECT     *InternalObj,
+    ACPI_OBJECT             *ExternalObj,
+    UINT8                   *DataSpace,
+    UINT32                  *BufferSpaceUsed)
+{
+    UINT32                  Length = 0;
+    UINT8                   *SourcePtr = NULL;
+
+
+    FUNCTION_TRACE ("CmBuildExternalSimpleObject");
+
+
+    /*
+     * Check for NULL object case (could be an uninitialized
+     * package element
+     */
+
+    if (!InternalObj)
+    {
+        *BufferSpaceUsed = 0;
+        return_ACPI_STATUS (AE_OK);
+    }
+
+    /* Always clear the external object */
+
+    MEMSET (ExternalObj, 0, sizeof (ACPI_OBJECT));
+
+    /*
+     * In general, the external object will be the same type as
+     * the internal object
+     */
+
+    ExternalObj->Type = InternalObj->Common.Type;
+
+    /* However, only a limited number of external types are supported */
+
+    switch (ExternalObj->Type)
+    {
+
+    case ACPI_TYPE_STRING:
+
+        Length = InternalObj->String.Length;
+        ExternalObj->String.Length = InternalObj->String.Length;
+        ExternalObj->String.Pointer = (NATIVE_CHAR *) DataSpace;
+        SourcePtr = (UINT8 *) InternalObj->String.Pointer;
+        break;
+
+
+    case ACPI_TYPE_BUFFER:
+
+        Length = InternalObj->Buffer.Length;
+        ExternalObj->Buffer.Length = InternalObj->Buffer.Length;
+        ExternalObj->Buffer.Pointer = DataSpace;
+        SourcePtr = (UINT8 *) InternalObj->Buffer.Pointer;
+        break;
+
+
+    case ACPI_TYPE_NUMBER:
+
+        ExternalObj->Number.Value= InternalObj->Number.Value;
+        break;
+
+
+    case INTERNAL_TYPE_REFERENCE:
+
+        /*
+         * This is an object reference.  We use the object type of "Any"
+         * to indicate a reference object containing a handle to an ACPI
+         * named object.
+         */
+
+        ExternalObj->Type = ACPI_TYPE_ANY;
+        ExternalObj->Reference.Handle = InternalObj->Reference.Node;
+        break;
+
+
+    case ACPI_TYPE_PROCESSOR:
+
+        ExternalObj->Processor.ProcId =
+                                InternalObj->Processor.ProcId;
+
+        ExternalObj->Processor.PblkAddress =
+                                InternalObj->Processor.Address;
+
+        ExternalObj->Processor.PblkLength =
+                                InternalObj->Processor.Length;
+        break;
+
+    case ACPI_TYPE_POWER:
+
+        ExternalObj->PowerResource.SystemLevel =
+                            InternalObj->PowerResource.SystemLevel;
+
+        ExternalObj->PowerResource.ResourceOrder =
+                            InternalObj->PowerResource.ResourceOrder;
+        break;
+
+    default:
+        return_ACPI_STATUS (AE_CTRL_RETURN_VALUE);
+        break;
+    }
+
+
+    /* Copy data if necessary (strings or buffers) */
+
+    if (Length)
+    {
+        /*
+         * Copy the return data to the caller's buffer
+         */
+        MEMCPY ((void *) DataSpace, (void *) SourcePtr, Length);
+    }
+
+
+    *BufferSpaceUsed = (UINT32) ROUND_UP_TO_NATIVE_WORD (Length);
+
+    return_ACPI_STATUS (AE_OK);
+}
+
+
+/******************************************************************************
+ *
+ * FUNCTION:    AcpiCmBuildExternalPackageObject
+ *
+ * PARAMETERS:  *InternalObj    - Pointer to the object we are returning
+ *              *Buffer         - Where the object is returned
+ *              *SpaceUsed      - Where the object length is returned
+ *
+ * RETURN:      Status          - the status of the call
+ *
+ * DESCRIPTION: This function is called to place a package object in a user
+ *              buffer.  A package object by definition contains other objects.
+ *
+ *              The buffer is assumed to have sufficient space for the object.
+ *              The caller must have verified the buffer length needed using the
+ *              AcpiCmGetObjectSize function before calling this function.
+ *
+ ******************************************************************************/
+
+ACPI_STATUS
+AcpiCmBuildExternalPackageObject (
+    ACPI_OPERAND_OBJECT     *InternalObj,
+    UINT8                   *Buffer,
+    UINT32                  *SpaceUsed)
+{
+    UINT8                   *FreeSpace;
+    ACPI_OBJECT             *ExternalObj;
+    UINT32                  CurrentDepth = 0;
+    ACPI_STATUS             Status;
+    UINT32                  Length = 0;
+    UINT32                  ThisIndex;
+    UINT32                  ObjectSpace;
+    ACPI_OPERAND_OBJECT     *ThisInternalObj;
+    ACPI_OBJECT             *ThisExternalObj;
+    PKG_SEARCH_INFO         *LevelPtr;
+
+
+    FUNCTION_TRACE ("CmBuildExternalPackageObject");
+
+
+    /*
+     * First package at head of the buffer
+     */
+    ExternalObj = (ACPI_OBJECT *) Buffer;
+
+    /*
+     * Free space begins right after the first package
+     */
+    FreeSpace = Buffer + ROUND_UP_TO_NATIVE_WORD (sizeof (ACPI_OBJECT));
+
+
+    /*
+     * Initialize the working variables
+     */
+
+    MEMSET ((void *) Level, 0, sizeof (Level));
+
+    Level[0].InternalObj    = InternalObj;
+    Level[0].ExternalObj    = ExternalObj;
+    Level[0].Index          = 0;
+    LevelPtr                = &Level[0];
+    CurrentDepth            = 0;
+
+    ExternalObj->Type               = InternalObj->Common.Type;
+    ExternalObj->Package.Count      = InternalObj->Package.Count;
+    ExternalObj->Package.Elements   = (ACPI_OBJECT *) FreeSpace;
+
+
+    /*
+     * Build an array of ACPI_OBJECTS in the buffer
+     * and move the free space past it
+     */
+
+    FreeSpace += ExternalObj->Package.Count *
+                 ROUND_UP_TO_NATIVE_WORD (sizeof (ACPI_OBJECT));
+
+
+    while (1)
+    {
+        ThisIndex       = LevelPtr->Index;
+        ThisInternalObj =
+                (ACPI_OPERAND_OBJECT  *)
+                LevelPtr->InternalObj->Package.Elements[ThisIndex];
+        ThisExternalObj =
+                (ACPI_OBJECT *)
+                &LevelPtr->ExternalObj->Package.Elements[ThisIndex];
+
+
+        /*
+         * Check for
+         * 1) Null object -- OK, this can happen if package
+         *              element is never initialized
+         * 2) Not an internal object - can be Node instead
+         * 3) Any internal object other than a package.
+         *
+         * The more complex package case is handled later
+         */
+
+        if ((!ThisInternalObj) ||
+            (!VALID_DESCRIPTOR_TYPE (
+                ThisInternalObj, ACPI_DESC_TYPE_INTERNAL)) ||
+            (!IS_THIS_OBJECT_TYPE (
+                ThisInternalObj, ACPI_TYPE_PACKAGE)))
+        {
+            /*
+             * This is a simple or null object -- get the size
+             */
+
+            Status =
+                AcpiCmBuildExternalSimpleObject (ThisInternalObj,
+                                                ThisExternalObj,
+                                                FreeSpace,
+                                                &ObjectSpace);
+            if (ACPI_FAILURE (Status))
+            {
+                return_ACPI_STATUS (Status);
+            }
+
+            FreeSpace   += ObjectSpace;
+            Length      += ObjectSpace;
+
+            LevelPtr->Index++;
+            while (LevelPtr->Index >=
+                    LevelPtr->InternalObj->Package.Count)
+            {
+                /*
+                 * We've handled all of the objects at this
+                 * level.  This means that we have just
+                 * completed a package.  That package may
+                 * have contained one or more packages
+                 * itself
+                 */
+                if (CurrentDepth == 0)
+                {
+                    /*
+                     * We have handled all of the objects
+                     * in the top level package just add
+                     * the length of the package objects
+                     * and get out
+                     */
+                    *SpaceUsed = Length;
+                    return_ACPI_STATUS (AE_OK);
+                }
+
+                /*
+                 * go back up a level and move the index
+                 * past the just completed package object.
+                 */
+                CurrentDepth--;
+                LevelPtr = &Level[CurrentDepth];
+                LevelPtr->Index++;
+            }
+        }
+
+
+        else
+        {
+            /*
+             * This object is a package
+             * -- we must go one level deeper
+             */
+            if (CurrentDepth >= MAX_PACKAGE_DEPTH-1)
+            {
+                /*
+                 * Too many nested levels of packages
+                 * for us to handle
+                 */
+                DEBUG_PRINT (ACPI_ERROR,
+                    ("CmBuildPackageObject: Pkg nested too deep (max %d)\n",
+                    MAX_PACKAGE_DEPTH));
+                return_ACPI_STATUS (AE_LIMIT);
+            }
+
+            /*
+             * Build the package object
+             */
+            ThisExternalObj->Type = ACPI_TYPE_PACKAGE;
+            ThisExternalObj->Package.Count =
+                                    ThisInternalObj->Package.Count;
+            ThisExternalObj->Package.Elements =
+                                        (ACPI_OBJECT *) FreeSpace;
+
+            /*
+             * Save space for the array of objects (Package elements)
+             * update the buffer length counter
+             */
+            ObjectSpace = (UINT32) ROUND_UP_TO_NATIVE_WORD (
+                                ThisExternalObj->Package.Count *
+                                sizeof (ACPI_OBJECT));
+
+            FreeSpace               += ObjectSpace;
+            Length                  += ObjectSpace;
+
+            CurrentDepth++;
+            LevelPtr                = &Level[CurrentDepth];
+            LevelPtr->InternalObj   = ThisInternalObj;
+            LevelPtr->ExternalObj   = ThisExternalObj;
+            LevelPtr->Index         = 0;
+        }
+    }
+}
+
+
+/******************************************************************************
+ *
+ * FUNCTION:    AcpiCmBuildExternalObject
+ *
+ * PARAMETERS:  *InternalObj    - The internal object to be converted
+ *              *BufferPtr      - Where the object is returned
+ *
+ * RETURN:      Status          - the status of the call
+ *
+ * DESCRIPTION: This function is called to build an API object to be returned to
+ *              the caller.
+ *
+ ******************************************************************************/
+
+ACPI_STATUS
+AcpiCmBuildExternalObject (
+    ACPI_OPERAND_OBJECT     *InternalObj,
+    ACPI_BUFFER             *RetBuffer)
+{
+    ACPI_STATUS             Status;
+
+
+    FUNCTION_TRACE ("CmBuildExternalObject");
+
+
+    if (IS_THIS_OBJECT_TYPE (InternalObj, ACPI_TYPE_PACKAGE))
+    {
+        /*
+         * Package objects contain other objects (which can be objects)
+         * buildpackage does it all
+         */
+        Status =
+            AcpiCmBuildExternalPackageObject (InternalObj,
+                                                RetBuffer->Pointer,
+                                                &RetBuffer->Length);
+    }
+
+    else
+    {
+        /*
+         * Build a simple object (no nested objects)
+         */
+        Status =
+            AcpiCmBuildExternalSimpleObject (InternalObj,
+                            (ACPI_OBJECT *) RetBuffer->Pointer,
+                            ((UINT8 *) RetBuffer->Pointer +
+                            ROUND_UP_TO_NATIVE_WORD (
+                                        sizeof (ACPI_OBJECT))),
+                            &RetBuffer->Length);
+        /*
+         * build simple does not include the object size in the length
+         * so we add it in here
+         */
+        RetBuffer->Length += sizeof (ACPI_OBJECT);
+    }
+
+    return_ACPI_STATUS (Status);
+}
+
+
+/******************************************************************************
+ *
+ * FUNCTION:    AcpiCmBuildInternalSimpleObject
+ *
+ * PARAMETERS:  *ExternalObj    - The external object to be converted
+ *              *InternalObj    - Where the internal object is returned
+ *
+ * RETURN:      Status          - the status of the call
+ *
+ * DESCRIPTION: This function copies an external object to an internal one.
+ *              NOTE: Pointers can be copied, we don't need to copy data.
+ *              (The pointers have to be valid in our address space no matter
+ *              what we do with them!)
+ *
+ ******************************************************************************/
+
+ACPI_STATUS
+AcpiCmBuildInternalSimpleObject (
+    ACPI_OBJECT             *ExternalObj,
+    ACPI_OPERAND_OBJECT     *InternalObj)
+{
+
+    FUNCTION_TRACE ("CmBuildInternalSimpleObject");
+
+
+    InternalObj->Common.Type = (UINT8) ExternalObj->Type;
+
+    switch (ExternalObj->Type)
+    {
+
+    case ACPI_TYPE_STRING:
+
+        InternalObj->String.Length  = ExternalObj->String.Length;
+        InternalObj->String.Pointer = ExternalObj->String.Pointer;
+        break;
+
+
+    case ACPI_TYPE_BUFFER:
+
+        InternalObj->Buffer.Length  = ExternalObj->Buffer.Length;
+        InternalObj->Buffer.Pointer = ExternalObj->Buffer.Pointer;
+        break;
+
+
+    case ACPI_TYPE_NUMBER:
+        /*
+         * Number is included in the object itself
+         */
+        InternalObj->Number.Value   = ExternalObj->Number.Value;
+        break;
+
+
+    default:
+        return_ACPI_STATUS (AE_CTRL_RETURN_VALUE);
+        break;
+    }
+
+
+    return_ACPI_STATUS (AE_OK);
+}
+
+
+/******************************************************************************
+ *
+ * FUNCTION:    AcpiCmBuildInternalPackageObject
+ *
+ * PARAMETERS:  *InternalObj    - Pointer to the object we are returning
+ *              *Buffer         - Where the object is returned
+ *              *SpaceUsed      - Where the length of the object is returned
+ *
+ * RETURN:      Status          - the status of the call
+ *
+ * DESCRIPTION: This function is called to place a package object in a user
+ *              buffer.  A package object by definition contains other objects.
+ *
+ *              The buffer is assumed to have sufficient space for the object.
+ *              The caller must have verified the buffer length needed using the
+ *              AcpiCmGetObjectSize function before calling this function.
+ *
+ ******************************************************************************/
+
+ACPI_STATUS
+AcpiCmBuildInternalPackageObject (
+    ACPI_OPERAND_OBJECT     *InternalObj,
+    UINT8                   *Buffer,
+    UINT32                  *SpaceUsed)
+{
+    UINT8                   *FreeSpace;
+    ACPI_OBJECT             *ExternalObj;
+    UINT32                  CurrentDepth = 0;
+    UINT32                  Length = 0;
+    UINT32                  ThisIndex;
+    UINT32                  ObjectSpace = 0;
+    ACPI_OPERAND_OBJECT     *ThisInternalObj;
+    ACPI_OBJECT             *ThisExternalObj;
+    PKG_SEARCH_INFO         *LevelPtr;
+
+
+    FUNCTION_TRACE ("CmBuildInternalPackageObject");
+
+
+    /*
+     * First package at head of the buffer
+     */
+    ExternalObj = (ACPI_OBJECT *)Buffer;
+
+    /*
+     * Free space begins right after the first package
+     */
+    FreeSpace = Buffer + sizeof(ACPI_OBJECT);
+
+
+    /*
+     * Initialize the working variables
+     */
+
+    MEMSET ((void *) Level, 0, sizeof(Level));
+
+    Level[0].InternalObj    = InternalObj;
+    Level[0].ExternalObj    = ExternalObj;
+    LevelPtr                = &Level[0];
+    CurrentDepth            = 0;
+
+    ExternalObj->Type               = InternalObj->Common.Type;
+    ExternalObj->Package.Count      = InternalObj->Package.Count;
+    ExternalObj->Package.Elements   = (ACPI_OBJECT *)FreeSpace;
+
+
+    /*
+     * Build an array of ACPI_OBJECTS in the buffer
+     * and move the free space past it
+     */
+
+    FreeSpace += ExternalObj->Package.Count * sizeof(ACPI_OBJECT);
+
+
+    while (1)
+    {
+        ThisIndex       = LevelPtr->Index;
+
+        ThisInternalObj = (ACPI_OPERAND_OBJECT  *)
+                    &LevelPtr->InternalObj->Package.Elements[ThisIndex];
+
+        ThisExternalObj = (ACPI_OBJECT *)
+                    &LevelPtr->ExternalObj->Package.Elements[ThisIndex];
+
+        if (IS_THIS_OBJECT_TYPE (ThisInternalObj, ACPI_TYPE_PACKAGE))
+        {
+            /*
+             * If this object is a package then we go one deeper
+             */
+            if (CurrentDepth >= MAX_PACKAGE_DEPTH-1)
+            {
+                /*
+                 * Too many nested levels of packages for us to handle
+                 */
+                DEBUG_PRINT (ACPI_ERROR,
+                    ("CmBuildPackageObject: Pkg nested too deep (max %d)\n",
+                    MAX_PACKAGE_DEPTH));
+                return_ACPI_STATUS (AE_LIMIT);
+            }
+
+            /*
+             * Build the package object
+             */
+            ThisExternalObj->Type               = ACPI_TYPE_PACKAGE;
+            ThisExternalObj->Package.Count      = ThisInternalObj->Package.Count;
+            ThisExternalObj->Package.Elements   = (ACPI_OBJECT *) FreeSpace;
+
+            /*
+             * Save space for the array of objects (Package elements)
+             * update the buffer length counter
+             */
+            ObjectSpace             = ThisExternalObj->Package.Count *
+                                            sizeof (ACPI_OBJECT);
+
+            FreeSpace               += ObjectSpace;
+            Length                  += ObjectSpace;
+
+            CurrentDepth++;
+            LevelPtr                = &Level[CurrentDepth];
+            LevelPtr->InternalObj   = ThisInternalObj;
+            LevelPtr->ExternalObj   = ThisExternalObj;
+            LevelPtr->Index         = 0;
+
+        }   /* if object is a package */
+
+        else
+        {
+            FreeSpace   += ObjectSpace;
+            Length      += ObjectSpace;
+
+            LevelPtr->Index++;
+            while (LevelPtr->Index >=
+                    LevelPtr->InternalObj->Package.Count)
+            {
+                /*
+                 * We've handled all of the objects at
+                 * this level,  This means that we have
+                 * just completed a package.  That package
+                 * may have contained one or more packages
+                 * itself
+                 */
+                if (CurrentDepth == 0)
+                {
+                    /*
+                     * We have handled all of the objects
+                     * in the top level package just add
+                     * the length of the package objects
+                     * and get out
+                     */
+                    *SpaceUsed = Length;
+                    return_ACPI_STATUS (AE_OK);
+                }
+
+                /*
+                 * go back up a level and move the index
+                 * past the just completed package object.
+                 */
+                CurrentDepth--;
+                LevelPtr = &Level[CurrentDepth];
+                LevelPtr->Index++;
+            }
+        }   /* else object is NOT a package */
+    }   /* while (1)  */
+}
+
+
+/******************************************************************************
+ *
+ * FUNCTION:    AcpiCmBuildInternalObject
+ *
+ * PARAMETERS:  *InternalObj    - The external object to be converted
+ *              *BufferPtr      - Where the internal object is returned
+ *
+ * RETURN:      Status          - the status of the call
+ *
+ * DESCRIPTION: Converts an external object to an internal object.
+ *
+ ******************************************************************************/
+
+ACPI_STATUS
+AcpiCmBuildInternalObject (
+    ACPI_OBJECT             *ExternalObj,
+    ACPI_OPERAND_OBJECT     *InternalObj)
+{
+    ACPI_STATUS             Status;
+
+
+    FUNCTION_TRACE ("CmBuildInternalObject");
+
+
+    if (ExternalObj->Type == ACPI_TYPE_PACKAGE)
+    {
+        /*
+         * Package objects contain other objects (which can be objects)
+         * buildpackage does it all
+         */
+/*
+        Status = AcpiCmBuildInternalPackageObject(InternalObj,
+                                                  RetBuffer->Pointer,
+                                                  &RetBuffer->Length);
+*/
+        DEBUG_PRINT (ACPI_ERROR,
+            ("CmBuildInternalObject: Packages as parameters not implemented!\n"));
+
+        return_ACPI_STATUS (AE_NOT_IMPLEMENTED);
+    }
+
+    else
+    {
+        /*
+         * Build a simple object (no nested objects)
+         */
+        Status = AcpiCmBuildInternalSimpleObject (ExternalObj, InternalObj);
+        /*
+         * build simple does not include the object size in the length
+         * so we add it in here
+         */
+    }
+
+    return_ACPI_STATUS (Status);
+}
+