1bc36eafdSMike Gerdts /******************************************************************************
2bc36eafdSMike Gerdts *
3bc36eafdSMike Gerdts * Module Name: aslexternal - ASL External opcode compiler support
4bc36eafdSMike Gerdts *
5bc36eafdSMike Gerdts *****************************************************************************/
6bc36eafdSMike Gerdts
7*35786f68SRobert Mustacchi /******************************************************************************
8*35786f68SRobert Mustacchi *
9*35786f68SRobert Mustacchi * 1. Copyright Notice
10*35786f68SRobert Mustacchi *
11*35786f68SRobert Mustacchi * Some or all of this work - Copyright (c) 1999 - 2018, Intel Corp.
12bc36eafdSMike Gerdts * All rights reserved.
13bc36eafdSMike Gerdts *
14*35786f68SRobert Mustacchi * 2. License
15*35786f68SRobert Mustacchi *
16*35786f68SRobert Mustacchi * 2.1. This is your license from Intel Corp. under its intellectual property
17*35786f68SRobert Mustacchi * rights. You may have additional license terms from the party that provided
18*35786f68SRobert Mustacchi * you this software, covering your right to use that party's intellectual
19*35786f68SRobert Mustacchi * property rights.
20*35786f68SRobert Mustacchi *
21*35786f68SRobert Mustacchi * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a
22*35786f68SRobert Mustacchi * copy of the source code appearing in this file ("Covered Code") an
23*35786f68SRobert Mustacchi * irrevocable, perpetual, worldwide license under Intel's copyrights in the
24*35786f68SRobert Mustacchi * base code distributed originally by Intel ("Original Intel Code") to copy,
25*35786f68SRobert Mustacchi * make derivatives, distribute, use and display any portion of the Covered
26*35786f68SRobert Mustacchi * Code in any form, with the right to sublicense such rights; and
27*35786f68SRobert Mustacchi *
28*35786f68SRobert Mustacchi * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent
29*35786f68SRobert Mustacchi * license (with the right to sublicense), under only those claims of Intel
30*35786f68SRobert Mustacchi * patents that are infringed by the Original Intel Code, to make, use, sell,
31*35786f68SRobert Mustacchi * offer to sell, and import the Covered Code and derivative works thereof
32*35786f68SRobert Mustacchi * solely to the minimum extent necessary to exercise the above copyright
33*35786f68SRobert Mustacchi * license, and in no event shall the patent license extend to any additions
34*35786f68SRobert Mustacchi * to or modifications of the Original Intel Code. No other license or right
35*35786f68SRobert Mustacchi * is granted directly or by implication, estoppel or otherwise;
36*35786f68SRobert Mustacchi *
37*35786f68SRobert Mustacchi * The above copyright and patent license is granted only if the following
38*35786f68SRobert Mustacchi * conditions are met:
39*35786f68SRobert Mustacchi *
40*35786f68SRobert Mustacchi * 3. Conditions
41*35786f68SRobert Mustacchi *
42*35786f68SRobert Mustacchi * 3.1. Redistribution of Source with Rights to Further Distribute Source.
43*35786f68SRobert Mustacchi * Redistribution of source code of any substantial portion of the Covered
44*35786f68SRobert Mustacchi * Code or modification with rights to further distribute source must include
45*35786f68SRobert Mustacchi * the above Copyright Notice, the above License, this list of Conditions,
46*35786f68SRobert Mustacchi * and the following Disclaimer and Export Compliance provision. In addition,
47*35786f68SRobert Mustacchi * Licensee must cause all Covered Code to which Licensee contributes to
48*35786f68SRobert Mustacchi * contain a file documenting the changes Licensee made to create that Covered
49*35786f68SRobert Mustacchi * Code and the date of any change. Licensee must include in that file the
50*35786f68SRobert Mustacchi * documentation of any changes made by any predecessor Licensee. Licensee
51*35786f68SRobert Mustacchi * must include a prominent statement that the modification is derived,
52*35786f68SRobert Mustacchi * directly or indirectly, from Original Intel Code.
53*35786f68SRobert Mustacchi *
54*35786f68SRobert Mustacchi * 3.2. Redistribution of Source with no Rights to Further Distribute Source.
55*35786f68SRobert Mustacchi * Redistribution of source code of any substantial portion of the Covered
56*35786f68SRobert Mustacchi * Code or modification without rights to further distribute source must
57*35786f68SRobert Mustacchi * include the following Disclaimer and Export Compliance provision in the
58*35786f68SRobert Mustacchi * documentation and/or other materials provided with distribution. In
59*35786f68SRobert Mustacchi * addition, Licensee may not authorize further sublicense of source of any
60*35786f68SRobert Mustacchi * portion of the Covered Code, and must include terms to the effect that the
61*35786f68SRobert Mustacchi * license from Licensee to its licensee is limited to the intellectual
62*35786f68SRobert Mustacchi * property embodied in the software Licensee provides to its licensee, and
63*35786f68SRobert Mustacchi * not to intellectual property embodied in modifications its licensee may
64*35786f68SRobert Mustacchi * make.
65*35786f68SRobert Mustacchi *
66*35786f68SRobert Mustacchi * 3.3. Redistribution of Executable. Redistribution in executable form of any
67*35786f68SRobert Mustacchi * substantial portion of the Covered Code or modification must reproduce the
68*35786f68SRobert Mustacchi * above Copyright Notice, and the following Disclaimer and Export Compliance
69*35786f68SRobert Mustacchi * provision in the documentation and/or other materials provided with the
70*35786f68SRobert Mustacchi * distribution.
71*35786f68SRobert Mustacchi *
72*35786f68SRobert Mustacchi * 3.4. Intel retains all right, title, and interest in and to the Original
73*35786f68SRobert Mustacchi * Intel Code.
74*35786f68SRobert Mustacchi *
75*35786f68SRobert Mustacchi * 3.5. Neither the name Intel nor any other trademark owned or controlled by
76*35786f68SRobert Mustacchi * Intel shall be used in advertising or otherwise to promote the sale, use or
77*35786f68SRobert Mustacchi * other dealings in products derived from or relating to the Covered Code
78*35786f68SRobert Mustacchi * without prior written authorization from Intel.
79*35786f68SRobert Mustacchi *
80*35786f68SRobert Mustacchi * 4. Disclaimer and Export Compliance
81*35786f68SRobert Mustacchi *
82*35786f68SRobert Mustacchi * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED
83*35786f68SRobert Mustacchi * HERE. ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE
84*35786f68SRobert Mustacchi * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT, ASSISTANCE,
85*35786f68SRobert Mustacchi * INSTALLATION, TRAINING OR OTHER SERVICES. INTEL WILL NOT PROVIDE ANY
86*35786f68SRobert Mustacchi * UPDATES, ENHANCEMENTS OR EXTENSIONS. INTEL SPECIFICALLY DISCLAIMS ANY
87*35786f68SRobert Mustacchi * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A
88*35786f68SRobert Mustacchi * PARTICULAR PURPOSE.
89*35786f68SRobert Mustacchi *
90*35786f68SRobert Mustacchi * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES
91*35786f68SRobert Mustacchi * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR
92*35786f68SRobert Mustacchi * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,
93*35786f68SRobert Mustacchi * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY
94*35786f68SRobert Mustacchi * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL
95*35786f68SRobert Mustacchi * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES. THESE LIMITATIONS
96*35786f68SRobert Mustacchi * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY
97*35786f68SRobert Mustacchi * LIMITED REMEDY.
98*35786f68SRobert Mustacchi *
99*35786f68SRobert Mustacchi * 4.3. Licensee shall not export, either directly or indirectly, any of this
100*35786f68SRobert Mustacchi * software or system incorporating such software without first obtaining any
101*35786f68SRobert Mustacchi * required license or other approval from the U. S. Department of Commerce or
102*35786f68SRobert Mustacchi * any other agency or department of the United States Government. In the
103*35786f68SRobert Mustacchi * event Licensee exports any such software from the United States or
104*35786f68SRobert Mustacchi * re-exports any such software from a foreign destination, Licensee shall
105*35786f68SRobert Mustacchi * ensure that the distribution and export/re-export of the software is in
106*35786f68SRobert Mustacchi * compliance with all laws, regulations, orders, or other restrictions of the
107*35786f68SRobert Mustacchi * U.S. Export Administration Regulations. Licensee agrees that neither it nor
108*35786f68SRobert Mustacchi * any of its subsidiaries will export/re-export any technical data, process,
109*35786f68SRobert Mustacchi * software, or service, directly or indirectly, to any country for which the
110*35786f68SRobert Mustacchi * United States government or any agency thereof requires an export license,
111*35786f68SRobert Mustacchi * other governmental approval, or letter of assurance, without first obtaining
112*35786f68SRobert Mustacchi * such license, approval or letter.
113*35786f68SRobert Mustacchi *
114*35786f68SRobert Mustacchi *****************************************************************************
115*35786f68SRobert Mustacchi *
116*35786f68SRobert Mustacchi * Alternatively, you may choose to be licensed under the terms of the
117*35786f68SRobert Mustacchi * following license:
118*35786f68SRobert Mustacchi *
119bc36eafdSMike Gerdts * Redistribution and use in source and binary forms, with or without
120bc36eafdSMike Gerdts * modification, are permitted provided that the following conditions
121bc36eafdSMike Gerdts * are met:
122bc36eafdSMike Gerdts * 1. Redistributions of source code must retain the above copyright
123bc36eafdSMike Gerdts * notice, this list of conditions, and the following disclaimer,
124bc36eafdSMike Gerdts * without modification.
125bc36eafdSMike Gerdts * 2. Redistributions in binary form must reproduce at minimum a disclaimer
126bc36eafdSMike Gerdts * substantially similar to the "NO WARRANTY" disclaimer below
127bc36eafdSMike Gerdts * ("Disclaimer") and any redistribution must be conditioned upon
128bc36eafdSMike Gerdts * including a substantially similar Disclaimer requirement for further
129bc36eafdSMike Gerdts * binary redistribution.
130bc36eafdSMike Gerdts * 3. Neither the names of the above-listed copyright holders nor the names
131bc36eafdSMike Gerdts * of any contributors may be used to endorse or promote products derived
132bc36eafdSMike Gerdts * from this software without specific prior written permission.
133bc36eafdSMike Gerdts *
134bc36eafdSMike Gerdts * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
135bc36eafdSMike Gerdts * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
136*35786f68SRobert Mustacchi * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
137bc36eafdSMike Gerdts * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
138*35786f68SRobert Mustacchi * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
139*35786f68SRobert Mustacchi * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
140*35786f68SRobert Mustacchi * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
141*35786f68SRobert Mustacchi * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
142*35786f68SRobert Mustacchi * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
143*35786f68SRobert Mustacchi * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
144*35786f68SRobert Mustacchi * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
145*35786f68SRobert Mustacchi *
146*35786f68SRobert Mustacchi * Alternatively, you may choose to be licensed under the terms of the
147*35786f68SRobert Mustacchi * GNU General Public License ("GPL") version 2 as published by the Free
148*35786f68SRobert Mustacchi * Software Foundation.
149*35786f68SRobert Mustacchi *
150*35786f68SRobert Mustacchi *****************************************************************************/
151bc36eafdSMike Gerdts
152bc36eafdSMike Gerdts #include "aslcompiler.h"
153bc36eafdSMike Gerdts #include "aslcompiler.y.h"
154bc36eafdSMike Gerdts #include "acparser.h"
155bc36eafdSMike Gerdts #include "amlcode.h"
156bc36eafdSMike Gerdts #include "acnamesp.h"
157bc36eafdSMike Gerdts
158bc36eafdSMike Gerdts
159bc36eafdSMike Gerdts #define _COMPONENT ACPI_COMPILER
160bc36eafdSMike Gerdts ACPI_MODULE_NAME ("aslexternal")
161bc36eafdSMike Gerdts
162bc36eafdSMike Gerdts
163bc36eafdSMike Gerdts /* Local prototypes */
164bc36eafdSMike Gerdts
165bc36eafdSMike Gerdts static void
166bc36eafdSMike Gerdts ExInsertArgCount (
167bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Op);
168bc36eafdSMike Gerdts
169bc36eafdSMike Gerdts static void
170bc36eafdSMike Gerdts ExMoveExternals (
171bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *DefinitionBlockOp);
172bc36eafdSMike Gerdts
173bc36eafdSMike Gerdts
174bc36eafdSMike Gerdts /*******************************************************************************
175bc36eafdSMike Gerdts *
176bc36eafdSMike Gerdts * FUNCTION: ExDoExternal
177bc36eafdSMike Gerdts *
178bc36eafdSMike Gerdts * PARAMETERS: Op - Current Parse node
179bc36eafdSMike Gerdts *
180bc36eafdSMike Gerdts * RETURN: None
181bc36eafdSMike Gerdts *
182bc36eafdSMike Gerdts * DESCRIPTION: Add an External() definition to the global list. This list
183bc36eafdSMike Gerdts * is used to generate External opcodes.
184bc36eafdSMike Gerdts *
185bc36eafdSMike Gerdts ******************************************************************************/
186bc36eafdSMike Gerdts
187bc36eafdSMike Gerdts void
ExDoExternal(ACPI_PARSE_OBJECT * Op)188bc36eafdSMike Gerdts ExDoExternal (
189bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Op)
190bc36eafdSMike Gerdts {
191bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *ListOp;
192bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Prev;
193bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Next;
194bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *ArgCountOp;
195bc36eafdSMike Gerdts
196bc36eafdSMike Gerdts
197bc36eafdSMike Gerdts ArgCountOp = Op->Asl.Child->Asl.Next->Asl.Next;
198bc36eafdSMike Gerdts ArgCountOp->Asl.AmlOpcode = AML_RAW_DATA_BYTE;
199bc36eafdSMike Gerdts ArgCountOp->Asl.ParseOpcode = PARSEOP_BYTECONST;
200bc36eafdSMike Gerdts ArgCountOp->Asl.Value.Integer = 0;
201bc36eafdSMike Gerdts UtSetParseOpName (ArgCountOp);
202bc36eafdSMike Gerdts
203bc36eafdSMike Gerdts /* Create new list node of arbitrary type */
204bc36eafdSMike Gerdts
205*35786f68SRobert Mustacchi ListOp = TrAllocateOp (PARSEOP_DEFAULT_ARG);
206bc36eafdSMike Gerdts
207bc36eafdSMike Gerdts /* Store External node as child */
208bc36eafdSMike Gerdts
209bc36eafdSMike Gerdts ListOp->Asl.Child = Op;
210bc36eafdSMike Gerdts ListOp->Asl.Next = NULL;
211bc36eafdSMike Gerdts
212bc36eafdSMike Gerdts if (Gbl_ExternalsListHead)
213bc36eafdSMike Gerdts {
214bc36eafdSMike Gerdts /* Link new External to end of list */
215bc36eafdSMike Gerdts
216bc36eafdSMike Gerdts Prev = Gbl_ExternalsListHead;
217bc36eafdSMike Gerdts Next = Prev;
218bc36eafdSMike Gerdts while (Next)
219bc36eafdSMike Gerdts {
220bc36eafdSMike Gerdts Prev = Next;
221bc36eafdSMike Gerdts Next = Next->Asl.Next;
222bc36eafdSMike Gerdts }
223bc36eafdSMike Gerdts
224bc36eafdSMike Gerdts Prev->Asl.Next = ListOp;
225bc36eafdSMike Gerdts }
226bc36eafdSMike Gerdts else
227bc36eafdSMike Gerdts {
228bc36eafdSMike Gerdts Gbl_ExternalsListHead = ListOp;
229bc36eafdSMike Gerdts }
230bc36eafdSMike Gerdts }
231bc36eafdSMike Gerdts
232bc36eafdSMike Gerdts
233bc36eafdSMike Gerdts /*******************************************************************************
234bc36eafdSMike Gerdts *
235bc36eafdSMike Gerdts * FUNCTION: ExInsertArgCount
236bc36eafdSMike Gerdts *
237bc36eafdSMike Gerdts * PARAMETERS: Op - Op for a method invocation
238bc36eafdSMike Gerdts *
239bc36eafdSMike Gerdts * RETURN: None
240bc36eafdSMike Gerdts *
241bc36eafdSMike Gerdts * DESCRIPTION: Obtain the number of arguments for a control method -- from
242bc36eafdSMike Gerdts * the actual invocation.
243bc36eafdSMike Gerdts *
244bc36eafdSMike Gerdts ******************************************************************************/
245bc36eafdSMike Gerdts
246bc36eafdSMike Gerdts static void
ExInsertArgCount(ACPI_PARSE_OBJECT * Op)247bc36eafdSMike Gerdts ExInsertArgCount (
248bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Op)
249bc36eafdSMike Gerdts {
250bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Next;
251bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *NameOp;
252bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Child;
253bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *ArgCountOp;
254bc36eafdSMike Gerdts char * ExternalName;
255bc36eafdSMike Gerdts char * CallName;
256bc36eafdSMike Gerdts UINT16 ArgCount = 0;
257bc36eafdSMike Gerdts ACPI_STATUS Status;
258bc36eafdSMike Gerdts
259bc36eafdSMike Gerdts
260bc36eafdSMike Gerdts CallName = AcpiNsGetNormalizedPathname (Op->Asl.Node, TRUE);
261bc36eafdSMike Gerdts
262bc36eafdSMike Gerdts Next = Gbl_ExternalsListHead;
263bc36eafdSMike Gerdts while (Next)
264bc36eafdSMike Gerdts {
265bc36eafdSMike Gerdts ArgCount = 0;
266bc36eafdSMike Gerdts
267bc36eafdSMike Gerdts /* Skip if External node already handled */
268bc36eafdSMike Gerdts
269*35786f68SRobert Mustacchi if (Next->Asl.Child->Asl.CompileFlags & OP_VISITED)
270bc36eafdSMike Gerdts {
271bc36eafdSMike Gerdts Next = Next->Asl.Next;
272bc36eafdSMike Gerdts continue;
273bc36eafdSMike Gerdts }
274bc36eafdSMike Gerdts
275bc36eafdSMike Gerdts NameOp = Next->Asl.Child->Asl.Child;
276bc36eafdSMike Gerdts ExternalName = AcpiNsGetNormalizedPathname (NameOp->Asl.Node, TRUE);
277bc36eafdSMike Gerdts
278bc36eafdSMike Gerdts if (strcmp (CallName, ExternalName))
279bc36eafdSMike Gerdts {
280bc36eafdSMike Gerdts ACPI_FREE (ExternalName);
281bc36eafdSMike Gerdts Next = Next->Asl.Next;
282bc36eafdSMike Gerdts continue;
283bc36eafdSMike Gerdts }
284bc36eafdSMike Gerdts
285*35786f68SRobert Mustacchi Next->Asl.Child->Asl.CompileFlags |= OP_VISITED;
286bc36eafdSMike Gerdts
287bc36eafdSMike Gerdts /*
288bc36eafdSMike Gerdts * Since we will reposition Externals to the Root, set Namepath
289bc36eafdSMike Gerdts * to the fully qualified name and recalculate the aml length
290bc36eafdSMike Gerdts */
291bc36eafdSMike Gerdts Status = UtInternalizeName (ExternalName,
292bc36eafdSMike Gerdts &NameOp->Asl.Value.String);
293bc36eafdSMike Gerdts
294bc36eafdSMike Gerdts ACPI_FREE (ExternalName);
295bc36eafdSMike Gerdts if (ACPI_FAILURE (Status))
296bc36eafdSMike Gerdts {
297bc36eafdSMike Gerdts AslError (ASL_ERROR, ASL_MSG_COMPILER_INTERNAL,
298bc36eafdSMike Gerdts NULL, "- Could not Internalize External");
299bc36eafdSMike Gerdts break;
300bc36eafdSMike Gerdts }
301bc36eafdSMike Gerdts
302bc36eafdSMike Gerdts NameOp->Asl.AmlLength = strlen (NameOp->Asl.Value.String);
303bc36eafdSMike Gerdts
304bc36eafdSMike Gerdts /* Get argument count */
305bc36eafdSMike Gerdts
306bc36eafdSMike Gerdts Child = Op->Asl.Child;
307bc36eafdSMike Gerdts while (Child)
308bc36eafdSMike Gerdts {
309bc36eafdSMike Gerdts ArgCount++;
310bc36eafdSMike Gerdts Child = Child->Asl.Next;
311bc36eafdSMike Gerdts }
312bc36eafdSMike Gerdts
313bc36eafdSMike Gerdts /* Setup ArgCount operand */
314bc36eafdSMike Gerdts
315bc36eafdSMike Gerdts ArgCountOp = Next->Asl.Child->Asl.Child->Asl.Next->Asl.Next;
316bc36eafdSMike Gerdts ArgCountOp->Asl.Value.Integer = ArgCount;
317bc36eafdSMike Gerdts break;
318bc36eafdSMike Gerdts }
319bc36eafdSMike Gerdts
320bc36eafdSMike Gerdts ACPI_FREE (CallName);
321bc36eafdSMike Gerdts }
322bc36eafdSMike Gerdts
323bc36eafdSMike Gerdts
324bc36eafdSMike Gerdts /*******************************************************************************
325bc36eafdSMike Gerdts *
326bc36eafdSMike Gerdts * FUNCTION: ExAmlExternalWalkBegin
327bc36eafdSMike Gerdts *
328bc36eafdSMike Gerdts * PARAMETERS: ASL_WALK_CALLBACK
329bc36eafdSMike Gerdts *
330bc36eafdSMike Gerdts * RETURN: None
331bc36eafdSMike Gerdts *
332bc36eafdSMike Gerdts * DESCRIPTION: Parse tree walk to create external opcode list for methods.
333bc36eafdSMike Gerdts *
334bc36eafdSMike Gerdts ******************************************************************************/
335bc36eafdSMike Gerdts
336bc36eafdSMike Gerdts ACPI_STATUS
ExAmlExternalWalkBegin(ACPI_PARSE_OBJECT * Op,UINT32 Level,void * Context)337bc36eafdSMike Gerdts ExAmlExternalWalkBegin (
338bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Op,
339bc36eafdSMike Gerdts UINT32 Level,
340bc36eafdSMike Gerdts void *Context)
341bc36eafdSMike Gerdts {
342bc36eafdSMike Gerdts
343bc36eafdSMike Gerdts /* External list head saved in the definition block op */
344bc36eafdSMike Gerdts
345bc36eafdSMike Gerdts if (Op->Asl.ParseOpcode == PARSEOP_DEFINITION_BLOCK)
346bc36eafdSMike Gerdts {
347bc36eafdSMike Gerdts Gbl_ExternalsListHead = Op->Asl.Value.Arg;
348bc36eafdSMike Gerdts }
349bc36eafdSMike Gerdts
350bc36eafdSMike Gerdts if (!Gbl_ExternalsListHead)
351bc36eafdSMike Gerdts {
352bc36eafdSMike Gerdts return (AE_OK);
353bc36eafdSMike Gerdts }
354bc36eafdSMike Gerdts
355bc36eafdSMike Gerdts if (Op->Asl.ParseOpcode != PARSEOP_METHODCALL)
356bc36eafdSMike Gerdts {
357bc36eafdSMike Gerdts return (AE_OK);
358bc36eafdSMike Gerdts }
359bc36eafdSMike Gerdts
360bc36eafdSMike Gerdts /*
361bc36eafdSMike Gerdts * The NameOp child under an ExternalOp gets turned into PARSE_METHODCALL
362bc36eafdSMike Gerdts * by XfNamespaceLocateBegin(). Ignore these.
363bc36eafdSMike Gerdts */
364bc36eafdSMike Gerdts if (Op->Asl.Parent &&
365bc36eafdSMike Gerdts Op->Asl.Parent->Asl.ParseOpcode == PARSEOP_EXTERNAL)
366bc36eafdSMike Gerdts {
367bc36eafdSMike Gerdts return (AE_OK);
368bc36eafdSMike Gerdts }
369bc36eafdSMike Gerdts
370bc36eafdSMike Gerdts ExInsertArgCount (Op);
371bc36eafdSMike Gerdts return (AE_OK);
372bc36eafdSMike Gerdts }
373bc36eafdSMike Gerdts
374bc36eafdSMike Gerdts
375bc36eafdSMike Gerdts /*******************************************************************************
376bc36eafdSMike Gerdts *
377bc36eafdSMike Gerdts * FUNCTION: ExAmlExternalWalkEnd
378bc36eafdSMike Gerdts *
379bc36eafdSMike Gerdts * PARAMETERS: ASL_WALK_CALLBACK
380bc36eafdSMike Gerdts *
381bc36eafdSMike Gerdts * RETURN: None
382bc36eafdSMike Gerdts *
383bc36eafdSMike Gerdts * DESCRIPTION: Parse tree walk to create external opcode list for methods.
384bc36eafdSMike Gerdts * Here, we just want to catch the case where a definition block
385bc36eafdSMike Gerdts * has been completed. Then we move all of the externals into
386bc36eafdSMike Gerdts * a single block in the parse tree and thus the AML code.
387bc36eafdSMike Gerdts *
388bc36eafdSMike Gerdts ******************************************************************************/
389bc36eafdSMike Gerdts
390bc36eafdSMike Gerdts ACPI_STATUS
ExAmlExternalWalkEnd(ACPI_PARSE_OBJECT * Op,UINT32 Level,void * Context)391bc36eafdSMike Gerdts ExAmlExternalWalkEnd (
392bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Op,
393bc36eafdSMike Gerdts UINT32 Level,
394bc36eafdSMike Gerdts void *Context)
395bc36eafdSMike Gerdts {
396bc36eafdSMike Gerdts
397bc36eafdSMike Gerdts if (Op->Asl.ParseOpcode == PARSEOP_DEFINITION_BLOCK)
398bc36eafdSMike Gerdts {
399bc36eafdSMike Gerdts /*
400bc36eafdSMike Gerdts * Process any existing external list. (Support for
401bc36eafdSMike Gerdts * multiple definition blocks in a single file/compile)
402bc36eafdSMike Gerdts */
403bc36eafdSMike Gerdts ExMoveExternals (Op);
404bc36eafdSMike Gerdts Gbl_ExternalsListHead = NULL;
405bc36eafdSMike Gerdts }
406bc36eafdSMike Gerdts
407bc36eafdSMike Gerdts return (AE_OK);
408bc36eafdSMike Gerdts }
409bc36eafdSMike Gerdts
410bc36eafdSMike Gerdts
411bc36eafdSMike Gerdts /*******************************************************************************
412bc36eafdSMike Gerdts *
413bc36eafdSMike Gerdts * FUNCTION: ExMoveExternals
414bc36eafdSMike Gerdts *
415bc36eafdSMike Gerdts * PARAMETERS: DefinitionBlockOp - Op for current definition block
416bc36eafdSMike Gerdts *
417bc36eafdSMike Gerdts * RETURN: None
418bc36eafdSMike Gerdts *
419bc36eafdSMike Gerdts * DESCRIPTION: Move all externals present in the source file into a single
420bc36eafdSMike Gerdts * block of AML code, surrounded by an "If (0)" to prevent
421bc36eafdSMike Gerdts * AML interpreters from attempting to execute the External
422bc36eafdSMike Gerdts * opcodes.
423bc36eafdSMike Gerdts *
424bc36eafdSMike Gerdts ******************************************************************************/
425bc36eafdSMike Gerdts
426bc36eafdSMike Gerdts static void
ExMoveExternals(ACPI_PARSE_OBJECT * DefinitionBlockOp)427bc36eafdSMike Gerdts ExMoveExternals (
428bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *DefinitionBlockOp)
429bc36eafdSMike Gerdts {
430bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *ParentOp;
431bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *ExternalOp;
432bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *PredicateOp;
433bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *NextOp;
434bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Prev;
435bc36eafdSMike Gerdts ACPI_PARSE_OBJECT *Next;
436*35786f68SRobert Mustacchi char *ExternalName;
437bc36eafdSMike Gerdts ACPI_OBJECT_TYPE ObjType;
438*35786f68SRobert Mustacchi ACPI_STATUS Status;
439bc36eafdSMike Gerdts UINT32 i;
440bc36eafdSMike Gerdts
441bc36eafdSMike Gerdts
442bc36eafdSMike Gerdts if (!Gbl_ExternalsListHead)
443bc36eafdSMike Gerdts {
444bc36eafdSMike Gerdts return;
445bc36eafdSMike Gerdts }
446bc36eafdSMike Gerdts
447bc36eafdSMike Gerdts /* Remove the External nodes from the tree */
448bc36eafdSMike Gerdts
449bc36eafdSMike Gerdts NextOp = Gbl_ExternalsListHead;
450bc36eafdSMike Gerdts while (NextOp)
451bc36eafdSMike Gerdts {
452bc36eafdSMike Gerdts /*
453bc36eafdSMike Gerdts * The External is stored in child pointer of each node in the
454bc36eafdSMike Gerdts * list
455bc36eafdSMike Gerdts */
456bc36eafdSMike Gerdts ExternalOp = NextOp->Asl.Child;
457bc36eafdSMike Gerdts
458*35786f68SRobert Mustacchi /* Get/set the fully qualified name */
459*35786f68SRobert Mustacchi
460*35786f68SRobert Mustacchi ExternalName = AcpiNsGetNormalizedPathname (ExternalOp->Asl.Node, TRUE);
461*35786f68SRobert Mustacchi ExternalOp->Asl.ExternalName = ExternalName;
462*35786f68SRobert Mustacchi ExternalOp->Asl.Namepath = ExternalName;
463*35786f68SRobert Mustacchi
464bc36eafdSMike Gerdts /* Set line numbers (for listings, etc.) */
465bc36eafdSMike Gerdts
466bc36eafdSMike Gerdts ExternalOp->Asl.LineNumber = 0;
467bc36eafdSMike Gerdts ExternalOp->Asl.LogicalLineNumber = 0;
468bc36eafdSMike Gerdts
469bc36eafdSMike Gerdts Next = ExternalOp->Asl.Child;
470bc36eafdSMike Gerdts Next->Asl.LineNumber = 0;
471bc36eafdSMike Gerdts Next->Asl.LogicalLineNumber = 0;
472bc36eafdSMike Gerdts
473*35786f68SRobert Mustacchi if (Next->Asl.ParseOpcode == PARSEOP_NAMESEG)
474*35786f68SRobert Mustacchi {
475*35786f68SRobert Mustacchi Next->Asl.ParseOpcode = PARSEOP_NAMESTRING;
476*35786f68SRobert Mustacchi }
477*35786f68SRobert Mustacchi
478*35786f68SRobert Mustacchi Next->Asl.ExternalName = ExternalName;
479*35786f68SRobert Mustacchi Status = UtInternalizeName (ExternalName, &Next->Asl.Value.String);
480*35786f68SRobert Mustacchi if (ACPI_FAILURE (Status))
481*35786f68SRobert Mustacchi {
482*35786f68SRobert Mustacchi AslError (ASL_ERROR, ASL_MSG_COMPILER_INTERNAL,
483*35786f68SRobert Mustacchi Next, "Could not internalize namestring");
484*35786f68SRobert Mustacchi return;
485*35786f68SRobert Mustacchi }
486*35786f68SRobert Mustacchi
487*35786f68SRobert Mustacchi Next->Asl.AmlLength = strlen (Next->Asl.Value.String);
488*35786f68SRobert Mustacchi
489bc36eafdSMike Gerdts Next = Next->Asl.Next;
490bc36eafdSMike Gerdts Next->Asl.LineNumber = 0;
491bc36eafdSMike Gerdts Next->Asl.LogicalLineNumber = 0;
492bc36eafdSMike Gerdts
493bc36eafdSMike Gerdts Next = Next->Asl.Next;
494bc36eafdSMike Gerdts Next->Asl.LineNumber = 0;
495bc36eafdSMike Gerdts Next->Asl.LogicalLineNumber = 0;
496bc36eafdSMike Gerdts
497bc36eafdSMike Gerdts Next = Next->Asl.Next;
498bc36eafdSMike Gerdts Next->Asl.LineNumber = 0;
499bc36eafdSMike Gerdts Next->Asl.LogicalLineNumber = 0;
500bc36eafdSMike Gerdts
501bc36eafdSMike Gerdts ParentOp = ExternalOp->Asl.Parent;
502bc36eafdSMike Gerdts Prev = Next = ParentOp->Asl.Child;
503bc36eafdSMike Gerdts
504bc36eafdSMike Gerdts /* Now find the External node's position in parse tree */
505bc36eafdSMike Gerdts
506bc36eafdSMike Gerdts while (Next != ExternalOp)
507bc36eafdSMike Gerdts {
508bc36eafdSMike Gerdts Prev = Next;
509bc36eafdSMike Gerdts Next = Next->Asl.Next;
510bc36eafdSMike Gerdts }
511bc36eafdSMike Gerdts
512bc36eafdSMike Gerdts /* Remove the External from the parse tree */
513bc36eafdSMike Gerdts
514bc36eafdSMike Gerdts if (Prev == ExternalOp)
515bc36eafdSMike Gerdts {
516bc36eafdSMike Gerdts /* External was the first child node */
517bc36eafdSMike Gerdts
518bc36eafdSMike Gerdts ParentOp->Asl.Child = ExternalOp->Asl.Next;
519bc36eafdSMike Gerdts }
520bc36eafdSMike Gerdts
521bc36eafdSMike Gerdts Prev->Asl.Next = ExternalOp->Asl.Next;
522bc36eafdSMike Gerdts ExternalOp->Asl.Next = NULL;
523bc36eafdSMike Gerdts ExternalOp->Asl.Parent = Gbl_ExternalsListHead;
524bc36eafdSMike Gerdts
525bc36eafdSMike Gerdts /* Point the External to the next in the list */
526bc36eafdSMike Gerdts
527bc36eafdSMike Gerdts if (NextOp->Asl.Next)
528bc36eafdSMike Gerdts {
529bc36eafdSMike Gerdts ExternalOp->Asl.Next = NextOp->Asl.Next->Asl.Child;
530bc36eafdSMike Gerdts }
531bc36eafdSMike Gerdts
532bc36eafdSMike Gerdts NextOp = NextOp->Asl.Next;
533bc36eafdSMike Gerdts }
534bc36eafdSMike Gerdts
535bc36eafdSMike Gerdts /*
536bc36eafdSMike Gerdts * Loop again to remove MethodObj Externals for which
537bc36eafdSMike Gerdts * a MethodCall was not found (dead external reference)
538bc36eafdSMike Gerdts */
539bc36eafdSMike Gerdts Prev = Gbl_ExternalsListHead->Asl.Child;
540bc36eafdSMike Gerdts Next = Prev;
541bc36eafdSMike Gerdts while (Next)
542bc36eafdSMike Gerdts {
543bc36eafdSMike Gerdts ObjType = (ACPI_OBJECT_TYPE)
544bc36eafdSMike Gerdts Next->Asl.Child->Asl.Next->Asl.Value.Integer;
545bc36eafdSMike Gerdts
546bc36eafdSMike Gerdts if (ObjType == ACPI_TYPE_METHOD &&
547*35786f68SRobert Mustacchi !(Next->Asl.CompileFlags & OP_VISITED))
548bc36eafdSMike Gerdts {
549bc36eafdSMike Gerdts if (Next == Prev)
550bc36eafdSMike Gerdts {
551bc36eafdSMike Gerdts Gbl_ExternalsListHead->Asl.Child = Next->Asl.Next;
552bc36eafdSMike Gerdts Next->Asl.Next = NULL;
553bc36eafdSMike Gerdts Prev = Gbl_ExternalsListHead->Asl.Child;
554bc36eafdSMike Gerdts Next = Prev;
555bc36eafdSMike Gerdts continue;
556bc36eafdSMike Gerdts }
557bc36eafdSMike Gerdts else
558bc36eafdSMike Gerdts {
559bc36eafdSMike Gerdts Prev->Asl.Next = Next->Asl.Next;
560bc36eafdSMike Gerdts Next->Asl.Next = NULL;
561bc36eafdSMike Gerdts Next = Prev->Asl.Next;
562bc36eafdSMike Gerdts continue;
563bc36eafdSMike Gerdts }
564bc36eafdSMike Gerdts }
565bc36eafdSMike Gerdts
566bc36eafdSMike Gerdts Prev = Next;
567bc36eafdSMike Gerdts Next = Next->Asl.Next;
568bc36eafdSMike Gerdts }
569bc36eafdSMike Gerdts
570bc36eafdSMike Gerdts /* If list is now empty, don't bother to make If (0) block */
571bc36eafdSMike Gerdts
572bc36eafdSMike Gerdts if (!Gbl_ExternalsListHead->Asl.Child)
573bc36eafdSMike Gerdts {
574bc36eafdSMike Gerdts return;
575bc36eafdSMike Gerdts }
576bc36eafdSMike Gerdts
577bc36eafdSMike Gerdts /* Convert Gbl_ExternalsListHead parent to If(). */
578bc36eafdSMike Gerdts
579bc36eafdSMike Gerdts Gbl_ExternalsListHead->Asl.ParseOpcode = PARSEOP_IF;
580bc36eafdSMike Gerdts Gbl_ExternalsListHead->Asl.AmlOpcode = AML_IF_OP;
581*35786f68SRobert Mustacchi Gbl_ExternalsListHead->Asl.CompileFlags = OP_AML_PACKAGE;
582bc36eafdSMike Gerdts UtSetParseOpName (Gbl_ExternalsListHead);
583bc36eafdSMike Gerdts
584bc36eafdSMike Gerdts /* Create a Zero op for the If predicate */
585bc36eafdSMike Gerdts
586*35786f68SRobert Mustacchi PredicateOp = TrAllocateOp (PARSEOP_ZERO);
587bc36eafdSMike Gerdts PredicateOp->Asl.AmlOpcode = AML_ZERO_OP;
588bc36eafdSMike Gerdts
589bc36eafdSMike Gerdts PredicateOp->Asl.Parent = Gbl_ExternalsListHead;
590bc36eafdSMike Gerdts PredicateOp->Asl.Child = NULL;
591bc36eafdSMike Gerdts PredicateOp->Asl.Next = Gbl_ExternalsListHead->Asl.Child;
592bc36eafdSMike Gerdts Gbl_ExternalsListHead->Asl.Child = PredicateOp;
593bc36eafdSMike Gerdts
594bc36eafdSMike Gerdts /* Set line numbers (for listings, etc.) */
595bc36eafdSMike Gerdts
596bc36eafdSMike Gerdts Gbl_ExternalsListHead->Asl.LineNumber = 0;
597bc36eafdSMike Gerdts Gbl_ExternalsListHead->Asl.LogicalLineNumber = 0;
598bc36eafdSMike Gerdts
599bc36eafdSMike Gerdts PredicateOp->Asl.LineNumber = 0;
600bc36eafdSMike Gerdts PredicateOp->Asl.LogicalLineNumber = 0;
601bc36eafdSMike Gerdts
602bc36eafdSMike Gerdts /* Insert block back in the list */
603bc36eafdSMike Gerdts
604bc36eafdSMike Gerdts Prev = DefinitionBlockOp->Asl.Child;
605bc36eafdSMike Gerdts Next = Prev;
606bc36eafdSMike Gerdts
607bc36eafdSMike Gerdts /* Find last default arg */
608bc36eafdSMike Gerdts
609bc36eafdSMike Gerdts for (i = 0; i < 6; i++)
610bc36eafdSMike Gerdts {
611bc36eafdSMike Gerdts Prev = Next;
612bc36eafdSMike Gerdts Next = Prev->Asl.Next;
613bc36eafdSMike Gerdts }
614bc36eafdSMike Gerdts
615bc36eafdSMike Gerdts if (Next)
616bc36eafdSMike Gerdts {
617bc36eafdSMike Gerdts /* Definition Block is not empty */
618bc36eafdSMike Gerdts
619bc36eafdSMike Gerdts Gbl_ExternalsListHead->Asl.Next = Next;
620bc36eafdSMike Gerdts }
621bc36eafdSMike Gerdts else
622bc36eafdSMike Gerdts {
623bc36eafdSMike Gerdts /* Definition Block is empty. */
624bc36eafdSMike Gerdts
625bc36eafdSMike Gerdts Gbl_ExternalsListHead->Asl.Next = NULL;
626bc36eafdSMike Gerdts }
627bc36eafdSMike Gerdts
628bc36eafdSMike Gerdts Prev->Asl.Next = Gbl_ExternalsListHead;
629bc36eafdSMike Gerdts Gbl_ExternalsListHead->Asl.Parent = Prev->Asl.Parent;
630bc36eafdSMike Gerdts }
631