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