aslexternal.c revision 1.1.1.3.2.2
1 1.1.1.3.2.2 jdolecek /****************************************************************************** 2 1.1.1.3.2.2 jdolecek * 3 1.1.1.3.2.2 jdolecek * Module Name: aslexternal - ASL External opcode compiler support 4 1.1.1.3.2.2 jdolecek * 5 1.1.1.3.2.2 jdolecek *****************************************************************************/ 6 1.1.1.3.2.2 jdolecek 7 1.1.1.3.2.2 jdolecek /* 8 1.1.1.3.2.2 jdolecek * Copyright (C) 2000 - 2017, Intel Corp. 9 1.1.1.3.2.2 jdolecek * All rights reserved. 10 1.1.1.3.2.2 jdolecek * 11 1.1.1.3.2.2 jdolecek * Redistribution and use in source and binary forms, with or without 12 1.1.1.3.2.2 jdolecek * modification, are permitted provided that the following conditions 13 1.1.1.3.2.2 jdolecek * are met: 14 1.1.1.3.2.2 jdolecek * 1. Redistributions of source code must retain the above copyright 15 1.1.1.3.2.2 jdolecek * notice, this list of conditions, and the following disclaimer, 16 1.1.1.3.2.2 jdolecek * without modification. 17 1.1.1.3.2.2 jdolecek * 2. Redistributions in binary form must reproduce at minimum a disclaimer 18 1.1.1.3.2.2 jdolecek * substantially similar to the "NO WARRANTY" disclaimer below 19 1.1.1.3.2.2 jdolecek * ("Disclaimer") and any redistribution must be conditioned upon 20 1.1.1.3.2.2 jdolecek * including a substantially similar Disclaimer requirement for further 21 1.1.1.3.2.2 jdolecek * binary redistribution. 22 1.1.1.3.2.2 jdolecek * 3. Neither the names of the above-listed copyright holders nor the names 23 1.1.1.3.2.2 jdolecek * of any contributors may be used to endorse or promote products derived 24 1.1.1.3.2.2 jdolecek * from this software without specific prior written permission. 25 1.1.1.3.2.2 jdolecek * 26 1.1.1.3.2.2 jdolecek * Alternatively, this software may be distributed under the terms of the 27 1.1.1.3.2.2 jdolecek * GNU General Public License ("GPL") version 2 as published by the Free 28 1.1.1.3.2.2 jdolecek * Software Foundation. 29 1.1.1.3.2.2 jdolecek * 30 1.1.1.3.2.2 jdolecek * NO WARRANTY 31 1.1.1.3.2.2 jdolecek * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 32 1.1.1.3.2.2 jdolecek * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 33 1.1.1.3.2.2 jdolecek * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR 34 1.1.1.3.2.2 jdolecek * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 35 1.1.1.3.2.2 jdolecek * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 36 1.1.1.3.2.2 jdolecek * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 37 1.1.1.3.2.2 jdolecek * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 38 1.1.1.3.2.2 jdolecek * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 39 1.1.1.3.2.2 jdolecek * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 40 1.1.1.3.2.2 jdolecek * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 41 1.1.1.3.2.2 jdolecek * POSSIBILITY OF SUCH DAMAGES. 42 1.1.1.3.2.2 jdolecek */ 43 1.1.1.3.2.2 jdolecek 44 1.1.1.3.2.2 jdolecek #include "aslcompiler.h" 45 1.1.1.3.2.2 jdolecek #include "aslcompiler.y.h" 46 1.1.1.3.2.2 jdolecek #include "acparser.h" 47 1.1.1.3.2.2 jdolecek #include "amlcode.h" 48 1.1.1.3.2.2 jdolecek #include "acnamesp.h" 49 1.1.1.3.2.2 jdolecek 50 1.1.1.3.2.2 jdolecek 51 1.1.1.3.2.2 jdolecek #define _COMPONENT ACPI_COMPILER 52 1.1.1.3.2.2 jdolecek ACPI_MODULE_NAME ("aslexternal") 53 1.1.1.3.2.2 jdolecek 54 1.1.1.3.2.2 jdolecek 55 1.1.1.3.2.2 jdolecek /* Local prototypes */ 56 1.1.1.3.2.2 jdolecek 57 1.1.1.3.2.2 jdolecek static void 58 1.1.1.3.2.2 jdolecek ExInsertArgCount ( 59 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Op); 60 1.1.1.3.2.2 jdolecek 61 1.1.1.3.2.2 jdolecek static void 62 1.1.1.3.2.2 jdolecek ExMoveExternals ( 63 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *DefinitionBlockOp); 64 1.1.1.3.2.2 jdolecek 65 1.1.1.3.2.2 jdolecek 66 1.1.1.3.2.2 jdolecek /******************************************************************************* 67 1.1.1.3.2.2 jdolecek * 68 1.1.1.3.2.2 jdolecek * FUNCTION: ExDoExternal 69 1.1.1.3.2.2 jdolecek * 70 1.1.1.3.2.2 jdolecek * PARAMETERS: Op - Current Parse node 71 1.1.1.3.2.2 jdolecek * 72 1.1.1.3.2.2 jdolecek * RETURN: None 73 1.1.1.3.2.2 jdolecek * 74 1.1.1.3.2.2 jdolecek * DESCRIPTION: Add an External() definition to the global list. This list 75 1.1.1.3.2.2 jdolecek * is used to generate External opcodes. 76 1.1.1.3.2.2 jdolecek * 77 1.1.1.3.2.2 jdolecek ******************************************************************************/ 78 1.1.1.3.2.2 jdolecek 79 1.1.1.3.2.2 jdolecek void 80 1.1.1.3.2.2 jdolecek ExDoExternal ( 81 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Op) 82 1.1.1.3.2.2 jdolecek { 83 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *ListOp; 84 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Prev; 85 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Next; 86 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *ArgCountOp; 87 1.1.1.3.2.2 jdolecek 88 1.1.1.3.2.2 jdolecek 89 1.1.1.3.2.2 jdolecek ArgCountOp = Op->Asl.Child->Asl.Next->Asl.Next; 90 1.1.1.3.2.2 jdolecek ArgCountOp->Asl.AmlOpcode = AML_RAW_DATA_BYTE; 91 1.1.1.3.2.2 jdolecek ArgCountOp->Asl.ParseOpcode = PARSEOP_BYTECONST; 92 1.1.1.3.2.2 jdolecek ArgCountOp->Asl.Value.Integer = 0; 93 1.1.1.3.2.2 jdolecek UtSetParseOpName (ArgCountOp); 94 1.1.1.3.2.2 jdolecek 95 1.1.1.3.2.2 jdolecek /* Create new list node of arbitrary type */ 96 1.1.1.3.2.2 jdolecek 97 1.1.1.3.2.2 jdolecek ListOp = TrAllocateOp (PARSEOP_DEFAULT_ARG); 98 1.1.1.3.2.2 jdolecek 99 1.1.1.3.2.2 jdolecek /* Store External node as child */ 100 1.1.1.3.2.2 jdolecek 101 1.1.1.3.2.2 jdolecek ListOp->Asl.Child = Op; 102 1.1.1.3.2.2 jdolecek ListOp->Asl.Next = NULL; 103 1.1.1.3.2.2 jdolecek 104 1.1.1.3.2.2 jdolecek if (Gbl_ExternalsListHead) 105 1.1.1.3.2.2 jdolecek { 106 1.1.1.3.2.2 jdolecek /* Link new External to end of list */ 107 1.1.1.3.2.2 jdolecek 108 1.1.1.3.2.2 jdolecek Prev = Gbl_ExternalsListHead; 109 1.1.1.3.2.2 jdolecek Next = Prev; 110 1.1.1.3.2.2 jdolecek while (Next) 111 1.1.1.3.2.2 jdolecek { 112 1.1.1.3.2.2 jdolecek Prev = Next; 113 1.1.1.3.2.2 jdolecek Next = Next->Asl.Next; 114 1.1.1.3.2.2 jdolecek } 115 1.1.1.3.2.2 jdolecek 116 1.1.1.3.2.2 jdolecek Prev->Asl.Next = ListOp; 117 1.1.1.3.2.2 jdolecek } 118 1.1.1.3.2.2 jdolecek else 119 1.1.1.3.2.2 jdolecek { 120 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead = ListOp; 121 1.1.1.3.2.2 jdolecek } 122 1.1.1.3.2.2 jdolecek } 123 1.1.1.3.2.2 jdolecek 124 1.1.1.3.2.2 jdolecek 125 1.1.1.3.2.2 jdolecek /******************************************************************************* 126 1.1.1.3.2.2 jdolecek * 127 1.1.1.3.2.2 jdolecek * FUNCTION: ExInsertArgCount 128 1.1.1.3.2.2 jdolecek * 129 1.1.1.3.2.2 jdolecek * PARAMETERS: Op - Op for a method invocation 130 1.1.1.3.2.2 jdolecek * 131 1.1.1.3.2.2 jdolecek * RETURN: None 132 1.1.1.3.2.2 jdolecek * 133 1.1.1.3.2.2 jdolecek * DESCRIPTION: Obtain the number of arguments for a control method -- from 134 1.1.1.3.2.2 jdolecek * the actual invocation. 135 1.1.1.3.2.2 jdolecek * 136 1.1.1.3.2.2 jdolecek ******************************************************************************/ 137 1.1.1.3.2.2 jdolecek 138 1.1.1.3.2.2 jdolecek static void 139 1.1.1.3.2.2 jdolecek ExInsertArgCount ( 140 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Op) 141 1.1.1.3.2.2 jdolecek { 142 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Next; 143 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *NameOp; 144 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Child; 145 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *ArgCountOp; 146 1.1.1.3.2.2 jdolecek char * ExternalName; 147 1.1.1.3.2.2 jdolecek char * CallName; 148 1.1.1.3.2.2 jdolecek UINT16 ArgCount = 0; 149 1.1.1.3.2.2 jdolecek ACPI_STATUS Status; 150 1.1.1.3.2.2 jdolecek 151 1.1.1.3.2.2 jdolecek 152 1.1.1.3.2.2 jdolecek CallName = AcpiNsGetNormalizedPathname (Op->Asl.Node, TRUE); 153 1.1.1.3.2.2 jdolecek 154 1.1.1.3.2.2 jdolecek Next = Gbl_ExternalsListHead; 155 1.1.1.3.2.2 jdolecek while (Next) 156 1.1.1.3.2.2 jdolecek { 157 1.1.1.3.2.2 jdolecek ArgCount = 0; 158 1.1.1.3.2.2 jdolecek 159 1.1.1.3.2.2 jdolecek /* Skip if External node already handled */ 160 1.1.1.3.2.2 jdolecek 161 1.1.1.3.2.2 jdolecek if (Next->Asl.Child->Asl.CompileFlags & OP_VISITED) 162 1.1.1.3.2.2 jdolecek { 163 1.1.1.3.2.2 jdolecek Next = Next->Asl.Next; 164 1.1.1.3.2.2 jdolecek continue; 165 1.1.1.3.2.2 jdolecek } 166 1.1.1.3.2.2 jdolecek 167 1.1.1.3.2.2 jdolecek NameOp = Next->Asl.Child->Asl.Child; 168 1.1.1.3.2.2 jdolecek ExternalName = AcpiNsGetNormalizedPathname (NameOp->Asl.Node, TRUE); 169 1.1.1.3.2.2 jdolecek 170 1.1.1.3.2.2 jdolecek if (strcmp (CallName, ExternalName)) 171 1.1.1.3.2.2 jdolecek { 172 1.1.1.3.2.2 jdolecek ACPI_FREE (ExternalName); 173 1.1.1.3.2.2 jdolecek Next = Next->Asl.Next; 174 1.1.1.3.2.2 jdolecek continue; 175 1.1.1.3.2.2 jdolecek } 176 1.1.1.3.2.2 jdolecek 177 1.1.1.3.2.2 jdolecek Next->Asl.Child->Asl.CompileFlags |= OP_VISITED; 178 1.1.1.3.2.2 jdolecek 179 1.1.1.3.2.2 jdolecek /* 180 1.1.1.3.2.2 jdolecek * Since we will reposition Externals to the Root, set Namepath 181 1.1.1.3.2.2 jdolecek * to the fully qualified name and recalculate the aml length 182 1.1.1.3.2.2 jdolecek */ 183 1.1.1.3.2.2 jdolecek Status = UtInternalizeName (ExternalName, 184 1.1.1.3.2.2 jdolecek &NameOp->Asl.Value.String); 185 1.1.1.3.2.2 jdolecek 186 1.1.1.3.2.2 jdolecek ACPI_FREE (ExternalName); 187 1.1.1.3.2.2 jdolecek if (ACPI_FAILURE (Status)) 188 1.1.1.3.2.2 jdolecek { 189 1.1.1.3.2.2 jdolecek AslError (ASL_ERROR, ASL_MSG_COMPILER_INTERNAL, 190 1.1.1.3.2.2 jdolecek NULL, "- Could not Internalize External"); 191 1.1.1.3.2.2 jdolecek break; 192 1.1.1.3.2.2 jdolecek } 193 1.1.1.3.2.2 jdolecek 194 1.1.1.3.2.2 jdolecek NameOp->Asl.AmlLength = strlen (NameOp->Asl.Value.String); 195 1.1.1.3.2.2 jdolecek 196 1.1.1.3.2.2 jdolecek /* Get argument count */ 197 1.1.1.3.2.2 jdolecek 198 1.1.1.3.2.2 jdolecek Child = Op->Asl.Child; 199 1.1.1.3.2.2 jdolecek while (Child) 200 1.1.1.3.2.2 jdolecek { 201 1.1.1.3.2.2 jdolecek ArgCount++; 202 1.1.1.3.2.2 jdolecek Child = Child->Asl.Next; 203 1.1.1.3.2.2 jdolecek } 204 1.1.1.3.2.2 jdolecek 205 1.1.1.3.2.2 jdolecek /* Setup ArgCount operand */ 206 1.1.1.3.2.2 jdolecek 207 1.1.1.3.2.2 jdolecek ArgCountOp = Next->Asl.Child->Asl.Child->Asl.Next->Asl.Next; 208 1.1.1.3.2.2 jdolecek ArgCountOp->Asl.Value.Integer = ArgCount; 209 1.1.1.3.2.2 jdolecek break; 210 1.1.1.3.2.2 jdolecek } 211 1.1.1.3.2.2 jdolecek 212 1.1.1.3.2.2 jdolecek ACPI_FREE (CallName); 213 1.1.1.3.2.2 jdolecek } 214 1.1.1.3.2.2 jdolecek 215 1.1.1.3.2.2 jdolecek 216 1.1.1.3.2.2 jdolecek /******************************************************************************* 217 1.1.1.3.2.2 jdolecek * 218 1.1.1.3.2.2 jdolecek * FUNCTION: ExAmlExternalWalkBegin 219 1.1.1.3.2.2 jdolecek * 220 1.1.1.3.2.2 jdolecek * PARAMETERS: ASL_WALK_CALLBACK 221 1.1.1.3.2.2 jdolecek * 222 1.1.1.3.2.2 jdolecek * RETURN: None 223 1.1.1.3.2.2 jdolecek * 224 1.1.1.3.2.2 jdolecek * DESCRIPTION: Parse tree walk to create external opcode list for methods. 225 1.1.1.3.2.2 jdolecek * 226 1.1.1.3.2.2 jdolecek ******************************************************************************/ 227 1.1.1.3.2.2 jdolecek 228 1.1.1.3.2.2 jdolecek ACPI_STATUS 229 1.1.1.3.2.2 jdolecek ExAmlExternalWalkBegin ( 230 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Op, 231 1.1.1.3.2.2 jdolecek UINT32 Level, 232 1.1.1.3.2.2 jdolecek void *Context) 233 1.1.1.3.2.2 jdolecek { 234 1.1.1.3.2.2 jdolecek 235 1.1.1.3.2.2 jdolecek /* External list head saved in the definition block op */ 236 1.1.1.3.2.2 jdolecek 237 1.1.1.3.2.2 jdolecek if (Op->Asl.ParseOpcode == PARSEOP_DEFINITION_BLOCK) 238 1.1.1.3.2.2 jdolecek { 239 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead = Op->Asl.Value.Arg; 240 1.1.1.3.2.2 jdolecek } 241 1.1.1.3.2.2 jdolecek 242 1.1.1.3.2.2 jdolecek if (!Gbl_ExternalsListHead) 243 1.1.1.3.2.2 jdolecek { 244 1.1.1.3.2.2 jdolecek return (AE_OK); 245 1.1.1.3.2.2 jdolecek } 246 1.1.1.3.2.2 jdolecek 247 1.1.1.3.2.2 jdolecek if (Op->Asl.ParseOpcode != PARSEOP_METHODCALL) 248 1.1.1.3.2.2 jdolecek { 249 1.1.1.3.2.2 jdolecek return (AE_OK); 250 1.1.1.3.2.2 jdolecek } 251 1.1.1.3.2.2 jdolecek 252 1.1.1.3.2.2 jdolecek /* 253 1.1.1.3.2.2 jdolecek * The NameOp child under an ExternalOp gets turned into PARSE_METHODCALL 254 1.1.1.3.2.2 jdolecek * by XfNamespaceLocateBegin(). Ignore these. 255 1.1.1.3.2.2 jdolecek */ 256 1.1.1.3.2.2 jdolecek if (Op->Asl.Parent && 257 1.1.1.3.2.2 jdolecek Op->Asl.Parent->Asl.ParseOpcode == PARSEOP_EXTERNAL) 258 1.1.1.3.2.2 jdolecek { 259 1.1.1.3.2.2 jdolecek return (AE_OK); 260 1.1.1.3.2.2 jdolecek } 261 1.1.1.3.2.2 jdolecek 262 1.1.1.3.2.2 jdolecek ExInsertArgCount (Op); 263 1.1.1.3.2.2 jdolecek return (AE_OK); 264 1.1.1.3.2.2 jdolecek } 265 1.1.1.3.2.2 jdolecek 266 1.1.1.3.2.2 jdolecek 267 1.1.1.3.2.2 jdolecek /******************************************************************************* 268 1.1.1.3.2.2 jdolecek * 269 1.1.1.3.2.2 jdolecek * FUNCTION: ExAmlExternalWalkEnd 270 1.1.1.3.2.2 jdolecek * 271 1.1.1.3.2.2 jdolecek * PARAMETERS: ASL_WALK_CALLBACK 272 1.1.1.3.2.2 jdolecek * 273 1.1.1.3.2.2 jdolecek * RETURN: None 274 1.1.1.3.2.2 jdolecek * 275 1.1.1.3.2.2 jdolecek * DESCRIPTION: Parse tree walk to create external opcode list for methods. 276 1.1.1.3.2.2 jdolecek * Here, we just want to catch the case where a definition block 277 1.1.1.3.2.2 jdolecek * has been completed. Then we move all of the externals into 278 1.1.1.3.2.2 jdolecek * a single block in the parse tree and thus the AML code. 279 1.1.1.3.2.2 jdolecek * 280 1.1.1.3.2.2 jdolecek ******************************************************************************/ 281 1.1.1.3.2.2 jdolecek 282 1.1.1.3.2.2 jdolecek ACPI_STATUS 283 1.1.1.3.2.2 jdolecek ExAmlExternalWalkEnd ( 284 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Op, 285 1.1.1.3.2.2 jdolecek UINT32 Level, 286 1.1.1.3.2.2 jdolecek void *Context) 287 1.1.1.3.2.2 jdolecek { 288 1.1.1.3.2.2 jdolecek 289 1.1.1.3.2.2 jdolecek if (Op->Asl.ParseOpcode == PARSEOP_DEFINITION_BLOCK) 290 1.1.1.3.2.2 jdolecek { 291 1.1.1.3.2.2 jdolecek /* 292 1.1.1.3.2.2 jdolecek * Process any existing external list. (Support for 293 1.1.1.3.2.2 jdolecek * multiple definition blocks in a single file/compile) 294 1.1.1.3.2.2 jdolecek */ 295 1.1.1.3.2.2 jdolecek ExMoveExternals (Op); 296 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead = NULL; 297 1.1.1.3.2.2 jdolecek } 298 1.1.1.3.2.2 jdolecek 299 1.1.1.3.2.2 jdolecek return (AE_OK); 300 1.1.1.3.2.2 jdolecek } 301 1.1.1.3.2.2 jdolecek 302 1.1.1.3.2.2 jdolecek 303 1.1.1.3.2.2 jdolecek /******************************************************************************* 304 1.1.1.3.2.2 jdolecek * 305 1.1.1.3.2.2 jdolecek * FUNCTION: ExMoveExternals 306 1.1.1.3.2.2 jdolecek * 307 1.1.1.3.2.2 jdolecek * PARAMETERS: DefinitionBlockOp - Op for current definition block 308 1.1.1.3.2.2 jdolecek * 309 1.1.1.3.2.2 jdolecek * RETURN: None 310 1.1.1.3.2.2 jdolecek * 311 1.1.1.3.2.2 jdolecek * DESCRIPTION: Move all externals present in the source file into a single 312 1.1.1.3.2.2 jdolecek * block of AML code, surrounded by an "If (0)" to prevent 313 1.1.1.3.2.2 jdolecek * AML interpreters from attempting to execute the External 314 1.1.1.3.2.2 jdolecek * opcodes. 315 1.1.1.3.2.2 jdolecek * 316 1.1.1.3.2.2 jdolecek ******************************************************************************/ 317 1.1.1.3.2.2 jdolecek 318 1.1.1.3.2.2 jdolecek static void 319 1.1.1.3.2.2 jdolecek ExMoveExternals ( 320 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *DefinitionBlockOp) 321 1.1.1.3.2.2 jdolecek { 322 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *ParentOp; 323 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *ExternalOp; 324 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *PredicateOp; 325 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *NextOp; 326 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Prev; 327 1.1.1.3.2.2 jdolecek ACPI_PARSE_OBJECT *Next; 328 1.1.1.3.2.2 jdolecek char *ExternalName; 329 1.1.1.3.2.2 jdolecek ACPI_OBJECT_TYPE ObjType; 330 1.1.1.3.2.2 jdolecek ACPI_STATUS Status; 331 1.1.1.3.2.2 jdolecek UINT32 i; 332 1.1.1.3.2.2 jdolecek 333 1.1.1.3.2.2 jdolecek 334 1.1.1.3.2.2 jdolecek if (!Gbl_ExternalsListHead) 335 1.1.1.3.2.2 jdolecek { 336 1.1.1.3.2.2 jdolecek return; 337 1.1.1.3.2.2 jdolecek } 338 1.1.1.3.2.2 jdolecek 339 1.1.1.3.2.2 jdolecek /* Remove the External nodes from the tree */ 340 1.1.1.3.2.2 jdolecek 341 1.1.1.3.2.2 jdolecek NextOp = Gbl_ExternalsListHead; 342 1.1.1.3.2.2 jdolecek while (NextOp) 343 1.1.1.3.2.2 jdolecek { 344 1.1.1.3.2.2 jdolecek /* 345 1.1.1.3.2.2 jdolecek * The External is stored in child pointer of each node in the 346 1.1.1.3.2.2 jdolecek * list 347 1.1.1.3.2.2 jdolecek */ 348 1.1.1.3.2.2 jdolecek ExternalOp = NextOp->Asl.Child; 349 1.1.1.3.2.2 jdolecek 350 1.1.1.3.2.2 jdolecek /* Get/set the fully qualified name */ 351 1.1.1.3.2.2 jdolecek 352 1.1.1.3.2.2 jdolecek ExternalName = AcpiNsGetNormalizedPathname (ExternalOp->Asl.Node, TRUE); 353 1.1.1.3.2.2 jdolecek ExternalOp->Asl.ExternalName = ExternalName; 354 1.1.1.3.2.2 jdolecek ExternalOp->Asl.Namepath = ExternalName; 355 1.1.1.3.2.2 jdolecek 356 1.1.1.3.2.2 jdolecek /* Set line numbers (for listings, etc.) */ 357 1.1.1.3.2.2 jdolecek 358 1.1.1.3.2.2 jdolecek ExternalOp->Asl.LineNumber = 0; 359 1.1.1.3.2.2 jdolecek ExternalOp->Asl.LogicalLineNumber = 0; 360 1.1.1.3.2.2 jdolecek 361 1.1.1.3.2.2 jdolecek Next = ExternalOp->Asl.Child; 362 1.1.1.3.2.2 jdolecek Next->Asl.LineNumber = 0; 363 1.1.1.3.2.2 jdolecek Next->Asl.LogicalLineNumber = 0; 364 1.1.1.3.2.2 jdolecek 365 1.1.1.3.2.2 jdolecek if (Next->Asl.ParseOpcode == PARSEOP_NAMESEG) 366 1.1.1.3.2.2 jdolecek { 367 1.1.1.3.2.2 jdolecek Next->Asl.ParseOpcode = PARSEOP_NAMESTRING; 368 1.1.1.3.2.2 jdolecek } 369 1.1.1.3.2.2 jdolecek 370 1.1.1.3.2.2 jdolecek Next->Asl.ExternalName = ExternalName; 371 1.1.1.3.2.2 jdolecek Status = UtInternalizeName (ExternalName, &Next->Asl.Value.String); 372 1.1.1.3.2.2 jdolecek if (ACPI_FAILURE (Status)) 373 1.1.1.3.2.2 jdolecek { 374 1.1.1.3.2.2 jdolecek AslError (ASL_ERROR, ASL_MSG_COMPILER_INTERNAL, 375 1.1.1.3.2.2 jdolecek Next, "Could not internalize namestring"); 376 1.1.1.3.2.2 jdolecek return; 377 1.1.1.3.2.2 jdolecek } 378 1.1.1.3.2.2 jdolecek 379 1.1.1.3.2.2 jdolecek Next->Asl.AmlLength = strlen (Next->Asl.Value.String); 380 1.1.1.3.2.2 jdolecek 381 1.1.1.3.2.2 jdolecek Next = Next->Asl.Next; 382 1.1.1.3.2.2 jdolecek Next->Asl.LineNumber = 0; 383 1.1.1.3.2.2 jdolecek Next->Asl.LogicalLineNumber = 0; 384 1.1.1.3.2.2 jdolecek 385 1.1.1.3.2.2 jdolecek Next = Next->Asl.Next; 386 1.1.1.3.2.2 jdolecek Next->Asl.LineNumber = 0; 387 1.1.1.3.2.2 jdolecek Next->Asl.LogicalLineNumber = 0; 388 1.1.1.3.2.2 jdolecek 389 1.1.1.3.2.2 jdolecek Next = Next->Asl.Next; 390 1.1.1.3.2.2 jdolecek Next->Asl.LineNumber = 0; 391 1.1.1.3.2.2 jdolecek Next->Asl.LogicalLineNumber = 0; 392 1.1.1.3.2.2 jdolecek 393 1.1.1.3.2.2 jdolecek ParentOp = ExternalOp->Asl.Parent; 394 1.1.1.3.2.2 jdolecek Prev = Next = ParentOp->Asl.Child; 395 1.1.1.3.2.2 jdolecek 396 1.1.1.3.2.2 jdolecek /* Now find the External node's position in parse tree */ 397 1.1.1.3.2.2 jdolecek 398 1.1.1.3.2.2 jdolecek while (Next != ExternalOp) 399 1.1.1.3.2.2 jdolecek { 400 1.1.1.3.2.2 jdolecek Prev = Next; 401 1.1.1.3.2.2 jdolecek Next = Next->Asl.Next; 402 1.1.1.3.2.2 jdolecek } 403 1.1.1.3.2.2 jdolecek 404 1.1.1.3.2.2 jdolecek /* Remove the External from the parse tree */ 405 1.1.1.3.2.2 jdolecek 406 1.1.1.3.2.2 jdolecek if (Prev == ExternalOp) 407 1.1.1.3.2.2 jdolecek { 408 1.1.1.3.2.2 jdolecek /* External was the first child node */ 409 1.1.1.3.2.2 jdolecek 410 1.1.1.3.2.2 jdolecek ParentOp->Asl.Child = ExternalOp->Asl.Next; 411 1.1.1.3.2.2 jdolecek } 412 1.1.1.3.2.2 jdolecek 413 1.1.1.3.2.2 jdolecek Prev->Asl.Next = ExternalOp->Asl.Next; 414 1.1.1.3.2.2 jdolecek ExternalOp->Asl.Next = NULL; 415 1.1.1.3.2.2 jdolecek ExternalOp->Asl.Parent = Gbl_ExternalsListHead; 416 1.1.1.3.2.2 jdolecek 417 1.1.1.3.2.2 jdolecek /* Point the External to the next in the list */ 418 1.1.1.3.2.2 jdolecek 419 1.1.1.3.2.2 jdolecek if (NextOp->Asl.Next) 420 1.1.1.3.2.2 jdolecek { 421 1.1.1.3.2.2 jdolecek ExternalOp->Asl.Next = NextOp->Asl.Next->Asl.Child; 422 1.1.1.3.2.2 jdolecek } 423 1.1.1.3.2.2 jdolecek 424 1.1.1.3.2.2 jdolecek NextOp = NextOp->Asl.Next; 425 1.1.1.3.2.2 jdolecek } 426 1.1.1.3.2.2 jdolecek 427 1.1.1.3.2.2 jdolecek /* 428 1.1.1.3.2.2 jdolecek * Loop again to remove MethodObj Externals for which 429 1.1.1.3.2.2 jdolecek * a MethodCall was not found (dead external reference) 430 1.1.1.3.2.2 jdolecek */ 431 1.1.1.3.2.2 jdolecek Prev = Gbl_ExternalsListHead->Asl.Child; 432 1.1.1.3.2.2 jdolecek Next = Prev; 433 1.1.1.3.2.2 jdolecek while (Next) 434 1.1.1.3.2.2 jdolecek { 435 1.1.1.3.2.2 jdolecek ObjType = (ACPI_OBJECT_TYPE) 436 1.1.1.3.2.2 jdolecek Next->Asl.Child->Asl.Next->Asl.Value.Integer; 437 1.1.1.3.2.2 jdolecek 438 1.1.1.3.2.2 jdolecek if (ObjType == ACPI_TYPE_METHOD && 439 1.1.1.3.2.2 jdolecek !(Next->Asl.CompileFlags & OP_VISITED)) 440 1.1.1.3.2.2 jdolecek { 441 1.1.1.3.2.2 jdolecek if (Next == Prev) 442 1.1.1.3.2.2 jdolecek { 443 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.Child = Next->Asl.Next; 444 1.1.1.3.2.2 jdolecek Next->Asl.Next = NULL; 445 1.1.1.3.2.2 jdolecek Prev = Gbl_ExternalsListHead->Asl.Child; 446 1.1.1.3.2.2 jdolecek Next = Prev; 447 1.1.1.3.2.2 jdolecek continue; 448 1.1.1.3.2.2 jdolecek } 449 1.1.1.3.2.2 jdolecek else 450 1.1.1.3.2.2 jdolecek { 451 1.1.1.3.2.2 jdolecek Prev->Asl.Next = Next->Asl.Next; 452 1.1.1.3.2.2 jdolecek Next->Asl.Next = NULL; 453 1.1.1.3.2.2 jdolecek Next = Prev->Asl.Next; 454 1.1.1.3.2.2 jdolecek continue; 455 1.1.1.3.2.2 jdolecek } 456 1.1.1.3.2.2 jdolecek } 457 1.1.1.3.2.2 jdolecek 458 1.1.1.3.2.2 jdolecek Prev = Next; 459 1.1.1.3.2.2 jdolecek Next = Next->Asl.Next; 460 1.1.1.3.2.2 jdolecek } 461 1.1.1.3.2.2 jdolecek 462 1.1.1.3.2.2 jdolecek /* If list is now empty, don't bother to make If (0) block */ 463 1.1.1.3.2.2 jdolecek 464 1.1.1.3.2.2 jdolecek if (!Gbl_ExternalsListHead->Asl.Child) 465 1.1.1.3.2.2 jdolecek { 466 1.1.1.3.2.2 jdolecek return; 467 1.1.1.3.2.2 jdolecek } 468 1.1.1.3.2.2 jdolecek 469 1.1.1.3.2.2 jdolecek /* Convert Gbl_ExternalsListHead parent to If(). */ 470 1.1.1.3.2.2 jdolecek 471 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.ParseOpcode = PARSEOP_IF; 472 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.AmlOpcode = AML_IF_OP; 473 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.CompileFlags = OP_AML_PACKAGE; 474 1.1.1.3.2.2 jdolecek UtSetParseOpName (Gbl_ExternalsListHead); 475 1.1.1.3.2.2 jdolecek 476 1.1.1.3.2.2 jdolecek /* Create a Zero op for the If predicate */ 477 1.1.1.3.2.2 jdolecek 478 1.1.1.3.2.2 jdolecek PredicateOp = TrAllocateOp (PARSEOP_ZERO); 479 1.1.1.3.2.2 jdolecek PredicateOp->Asl.AmlOpcode = AML_ZERO_OP; 480 1.1.1.3.2.2 jdolecek 481 1.1.1.3.2.2 jdolecek PredicateOp->Asl.Parent = Gbl_ExternalsListHead; 482 1.1.1.3.2.2 jdolecek PredicateOp->Asl.Child = NULL; 483 1.1.1.3.2.2 jdolecek PredicateOp->Asl.Next = Gbl_ExternalsListHead->Asl.Child; 484 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.Child = PredicateOp; 485 1.1.1.3.2.2 jdolecek 486 1.1.1.3.2.2 jdolecek /* Set line numbers (for listings, etc.) */ 487 1.1.1.3.2.2 jdolecek 488 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.LineNumber = 0; 489 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.LogicalLineNumber = 0; 490 1.1.1.3.2.2 jdolecek 491 1.1.1.3.2.2 jdolecek PredicateOp->Asl.LineNumber = 0; 492 1.1.1.3.2.2 jdolecek PredicateOp->Asl.LogicalLineNumber = 0; 493 1.1.1.3.2.2 jdolecek 494 1.1.1.3.2.2 jdolecek /* Insert block back in the list */ 495 1.1.1.3.2.2 jdolecek 496 1.1.1.3.2.2 jdolecek Prev = DefinitionBlockOp->Asl.Child; 497 1.1.1.3.2.2 jdolecek Next = Prev; 498 1.1.1.3.2.2 jdolecek 499 1.1.1.3.2.2 jdolecek /* Find last default arg */ 500 1.1.1.3.2.2 jdolecek 501 1.1.1.3.2.2 jdolecek for (i = 0; i < 6; i++) 502 1.1.1.3.2.2 jdolecek { 503 1.1.1.3.2.2 jdolecek Prev = Next; 504 1.1.1.3.2.2 jdolecek Next = Prev->Asl.Next; 505 1.1.1.3.2.2 jdolecek } 506 1.1.1.3.2.2 jdolecek 507 1.1.1.3.2.2 jdolecek if (Next) 508 1.1.1.3.2.2 jdolecek { 509 1.1.1.3.2.2 jdolecek /* Definition Block is not empty */ 510 1.1.1.3.2.2 jdolecek 511 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.Next = Next; 512 1.1.1.3.2.2 jdolecek } 513 1.1.1.3.2.2 jdolecek else 514 1.1.1.3.2.2 jdolecek { 515 1.1.1.3.2.2 jdolecek /* Definition Block is empty. */ 516 1.1.1.3.2.2 jdolecek 517 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.Next = NULL; 518 1.1.1.3.2.2 jdolecek } 519 1.1.1.3.2.2 jdolecek 520 1.1.1.3.2.2 jdolecek Prev->Asl.Next = Gbl_ExternalsListHead; 521 1.1.1.3.2.2 jdolecek Gbl_ExternalsListHead->Asl.Parent = Prev->Asl.Parent; 522 1.1.1.3.2.2 jdolecek } 523
Indexes created Thu Oct 02 14:10:14 GMT 2025