xref: /onnv-gate/usr/src/uts/intel/io/acpica/parser/psargs.c (revision 7851:e828bbb1689c)
1*7851SDana.Myers@Sun.COM /******************************************************************************
2*7851SDana.Myers@Sun.COM  *
3*7851SDana.Myers@Sun.COM  * Module Name: psargs - Parse AML opcode arguments
4*7851SDana.Myers@Sun.COM  *              $Revision: 1.95 $
5*7851SDana.Myers@Sun.COM  *
6*7851SDana.Myers@Sun.COM  *****************************************************************************/
7*7851SDana.Myers@Sun.COM 
8*7851SDana.Myers@Sun.COM /******************************************************************************
9*7851SDana.Myers@Sun.COM  *
10*7851SDana.Myers@Sun.COM  * 1. Copyright Notice
11*7851SDana.Myers@Sun.COM  *
12*7851SDana.Myers@Sun.COM  * Some or all of this work - Copyright (c) 1999 - 2008, Intel Corp.
13*7851SDana.Myers@Sun.COM  * All rights reserved.
14*7851SDana.Myers@Sun.COM  *
15*7851SDana.Myers@Sun.COM  * 2. License
16*7851SDana.Myers@Sun.COM  *
17*7851SDana.Myers@Sun.COM  * 2.1. This is your license from Intel Corp. under its intellectual property
18*7851SDana.Myers@Sun.COM  * rights.  You may have additional license terms from the party that provided
19*7851SDana.Myers@Sun.COM  * you this software, covering your right to use that party's intellectual
20*7851SDana.Myers@Sun.COM  * property rights.
21*7851SDana.Myers@Sun.COM  *
22*7851SDana.Myers@Sun.COM  * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a
23*7851SDana.Myers@Sun.COM  * copy of the source code appearing in this file ("Covered Code") an
24*7851SDana.Myers@Sun.COM  * irrevocable, perpetual, worldwide license under Intel's copyrights in the
25*7851SDana.Myers@Sun.COM  * base code distributed originally by Intel ("Original Intel Code") to copy,
26*7851SDana.Myers@Sun.COM  * make derivatives, distribute, use and display any portion of the Covered
27*7851SDana.Myers@Sun.COM  * Code in any form, with the right to sublicense such rights; and
28*7851SDana.Myers@Sun.COM  *
29*7851SDana.Myers@Sun.COM  * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent
30*7851SDana.Myers@Sun.COM  * license (with the right to sublicense), under only those claims of Intel
31*7851SDana.Myers@Sun.COM  * patents that are infringed by the Original Intel Code, to make, use, sell,
32*7851SDana.Myers@Sun.COM  * offer to sell, and import the Covered Code and derivative works thereof
33*7851SDana.Myers@Sun.COM  * solely to the minimum extent necessary to exercise the above copyright
34*7851SDana.Myers@Sun.COM  * license, and in no event shall the patent license extend to any additions
35*7851SDana.Myers@Sun.COM  * to or modifications of the Original Intel Code.  No other license or right
36*7851SDana.Myers@Sun.COM  * is granted directly or by implication, estoppel or otherwise;
37*7851SDana.Myers@Sun.COM  *
38*7851SDana.Myers@Sun.COM  * The above copyright and patent license is granted only if the following
39*7851SDana.Myers@Sun.COM  * conditions are met:
40*7851SDana.Myers@Sun.COM  *
41*7851SDana.Myers@Sun.COM  * 3. Conditions
42*7851SDana.Myers@Sun.COM  *
43*7851SDana.Myers@Sun.COM  * 3.1. Redistribution of Source with Rights to Further Distribute Source.
44*7851SDana.Myers@Sun.COM  * Redistribution of source code of any substantial portion of the Covered
45*7851SDana.Myers@Sun.COM  * Code or modification with rights to further distribute source must include
46*7851SDana.Myers@Sun.COM  * the above Copyright Notice, the above License, this list of Conditions,
47*7851SDana.Myers@Sun.COM  * and the following Disclaimer and Export Compliance provision.  In addition,
48*7851SDana.Myers@Sun.COM  * Licensee must cause all Covered Code to which Licensee contributes to
49*7851SDana.Myers@Sun.COM  * contain a file documenting the changes Licensee made to create that Covered
50*7851SDana.Myers@Sun.COM  * Code and the date of any change.  Licensee must include in that file the
51*7851SDana.Myers@Sun.COM  * documentation of any changes made by any predecessor Licensee.  Licensee
52*7851SDana.Myers@Sun.COM  * must include a prominent statement that the modification is derived,
53*7851SDana.Myers@Sun.COM  * directly or indirectly, from Original Intel Code.
54*7851SDana.Myers@Sun.COM  *
55*7851SDana.Myers@Sun.COM  * 3.2. Redistribution of Source with no Rights to Further Distribute Source.
56*7851SDana.Myers@Sun.COM  * Redistribution of source code of any substantial portion of the Covered
57*7851SDana.Myers@Sun.COM  * Code or modification without rights to further distribute source must
58*7851SDana.Myers@Sun.COM  * include the following Disclaimer and Export Compliance provision in the
59*7851SDana.Myers@Sun.COM  * documentation and/or other materials provided with distribution.  In
60*7851SDana.Myers@Sun.COM  * addition, Licensee may not authorize further sublicense of source of any
61*7851SDana.Myers@Sun.COM  * portion of the Covered Code, and must include terms to the effect that the
62*7851SDana.Myers@Sun.COM  * license from Licensee to its licensee is limited to the intellectual
63*7851SDana.Myers@Sun.COM  * property embodied in the software Licensee provides to its licensee, and
64*7851SDana.Myers@Sun.COM  * not to intellectual property embodied in modifications its licensee may
65*7851SDana.Myers@Sun.COM  * make.
66*7851SDana.Myers@Sun.COM  *
67*7851SDana.Myers@Sun.COM  * 3.3. Redistribution of Executable. Redistribution in executable form of any
68*7851SDana.Myers@Sun.COM  * substantial portion of the Covered Code or modification must reproduce the
69*7851SDana.Myers@Sun.COM  * above Copyright Notice, and the following Disclaimer and Export Compliance
70*7851SDana.Myers@Sun.COM  * provision in the documentation and/or other materials provided with the
71*7851SDana.Myers@Sun.COM  * distribution.
72*7851SDana.Myers@Sun.COM  *
73*7851SDana.Myers@Sun.COM  * 3.4. Intel retains all right, title, and interest in and to the Original
74*7851SDana.Myers@Sun.COM  * Intel Code.
75*7851SDana.Myers@Sun.COM  *
76*7851SDana.Myers@Sun.COM  * 3.5. Neither the name Intel nor any other trademark owned or controlled by
77*7851SDana.Myers@Sun.COM  * Intel shall be used in advertising or otherwise to promote the sale, use or
78*7851SDana.Myers@Sun.COM  * other dealings in products derived from or relating to the Covered Code
79*7851SDana.Myers@Sun.COM  * without prior written authorization from Intel.
80*7851SDana.Myers@Sun.COM  *
81*7851SDana.Myers@Sun.COM  * 4. Disclaimer and Export Compliance
82*7851SDana.Myers@Sun.COM  *
83*7851SDana.Myers@Sun.COM  * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED
84*7851SDana.Myers@Sun.COM  * HERE.  ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE
85*7851SDana.Myers@Sun.COM  * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT,  ASSISTANCE,
86*7851SDana.Myers@Sun.COM  * INSTALLATION, TRAINING OR OTHER SERVICES.  INTEL WILL NOT PROVIDE ANY
87*7851SDana.Myers@Sun.COM  * UPDATES, ENHANCEMENTS OR EXTENSIONS.  INTEL SPECIFICALLY DISCLAIMS ANY
88*7851SDana.Myers@Sun.COM  * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A
89*7851SDana.Myers@Sun.COM  * PARTICULAR PURPOSE.
90*7851SDana.Myers@Sun.COM  *
91*7851SDana.Myers@Sun.COM  * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES
92*7851SDana.Myers@Sun.COM  * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR
93*7851SDana.Myers@Sun.COM  * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,
94*7851SDana.Myers@Sun.COM  * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY
95*7851SDana.Myers@Sun.COM  * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL
96*7851SDana.Myers@Sun.COM  * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES.  THESE LIMITATIONS
97*7851SDana.Myers@Sun.COM  * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY
98*7851SDana.Myers@Sun.COM  * LIMITED REMEDY.
99*7851SDana.Myers@Sun.COM  *
100*7851SDana.Myers@Sun.COM  * 4.3. Licensee shall not export, either directly or indirectly, any of this
101*7851SDana.Myers@Sun.COM  * software or system incorporating such software without first obtaining any
102*7851SDana.Myers@Sun.COM  * required license or other approval from the U. S. Department of Commerce or
103*7851SDana.Myers@Sun.COM  * any other agency or department of the United States Government.  In the
104*7851SDana.Myers@Sun.COM  * event Licensee exports any such software from the United States or
105*7851SDana.Myers@Sun.COM  * re-exports any such software from a foreign destination, Licensee shall
106*7851SDana.Myers@Sun.COM  * ensure that the distribution and export/re-export of the software is in
107*7851SDana.Myers@Sun.COM  * compliance with all laws, regulations, orders, or other restrictions of the
108*7851SDana.Myers@Sun.COM  * U.S. Export Administration Regulations. Licensee agrees that neither it nor
109*7851SDana.Myers@Sun.COM  * any of its subsidiaries will export/re-export any technical data, process,
110*7851SDana.Myers@Sun.COM  * software, or service, directly or indirectly, to any country for which the
111*7851SDana.Myers@Sun.COM  * United States government or any agency thereof requires an export license,
112*7851SDana.Myers@Sun.COM  * other governmental approval, or letter of assurance, without first obtaining
113*7851SDana.Myers@Sun.COM  * such license, approval or letter.
114*7851SDana.Myers@Sun.COM  *
115*7851SDana.Myers@Sun.COM  *****************************************************************************/
116*7851SDana.Myers@Sun.COM 
117*7851SDana.Myers@Sun.COM #define __PSARGS_C__
118*7851SDana.Myers@Sun.COM 
119*7851SDana.Myers@Sun.COM #include "acpi.h"
120*7851SDana.Myers@Sun.COM #include "acparser.h"
121*7851SDana.Myers@Sun.COM #include "amlcode.h"
122*7851SDana.Myers@Sun.COM #include "acnamesp.h"
123*7851SDana.Myers@Sun.COM #include "acdispat.h"
124*7851SDana.Myers@Sun.COM 
125*7851SDana.Myers@Sun.COM #define _COMPONENT          ACPI_PARSER
126*7851SDana.Myers@Sun.COM         ACPI_MODULE_NAME    ("psargs")
127*7851SDana.Myers@Sun.COM 
128*7851SDana.Myers@Sun.COM /* Local prototypes */
129*7851SDana.Myers@Sun.COM 
130*7851SDana.Myers@Sun.COM static UINT32
131*7851SDana.Myers@Sun.COM AcpiPsGetNextPackageLength (
132*7851SDana.Myers@Sun.COM     ACPI_PARSE_STATE        *ParserState);
133*7851SDana.Myers@Sun.COM 
134*7851SDana.Myers@Sun.COM static ACPI_PARSE_OBJECT *
135*7851SDana.Myers@Sun.COM AcpiPsGetNextField (
136*7851SDana.Myers@Sun.COM     ACPI_PARSE_STATE        *ParserState);
137*7851SDana.Myers@Sun.COM 
138*7851SDana.Myers@Sun.COM 
139*7851SDana.Myers@Sun.COM /*******************************************************************************
140*7851SDana.Myers@Sun.COM  *
141*7851SDana.Myers@Sun.COM  * FUNCTION:    AcpiPsGetNextPackageLength
142*7851SDana.Myers@Sun.COM  *
143*7851SDana.Myers@Sun.COM  * PARAMETERS:  ParserState         - Current parser state object
144*7851SDana.Myers@Sun.COM  *
145*7851SDana.Myers@Sun.COM  * RETURN:      Decoded package length. On completion, the AML pointer points
146*7851SDana.Myers@Sun.COM  *              past the length byte or bytes.
147*7851SDana.Myers@Sun.COM  *
148*7851SDana.Myers@Sun.COM  * DESCRIPTION: Decode and return a package length field.
149*7851SDana.Myers@Sun.COM  *              Note: Largest package length is 28 bits, from ACPI specification
150*7851SDana.Myers@Sun.COM  *
151*7851SDana.Myers@Sun.COM  ******************************************************************************/
152*7851SDana.Myers@Sun.COM 
153*7851SDana.Myers@Sun.COM static UINT32
154*7851SDana.Myers@Sun.COM AcpiPsGetNextPackageLength (
155*7851SDana.Myers@Sun.COM     ACPI_PARSE_STATE        *ParserState)
156*7851SDana.Myers@Sun.COM {
157*7851SDana.Myers@Sun.COM     UINT8                   *Aml = ParserState->Aml;
158*7851SDana.Myers@Sun.COM     UINT32                  PackageLength = 0;
159*7851SDana.Myers@Sun.COM     UINT32                  ByteCount;
160*7851SDana.Myers@Sun.COM     UINT8                   ByteZeroMask = 0x3F; /* Default [0:5] */
161*7851SDana.Myers@Sun.COM 
162*7851SDana.Myers@Sun.COM 
163*7851SDana.Myers@Sun.COM     ACPI_FUNCTION_TRACE (PsGetNextPackageLength);
164*7851SDana.Myers@Sun.COM 
165*7851SDana.Myers@Sun.COM 
166*7851SDana.Myers@Sun.COM     /*
167*7851SDana.Myers@Sun.COM      * Byte 0 bits [6:7] contain the number of additional bytes
168*7851SDana.Myers@Sun.COM      * used to encode the package length, either 0,1,2, or 3
169*7851SDana.Myers@Sun.COM      */
170*7851SDana.Myers@Sun.COM     ByteCount = (Aml[0] >> 6);
171*7851SDana.Myers@Sun.COM     ParserState->Aml += ((ACPI_SIZE) ByteCount + 1);
172*7851SDana.Myers@Sun.COM 
173*7851SDana.Myers@Sun.COM     /* Get bytes 3, 2, 1 as needed */
174*7851SDana.Myers@Sun.COM 
175*7851SDana.Myers@Sun.COM     while (ByteCount)
176*7851SDana.Myers@Sun.COM     {
177*7851SDana.Myers@Sun.COM         /*
178*7851SDana.Myers@Sun.COM          * Final bit positions for the package length bytes:
179*7851SDana.Myers@Sun.COM          *      Byte3->[20:27]
180*7851SDana.Myers@Sun.COM          *      Byte2->[12:19]
181*7851SDana.Myers@Sun.COM          *      Byte1->[04:11]
182*7851SDana.Myers@Sun.COM          *      Byte0->[00:03]
183*7851SDana.Myers@Sun.COM          */
184*7851SDana.Myers@Sun.COM         PackageLength |= (Aml[ByteCount] << ((ByteCount << 3) - 4));
185*7851SDana.Myers@Sun.COM 
186*7851SDana.Myers@Sun.COM         ByteZeroMask = 0x0F; /* Use bits [0:3] of byte 0 */
187*7851SDana.Myers@Sun.COM         ByteCount--;
188*7851SDana.Myers@Sun.COM     }
189*7851SDana.Myers@Sun.COM 
190*7851SDana.Myers@Sun.COM     /* Byte 0 is a special case, either bits [0:3] or [0:5] are used */
191*7851SDana.Myers@Sun.COM 
192*7851SDana.Myers@Sun.COM     PackageLength |= (Aml[0] & ByteZeroMask);
193*7851SDana.Myers@Sun.COM     return_UINT32 (PackageLength);
194*7851SDana.Myers@Sun.COM }
195*7851SDana.Myers@Sun.COM 
196*7851SDana.Myers@Sun.COM 
197*7851SDana.Myers@Sun.COM /*******************************************************************************
198*7851SDana.Myers@Sun.COM  *
199*7851SDana.Myers@Sun.COM  * FUNCTION:    AcpiPsGetNextPackageEnd
200*7851SDana.Myers@Sun.COM  *
201*7851SDana.Myers@Sun.COM  * PARAMETERS:  ParserState         - Current parser state object
202*7851SDana.Myers@Sun.COM  *
203*7851SDana.Myers@Sun.COM  * RETURN:      Pointer to end-of-package +1
204*7851SDana.Myers@Sun.COM  *
205*7851SDana.Myers@Sun.COM  * DESCRIPTION: Get next package length and return a pointer past the end of
206*7851SDana.Myers@Sun.COM  *              the package.  Consumes the package length field
207*7851SDana.Myers@Sun.COM  *
208*7851SDana.Myers@Sun.COM  ******************************************************************************/
209*7851SDana.Myers@Sun.COM 
210*7851SDana.Myers@Sun.COM UINT8 *
211*7851SDana.Myers@Sun.COM AcpiPsGetNextPackageEnd (
212*7851SDana.Myers@Sun.COM     ACPI_PARSE_STATE        *ParserState)
213*7851SDana.Myers@Sun.COM {
214*7851SDana.Myers@Sun.COM     UINT8                   *Start = ParserState->Aml;
215*7851SDana.Myers@Sun.COM     UINT32                  PackageLength;
216*7851SDana.Myers@Sun.COM 
217*7851SDana.Myers@Sun.COM 
218*7851SDana.Myers@Sun.COM     ACPI_FUNCTION_TRACE (PsGetNextPackageEnd);
219*7851SDana.Myers@Sun.COM 
220*7851SDana.Myers@Sun.COM 
221*7851SDana.Myers@Sun.COM     /* Function below updates ParserState->Aml */
222*7851SDana.Myers@Sun.COM 
223*7851SDana.Myers@Sun.COM     PackageLength = AcpiPsGetNextPackageLength (ParserState);
224*7851SDana.Myers@Sun.COM 
225*7851SDana.Myers@Sun.COM     return_PTR (Start + PackageLength); /* end of package */
226*7851SDana.Myers@Sun.COM }
227*7851SDana.Myers@Sun.COM 
228*7851SDana.Myers@Sun.COM 
229*7851SDana.Myers@Sun.COM /*******************************************************************************
230*7851SDana.Myers@Sun.COM  *
231*7851SDana.Myers@Sun.COM  * FUNCTION:    AcpiPsGetNextNamestring
232*7851SDana.Myers@Sun.COM  *
233*7851SDana.Myers@Sun.COM  * PARAMETERS:  ParserState         - Current parser state object
234*7851SDana.Myers@Sun.COM  *
235*7851SDana.Myers@Sun.COM  * RETURN:      Pointer to the start of the name string (pointer points into
236*7851SDana.Myers@Sun.COM  *              the AML.
237*7851SDana.Myers@Sun.COM  *
238*7851SDana.Myers@Sun.COM  * DESCRIPTION: Get next raw namestring within the AML stream.  Handles all name
239*7851SDana.Myers@Sun.COM  *              prefix characters.  Set parser state to point past the string.
240*7851SDana.Myers@Sun.COM  *              (Name is consumed from the AML.)
241*7851SDana.Myers@Sun.COM  *
242*7851SDana.Myers@Sun.COM  ******************************************************************************/
243*7851SDana.Myers@Sun.COM 
244*7851SDana.Myers@Sun.COM char *
245*7851SDana.Myers@Sun.COM AcpiPsGetNextNamestring (
246*7851SDana.Myers@Sun.COM     ACPI_PARSE_STATE        *ParserState)
247*7851SDana.Myers@Sun.COM {
248*7851SDana.Myers@Sun.COM     UINT8                   *Start = ParserState->Aml;
249*7851SDana.Myers@Sun.COM     UINT8                   *End = ParserState->Aml;
250*7851SDana.Myers@Sun.COM 
251*7851SDana.Myers@Sun.COM 
252*7851SDana.Myers@Sun.COM     ACPI_FUNCTION_TRACE (PsGetNextNamestring);
253*7851SDana.Myers@Sun.COM 
254*7851SDana.Myers@Sun.COM 
255*7851SDana.Myers@Sun.COM     /* Point past any namestring prefix characters (backslash or carat) */
256*7851SDana.Myers@Sun.COM 
257*7851SDana.Myers@Sun.COM     while (AcpiPsIsPrefixChar (*End))
258*7851SDana.Myers@Sun.COM     {
259*7851SDana.Myers@Sun.COM         End++;
260*7851SDana.Myers@Sun.COM     }
261*7851SDana.Myers@Sun.COM 
262*7851SDana.Myers@Sun.COM     /* Decode the path prefix character */
263*7851SDana.Myers@Sun.COM 
264*7851SDana.Myers@Sun.COM     switch (*End)
265*7851SDana.Myers@Sun.COM     {
266*7851SDana.Myers@Sun.COM     case 0:
267*7851SDana.Myers@Sun.COM 
268*7851SDana.Myers@Sun.COM         /* NullName */
269*7851SDana.Myers@Sun.COM 
270*7851SDana.Myers@Sun.COM         if (End == Start)
271*7851SDana.Myers@Sun.COM         {
272*7851SDana.Myers@Sun.COM             Start = NULL;
273*7851SDana.Myers@Sun.COM         }
274*7851SDana.Myers@Sun.COM         End++;
275*7851SDana.Myers@Sun.COM         break;
276*7851SDana.Myers@Sun.COM 
277*7851SDana.Myers@Sun.COM     case AML_DUAL_NAME_PREFIX:
278*7851SDana.Myers@Sun.COM 
279*7851SDana.Myers@Sun.COM         /* Two name segments */
280*7851SDana.Myers@Sun.COM 
281*7851SDana.Myers@Sun.COM         End += 1 + (2 * ACPI_NAME_SIZE);
282*7851SDana.Myers@Sun.COM         break;
283*7851SDana.Myers@Sun.COM 
284*7851SDana.Myers@Sun.COM     case AML_MULTI_NAME_PREFIX_OP:
285*7851SDana.Myers@Sun.COM 
286*7851SDana.Myers@Sun.COM         /* Multiple name segments, 4 chars each, count in next byte */
287*7851SDana.Myers@Sun.COM 
288*7851SDana.Myers@Sun.COM         End += 2 + (*(End + 1) * ACPI_NAME_SIZE);
289*7851SDana.Myers@Sun.COM         break;
290*7851SDana.Myers@Sun.COM 
291*7851SDana.Myers@Sun.COM     default:
292*7851SDana.Myers@Sun.COM 
293*7851SDana.Myers@Sun.COM         /* Single name segment */
294*7851SDana.Myers@Sun.COM 
295*7851SDana.Myers@Sun.COM         End += ACPI_NAME_SIZE;
296*7851SDana.Myers@Sun.COM         break;
297*7851SDana.Myers@Sun.COM     }
298*7851SDana.Myers@Sun.COM 
299*7851SDana.Myers@Sun.COM     ParserState->Aml = End;
300*7851SDana.Myers@Sun.COM     return_PTR ((char *) Start);
301*7851SDana.Myers@Sun.COM }
302*7851SDana.Myers@Sun.COM 
303*7851SDana.Myers@Sun.COM 
304*7851SDana.Myers@Sun.COM /*******************************************************************************
305*7851SDana.Myers@Sun.COM  *
306*7851SDana.Myers@Sun.COM  * FUNCTION:    AcpiPsGetNextNamepath
307*7851SDana.Myers@Sun.COM  *
308*7851SDana.Myers@Sun.COM  * PARAMETERS:  ParserState         - Current parser state object
309*7851SDana.Myers@Sun.COM  *              Arg                 - Where the namepath will be stored
310*7851SDana.Myers@Sun.COM  *              ArgCount            - If the namepath points to a control method
311*7851SDana.Myers@Sun.COM  *                                    the method's argument is returned here.
312*7851SDana.Myers@Sun.COM  *              PossibleMethodCall  - Whether the namepath can possibly be the
313*7851SDana.Myers@Sun.COM  *                                    start of a method call
314*7851SDana.Myers@Sun.COM  *
315*7851SDana.Myers@Sun.COM  * RETURN:      Status
316*7851SDana.Myers@Sun.COM  *
317*7851SDana.Myers@Sun.COM  * DESCRIPTION: Get next name (if method call, return # of required args).
318*7851SDana.Myers@Sun.COM  *              Names are looked up in the internal namespace to determine
319*7851SDana.Myers@Sun.COM  *              if the name represents a control method.  If a method
320*7851SDana.Myers@Sun.COM  *              is found, the number of arguments to the method is returned.
321*7851SDana.Myers@Sun.COM  *              This information is critical for parsing to continue correctly.
322*7851SDana.Myers@Sun.COM  *
323*7851SDana.Myers@Sun.COM  ******************************************************************************/
324*7851SDana.Myers@Sun.COM 
325*7851SDana.Myers@Sun.COM ACPI_STATUS
326*7851SDana.Myers@Sun.COM AcpiPsGetNextNamepath (
327*7851SDana.Myers@Sun.COM     ACPI_WALK_STATE         *WalkState,
328*7851SDana.Myers@Sun.COM     ACPI_PARSE_STATE        *ParserState,
329*7851SDana.Myers@Sun.COM     ACPI_PARSE_OBJECT       *Arg,
330*7851SDana.Myers@Sun.COM     BOOLEAN                 PossibleMethodCall)
331*7851SDana.Myers@Sun.COM {
332*7851SDana.Myers@Sun.COM     ACPI_STATUS             Status;
333*7851SDana.Myers@Sun.COM     char                    *Path;
334*7851SDana.Myers@Sun.COM     ACPI_PARSE_OBJECT       *NameOp;
335*7851SDana.Myers@Sun.COM     ACPI_OPERAND_OBJECT     *MethodDesc;
336*7851SDana.Myers@Sun.COM     ACPI_NAMESPACE_NODE     *Node;
337*7851SDana.Myers@Sun.COM     UINT8                   *Start = ParserState->Aml;
338*7851SDana.Myers@Sun.COM 
339*7851SDana.Myers@Sun.COM 
340*7851SDana.Myers@Sun.COM     ACPI_FUNCTION_TRACE (PsGetNextNamepath);
341*7851SDana.Myers@Sun.COM 
342*7851SDana.Myers@Sun.COM 
343*7851SDana.Myers@Sun.COM     Path = AcpiPsGetNextNamestring (ParserState);
344*7851SDana.Myers@Sun.COM     AcpiPsInitOp (Arg, AML_INT_NAMEPATH_OP);
345*7851SDana.Myers@Sun.COM 
346*7851SDana.Myers@Sun.COM     /* Null path case is allowed, just exit */
347*7851SDana.Myers@Sun.COM 
348*7851SDana.Myers@Sun.COM     if (!Path)
349*7851SDana.Myers@Sun.COM     {
350*7851SDana.Myers@Sun.COM         Arg->Common.Value.Name = Path;
351*7851SDana.Myers@Sun.COM         return_ACPI_STATUS (AE_OK);
352*7851SDana.Myers@Sun.COM     }
353*7851SDana.Myers@Sun.COM 
354*7851SDana.Myers@Sun.COM     /*
355*7851SDana.Myers@Sun.COM      * Lookup the name in the internal namespace, starting with the current
356*7851SDana.Myers@Sun.COM      * scope. We don't want to add anything new to the namespace here,
357*7851SDana.Myers@Sun.COM      * however, so we use MODE_EXECUTE.
358*7851SDana.Myers@Sun.COM      * Allow searching of the parent tree, but don't open a new scope -
359*7851SDana.Myers@Sun.COM      * we just want to lookup the object (must be mode EXECUTE to perform
360*7851SDana.Myers@Sun.COM      * the upsearch)
361*7851SDana.Myers@Sun.COM      */
362*7851SDana.Myers@Sun.COM     Status = AcpiNsLookup (WalkState->ScopeInfo, Path,
363*7851SDana.Myers@Sun.COM                 ACPI_TYPE_ANY, ACPI_IMODE_EXECUTE,
364*7851SDana.Myers@Sun.COM                 ACPI_NS_SEARCH_PARENT | ACPI_NS_DONT_OPEN_SCOPE, NULL, &Node);
365*7851SDana.Myers@Sun.COM 
366*7851SDana.Myers@Sun.COM     /*
367*7851SDana.Myers@Sun.COM      * If this name is a control method invocation, we must
368*7851SDana.Myers@Sun.COM      * setup the method call
369*7851SDana.Myers@Sun.COM      */
370*7851SDana.Myers@Sun.COM     if (ACPI_SUCCESS (Status) &&
371*7851SDana.Myers@Sun.COM         PossibleMethodCall &&
372*7851SDana.Myers@Sun.COM         (Node->Type == ACPI_TYPE_METHOD))
373*7851SDana.Myers@Sun.COM     {
374*7851SDana.Myers@Sun.COM         if (WalkState->Opcode == AML_UNLOAD_OP)
375*7851SDana.Myers@Sun.COM         {
376*7851SDana.Myers@Sun.COM             /*
377*7851SDana.Myers@Sun.COM              * AcpiPsGetNextNamestring has increased the AML pointer,
378*7851SDana.Myers@Sun.COM              * so we need to restore the saved AML pointer for method call.
379*7851SDana.Myers@Sun.COM              */
380*7851SDana.Myers@Sun.COM             WalkState->ParserState.Aml = Start;
381*7851SDana.Myers@Sun.COM             WalkState->ArgCount = 1;
382*7851SDana.Myers@Sun.COM             AcpiPsInitOp (Arg, AML_INT_METHODCALL_OP);
383*7851SDana.Myers@Sun.COM             return_ACPI_STATUS (AE_OK);
384*7851SDana.Myers@Sun.COM         }
385*7851SDana.Myers@Sun.COM 
386*7851SDana.Myers@Sun.COM         /* This name is actually a control method invocation */
387*7851SDana.Myers@Sun.COM 
388*7851SDana.Myers@Sun.COM         MethodDesc = AcpiNsGetAttachedObject (Node);
389*7851SDana.Myers@Sun.COM         ACPI_DEBUG_PRINT ((ACPI_DB_PARSE,
390*7851SDana.Myers@Sun.COM             "Control Method - %p Desc %p Path=%p\n", Node, MethodDesc, Path));
391*7851SDana.Myers@Sun.COM 
392*7851SDana.Myers@Sun.COM         NameOp = AcpiPsAllocOp (AML_INT_NAMEPATH_OP);
393*7851SDana.Myers@Sun.COM         if (!NameOp)
394*7851SDana.Myers@Sun.COM         {
395*7851SDana.Myers@Sun.COM             return_ACPI_STATUS (AE_NO_MEMORY);
396*7851SDana.Myers@Sun.COM         }
397*7851SDana.Myers@Sun.COM 
398*7851SDana.Myers@Sun.COM         /* Change Arg into a METHOD CALL and attach name to it */
399*7851SDana.Myers@Sun.COM 
400*7851SDana.Myers@Sun.COM         AcpiPsInitOp (Arg, AML_INT_METHODCALL_OP);
401*7851SDana.Myers@Sun.COM         NameOp->Common.Value.Name = Path;
402*7851SDana.Myers@Sun.COM 
403*7851SDana.Myers@Sun.COM         /* Point METHODCALL/NAME to the METHOD Node */
404*7851SDana.Myers@Sun.COM 
405*7851SDana.Myers@Sun.COM         NameOp->Common.Node = Node;
406*7851SDana.Myers@Sun.COM         AcpiPsAppendArg (Arg, NameOp);
407*7851SDana.Myers@Sun.COM 
408*7851SDana.Myers@Sun.COM         if (!MethodDesc)
409*7851SDana.Myers@Sun.COM         {
410*7851SDana.Myers@Sun.COM             ACPI_ERROR ((AE_INFO,
411*7851SDana.Myers@Sun.COM                 "Control Method %p has no attached object",
412*7851SDana.Myers@Sun.COM                 Node));
413*7851SDana.Myers@Sun.COM             return_ACPI_STATUS (AE_AML_INTERNAL);
414*7851SDana.Myers@Sun.COM         }
415*7851SDana.Myers@Sun.COM 
416*7851SDana.Myers@Sun.COM         ACPI_DEBUG_PRINT ((ACPI_DB_PARSE,
417*7851SDana.Myers@Sun.COM             "Control Method - %p Args %X\n",
418*7851SDana.Myers@Sun.COM             Node, MethodDesc->Method.ParamCount));
419*7851SDana.Myers@Sun.COM 
420*7851SDana.Myers@Sun.COM         /* Get the number of arguments to expect */
421*7851SDana.Myers@Sun.COM 
422*7851SDana.Myers@Sun.COM         WalkState->ArgCount = MethodDesc->Method.ParamCount;
423*7851SDana.Myers@Sun.COM         return_ACPI_STATUS (AE_OK);
424*7851SDana.Myers@Sun.COM     }
425*7851SDana.Myers@Sun.COM 
426*7851SDana.Myers@Sun.COM     /*
427*7851SDana.Myers@Sun.COM      * Special handling if the name was not found during the lookup -
428*7851SDana.Myers@Sun.COM      * some NotFound cases are allowed
429*7851SDana.Myers@Sun.COM      */
430*7851SDana.Myers@Sun.COM     if (Status == AE_NOT_FOUND)
431*7851SDana.Myers@Sun.COM     {
432*7851SDana.Myers@Sun.COM         /* 1) NotFound is ok during load pass 1/2 (allow forward references) */
433*7851SDana.Myers@Sun.COM 
434*7851SDana.Myers@Sun.COM         if ((WalkState->ParseFlags & ACPI_PARSE_MODE_MASK) !=
435*7851SDana.Myers@Sun.COM                 ACPI_PARSE_EXECUTE)
436*7851SDana.Myers@Sun.COM         {
437*7851SDana.Myers@Sun.COM             Status = AE_OK;
438*7851SDana.Myers@Sun.COM         }
439*7851SDana.Myers@Sun.COM 
440*7851SDana.Myers@Sun.COM         /* 2) NotFound during a CondRefOf(x) is ok by definition */
441*7851SDana.Myers@Sun.COM 
442*7851SDana.Myers@Sun.COM         else if (WalkState->Op->Common.AmlOpcode == AML_COND_REF_OF_OP)
443*7851SDana.Myers@Sun.COM         {
444*7851SDana.Myers@Sun.COM             Status = AE_OK;
445*7851SDana.Myers@Sun.COM         }
446*7851SDana.Myers@Sun.COM 
447*7851SDana.Myers@Sun.COM         /*
448*7851SDana.Myers@Sun.COM          * 3) NotFound while building a Package is ok at this point, we
449*7851SDana.Myers@Sun.COM          * may flag as an error later if slack mode is not enabled.
450*7851SDana.Myers@Sun.COM          * (Some ASL code depends on allowing this behavior)
451*7851SDana.Myers@Sun.COM          */
452*7851SDana.Myers@Sun.COM         else if ((Arg->Common.Parent) &&
453*7851SDana.Myers@Sun.COM             ((Arg->Common.Parent->Common.AmlOpcode == AML_PACKAGE_OP) ||
454*7851SDana.Myers@Sun.COM              (Arg->Common.Parent->Common.AmlOpcode == AML_VAR_PACKAGE_OP)))
455*7851SDana.Myers@Sun.COM         {
456*7851SDana.Myers@Sun.COM             Status = AE_OK;
457*7851SDana.Myers@Sun.COM         }
458*7851SDana.Myers@Sun.COM     }
459*7851SDana.Myers@Sun.COM 
460*7851SDana.Myers@Sun.COM     /* Final exception check (may have been changed from code above) */
461*7851SDana.Myers@Sun.COM 
462*7851SDana.Myers@Sun.COM     if (ACPI_FAILURE (Status))
463*7851SDana.Myers@Sun.COM     {
464*7851SDana.Myers@Sun.COM         ACPI_ERROR_NAMESPACE (Path, Status);
465*7851SDana.Myers@Sun.COM 
466*7851SDana.Myers@Sun.COM         if ((WalkState->ParseFlags & ACPI_PARSE_MODE_MASK) ==
467*7851SDana.Myers@Sun.COM                 ACPI_PARSE_EXECUTE)
468*7851SDana.Myers@Sun.COM         {
469*7851SDana.Myers@Sun.COM             /* Report a control method execution error */
470*7851SDana.Myers@Sun.COM 
471*7851SDana.Myers@Sun.COM             Status = AcpiDsMethodError (Status, WalkState);
472*7851SDana.Myers@Sun.COM         }
473*7851SDana.Myers@Sun.COM     }
474*7851SDana.Myers@Sun.COM 
475*7851SDana.Myers@Sun.COM     /* Save the namepath */
476*7851SDana.Myers@Sun.COM 
477*7851SDana.Myers@Sun.COM     Arg->Common.Value.Name = Path;
478*7851SDana.Myers@Sun.COM     return_ACPI_STATUS (Status);
479*7851SDana.Myers@Sun.COM }
480*7851SDana.Myers@Sun.COM 
481*7851SDana.Myers@Sun.COM 
482*7851SDana.Myers@Sun.COM /*******************************************************************************
483*7851SDana.Myers@Sun.COM  *
484*7851SDana.Myers@Sun.COM  * FUNCTION:    AcpiPsGetNextSimpleArg
485*7851SDana.Myers@Sun.COM  *
486*7851SDana.Myers@Sun.COM  * PARAMETERS:  ParserState         - Current parser state object
487*7851SDana.Myers@Sun.COM  *              ArgType             - The argument type (AML_*_ARG)
488*7851SDana.Myers@Sun.COM  *              Arg                 - Where the argument is returned
489*7851SDana.Myers@Sun.COM  *
490*7851SDana.Myers@Sun.COM  * RETURN:      None
491*7851SDana.Myers@Sun.COM  *
492*7851SDana.Myers@Sun.COM  * DESCRIPTION: Get the next simple argument (constant, string, or namestring)
493*7851SDana.Myers@Sun.COM  *
494*7851SDana.Myers@Sun.COM  ******************************************************************************/
495*7851SDana.Myers@Sun.COM 
496*7851SDana.Myers@Sun.COM void
497*7851SDana.Myers@Sun.COM AcpiPsGetNextSimpleArg (
498*7851SDana.Myers@Sun.COM     ACPI_PARSE_STATE        *ParserState,
499*7851SDana.Myers@Sun.COM     UINT32                  ArgType,
500*7851SDana.Myers@Sun.COM     ACPI_PARSE_OBJECT       *Arg)
501*7851SDana.Myers@Sun.COM {
502*7851SDana.Myers@Sun.COM     UINT32                  Length;
503*7851SDana.Myers@Sun.COM     UINT16                  Opcode;
504*7851SDana.Myers@Sun.COM     UINT8                   *Aml = ParserState->Aml;
505*7851SDana.Myers@Sun.COM 
506*7851SDana.Myers@Sun.COM 
507*7851SDana.Myers@Sun.COM     ACPI_FUNCTION_TRACE_U32 (PsGetNextSimpleArg, ArgType);
508*7851SDana.Myers@Sun.COM 
509*7851SDana.Myers@Sun.COM 
510*7851SDana.Myers@Sun.COM     switch (ArgType)
511*7851SDana.Myers@Sun.COM     {
512*7851SDana.Myers@Sun.COM     case ARGP_BYTEDATA:
513*7851SDana.Myers@Sun.COM 
514*7851SDana.Myers@Sun.COM         /* Get 1 byte from the AML stream */
515*7851SDana.Myers@Sun.COM 
516*7851SDana.Myers@Sun.COM         Opcode = AML_BYTE_OP;
517*7851SDana.Myers@Sun.COM         Arg->Common.Value.Integer = (ACPI_INTEGER) *Aml;
518*7851SDana.Myers@Sun.COM         Length = 1;
519*7851SDana.Myers@Sun.COM         break;
520*7851SDana.Myers@Sun.COM 
521*7851SDana.Myers@Sun.COM 
522*7851SDana.Myers@Sun.COM     case ARGP_WORDDATA:
523*7851SDana.Myers@Sun.COM 
524*7851SDana.Myers@Sun.COM         /* Get 2 bytes from the AML stream */
525*7851SDana.Myers@Sun.COM 
526*7851SDana.Myers@Sun.COM         Opcode = AML_WORD_OP;
527*7851SDana.Myers@Sun.COM         ACPI_MOVE_16_TO_64 (&Arg->Common.Value.Integer, Aml);
528*7851SDana.Myers@Sun.COM         Length = 2;
529*7851SDana.Myers@Sun.COM         break;
530*7851SDana.Myers@Sun.COM 
531*7851SDana.Myers@Sun.COM 
532*7851SDana.Myers@Sun.COM     case ARGP_DWORDDATA:
533*7851SDana.Myers@Sun.COM 
534*7851SDana.Myers@Sun.COM         /* Get 4 bytes from the AML stream */
535*7851SDana.Myers@Sun.COM 
536*7851SDana.Myers@Sun.COM         Opcode = AML_DWORD_OP;
537*7851SDana.Myers@Sun.COM         ACPI_MOVE_32_TO_64 (&Arg->Common.Value.Integer, Aml);
538*7851SDana.Myers@Sun.COM         Length = 4;
539*7851SDana.Myers@Sun.COM         break;
540*7851SDana.Myers@Sun.COM 
541*7851SDana.Myers@Sun.COM 
542*7851SDana.Myers@Sun.COM     case ARGP_QWORDDATA:
543*7851SDana.Myers@Sun.COM 
544*7851SDana.Myers@Sun.COM         /* Get 8 bytes from the AML stream */
545*7851SDana.Myers@Sun.COM 
546*7851SDana.Myers@Sun.COM         Opcode = AML_QWORD_OP;
547*7851SDana.Myers@Sun.COM         ACPI_MOVE_64_TO_64 (&Arg->Common.Value.Integer, Aml);
548*7851SDana.Myers@Sun.COM         Length = 8;
549*7851SDana.Myers@Sun.COM         break;
550*7851SDana.Myers@Sun.COM 
551*7851SDana.Myers@Sun.COM 
552*7851SDana.Myers@Sun.COM     case ARGP_CHARLIST:
553*7851SDana.Myers@Sun.COM 
554*7851SDana.Myers@Sun.COM         /* Get a pointer to the string, point past the string */
555*7851SDana.Myers@Sun.COM 
556*7851SDana.Myers@Sun.COM         Opcode = AML_STRING_OP;
557*7851SDana.Myers@Sun.COM         Arg->Common.Value.String = ACPI_CAST_PTR (char, Aml);
558*7851SDana.Myers@Sun.COM 
559*7851SDana.Myers@Sun.COM         /* Find the null terminator */
560*7851SDana.Myers@Sun.COM 
561*7851SDana.Myers@Sun.COM         Length = 0;
562*7851SDana.Myers@Sun.COM         while (Aml[Length])
563*7851SDana.Myers@Sun.COM         {
564*7851SDana.Myers@Sun.COM             Length++;
565*7851SDana.Myers@Sun.COM         }
566*7851SDana.Myers@Sun.COM         Length++;
567*7851SDana.Myers@Sun.COM         break;
568*7851SDana.Myers@Sun.COM 
569*7851SDana.Myers@Sun.COM 
570*7851SDana.Myers@Sun.COM     case ARGP_NAME:
571*7851SDana.Myers@Sun.COM     case ARGP_NAMESTRING:
572*7851SDana.Myers@Sun.COM 
573*7851SDana.Myers@Sun.COM         AcpiPsInitOp (Arg, AML_INT_NAMEPATH_OP);
574*7851SDana.Myers@Sun.COM         Arg->Common.Value.Name = AcpiPsGetNextNamestring (ParserState);
575*7851SDana.Myers@Sun.COM         return_VOID;
576*7851SDana.Myers@Sun.COM 
577*7851SDana.Myers@Sun.COM 
578*7851SDana.Myers@Sun.COM     default:
579*7851SDana.Myers@Sun.COM 
580*7851SDana.Myers@Sun.COM         ACPI_ERROR ((AE_INFO, "Invalid ArgType %X", ArgType));
581*7851SDana.Myers@Sun.COM         return_VOID;
582*7851SDana.Myers@Sun.COM     }
583*7851SDana.Myers@Sun.COM 
584*7851SDana.Myers@Sun.COM     AcpiPsInitOp (Arg, Opcode);
585*7851SDana.Myers@Sun.COM     ParserState->Aml += Length;
586*7851SDana.Myers@Sun.COM     return_VOID;
587*7851SDana.Myers@Sun.COM }
588*7851SDana.Myers@Sun.COM 
589*7851SDana.Myers@Sun.COM 
590*7851SDana.Myers@Sun.COM /*******************************************************************************
591*7851SDana.Myers@Sun.COM  *
592*7851SDana.Myers@Sun.COM  * FUNCTION:    AcpiPsGetNextField
593*7851SDana.Myers@Sun.COM  *
594*7851SDana.Myers@Sun.COM  * PARAMETERS:  ParserState         - Current parser state object
595*7851SDana.Myers@Sun.COM  *
596*7851SDana.Myers@Sun.COM  * RETURN:      A newly allocated FIELD op
597*7851SDana.Myers@Sun.COM  *
598*7851SDana.Myers@Sun.COM  * DESCRIPTION: Get next field (NamedField, ReservedField, or AccessField)
599*7851SDana.Myers@Sun.COM  *
600*7851SDana.Myers@Sun.COM  ******************************************************************************/
601*7851SDana.Myers@Sun.COM 
602*7851SDana.Myers@Sun.COM static ACPI_PARSE_OBJECT *
603*7851SDana.Myers@Sun.COM AcpiPsGetNextField (
604*7851SDana.Myers@Sun.COM     ACPI_PARSE_STATE        *ParserState)
605*7851SDana.Myers@Sun.COM {
606*7851SDana.Myers@Sun.COM     UINT32                  AmlOffset = (UINT32)
607*7851SDana.Myers@Sun.COM                                 ACPI_PTR_DIFF (ParserState->Aml,
608*7851SDana.Myers@Sun.COM                                                ParserState->AmlStart);
609*7851SDana.Myers@Sun.COM     ACPI_PARSE_OBJECT       *Field;
610*7851SDana.Myers@Sun.COM     UINT16                  Opcode;
611*7851SDana.Myers@Sun.COM     UINT32                  Name;
612*7851SDana.Myers@Sun.COM 
613*7851SDana.Myers@Sun.COM 
614*7851SDana.Myers@Sun.COM     ACPI_FUNCTION_TRACE (PsGetNextField);
615*7851SDana.Myers@Sun.COM 
616*7851SDana.Myers@Sun.COM 
617*7851SDana.Myers@Sun.COM     /* Determine field type */
618*7851SDana.Myers@Sun.COM 
619*7851SDana.Myers@Sun.COM     switch (ACPI_GET8 (ParserState->Aml))
620*7851SDana.Myers@Sun.COM     {
621*7851SDana.Myers@Sun.COM     default:
622*7851SDana.Myers@Sun.COM 
623*7851SDana.Myers@Sun.COM         Opcode = AML_INT_NAMEDFIELD_OP;
624*7851SDana.Myers@Sun.COM         break;
625*7851SDana.Myers@Sun.COM 
626*7851SDana.Myers@Sun.COM     case 0x00:
627*7851SDana.Myers@Sun.COM 
628*7851SDana.Myers@Sun.COM         Opcode = AML_INT_RESERVEDFIELD_OP;
629*7851SDana.Myers@Sun.COM         ParserState->Aml++;
630*7851SDana.Myers@Sun.COM         break;
631*7851SDana.Myers@Sun.COM 
632*7851SDana.Myers@Sun.COM     case 0x01:
633*7851SDana.Myers@Sun.COM 
634*7851SDana.Myers@Sun.COM         Opcode = AML_INT_ACCESSFIELD_OP;
635*7851SDana.Myers@Sun.COM         ParserState->Aml++;
636*7851SDana.Myers@Sun.COM         break;
637*7851SDana.Myers@Sun.COM     }
638*7851SDana.Myers@Sun.COM 
639*7851SDana.Myers@Sun.COM     /* Allocate a new field op */
640*7851SDana.Myers@Sun.COM 
641*7851SDana.Myers@Sun.COM     Field = AcpiPsAllocOp (Opcode);
642*7851SDana.Myers@Sun.COM     if (!Field)
643*7851SDana.Myers@Sun.COM     {
644*7851SDana.Myers@Sun.COM         return_PTR (NULL);
645*7851SDana.Myers@Sun.COM     }
646*7851SDana.Myers@Sun.COM 
647*7851SDana.Myers@Sun.COM     Field->Common.AmlOffset = AmlOffset;
648*7851SDana.Myers@Sun.COM 
649*7851SDana.Myers@Sun.COM     /* Decode the field type */
650*7851SDana.Myers@Sun.COM 
651*7851SDana.Myers@Sun.COM     switch (Opcode)
652*7851SDana.Myers@Sun.COM     {
653*7851SDana.Myers@Sun.COM     case AML_INT_NAMEDFIELD_OP:
654*7851SDana.Myers@Sun.COM 
655*7851SDana.Myers@Sun.COM         /* Get the 4-character name */
656*7851SDana.Myers@Sun.COM 
657*7851SDana.Myers@Sun.COM         ACPI_MOVE_32_TO_32 (&Name, ParserState->Aml);
658*7851SDana.Myers@Sun.COM         AcpiPsSetName (Field, Name);
659*7851SDana.Myers@Sun.COM         ParserState->Aml += ACPI_NAME_SIZE;
660*7851SDana.Myers@Sun.COM 
661*7851SDana.Myers@Sun.COM         /* Get the length which is encoded as a package length */
662*7851SDana.Myers@Sun.COM 
663*7851SDana.Myers@Sun.COM         Field->Common.Value.Size = AcpiPsGetNextPackageLength (ParserState);
664*7851SDana.Myers@Sun.COM         break;
665*7851SDana.Myers@Sun.COM 
666*7851SDana.Myers@Sun.COM 
667*7851SDana.Myers@Sun.COM     case AML_INT_RESERVEDFIELD_OP:
668*7851SDana.Myers@Sun.COM 
669*7851SDana.Myers@Sun.COM         /* Get the length which is encoded as a package length */
670*7851SDana.Myers@Sun.COM 
671*7851SDana.Myers@Sun.COM         Field->Common.Value.Size = AcpiPsGetNextPackageLength (ParserState);
672*7851SDana.Myers@Sun.COM         break;
673*7851SDana.Myers@Sun.COM 
674*7851SDana.Myers@Sun.COM 
675*7851SDana.Myers@Sun.COM     case AML_INT_ACCESSFIELD_OP:
676*7851SDana.Myers@Sun.COM 
677*7851SDana.Myers@Sun.COM         /*
678*7851SDana.Myers@Sun.COM          * Get AccessType and AccessAttrib and merge into the field Op
679*7851SDana.Myers@Sun.COM          * AccessType is first operand, AccessAttribute is second
680*7851SDana.Myers@Sun.COM          */
681*7851SDana.Myers@Sun.COM         Field->Common.Value.Integer = (((UINT32) ACPI_GET8 (ParserState->Aml) << 8));
682*7851SDana.Myers@Sun.COM         ParserState->Aml++;
683*7851SDana.Myers@Sun.COM         Field->Common.Value.Integer |= ACPI_GET8 (ParserState->Aml);
684*7851SDana.Myers@Sun.COM         ParserState->Aml++;
685*7851SDana.Myers@Sun.COM         break;
686*7851SDana.Myers@Sun.COM 
687*7851SDana.Myers@Sun.COM     default:
688*7851SDana.Myers@Sun.COM 
689*7851SDana.Myers@Sun.COM         /* Opcode was set in previous switch */
690*7851SDana.Myers@Sun.COM         break;
691*7851SDana.Myers@Sun.COM     }
692*7851SDana.Myers@Sun.COM 
693*7851SDana.Myers@Sun.COM     return_PTR (Field);
694*7851SDana.Myers@Sun.COM }
695*7851SDana.Myers@Sun.COM 
696*7851SDana.Myers@Sun.COM 
697*7851SDana.Myers@Sun.COM /*******************************************************************************
698*7851SDana.Myers@Sun.COM  *
699*7851SDana.Myers@Sun.COM  * FUNCTION:    AcpiPsGetNextArg
700*7851SDana.Myers@Sun.COM  *
701*7851SDana.Myers@Sun.COM  * PARAMETERS:  WalkState           - Current state
702*7851SDana.Myers@Sun.COM  *              ParserState         - Current parser state object
703*7851SDana.Myers@Sun.COM  *              ArgType             - The argument type (AML_*_ARG)
704*7851SDana.Myers@Sun.COM  *              ReturnArg           - Where the next arg is returned
705*7851SDana.Myers@Sun.COM  *
706*7851SDana.Myers@Sun.COM  * RETURN:      Status, and an op object containing the next argument.
707*7851SDana.Myers@Sun.COM  *
708*7851SDana.Myers@Sun.COM  * DESCRIPTION: Get next argument (including complex list arguments that require
709*7851SDana.Myers@Sun.COM  *              pushing the parser stack)
710*7851SDana.Myers@Sun.COM  *
711*7851SDana.Myers@Sun.COM  ******************************************************************************/
712*7851SDana.Myers@Sun.COM 
713*7851SDana.Myers@Sun.COM ACPI_STATUS
714*7851SDana.Myers@Sun.COM AcpiPsGetNextArg (
715*7851SDana.Myers@Sun.COM     ACPI_WALK_STATE         *WalkState,
716*7851SDana.Myers@Sun.COM     ACPI_PARSE_STATE        *ParserState,
717*7851SDana.Myers@Sun.COM     UINT32                  ArgType,
718*7851SDana.Myers@Sun.COM     ACPI_PARSE_OBJECT       **ReturnArg)
719*7851SDana.Myers@Sun.COM {
720*7851SDana.Myers@Sun.COM     ACPI_PARSE_OBJECT       *Arg = NULL;
721*7851SDana.Myers@Sun.COM     ACPI_PARSE_OBJECT       *Prev = NULL;
722*7851SDana.Myers@Sun.COM     ACPI_PARSE_OBJECT       *Field;
723*7851SDana.Myers@Sun.COM     UINT32                  Subop;
724*7851SDana.Myers@Sun.COM     ACPI_STATUS             Status = AE_OK;
725*7851SDana.Myers@Sun.COM 
726*7851SDana.Myers@Sun.COM 
727*7851SDana.Myers@Sun.COM     ACPI_FUNCTION_TRACE_PTR (PsGetNextArg, ParserState);
728*7851SDana.Myers@Sun.COM 
729*7851SDana.Myers@Sun.COM 
730*7851SDana.Myers@Sun.COM     switch (ArgType)
731*7851SDana.Myers@Sun.COM     {
732*7851SDana.Myers@Sun.COM     case ARGP_BYTEDATA:
733*7851SDana.Myers@Sun.COM     case ARGP_WORDDATA:
734*7851SDana.Myers@Sun.COM     case ARGP_DWORDDATA:
735*7851SDana.Myers@Sun.COM     case ARGP_CHARLIST:
736*7851SDana.Myers@Sun.COM     case ARGP_NAME:
737*7851SDana.Myers@Sun.COM     case ARGP_NAMESTRING:
738*7851SDana.Myers@Sun.COM 
739*7851SDana.Myers@Sun.COM         /* Constants, strings, and namestrings are all the same size */
740*7851SDana.Myers@Sun.COM 
741*7851SDana.Myers@Sun.COM         Arg = AcpiPsAllocOp (AML_BYTE_OP);
742*7851SDana.Myers@Sun.COM         if (!Arg)
743*7851SDana.Myers@Sun.COM         {
744*7851SDana.Myers@Sun.COM             return_ACPI_STATUS (AE_NO_MEMORY);
745*7851SDana.Myers@Sun.COM         }
746*7851SDana.Myers@Sun.COM         AcpiPsGetNextSimpleArg (ParserState, ArgType, Arg);
747*7851SDana.Myers@Sun.COM         break;
748*7851SDana.Myers@Sun.COM 
749*7851SDana.Myers@Sun.COM 
750*7851SDana.Myers@Sun.COM     case ARGP_PKGLENGTH:
751*7851SDana.Myers@Sun.COM 
752*7851SDana.Myers@Sun.COM         /* Package length, nothing returned */
753*7851SDana.Myers@Sun.COM 
754*7851SDana.Myers@Sun.COM         ParserState->PkgEnd = AcpiPsGetNextPackageEnd (ParserState);
755*7851SDana.Myers@Sun.COM         break;
756*7851SDana.Myers@Sun.COM 
757*7851SDana.Myers@Sun.COM 
758*7851SDana.Myers@Sun.COM     case ARGP_FIELDLIST:
759*7851SDana.Myers@Sun.COM 
760*7851SDana.Myers@Sun.COM         if (ParserState->Aml < ParserState->PkgEnd)
761*7851SDana.Myers@Sun.COM         {
762*7851SDana.Myers@Sun.COM             /* Non-empty list */
763*7851SDana.Myers@Sun.COM 
764*7851SDana.Myers@Sun.COM             while (ParserState->Aml < ParserState->PkgEnd)
765*7851SDana.Myers@Sun.COM             {
766*7851SDana.Myers@Sun.COM                 Field = AcpiPsGetNextField (ParserState);
767*7851SDana.Myers@Sun.COM                 if (!Field)
768*7851SDana.Myers@Sun.COM                 {
769*7851SDana.Myers@Sun.COM                     return_ACPI_STATUS (AE_NO_MEMORY);
770*7851SDana.Myers@Sun.COM                 }
771*7851SDana.Myers@Sun.COM 
772*7851SDana.Myers@Sun.COM                 if (Prev)
773*7851SDana.Myers@Sun.COM                 {
774*7851SDana.Myers@Sun.COM                     Prev->Common.Next = Field;
775*7851SDana.Myers@Sun.COM                 }
776*7851SDana.Myers@Sun.COM                 else
777*7851SDana.Myers@Sun.COM                 {
778*7851SDana.Myers@Sun.COM                     Arg = Field;
779*7851SDana.Myers@Sun.COM                 }
780*7851SDana.Myers@Sun.COM                 Prev = Field;
781*7851SDana.Myers@Sun.COM             }
782*7851SDana.Myers@Sun.COM 
783*7851SDana.Myers@Sun.COM             /* Skip to End of byte data */
784*7851SDana.Myers@Sun.COM 
785*7851SDana.Myers@Sun.COM             ParserState->Aml = ParserState->PkgEnd;
786*7851SDana.Myers@Sun.COM         }
787*7851SDana.Myers@Sun.COM         break;
788*7851SDana.Myers@Sun.COM 
789*7851SDana.Myers@Sun.COM 
790*7851SDana.Myers@Sun.COM     case ARGP_BYTELIST:
791*7851SDana.Myers@Sun.COM 
792*7851SDana.Myers@Sun.COM         if (ParserState->Aml < ParserState->PkgEnd)
793*7851SDana.Myers@Sun.COM         {
794*7851SDana.Myers@Sun.COM             /* Non-empty list */
795*7851SDana.Myers@Sun.COM 
796*7851SDana.Myers@Sun.COM             Arg = AcpiPsAllocOp (AML_INT_BYTELIST_OP);
797*7851SDana.Myers@Sun.COM             if (!Arg)
798*7851SDana.Myers@Sun.COM             {
799*7851SDana.Myers@Sun.COM                 return_ACPI_STATUS (AE_NO_MEMORY);
800*7851SDana.Myers@Sun.COM             }
801*7851SDana.Myers@Sun.COM 
802*7851SDana.Myers@Sun.COM             /* Fill in bytelist data */
803*7851SDana.Myers@Sun.COM 
804*7851SDana.Myers@Sun.COM             Arg->Common.Value.Size = (UINT32)
805*7851SDana.Myers@Sun.COM                 ACPI_PTR_DIFF (ParserState->PkgEnd, ParserState->Aml);
806*7851SDana.Myers@Sun.COM             Arg->Named.Data = ParserState->Aml;
807*7851SDana.Myers@Sun.COM 
808*7851SDana.Myers@Sun.COM             /* Skip to End of byte data */
809*7851SDana.Myers@Sun.COM 
810*7851SDana.Myers@Sun.COM             ParserState->Aml = ParserState->PkgEnd;
811*7851SDana.Myers@Sun.COM         }
812*7851SDana.Myers@Sun.COM         break;
813*7851SDana.Myers@Sun.COM 
814*7851SDana.Myers@Sun.COM 
815*7851SDana.Myers@Sun.COM     case ARGP_TARGET:
816*7851SDana.Myers@Sun.COM     case ARGP_SUPERNAME:
817*7851SDana.Myers@Sun.COM     case ARGP_SIMPLENAME:
818*7851SDana.Myers@Sun.COM 
819*7851SDana.Myers@Sun.COM         Subop = AcpiPsPeekOpcode (ParserState);
820*7851SDana.Myers@Sun.COM         if (Subop == 0                  ||
821*7851SDana.Myers@Sun.COM             AcpiPsIsLeadingChar (Subop) ||
822*7851SDana.Myers@Sun.COM             AcpiPsIsPrefixChar (Subop))
823*7851SDana.Myers@Sun.COM         {
824*7851SDana.Myers@Sun.COM             /* NullName or NameString */
825*7851SDana.Myers@Sun.COM 
826*7851SDana.Myers@Sun.COM             Arg = AcpiPsAllocOp (AML_INT_NAMEPATH_OP);
827*7851SDana.Myers@Sun.COM             if (!Arg)
828*7851SDana.Myers@Sun.COM             {
829*7851SDana.Myers@Sun.COM                 return_ACPI_STATUS (AE_NO_MEMORY);
830*7851SDana.Myers@Sun.COM             }
831*7851SDana.Myers@Sun.COM 
832*7851SDana.Myers@Sun.COM             /* To support SuperName arg of Unload */
833*7851SDana.Myers@Sun.COM 
834*7851SDana.Myers@Sun.COM             if (WalkState->Opcode == AML_UNLOAD_OP)
835*7851SDana.Myers@Sun.COM             {
836*7851SDana.Myers@Sun.COM                 Status = AcpiPsGetNextNamepath (WalkState, ParserState, Arg, 1);
837*7851SDana.Myers@Sun.COM 
838*7851SDana.Myers@Sun.COM                 /*
839*7851SDana.Myers@Sun.COM                  * If the SuperName arg of Unload is a method call,
840*7851SDana.Myers@Sun.COM                  * we have restored the AML pointer, just free this Arg
841*7851SDana.Myers@Sun.COM                  */
842*7851SDana.Myers@Sun.COM                 if (Arg->Common.AmlOpcode == AML_INT_METHODCALL_OP)
843*7851SDana.Myers@Sun.COM                 {
844*7851SDana.Myers@Sun.COM                     AcpiPsFreeOp (Arg);
845*7851SDana.Myers@Sun.COM                     Arg = NULL;
846*7851SDana.Myers@Sun.COM                 }
847*7851SDana.Myers@Sun.COM             }
848*7851SDana.Myers@Sun.COM             else
849*7851SDana.Myers@Sun.COM             {
850*7851SDana.Myers@Sun.COM                 Status = AcpiPsGetNextNamepath (WalkState, ParserState, Arg, 0);
851*7851SDana.Myers@Sun.COM             }
852*7851SDana.Myers@Sun.COM         }
853*7851SDana.Myers@Sun.COM         else
854*7851SDana.Myers@Sun.COM         {
855*7851SDana.Myers@Sun.COM             /* Single complex argument, nothing returned */
856*7851SDana.Myers@Sun.COM 
857*7851SDana.Myers@Sun.COM             WalkState->ArgCount = 1;
858*7851SDana.Myers@Sun.COM         }
859*7851SDana.Myers@Sun.COM         break;
860*7851SDana.Myers@Sun.COM 
861*7851SDana.Myers@Sun.COM 
862*7851SDana.Myers@Sun.COM     case ARGP_DATAOBJ:
863*7851SDana.Myers@Sun.COM     case ARGP_TERMARG:
864*7851SDana.Myers@Sun.COM 
865*7851SDana.Myers@Sun.COM         /* Single complex argument, nothing returned */
866*7851SDana.Myers@Sun.COM 
867*7851SDana.Myers@Sun.COM         WalkState->ArgCount = 1;
868*7851SDana.Myers@Sun.COM         break;
869*7851SDana.Myers@Sun.COM 
870*7851SDana.Myers@Sun.COM 
871*7851SDana.Myers@Sun.COM     case ARGP_DATAOBJLIST:
872*7851SDana.Myers@Sun.COM     case ARGP_TERMLIST:
873*7851SDana.Myers@Sun.COM     case ARGP_OBJLIST:
874*7851SDana.Myers@Sun.COM 
875*7851SDana.Myers@Sun.COM         if (ParserState->Aml < ParserState->PkgEnd)
876*7851SDana.Myers@Sun.COM         {
877*7851SDana.Myers@Sun.COM             /* Non-empty list of variable arguments, nothing returned */
878*7851SDana.Myers@Sun.COM 
879*7851SDana.Myers@Sun.COM             WalkState->ArgCount = ACPI_VAR_ARGS;
880*7851SDana.Myers@Sun.COM         }
881*7851SDana.Myers@Sun.COM         break;
882*7851SDana.Myers@Sun.COM 
883*7851SDana.Myers@Sun.COM 
884*7851SDana.Myers@Sun.COM     default:
885*7851SDana.Myers@Sun.COM 
886*7851SDana.Myers@Sun.COM         ACPI_ERROR ((AE_INFO, "Invalid ArgType: %X", ArgType));
887*7851SDana.Myers@Sun.COM         Status = AE_AML_OPERAND_TYPE;
888*7851SDana.Myers@Sun.COM         break;
889*7851SDana.Myers@Sun.COM     }
890*7851SDana.Myers@Sun.COM 
891*7851SDana.Myers@Sun.COM     *ReturnArg = Arg;
892*7851SDana.Myers@Sun.COM     return_ACPI_STATUS (Status);
893*7851SDana.Myers@Sun.COM }
894