asltree.c revision 1.1.1.2.2.2
1 1.1.1.2.2.2 bouyer 2 1.1.1.2.2.2 bouyer /****************************************************************************** 3 1.1.1.2.2.2 bouyer * 4 1.1.1.2.2.2 bouyer * Module Name: asltree - parse tree management 5 1.1.1.2.2.2 bouyer * 6 1.1.1.2.2.2 bouyer *****************************************************************************/ 7 1.1.1.2.2.2 bouyer 8 1.1.1.2.2.2 bouyer /* 9 1.1.1.2.2.2 bouyer * Copyright (C) 2000 - 2011, Intel Corp. 10 1.1.1.2.2.2 bouyer * All rights reserved. 11 1.1.1.2.2.2 bouyer * 12 1.1.1.2.2.2 bouyer * Redistribution and use in source and binary forms, with or without 13 1.1.1.2.2.2 bouyer * modification, are permitted provided that the following conditions 14 1.1.1.2.2.2 bouyer * are met: 15 1.1.1.2.2.2 bouyer * 1. Redistributions of source code must retain the above copyright 16 1.1.1.2.2.2 bouyer * notice, this list of conditions, and the following disclaimer, 17 1.1.1.2.2.2 bouyer * without modification. 18 1.1.1.2.2.2 bouyer * 2. Redistributions in binary form must reproduce at minimum a disclaimer 19 1.1.1.2.2.2 bouyer * substantially similar to the "NO WARRANTY" disclaimer below 20 1.1.1.2.2.2 bouyer * ("Disclaimer") and any redistribution must be conditioned upon 21 1.1.1.2.2.2 bouyer * including a substantially similar Disclaimer requirement for further 22 1.1.1.2.2.2 bouyer * binary redistribution. 23 1.1.1.2.2.2 bouyer * 3. Neither the names of the above-listed copyright holders nor the names 24 1.1.1.2.2.2 bouyer * of any contributors may be used to endorse or promote products derived 25 1.1.1.2.2.2 bouyer * from this software without specific prior written permission. 26 1.1.1.2.2.2 bouyer * 27 1.1.1.2.2.2 bouyer * Alternatively, this software may be distributed under the terms of the 28 1.1.1.2.2.2 bouyer * GNU General Public License ("GPL") version 2 as published by the Free 29 1.1.1.2.2.2 bouyer * Software Foundation. 30 1.1.1.2.2.2 bouyer * 31 1.1.1.2.2.2 bouyer * NO WARRANTY 32 1.1.1.2.2.2 bouyer * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 33 1.1.1.2.2.2 bouyer * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 34 1.1.1.2.2.2 bouyer * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR 35 1.1.1.2.2.2 bouyer * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 36 1.1.1.2.2.2 bouyer * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 37 1.1.1.2.2.2 bouyer * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 38 1.1.1.2.2.2 bouyer * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 39 1.1.1.2.2.2 bouyer * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 40 1.1.1.2.2.2 bouyer * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 41 1.1.1.2.2.2 bouyer * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 42 1.1.1.2.2.2 bouyer * POSSIBILITY OF SUCH DAMAGES. 43 1.1.1.2.2.2 bouyer */ 44 1.1.1.2.2.2 bouyer 45 1.1.1.2.2.2 bouyer 46 1.1.1.2.2.2 bouyer #include "aslcompiler.h" 47 1.1.1.2.2.2 bouyer #include "aslcompiler.y.h" 48 1.1.1.2.2.2 bouyer #include <time.h> 49 1.1.1.2.2.2 bouyer 50 1.1.1.2.2.2 bouyer #define _COMPONENT ACPI_COMPILER 51 1.1.1.2.2.2 bouyer ACPI_MODULE_NAME ("asltree") 52 1.1.1.2.2.2 bouyer 53 1.1.1.2.2.2 bouyer /* Local prototypes */ 54 1.1.1.2.2.2 bouyer 55 1.1.1.2.2.2 bouyer static ACPI_PARSE_OBJECT * 56 1.1.1.2.2.2 bouyer TrGetNextNode ( 57 1.1.1.2.2.2 bouyer void); 58 1.1.1.2.2.2 bouyer 59 1.1.1.2.2.2 bouyer static char * 60 1.1.1.2.2.2 bouyer TrGetNodeFlagName ( 61 1.1.1.2.2.2 bouyer UINT32 Flags); 62 1.1.1.2.2.2 bouyer 63 1.1.1.2.2.2 bouyer 64 1.1.1.2.2.2 bouyer /******************************************************************************* 65 1.1.1.2.2.2 bouyer * 66 1.1.1.2.2.2 bouyer * FUNCTION: TrGetNextNode 67 1.1.1.2.2.2 bouyer * 68 1.1.1.2.2.2 bouyer * PARAMETERS: None 69 1.1.1.2.2.2 bouyer * 70 1.1.1.2.2.2 bouyer * RETURN: New parse node. Aborts on allocation failure 71 1.1.1.2.2.2 bouyer * 72 1.1.1.2.2.2 bouyer * DESCRIPTION: Allocate a new parse node for the parse tree. Bypass the local 73 1.1.1.2.2.2 bouyer * dynamic memory manager for performance reasons (This has a 74 1.1.1.2.2.2 bouyer * major impact on the speed of the compiler.) 75 1.1.1.2.2.2 bouyer * 76 1.1.1.2.2.2 bouyer ******************************************************************************/ 77 1.1.1.2.2.2 bouyer 78 1.1.1.2.2.2 bouyer static ACPI_PARSE_OBJECT * 79 1.1.1.2.2.2 bouyer TrGetNextNode ( 80 1.1.1.2.2.2 bouyer void) 81 1.1.1.2.2.2 bouyer { 82 1.1.1.2.2.2 bouyer 83 1.1.1.2.2.2 bouyer if (Gbl_NodeCacheNext >= Gbl_NodeCacheLast) 84 1.1.1.2.2.2 bouyer { 85 1.1.1.2.2.2 bouyer Gbl_NodeCacheNext = UtLocalCalloc (sizeof (ACPI_PARSE_OBJECT) * 86 1.1.1.2.2.2 bouyer ASL_NODE_CACHE_SIZE); 87 1.1.1.2.2.2 bouyer Gbl_NodeCacheLast = Gbl_NodeCacheNext + ASL_NODE_CACHE_SIZE; 88 1.1.1.2.2.2 bouyer } 89 1.1.1.2.2.2 bouyer 90 1.1.1.2.2.2 bouyer return (Gbl_NodeCacheNext++); 91 1.1.1.2.2.2 bouyer } 92 1.1.1.2.2.2 bouyer 93 1.1.1.2.2.2 bouyer 94 1.1.1.2.2.2 bouyer /******************************************************************************* 95 1.1.1.2.2.2 bouyer * 96 1.1.1.2.2.2 bouyer * FUNCTION: TrAllocateNode 97 1.1.1.2.2.2 bouyer * 98 1.1.1.2.2.2 bouyer * PARAMETERS: ParseOpcode - Opcode to be assigned to the node 99 1.1.1.2.2.2 bouyer * 100 1.1.1.2.2.2 bouyer * RETURN: New parse node. Aborts on allocation failure 101 1.1.1.2.2.2 bouyer * 102 1.1.1.2.2.2 bouyer * DESCRIPTION: Allocate and initialize a new parse node for the parse tree 103 1.1.1.2.2.2 bouyer * 104 1.1.1.2.2.2 bouyer ******************************************************************************/ 105 1.1.1.2.2.2 bouyer 106 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 107 1.1.1.2.2.2 bouyer TrAllocateNode ( 108 1.1.1.2.2.2 bouyer UINT32 ParseOpcode) 109 1.1.1.2.2.2 bouyer { 110 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op; 111 1.1.1.2.2.2 bouyer 112 1.1.1.2.2.2 bouyer 113 1.1.1.2.2.2 bouyer Op = TrGetNextNode (); 114 1.1.1.2.2.2 bouyer 115 1.1.1.2.2.2 bouyer Op->Asl.ParseOpcode = (UINT16) ParseOpcode; 116 1.1.1.2.2.2 bouyer Op->Asl.Filename = Gbl_Files[ASL_FILE_INPUT].Filename; 117 1.1.1.2.2.2 bouyer Op->Asl.LineNumber = Gbl_CurrentLineNumber; 118 1.1.1.2.2.2 bouyer Op->Asl.LogicalLineNumber = Gbl_LogicalLineNumber; 119 1.1.1.2.2.2 bouyer Op->Asl.LogicalByteOffset = Gbl_CurrentLineOffset; 120 1.1.1.2.2.2 bouyer Op->Asl.Column = Gbl_CurrentColumn; 121 1.1.1.2.2.2 bouyer 122 1.1.1.2.2.2 bouyer UtSetParseOpName (Op); 123 1.1.1.2.2.2 bouyer return Op; 124 1.1.1.2.2.2 bouyer } 125 1.1.1.2.2.2 bouyer 126 1.1.1.2.2.2 bouyer 127 1.1.1.2.2.2 bouyer /******************************************************************************* 128 1.1.1.2.2.2 bouyer * 129 1.1.1.2.2.2 bouyer * FUNCTION: TrReleaseNode 130 1.1.1.2.2.2 bouyer * 131 1.1.1.2.2.2 bouyer * PARAMETERS: Op - Op to be released 132 1.1.1.2.2.2 bouyer * 133 1.1.1.2.2.2 bouyer * RETURN: None 134 1.1.1.2.2.2 bouyer * 135 1.1.1.2.2.2 bouyer * DESCRIPTION: "release" a node. In truth, nothing is done since the node 136 1.1.1.2.2.2 bouyer * is part of a larger buffer 137 1.1.1.2.2.2 bouyer * 138 1.1.1.2.2.2 bouyer ******************************************************************************/ 139 1.1.1.2.2.2 bouyer 140 1.1.1.2.2.2 bouyer void 141 1.1.1.2.2.2 bouyer TrReleaseNode ( 142 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op) 143 1.1.1.2.2.2 bouyer { 144 1.1.1.2.2.2 bouyer 145 1.1.1.2.2.2 bouyer return; 146 1.1.1.2.2.2 bouyer } 147 1.1.1.2.2.2 bouyer 148 1.1.1.2.2.2 bouyer 149 1.1.1.2.2.2 bouyer /******************************************************************************* 150 1.1.1.2.2.2 bouyer * 151 1.1.1.2.2.2 bouyer * FUNCTION: TrUpdateNode 152 1.1.1.2.2.2 bouyer * 153 1.1.1.2.2.2 bouyer * PARAMETERS: ParseOpcode - New opcode to be assigned to the node 154 1.1.1.2.2.2 bouyer * Op - An existing parse node 155 1.1.1.2.2.2 bouyer * 156 1.1.1.2.2.2 bouyer * RETURN: The updated node 157 1.1.1.2.2.2 bouyer * 158 1.1.1.2.2.2 bouyer * DESCRIPTION: Change the parse opcode assigned to a node. Usually used to 159 1.1.1.2.2.2 bouyer * change an opcode to DEFAULT_ARG so that the node is ignored 160 1.1.1.2.2.2 bouyer * during the code generation. Also used to set generic integers 161 1.1.1.2.2.2 bouyer * to a specific size (8, 16, 32, or 64 bits) 162 1.1.1.2.2.2 bouyer * 163 1.1.1.2.2.2 bouyer ******************************************************************************/ 164 1.1.1.2.2.2 bouyer 165 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 166 1.1.1.2.2.2 bouyer TrUpdateNode ( 167 1.1.1.2.2.2 bouyer UINT32 ParseOpcode, 168 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op) 169 1.1.1.2.2.2 bouyer { 170 1.1.1.2.2.2 bouyer 171 1.1.1.2.2.2 bouyer if (!Op) 172 1.1.1.2.2.2 bouyer { 173 1.1.1.2.2.2 bouyer return NULL; 174 1.1.1.2.2.2 bouyer } 175 1.1.1.2.2.2 bouyer 176 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 177 1.1.1.2.2.2 bouyer "\nUpdateNode: Old - %s, New - %s\n\n", 178 1.1.1.2.2.2 bouyer UtGetOpName (Op->Asl.ParseOpcode), 179 1.1.1.2.2.2 bouyer UtGetOpName (ParseOpcode)); 180 1.1.1.2.2.2 bouyer 181 1.1.1.2.2.2 bouyer /* Assign new opcode and name */ 182 1.1.1.2.2.2 bouyer 183 1.1.1.2.2.2 bouyer if (Op->Asl.ParseOpcode == PARSEOP_ONES) 184 1.1.1.2.2.2 bouyer { 185 1.1.1.2.2.2 bouyer switch (ParseOpcode) 186 1.1.1.2.2.2 bouyer { 187 1.1.1.2.2.2 bouyer case PARSEOP_BYTECONST: 188 1.1.1.2.2.2 bouyer Op->Asl.Value.Integer = 0xFF; 189 1.1.1.2.2.2 bouyer break; 190 1.1.1.2.2.2 bouyer 191 1.1.1.2.2.2 bouyer case PARSEOP_WORDCONST: 192 1.1.1.2.2.2 bouyer Op->Asl.Value.Integer = 0xFFFF; 193 1.1.1.2.2.2 bouyer break; 194 1.1.1.2.2.2 bouyer 195 1.1.1.2.2.2 bouyer case PARSEOP_DWORDCONST: 196 1.1.1.2.2.2 bouyer Op->Asl.Value.Integer = 0xFFFFFFFF; 197 1.1.1.2.2.2 bouyer break; 198 1.1.1.2.2.2 bouyer 199 1.1.1.2.2.2 bouyer default: 200 1.1.1.2.2.2 bouyer /* Don't care about others, don't need to check QWORD */ 201 1.1.1.2.2.2 bouyer break; 202 1.1.1.2.2.2 bouyer } 203 1.1.1.2.2.2 bouyer } 204 1.1.1.2.2.2 bouyer 205 1.1.1.2.2.2 bouyer Op->Asl.ParseOpcode = (UINT16) ParseOpcode; 206 1.1.1.2.2.2 bouyer UtSetParseOpName (Op); 207 1.1.1.2.2.2 bouyer 208 1.1.1.2.2.2 bouyer /* 209 1.1.1.2.2.2 bouyer * For the BYTE, WORD, and DWORD constants, make sure that the integer 210 1.1.1.2.2.2 bouyer * that was passed in will actually fit into the data type 211 1.1.1.2.2.2 bouyer */ 212 1.1.1.2.2.2 bouyer switch (ParseOpcode) 213 1.1.1.2.2.2 bouyer { 214 1.1.1.2.2.2 bouyer case PARSEOP_BYTECONST: 215 1.1.1.2.2.2 bouyer Op = UtCheckIntegerRange (Op, 0x00, ACPI_UINT8_MAX); 216 1.1.1.2.2.2 bouyer break; 217 1.1.1.2.2.2 bouyer 218 1.1.1.2.2.2 bouyer case PARSEOP_WORDCONST: 219 1.1.1.2.2.2 bouyer Op = UtCheckIntegerRange (Op, 0x00, ACPI_UINT16_MAX); 220 1.1.1.2.2.2 bouyer break; 221 1.1.1.2.2.2 bouyer 222 1.1.1.2.2.2 bouyer case PARSEOP_DWORDCONST: 223 1.1.1.2.2.2 bouyer Op = UtCheckIntegerRange (Op, 0x00, ACPI_UINT32_MAX); 224 1.1.1.2.2.2 bouyer break; 225 1.1.1.2.2.2 bouyer 226 1.1.1.2.2.2 bouyer default: 227 1.1.1.2.2.2 bouyer /* Don't care about others, don't need to check QWORD */ 228 1.1.1.2.2.2 bouyer break; 229 1.1.1.2.2.2 bouyer } 230 1.1.1.2.2.2 bouyer 231 1.1.1.2.2.2 bouyer return Op; 232 1.1.1.2.2.2 bouyer } 233 1.1.1.2.2.2 bouyer 234 1.1.1.2.2.2 bouyer 235 1.1.1.2.2.2 bouyer /******************************************************************************* 236 1.1.1.2.2.2 bouyer * 237 1.1.1.2.2.2 bouyer * FUNCTION: TrGetNodeFlagName 238 1.1.1.2.2.2 bouyer * 239 1.1.1.2.2.2 bouyer * PARAMETERS: Flags - Flags word to be decoded 240 1.1.1.2.2.2 bouyer * 241 1.1.1.2.2.2 bouyer * RETURN: Name string. Always returns a valid string pointer. 242 1.1.1.2.2.2 bouyer * 243 1.1.1.2.2.2 bouyer * DESCRIPTION: Decode a flags word 244 1.1.1.2.2.2 bouyer * 245 1.1.1.2.2.2 bouyer ******************************************************************************/ 246 1.1.1.2.2.2 bouyer 247 1.1.1.2.2.2 bouyer static char * 248 1.1.1.2.2.2 bouyer TrGetNodeFlagName ( 249 1.1.1.2.2.2 bouyer UINT32 Flags) 250 1.1.1.2.2.2 bouyer { 251 1.1.1.2.2.2 bouyer 252 1.1.1.2.2.2 bouyer switch (Flags) 253 1.1.1.2.2.2 bouyer { 254 1.1.1.2.2.2 bouyer case NODE_VISITED: 255 1.1.1.2.2.2 bouyer return ("NODE_VISITED"); 256 1.1.1.2.2.2 bouyer 257 1.1.1.2.2.2 bouyer case NODE_AML_PACKAGE: 258 1.1.1.2.2.2 bouyer return ("NODE_AML_PACKAGE"); 259 1.1.1.2.2.2 bouyer 260 1.1.1.2.2.2 bouyer case NODE_IS_TARGET: 261 1.1.1.2.2.2 bouyer return ("NODE_IS_TARGET"); 262 1.1.1.2.2.2 bouyer 263 1.1.1.2.2.2 bouyer case NODE_IS_RESOURCE_DESC: 264 1.1.1.2.2.2 bouyer return ("NODE_IS_RESOURCE_DESC"); 265 1.1.1.2.2.2 bouyer 266 1.1.1.2.2.2 bouyer case NODE_IS_RESOURCE_FIELD: 267 1.1.1.2.2.2 bouyer return ("NODE_IS_RESOURCE_FIELD"); 268 1.1.1.2.2.2 bouyer 269 1.1.1.2.2.2 bouyer case NODE_HAS_NO_EXIT: 270 1.1.1.2.2.2 bouyer return ("NODE_HAS_NO_EXIT"); 271 1.1.1.2.2.2 bouyer 272 1.1.1.2.2.2 bouyer case NODE_IF_HAS_NO_EXIT: 273 1.1.1.2.2.2 bouyer return ("NODE_IF_HAS_NO_EXIT"); 274 1.1.1.2.2.2 bouyer 275 1.1.1.2.2.2 bouyer case NODE_NAME_INTERNALIZED: 276 1.1.1.2.2.2 bouyer return ("NODE_NAME_INTERNALIZED"); 277 1.1.1.2.2.2 bouyer 278 1.1.1.2.2.2 bouyer case NODE_METHOD_NO_RETVAL: 279 1.1.1.2.2.2 bouyer return ("NODE_METHOD_NO_RETVAL"); 280 1.1.1.2.2.2 bouyer 281 1.1.1.2.2.2 bouyer case NODE_METHOD_SOME_NO_RETVAL: 282 1.1.1.2.2.2 bouyer return ("NODE_METHOD_SOME_NO_RETVAL"); 283 1.1.1.2.2.2 bouyer 284 1.1.1.2.2.2 bouyer case NODE_RESULT_NOT_USED: 285 1.1.1.2.2.2 bouyer return ("NODE_RESULT_NOT_USED"); 286 1.1.1.2.2.2 bouyer 287 1.1.1.2.2.2 bouyer case NODE_METHOD_TYPED: 288 1.1.1.2.2.2 bouyer return ("NODE_METHOD_TYPED"); 289 1.1.1.2.2.2 bouyer 290 1.1.1.2.2.2 bouyer case NODE_IS_BIT_OFFSET: 291 1.1.1.2.2.2 bouyer return ("NODE_IS_BIT_OFFSET"); 292 1.1.1.2.2.2 bouyer 293 1.1.1.2.2.2 bouyer case NODE_COMPILE_TIME_CONST: 294 1.1.1.2.2.2 bouyer return ("NODE_COMPILE_TIME_CONST"); 295 1.1.1.2.2.2 bouyer 296 1.1.1.2.2.2 bouyer case NODE_IS_TERM_ARG: 297 1.1.1.2.2.2 bouyer return ("NODE_IS_TERM_ARG"); 298 1.1.1.2.2.2 bouyer 299 1.1.1.2.2.2 bouyer case NODE_WAS_ONES_OP: 300 1.1.1.2.2.2 bouyer return ("NODE_WAS_ONES_OP"); 301 1.1.1.2.2.2 bouyer 302 1.1.1.2.2.2 bouyer case NODE_IS_NAME_DECLARATION: 303 1.1.1.2.2.2 bouyer return ("NODE_IS_NAME_DECLARATION"); 304 1.1.1.2.2.2 bouyer 305 1.1.1.2.2.2 bouyer default: 306 1.1.1.2.2.2 bouyer return ("Multiple Flags (or unknown flag) set"); 307 1.1.1.2.2.2 bouyer } 308 1.1.1.2.2.2 bouyer } 309 1.1.1.2.2.2 bouyer 310 1.1.1.2.2.2 bouyer 311 1.1.1.2.2.2 bouyer /******************************************************************************* 312 1.1.1.2.2.2 bouyer * 313 1.1.1.2.2.2 bouyer * FUNCTION: TrSetNodeFlags 314 1.1.1.2.2.2 bouyer * 315 1.1.1.2.2.2 bouyer * PARAMETERS: Op - An existing parse node 316 1.1.1.2.2.2 bouyer * Flags - New flags word 317 1.1.1.2.2.2 bouyer * 318 1.1.1.2.2.2 bouyer * RETURN: The updated parser op 319 1.1.1.2.2.2 bouyer * 320 1.1.1.2.2.2 bouyer * DESCRIPTION: Set bits in the node flags word. Will not clear bits, only set 321 1.1.1.2.2.2 bouyer * 322 1.1.1.2.2.2 bouyer ******************************************************************************/ 323 1.1.1.2.2.2 bouyer 324 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 325 1.1.1.2.2.2 bouyer TrSetNodeFlags ( 326 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op, 327 1.1.1.2.2.2 bouyer UINT32 Flags) 328 1.1.1.2.2.2 bouyer { 329 1.1.1.2.2.2 bouyer 330 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 331 1.1.1.2.2.2 bouyer "\nSetNodeFlags: Op %p, %8.8X %s\n\n", Op, Flags, 332 1.1.1.2.2.2 bouyer TrGetNodeFlagName (Flags)); 333 1.1.1.2.2.2 bouyer 334 1.1.1.2.2.2 bouyer if (!Op) 335 1.1.1.2.2.2 bouyer { 336 1.1.1.2.2.2 bouyer return NULL; 337 1.1.1.2.2.2 bouyer } 338 1.1.1.2.2.2 bouyer 339 1.1.1.2.2.2 bouyer Op->Asl.CompileFlags |= Flags; 340 1.1.1.2.2.2 bouyer 341 1.1.1.2.2.2 bouyer return Op; 342 1.1.1.2.2.2 bouyer } 343 1.1.1.2.2.2 bouyer 344 1.1.1.2.2.2 bouyer 345 1.1.1.2.2.2 bouyer /******************************************************************************* 346 1.1.1.2.2.2 bouyer * 347 1.1.1.2.2.2 bouyer * FUNCTION: TrSetEndLineNumber 348 1.1.1.2.2.2 bouyer * 349 1.1.1.2.2.2 bouyer * PARAMETERS: Op - An existing parse node 350 1.1.1.2.2.2 bouyer * 351 1.1.1.2.2.2 bouyer * RETURN: None. 352 1.1.1.2.2.2 bouyer * 353 1.1.1.2.2.2 bouyer * DESCRIPTION: Set the ending line numbers (file line and logical line) of a 354 1.1.1.2.2.2 bouyer * parse node to the current line numbers. 355 1.1.1.2.2.2 bouyer * 356 1.1.1.2.2.2 bouyer ******************************************************************************/ 357 1.1.1.2.2.2 bouyer 358 1.1.1.2.2.2 bouyer void 359 1.1.1.2.2.2 bouyer TrSetEndLineNumber ( 360 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op) 361 1.1.1.2.2.2 bouyer { 362 1.1.1.2.2.2 bouyer 363 1.1.1.2.2.2 bouyer /* If the end line # is already set, just return */ 364 1.1.1.2.2.2 bouyer 365 1.1.1.2.2.2 bouyer if (Op->Asl.EndLine) 366 1.1.1.2.2.2 bouyer { 367 1.1.1.2.2.2 bouyer return; 368 1.1.1.2.2.2 bouyer } 369 1.1.1.2.2.2 bouyer 370 1.1.1.2.2.2 bouyer Op->Asl.EndLine = Gbl_CurrentLineNumber; 371 1.1.1.2.2.2 bouyer Op->Asl.EndLogicalLine = Gbl_LogicalLineNumber; 372 1.1.1.2.2.2 bouyer } 373 1.1.1.2.2.2 bouyer 374 1.1.1.2.2.2 bouyer 375 1.1.1.2.2.2 bouyer /******************************************************************************* 376 1.1.1.2.2.2 bouyer * 377 1.1.1.2.2.2 bouyer * FUNCTION: TrCreateLeafNode 378 1.1.1.2.2.2 bouyer * 379 1.1.1.2.2.2 bouyer * PARAMETERS: ParseOpcode - New opcode to be assigned to the node 380 1.1.1.2.2.2 bouyer * 381 1.1.1.2.2.2 bouyer * RETURN: Pointer to the new node. Aborts on allocation failure 382 1.1.1.2.2.2 bouyer * 383 1.1.1.2.2.2 bouyer * DESCRIPTION: Create a simple leaf node (no children or peers, and no value 384 1.1.1.2.2.2 bouyer * assigned to the node) 385 1.1.1.2.2.2 bouyer * 386 1.1.1.2.2.2 bouyer ******************************************************************************/ 387 1.1.1.2.2.2 bouyer 388 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 389 1.1.1.2.2.2 bouyer TrCreateLeafNode ( 390 1.1.1.2.2.2 bouyer UINT32 ParseOpcode) 391 1.1.1.2.2.2 bouyer { 392 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op; 393 1.1.1.2.2.2 bouyer 394 1.1.1.2.2.2 bouyer 395 1.1.1.2.2.2 bouyer Op = TrAllocateNode (ParseOpcode); 396 1.1.1.2.2.2 bouyer 397 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 398 1.1.1.2.2.2 bouyer "\nCreateLeafNode Ln/Col %u/%u NewNode %p Op %s\n\n", 399 1.1.1.2.2.2 bouyer Op->Asl.LineNumber, Op->Asl.Column, Op, UtGetOpName(ParseOpcode)); 400 1.1.1.2.2.2 bouyer 401 1.1.1.2.2.2 bouyer return Op; 402 1.1.1.2.2.2 bouyer } 403 1.1.1.2.2.2 bouyer 404 1.1.1.2.2.2 bouyer 405 1.1.1.2.2.2 bouyer /******************************************************************************* 406 1.1.1.2.2.2 bouyer * 407 1.1.1.2.2.2 bouyer * FUNCTION: TrCreateConstantLeafNode 408 1.1.1.2.2.2 bouyer * 409 1.1.1.2.2.2 bouyer * PARAMETERS: ParseOpcode - The constant opcode 410 1.1.1.2.2.2 bouyer * 411 1.1.1.2.2.2 bouyer * RETURN: Pointer to the new node. Aborts on allocation failure 412 1.1.1.2.2.2 bouyer * 413 1.1.1.2.2.2 bouyer * DESCRIPTION: Create a leaf node (no children or peers) for one of the 414 1.1.1.2.2.2 bouyer * special constants - __LINE__, __FILE__, and __DATE__. 415 1.1.1.2.2.2 bouyer * 416 1.1.1.2.2.2 bouyer * Note: An implemenation of __FUNC__ cannot happen here because we don't 417 1.1.1.2.2.2 bouyer * have a full parse tree at this time and cannot find the parent control 418 1.1.1.2.2.2 bouyer * method. If it is ever needed, __FUNC__ must be implemented later, after 419 1.1.1.2.2.2 bouyer * the parse tree has been fully constructed. 420 1.1.1.2.2.2 bouyer * 421 1.1.1.2.2.2 bouyer ******************************************************************************/ 422 1.1.1.2.2.2 bouyer 423 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 424 1.1.1.2.2.2 bouyer TrCreateConstantLeafNode ( 425 1.1.1.2.2.2 bouyer UINT32 ParseOpcode) 426 1.1.1.2.2.2 bouyer { 427 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op = NULL; 428 1.1.1.2.2.2 bouyer time_t CurrentTime; 429 1.1.1.2.2.2 bouyer char *StaticTimeString; 430 1.1.1.2.2.2 bouyer char *TimeString; 431 1.1.1.2.2.2 bouyer 432 1.1.1.2.2.2 bouyer 433 1.1.1.2.2.2 bouyer switch (ParseOpcode) 434 1.1.1.2.2.2 bouyer { 435 1.1.1.2.2.2 bouyer case PARSEOP___LINE__: 436 1.1.1.2.2.2 bouyer Op = TrAllocateNode (PARSEOP_INTEGER); 437 1.1.1.2.2.2 bouyer Op->Asl.Value.Integer = Op->Asl.LineNumber; 438 1.1.1.2.2.2 bouyer break; 439 1.1.1.2.2.2 bouyer 440 1.1.1.2.2.2 bouyer case PARSEOP___FILE__: 441 1.1.1.2.2.2 bouyer Op = TrAllocateNode (PARSEOP_STRING_LITERAL); 442 1.1.1.2.2.2 bouyer 443 1.1.1.2.2.2 bouyer /* Op.Asl.Filename contains the full pathname to the file */ 444 1.1.1.2.2.2 bouyer 445 1.1.1.2.2.2 bouyer Op->Asl.Value.String = Op->Asl.Filename; 446 1.1.1.2.2.2 bouyer break; 447 1.1.1.2.2.2 bouyer 448 1.1.1.2.2.2 bouyer case PARSEOP___DATE__: 449 1.1.1.2.2.2 bouyer Op = TrAllocateNode (PARSEOP_STRING_LITERAL); 450 1.1.1.2.2.2 bouyer 451 1.1.1.2.2.2 bouyer /* Get a copy of the current time */ 452 1.1.1.2.2.2 bouyer 453 1.1.1.2.2.2 bouyer CurrentTime = time (NULL); 454 1.1.1.2.2.2 bouyer StaticTimeString = ctime (&CurrentTime); 455 1.1.1.2.2.2 bouyer TimeString = UtLocalCalloc (strlen (StaticTimeString) + 1); 456 1.1.1.2.2.2 bouyer strcpy (TimeString, StaticTimeString); 457 1.1.1.2.2.2 bouyer 458 1.1.1.2.2.2 bouyer TimeString[strlen(TimeString) -1] = 0; /* Remove trailing newline */ 459 1.1.1.2.2.2 bouyer Op->Asl.Value.String = TimeString; 460 1.1.1.2.2.2 bouyer break; 461 1.1.1.2.2.2 bouyer 462 1.1.1.2.2.2 bouyer default: /* This would be an internal error */ 463 1.1.1.2.2.2 bouyer return (NULL); 464 1.1.1.2.2.2 bouyer } 465 1.1.1.2.2.2 bouyer 466 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 467 1.1.1.2.2.2 bouyer "\nCreateConstantLeafNode Ln/Col %u/%u NewNode %p Op %s Value %8.8X%8.8X ", 468 1.1.1.2.2.2 bouyer Op->Asl.LineNumber, Op->Asl.Column, Op, UtGetOpName (ParseOpcode), 469 1.1.1.2.2.2 bouyer ACPI_FORMAT_UINT64 (Op->Asl.Value.Integer)); 470 1.1.1.2.2.2 bouyer return (Op); 471 1.1.1.2.2.2 bouyer } 472 1.1.1.2.2.2 bouyer 473 1.1.1.2.2.2 bouyer 474 1.1.1.2.2.2 bouyer /******************************************************************************* 475 1.1.1.2.2.2 bouyer * 476 1.1.1.2.2.2 bouyer * FUNCTION: TrCreateValuedLeafNode 477 1.1.1.2.2.2 bouyer * 478 1.1.1.2.2.2 bouyer * PARAMETERS: ParseOpcode - New opcode to be assigned to the node 479 1.1.1.2.2.2 bouyer * Value - Value to be assigned to the node 480 1.1.1.2.2.2 bouyer * 481 1.1.1.2.2.2 bouyer * RETURN: Pointer to the new node. Aborts on allocation failure 482 1.1.1.2.2.2 bouyer * 483 1.1.1.2.2.2 bouyer * DESCRIPTION: Create a leaf node (no children or peers) with a value 484 1.1.1.2.2.2 bouyer * assigned to it 485 1.1.1.2.2.2 bouyer * 486 1.1.1.2.2.2 bouyer ******************************************************************************/ 487 1.1.1.2.2.2 bouyer 488 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 489 1.1.1.2.2.2 bouyer TrCreateValuedLeafNode ( 490 1.1.1.2.2.2 bouyer UINT32 ParseOpcode, 491 1.1.1.2.2.2 bouyer UINT64 Value) 492 1.1.1.2.2.2 bouyer { 493 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op; 494 1.1.1.2.2.2 bouyer 495 1.1.1.2.2.2 bouyer 496 1.1.1.2.2.2 bouyer Op = TrAllocateNode (ParseOpcode); 497 1.1.1.2.2.2 bouyer 498 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 499 1.1.1.2.2.2 bouyer "\nCreateValuedLeafNode Ln/Col %u/%u NewNode %p Op %s Value %8.8X%8.8X ", 500 1.1.1.2.2.2 bouyer Op->Asl.LineNumber, Op->Asl.Column, Op, UtGetOpName(ParseOpcode), 501 1.1.1.2.2.2 bouyer ACPI_FORMAT_UINT64 (Value)); 502 1.1.1.2.2.2 bouyer Op->Asl.Value.Integer = Value; 503 1.1.1.2.2.2 bouyer 504 1.1.1.2.2.2 bouyer switch (ParseOpcode) 505 1.1.1.2.2.2 bouyer { 506 1.1.1.2.2.2 bouyer case PARSEOP_STRING_LITERAL: 507 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "STRING->%s", Value); 508 1.1.1.2.2.2 bouyer break; 509 1.1.1.2.2.2 bouyer 510 1.1.1.2.2.2 bouyer case PARSEOP_NAMESEG: 511 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "NAMESEG->%s", Value); 512 1.1.1.2.2.2 bouyer break; 513 1.1.1.2.2.2 bouyer 514 1.1.1.2.2.2 bouyer case PARSEOP_NAMESTRING: 515 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "NAMESTRING->%s", Value); 516 1.1.1.2.2.2 bouyer break; 517 1.1.1.2.2.2 bouyer 518 1.1.1.2.2.2 bouyer case PARSEOP_EISAID: 519 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "EISAID->%s", Value); 520 1.1.1.2.2.2 bouyer break; 521 1.1.1.2.2.2 bouyer 522 1.1.1.2.2.2 bouyer case PARSEOP_METHOD: 523 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "METHOD"); 524 1.1.1.2.2.2 bouyer break; 525 1.1.1.2.2.2 bouyer 526 1.1.1.2.2.2 bouyer case PARSEOP_INTEGER: 527 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "INTEGER"); 528 1.1.1.2.2.2 bouyer break; 529 1.1.1.2.2.2 bouyer 530 1.1.1.2.2.2 bouyer default: 531 1.1.1.2.2.2 bouyer break; 532 1.1.1.2.2.2 bouyer } 533 1.1.1.2.2.2 bouyer 534 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "\n\n"); 535 1.1.1.2.2.2 bouyer return Op; 536 1.1.1.2.2.2 bouyer } 537 1.1.1.2.2.2 bouyer 538 1.1.1.2.2.2 bouyer 539 1.1.1.2.2.2 bouyer /******************************************************************************* 540 1.1.1.2.2.2 bouyer * 541 1.1.1.2.2.2 bouyer * FUNCTION: TrCreateNode 542 1.1.1.2.2.2 bouyer * 543 1.1.1.2.2.2 bouyer * PARAMETERS: ParseOpcode - Opcode to be assigned to the node 544 1.1.1.2.2.2 bouyer * NumChildren - Number of children to follow 545 1.1.1.2.2.2 bouyer * ... - A list of child nodes to link to the new 546 1.1.1.2.2.2 bouyer * node. NumChildren long. 547 1.1.1.2.2.2 bouyer * 548 1.1.1.2.2.2 bouyer * RETURN: Pointer to the new node. Aborts on allocation failure 549 1.1.1.2.2.2 bouyer * 550 1.1.1.2.2.2 bouyer * DESCRIPTION: Create a new parse node and link together a list of child 551 1.1.1.2.2.2 bouyer * nodes underneath the new node. 552 1.1.1.2.2.2 bouyer * 553 1.1.1.2.2.2 bouyer ******************************************************************************/ 554 1.1.1.2.2.2 bouyer 555 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 556 1.1.1.2.2.2 bouyer TrCreateNode ( 557 1.1.1.2.2.2 bouyer UINT32 ParseOpcode, 558 1.1.1.2.2.2 bouyer UINT32 NumChildren, 559 1.1.1.2.2.2 bouyer ...) 560 1.1.1.2.2.2 bouyer { 561 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op; 562 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Child; 563 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *PrevChild; 564 1.1.1.2.2.2 bouyer va_list ap; 565 1.1.1.2.2.2 bouyer UINT32 i; 566 1.1.1.2.2.2 bouyer BOOLEAN FirstChild; 567 1.1.1.2.2.2 bouyer 568 1.1.1.2.2.2 bouyer 569 1.1.1.2.2.2 bouyer va_start (ap, NumChildren); 570 1.1.1.2.2.2 bouyer 571 1.1.1.2.2.2 bouyer /* Allocate one new node */ 572 1.1.1.2.2.2 bouyer 573 1.1.1.2.2.2 bouyer Op = TrAllocateNode (ParseOpcode); 574 1.1.1.2.2.2 bouyer 575 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 576 1.1.1.2.2.2 bouyer "\nCreateNode Ln/Col %u/%u NewParent %p Child %u Op %s ", 577 1.1.1.2.2.2 bouyer Op->Asl.LineNumber, Op->Asl.Column, Op, NumChildren, UtGetOpName(ParseOpcode)); 578 1.1.1.2.2.2 bouyer 579 1.1.1.2.2.2 bouyer /* Some extra debug output based on the parse opcode */ 580 1.1.1.2.2.2 bouyer 581 1.1.1.2.2.2 bouyer switch (ParseOpcode) 582 1.1.1.2.2.2 bouyer { 583 1.1.1.2.2.2 bouyer case PARSEOP_DEFINITIONBLOCK: 584 1.1.1.2.2.2 bouyer RootNode = Op; 585 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "DEFINITION_BLOCK (Tree Completed)->"); 586 1.1.1.2.2.2 bouyer break; 587 1.1.1.2.2.2 bouyer 588 1.1.1.2.2.2 bouyer case PARSEOP_OPERATIONREGION: 589 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "OPREGION->"); 590 1.1.1.2.2.2 bouyer break; 591 1.1.1.2.2.2 bouyer 592 1.1.1.2.2.2 bouyer case PARSEOP_OR: 593 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "OR->"); 594 1.1.1.2.2.2 bouyer break; 595 1.1.1.2.2.2 bouyer 596 1.1.1.2.2.2 bouyer default: 597 1.1.1.2.2.2 bouyer /* Nothing to do for other opcodes */ 598 1.1.1.2.2.2 bouyer break; 599 1.1.1.2.2.2 bouyer } 600 1.1.1.2.2.2 bouyer 601 1.1.1.2.2.2 bouyer /* Link the new node to its children */ 602 1.1.1.2.2.2 bouyer 603 1.1.1.2.2.2 bouyer PrevChild = NULL; 604 1.1.1.2.2.2 bouyer FirstChild = TRUE; 605 1.1.1.2.2.2 bouyer for (i = 0; i < NumChildren; i++) 606 1.1.1.2.2.2 bouyer { 607 1.1.1.2.2.2 bouyer /* Get the next child */ 608 1.1.1.2.2.2 bouyer 609 1.1.1.2.2.2 bouyer Child = va_arg (ap, ACPI_PARSE_OBJECT *); 610 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "%p, ", Child); 611 1.1.1.2.2.2 bouyer 612 1.1.1.2.2.2 bouyer /* 613 1.1.1.2.2.2 bouyer * If child is NULL, this means that an optional argument 614 1.1.1.2.2.2 bouyer * was omitted. We must create a placeholder with a special 615 1.1.1.2.2.2 bouyer * opcode (DEFAULT_ARG) so that the code generator will know 616 1.1.1.2.2.2 bouyer * that it must emit the correct default for this argument 617 1.1.1.2.2.2 bouyer */ 618 1.1.1.2.2.2 bouyer if (!Child) 619 1.1.1.2.2.2 bouyer { 620 1.1.1.2.2.2 bouyer Child = TrAllocateNode (PARSEOP_DEFAULT_ARG); 621 1.1.1.2.2.2 bouyer } 622 1.1.1.2.2.2 bouyer 623 1.1.1.2.2.2 bouyer /* Link first child to parent */ 624 1.1.1.2.2.2 bouyer 625 1.1.1.2.2.2 bouyer if (FirstChild) 626 1.1.1.2.2.2 bouyer { 627 1.1.1.2.2.2 bouyer FirstChild = FALSE; 628 1.1.1.2.2.2 bouyer Op->Asl.Child = Child; 629 1.1.1.2.2.2 bouyer } 630 1.1.1.2.2.2 bouyer 631 1.1.1.2.2.2 bouyer /* Point all children to parent */ 632 1.1.1.2.2.2 bouyer 633 1.1.1.2.2.2 bouyer Child->Asl.Parent = Op; 634 1.1.1.2.2.2 bouyer 635 1.1.1.2.2.2 bouyer /* Link children in a peer list */ 636 1.1.1.2.2.2 bouyer 637 1.1.1.2.2.2 bouyer if (PrevChild) 638 1.1.1.2.2.2 bouyer { 639 1.1.1.2.2.2 bouyer PrevChild->Asl.Next = Child; 640 1.1.1.2.2.2 bouyer }; 641 1.1.1.2.2.2 bouyer 642 1.1.1.2.2.2 bouyer /* 643 1.1.1.2.2.2 bouyer * This child might be a list, point all nodes in the list 644 1.1.1.2.2.2 bouyer * to the same parent 645 1.1.1.2.2.2 bouyer */ 646 1.1.1.2.2.2 bouyer while (Child->Asl.Next) 647 1.1.1.2.2.2 bouyer { 648 1.1.1.2.2.2 bouyer Child = Child->Asl.Next; 649 1.1.1.2.2.2 bouyer Child->Asl.Parent = Op; 650 1.1.1.2.2.2 bouyer } 651 1.1.1.2.2.2 bouyer 652 1.1.1.2.2.2 bouyer PrevChild = Child; 653 1.1.1.2.2.2 bouyer } 654 1.1.1.2.2.2 bouyer va_end(ap); 655 1.1.1.2.2.2 bouyer 656 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "\n\n"); 657 1.1.1.2.2.2 bouyer return Op; 658 1.1.1.2.2.2 bouyer } 659 1.1.1.2.2.2 bouyer 660 1.1.1.2.2.2 bouyer 661 1.1.1.2.2.2 bouyer /******************************************************************************* 662 1.1.1.2.2.2 bouyer * 663 1.1.1.2.2.2 bouyer * FUNCTION: TrLinkChildren 664 1.1.1.2.2.2 bouyer * 665 1.1.1.2.2.2 bouyer * PARAMETERS: Op - An existing parse node 666 1.1.1.2.2.2 bouyer * NumChildren - Number of children to follow 667 1.1.1.2.2.2 bouyer * ... - A list of child nodes to link to the new 668 1.1.1.2.2.2 bouyer * node. NumChildren long. 669 1.1.1.2.2.2 bouyer * 670 1.1.1.2.2.2 bouyer * RETURN: The updated (linked) node 671 1.1.1.2.2.2 bouyer * 672 1.1.1.2.2.2 bouyer * DESCRIPTION: Link a group of nodes to an existing parse node 673 1.1.1.2.2.2 bouyer * 674 1.1.1.2.2.2 bouyer ******************************************************************************/ 675 1.1.1.2.2.2 bouyer 676 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 677 1.1.1.2.2.2 bouyer TrLinkChildren ( 678 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op, 679 1.1.1.2.2.2 bouyer UINT32 NumChildren, 680 1.1.1.2.2.2 bouyer ...) 681 1.1.1.2.2.2 bouyer { 682 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Child; 683 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *PrevChild; 684 1.1.1.2.2.2 bouyer va_list ap; 685 1.1.1.2.2.2 bouyer UINT32 i; 686 1.1.1.2.2.2 bouyer BOOLEAN FirstChild; 687 1.1.1.2.2.2 bouyer 688 1.1.1.2.2.2 bouyer 689 1.1.1.2.2.2 bouyer va_start (ap, NumChildren); 690 1.1.1.2.2.2 bouyer 691 1.1.1.2.2.2 bouyer 692 1.1.1.2.2.2 bouyer TrSetEndLineNumber (Op); 693 1.1.1.2.2.2 bouyer 694 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 695 1.1.1.2.2.2 bouyer "\nLinkChildren Line [%u to %u] NewParent %p Child %u Op %s ", 696 1.1.1.2.2.2 bouyer Op->Asl.LineNumber, Op->Asl.EndLine, 697 1.1.1.2.2.2 bouyer Op, NumChildren, UtGetOpName(Op->Asl.ParseOpcode)); 698 1.1.1.2.2.2 bouyer 699 1.1.1.2.2.2 bouyer switch (Op->Asl.ParseOpcode) 700 1.1.1.2.2.2 bouyer { 701 1.1.1.2.2.2 bouyer case PARSEOP_DEFINITIONBLOCK: 702 1.1.1.2.2.2 bouyer RootNode = Op; 703 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "DEFINITION_BLOCK (Tree Completed)->"); 704 1.1.1.2.2.2 bouyer break; 705 1.1.1.2.2.2 bouyer 706 1.1.1.2.2.2 bouyer case PARSEOP_OPERATIONREGION: 707 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "OPREGION->"); 708 1.1.1.2.2.2 bouyer break; 709 1.1.1.2.2.2 bouyer 710 1.1.1.2.2.2 bouyer case PARSEOP_OR: 711 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "OR->"); 712 1.1.1.2.2.2 bouyer break; 713 1.1.1.2.2.2 bouyer 714 1.1.1.2.2.2 bouyer default: 715 1.1.1.2.2.2 bouyer /* Nothing to do for other opcodes */ 716 1.1.1.2.2.2 bouyer break; 717 1.1.1.2.2.2 bouyer } 718 1.1.1.2.2.2 bouyer 719 1.1.1.2.2.2 bouyer /* Link the new node to it's children */ 720 1.1.1.2.2.2 bouyer 721 1.1.1.2.2.2 bouyer PrevChild = NULL; 722 1.1.1.2.2.2 bouyer FirstChild = TRUE; 723 1.1.1.2.2.2 bouyer for (i = 0; i < NumChildren; i++) 724 1.1.1.2.2.2 bouyer { 725 1.1.1.2.2.2 bouyer Child = va_arg (ap, ACPI_PARSE_OBJECT *); 726 1.1.1.2.2.2 bouyer 727 1.1.1.2.2.2 bouyer if ((Child == PrevChild) && (Child != NULL)) 728 1.1.1.2.2.2 bouyer { 729 1.1.1.2.2.2 bouyer AslError (ASL_WARNING, ASL_MSG_COMPILER_INTERNAL, Child, 730 1.1.1.2.2.2 bouyer "Child node list invalid"); 731 1.1.1.2.2.2 bouyer return Op; 732 1.1.1.2.2.2 bouyer } 733 1.1.1.2.2.2 bouyer 734 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "%p, ", Child); 735 1.1.1.2.2.2 bouyer 736 1.1.1.2.2.2 bouyer /* 737 1.1.1.2.2.2 bouyer * If child is NULL, this means that an optional argument 738 1.1.1.2.2.2 bouyer * was omitted. We must create a placeholder with a special 739 1.1.1.2.2.2 bouyer * opcode (DEFAULT_ARG) so that the code generator will know 740 1.1.1.2.2.2 bouyer * that it must emit the correct default for this argument 741 1.1.1.2.2.2 bouyer */ 742 1.1.1.2.2.2 bouyer if (!Child) 743 1.1.1.2.2.2 bouyer { 744 1.1.1.2.2.2 bouyer Child = TrAllocateNode (PARSEOP_DEFAULT_ARG); 745 1.1.1.2.2.2 bouyer } 746 1.1.1.2.2.2 bouyer 747 1.1.1.2.2.2 bouyer /* Link first child to parent */ 748 1.1.1.2.2.2 bouyer 749 1.1.1.2.2.2 bouyer if (FirstChild) 750 1.1.1.2.2.2 bouyer { 751 1.1.1.2.2.2 bouyer FirstChild = FALSE; 752 1.1.1.2.2.2 bouyer Op->Asl.Child = Child; 753 1.1.1.2.2.2 bouyer } 754 1.1.1.2.2.2 bouyer 755 1.1.1.2.2.2 bouyer /* Point all children to parent */ 756 1.1.1.2.2.2 bouyer 757 1.1.1.2.2.2 bouyer Child->Asl.Parent = Op; 758 1.1.1.2.2.2 bouyer 759 1.1.1.2.2.2 bouyer /* Link children in a peer list */ 760 1.1.1.2.2.2 bouyer 761 1.1.1.2.2.2 bouyer if (PrevChild) 762 1.1.1.2.2.2 bouyer { 763 1.1.1.2.2.2 bouyer PrevChild->Asl.Next = Child; 764 1.1.1.2.2.2 bouyer }; 765 1.1.1.2.2.2 bouyer 766 1.1.1.2.2.2 bouyer /* 767 1.1.1.2.2.2 bouyer * This child might be a list, point all nodes in the list 768 1.1.1.2.2.2 bouyer * to the same parent 769 1.1.1.2.2.2 bouyer */ 770 1.1.1.2.2.2 bouyer while (Child->Asl.Next) 771 1.1.1.2.2.2 bouyer { 772 1.1.1.2.2.2 bouyer Child = Child->Asl.Next; 773 1.1.1.2.2.2 bouyer Child->Asl.Parent = Op; 774 1.1.1.2.2.2 bouyer } 775 1.1.1.2.2.2 bouyer PrevChild = Child; 776 1.1.1.2.2.2 bouyer } 777 1.1.1.2.2.2 bouyer va_end(ap); 778 1.1.1.2.2.2 bouyer 779 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "\n\n"); 780 1.1.1.2.2.2 bouyer return Op; 781 1.1.1.2.2.2 bouyer } 782 1.1.1.2.2.2 bouyer 783 1.1.1.2.2.2 bouyer 784 1.1.1.2.2.2 bouyer /******************************************************************************* 785 1.1.1.2.2.2 bouyer * 786 1.1.1.2.2.2 bouyer * FUNCTION: TrLinkPeerNode 787 1.1.1.2.2.2 bouyer * 788 1.1.1.2.2.2 bouyer * PARAMETERS: Op1 - First peer 789 1.1.1.2.2.2 bouyer * Op2 - Second peer 790 1.1.1.2.2.2 bouyer * 791 1.1.1.2.2.2 bouyer * RETURN: Op1 or the non-null node. 792 1.1.1.2.2.2 bouyer * 793 1.1.1.2.2.2 bouyer * DESCRIPTION: Link two nodes as peers. Handles cases where one peer is null. 794 1.1.1.2.2.2 bouyer * 795 1.1.1.2.2.2 bouyer ******************************************************************************/ 796 1.1.1.2.2.2 bouyer 797 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 798 1.1.1.2.2.2 bouyer TrLinkPeerNode ( 799 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op1, 800 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op2) 801 1.1.1.2.2.2 bouyer { 802 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Next; 803 1.1.1.2.2.2 bouyer 804 1.1.1.2.2.2 bouyer 805 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 806 1.1.1.2.2.2 bouyer "\nLinkPeerNode: 1=%p (%s), 2=%p (%s)\n\n", 807 1.1.1.2.2.2 bouyer Op1, Op1 ? UtGetOpName(Op1->Asl.ParseOpcode) : NULL, 808 1.1.1.2.2.2 bouyer Op2, Op2 ? UtGetOpName(Op2->Asl.ParseOpcode) : NULL); 809 1.1.1.2.2.2 bouyer 810 1.1.1.2.2.2 bouyer 811 1.1.1.2.2.2 bouyer if ((!Op1) && (!Op2)) 812 1.1.1.2.2.2 bouyer { 813 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "\nTwo Null nodes!\n"); 814 1.1.1.2.2.2 bouyer return Op1; 815 1.1.1.2.2.2 bouyer } 816 1.1.1.2.2.2 bouyer 817 1.1.1.2.2.2 bouyer /* If one of the nodes is null, just return the non-null node */ 818 1.1.1.2.2.2 bouyer 819 1.1.1.2.2.2 bouyer if (!Op2) 820 1.1.1.2.2.2 bouyer { 821 1.1.1.2.2.2 bouyer return Op1; 822 1.1.1.2.2.2 bouyer } 823 1.1.1.2.2.2 bouyer 824 1.1.1.2.2.2 bouyer if (!Op1) 825 1.1.1.2.2.2 bouyer { 826 1.1.1.2.2.2 bouyer return Op2; 827 1.1.1.2.2.2 bouyer } 828 1.1.1.2.2.2 bouyer 829 1.1.1.2.2.2 bouyer if (Op1 == Op2) 830 1.1.1.2.2.2 bouyer { 831 1.1.1.2.2.2 bouyer DbgPrint (ASL_DEBUG_OUTPUT, 832 1.1.1.2.2.2 bouyer "\n\n************* Internal error, linking node to itself %p\n\n\n", 833 1.1.1.2.2.2 bouyer Op1); 834 1.1.1.2.2.2 bouyer AslError (ASL_WARNING, ASL_MSG_COMPILER_INTERNAL, Op1, 835 1.1.1.2.2.2 bouyer "Linking node to itself"); 836 1.1.1.2.2.2 bouyer return Op1; 837 1.1.1.2.2.2 bouyer } 838 1.1.1.2.2.2 bouyer 839 1.1.1.2.2.2 bouyer Op1->Asl.Parent = Op2->Asl.Parent; 840 1.1.1.2.2.2 bouyer 841 1.1.1.2.2.2 bouyer /* 842 1.1.1.2.2.2 bouyer * Op 1 may already have a peer list (such as an IF/ELSE pair), 843 1.1.1.2.2.2 bouyer * so we must walk to the end of the list and attach the new 844 1.1.1.2.2.2 bouyer * peer at the end 845 1.1.1.2.2.2 bouyer */ 846 1.1.1.2.2.2 bouyer Next = Op1; 847 1.1.1.2.2.2 bouyer while (Next->Asl.Next) 848 1.1.1.2.2.2 bouyer { 849 1.1.1.2.2.2 bouyer Next = Next->Asl.Next; 850 1.1.1.2.2.2 bouyer } 851 1.1.1.2.2.2 bouyer 852 1.1.1.2.2.2 bouyer Next->Asl.Next = Op2; 853 1.1.1.2.2.2 bouyer return Op1; 854 1.1.1.2.2.2 bouyer } 855 1.1.1.2.2.2 bouyer 856 1.1.1.2.2.2 bouyer 857 1.1.1.2.2.2 bouyer /******************************************************************************* 858 1.1.1.2.2.2 bouyer * 859 1.1.1.2.2.2 bouyer * FUNCTION: TrLinkPeerNodes 860 1.1.1.2.2.2 bouyer * 861 1.1.1.2.2.2 bouyer * PARAMETERS: NumPeers - The number of nodes in the list to follow 862 1.1.1.2.2.2 bouyer * ... - A list of nodes to link together as peers 863 1.1.1.2.2.2 bouyer * 864 1.1.1.2.2.2 bouyer * RETURN: The first node in the list (head of the peer list) 865 1.1.1.2.2.2 bouyer * 866 1.1.1.2.2.2 bouyer * DESCRIPTION: Link together an arbitrary number of peer nodes. 867 1.1.1.2.2.2 bouyer * 868 1.1.1.2.2.2 bouyer ******************************************************************************/ 869 1.1.1.2.2.2 bouyer 870 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 871 1.1.1.2.2.2 bouyer TrLinkPeerNodes ( 872 1.1.1.2.2.2 bouyer UINT32 NumPeers, 873 1.1.1.2.2.2 bouyer ...) 874 1.1.1.2.2.2 bouyer { 875 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *This; 876 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Next; 877 1.1.1.2.2.2 bouyer va_list ap; 878 1.1.1.2.2.2 bouyer UINT32 i; 879 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Start; 880 1.1.1.2.2.2 bouyer 881 1.1.1.2.2.2 bouyer 882 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 883 1.1.1.2.2.2 bouyer "\nLinkPeerNodes: (%u) ", NumPeers); 884 1.1.1.2.2.2 bouyer 885 1.1.1.2.2.2 bouyer va_start (ap, NumPeers); 886 1.1.1.2.2.2 bouyer This = va_arg (ap, ACPI_PARSE_OBJECT *); 887 1.1.1.2.2.2 bouyer Start = This; 888 1.1.1.2.2.2 bouyer 889 1.1.1.2.2.2 bouyer /* 890 1.1.1.2.2.2 bouyer * Link all peers 891 1.1.1.2.2.2 bouyer */ 892 1.1.1.2.2.2 bouyer for (i = 0; i < (NumPeers -1); i++) 893 1.1.1.2.2.2 bouyer { 894 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, "%u=%p ", (i+1), This); 895 1.1.1.2.2.2 bouyer 896 1.1.1.2.2.2 bouyer while (This->Asl.Next) 897 1.1.1.2.2.2 bouyer { 898 1.1.1.2.2.2 bouyer This = This->Asl.Next; 899 1.1.1.2.2.2 bouyer } 900 1.1.1.2.2.2 bouyer 901 1.1.1.2.2.2 bouyer /* Get another peer node */ 902 1.1.1.2.2.2 bouyer 903 1.1.1.2.2.2 bouyer Next = va_arg (ap, ACPI_PARSE_OBJECT *); 904 1.1.1.2.2.2 bouyer if (!Next) 905 1.1.1.2.2.2 bouyer { 906 1.1.1.2.2.2 bouyer Next = TrAllocateNode (PARSEOP_DEFAULT_ARG); 907 1.1.1.2.2.2 bouyer } 908 1.1.1.2.2.2 bouyer 909 1.1.1.2.2.2 bouyer /* link new node to the current node */ 910 1.1.1.2.2.2 bouyer 911 1.1.1.2.2.2 bouyer This->Asl.Next = Next; 912 1.1.1.2.2.2 bouyer This = Next; 913 1.1.1.2.2.2 bouyer } 914 1.1.1.2.2.2 bouyer va_end (ap); 915 1.1.1.2.2.2 bouyer 916 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT,"\n\n"); 917 1.1.1.2.2.2 bouyer return (Start); 918 1.1.1.2.2.2 bouyer } 919 1.1.1.2.2.2 bouyer 920 1.1.1.2.2.2 bouyer 921 1.1.1.2.2.2 bouyer /******************************************************************************* 922 1.1.1.2.2.2 bouyer * 923 1.1.1.2.2.2 bouyer * FUNCTION: TrLinkChildNode 924 1.1.1.2.2.2 bouyer * 925 1.1.1.2.2.2 bouyer * PARAMETERS: Op1 - Parent node 926 1.1.1.2.2.2 bouyer * Op2 - Op to become a child 927 1.1.1.2.2.2 bouyer * 928 1.1.1.2.2.2 bouyer * RETURN: The parent node 929 1.1.1.2.2.2 bouyer * 930 1.1.1.2.2.2 bouyer * DESCRIPTION: Link two nodes together as a parent and child 931 1.1.1.2.2.2 bouyer * 932 1.1.1.2.2.2 bouyer ******************************************************************************/ 933 1.1.1.2.2.2 bouyer 934 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT * 935 1.1.1.2.2.2 bouyer TrLinkChildNode ( 936 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op1, 937 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op2) 938 1.1.1.2.2.2 bouyer { 939 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Next; 940 1.1.1.2.2.2 bouyer 941 1.1.1.2.2.2 bouyer 942 1.1.1.2.2.2 bouyer DbgPrint (ASL_PARSE_OUTPUT, 943 1.1.1.2.2.2 bouyer "\nLinkChildNode: Parent=%p (%s), Child=%p (%s)\n\n", 944 1.1.1.2.2.2 bouyer Op1, Op1 ? UtGetOpName(Op1->Asl.ParseOpcode): NULL, 945 1.1.1.2.2.2 bouyer Op2, Op2 ? UtGetOpName(Op2->Asl.ParseOpcode): NULL); 946 1.1.1.2.2.2 bouyer 947 1.1.1.2.2.2 bouyer if (!Op1 || !Op2) 948 1.1.1.2.2.2 bouyer { 949 1.1.1.2.2.2 bouyer return Op1; 950 1.1.1.2.2.2 bouyer } 951 1.1.1.2.2.2 bouyer 952 1.1.1.2.2.2 bouyer Op1->Asl.Child = Op2; 953 1.1.1.2.2.2 bouyer 954 1.1.1.2.2.2 bouyer /* Set the child and all peers of the child to point to the parent */ 955 1.1.1.2.2.2 bouyer 956 1.1.1.2.2.2 bouyer Next = Op2; 957 1.1.1.2.2.2 bouyer while (Next) 958 1.1.1.2.2.2 bouyer { 959 1.1.1.2.2.2 bouyer Next->Asl.Parent = Op1; 960 1.1.1.2.2.2 bouyer Next = Next->Asl.Next; 961 1.1.1.2.2.2 bouyer } 962 1.1.1.2.2.2 bouyer 963 1.1.1.2.2.2 bouyer return Op1; 964 1.1.1.2.2.2 bouyer } 965 1.1.1.2.2.2 bouyer 966 1.1.1.2.2.2 bouyer 967 1.1.1.2.2.2 bouyer /******************************************************************************* 968 1.1.1.2.2.2 bouyer * 969 1.1.1.2.2.2 bouyer * FUNCTION: TrWalkParseTree 970 1.1.1.2.2.2 bouyer * 971 1.1.1.2.2.2 bouyer * PARAMETERS: Visitation - Type of walk 972 1.1.1.2.2.2 bouyer * DescendingCallback - Called during tree descent 973 1.1.1.2.2.2 bouyer * AscendingCallback - Called during tree ascent 974 1.1.1.2.2.2 bouyer * Context - To be passed to the callbacks 975 1.1.1.2.2.2 bouyer * 976 1.1.1.2.2.2 bouyer * RETURN: Status from callback(s) 977 1.1.1.2.2.2 bouyer * 978 1.1.1.2.2.2 bouyer * DESCRIPTION: Walk the entire parse tree. 979 1.1.1.2.2.2 bouyer * 980 1.1.1.2.2.2 bouyer ******************************************************************************/ 981 1.1.1.2.2.2 bouyer 982 1.1.1.2.2.2 bouyer ACPI_STATUS 983 1.1.1.2.2.2 bouyer TrWalkParseTree ( 984 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *Op, 985 1.1.1.2.2.2 bouyer UINT32 Visitation, 986 1.1.1.2.2.2 bouyer ASL_WALK_CALLBACK DescendingCallback, 987 1.1.1.2.2.2 bouyer ASL_WALK_CALLBACK AscendingCallback, 988 1.1.1.2.2.2 bouyer void *Context) 989 1.1.1.2.2.2 bouyer { 990 1.1.1.2.2.2 bouyer UINT32 Level; 991 1.1.1.2.2.2 bouyer BOOLEAN NodePreviouslyVisited; 992 1.1.1.2.2.2 bouyer ACPI_PARSE_OBJECT *StartOp = Op; 993 1.1.1.2.2.2 bouyer ACPI_STATUS Status; 994 1.1.1.2.2.2 bouyer 995 1.1.1.2.2.2 bouyer 996 1.1.1.2.2.2 bouyer if (!RootNode) 997 1.1.1.2.2.2 bouyer { 998 1.1.1.2.2.2 bouyer return (AE_OK); 999 1.1.1.2.2.2 bouyer } 1000 1.1.1.2.2.2 bouyer 1001 1.1.1.2.2.2 bouyer Level = 0; 1002 1.1.1.2.2.2 bouyer NodePreviouslyVisited = FALSE; 1003 1.1.1.2.2.2 bouyer 1004 1.1.1.2.2.2 bouyer switch (Visitation) 1005 1.1.1.2.2.2 bouyer { 1006 1.1.1.2.2.2 bouyer case ASL_WALK_VISIT_DOWNWARD: 1007 1.1.1.2.2.2 bouyer 1008 1.1.1.2.2.2 bouyer while (Op) 1009 1.1.1.2.2.2 bouyer { 1010 1.1.1.2.2.2 bouyer if (!NodePreviouslyVisited) 1011 1.1.1.2.2.2 bouyer { 1012 1.1.1.2.2.2 bouyer /* Let the callback process the node. */ 1013 1.1.1.2.2.2 bouyer 1014 1.1.1.2.2.2 bouyer Status = DescendingCallback (Op, Level, Context); 1015 1.1.1.2.2.2 bouyer if (ACPI_SUCCESS (Status)) 1016 1.1.1.2.2.2 bouyer { 1017 1.1.1.2.2.2 bouyer /* Visit children first, once */ 1018 1.1.1.2.2.2 bouyer 1019 1.1.1.2.2.2 bouyer if (Op->Asl.Child) 1020 1.1.1.2.2.2 bouyer { 1021 1.1.1.2.2.2 bouyer Level++; 1022 1.1.1.2.2.2 bouyer Op = Op->Asl.Child; 1023 1.1.1.2.2.2 bouyer continue; 1024 1.1.1.2.2.2 bouyer } 1025 1.1.1.2.2.2 bouyer } 1026 1.1.1.2.2.2 bouyer else if (Status != AE_CTRL_DEPTH) 1027 1.1.1.2.2.2 bouyer { 1028 1.1.1.2.2.2 bouyer /* Exit immediately on any error */ 1029 1.1.1.2.2.2 bouyer 1030 1.1.1.2.2.2 bouyer return (Status); 1031 1.1.1.2.2.2 bouyer } 1032 1.1.1.2.2.2 bouyer } 1033 1.1.1.2.2.2 bouyer 1034 1.1.1.2.2.2 bouyer /* Terminate walk at start op */ 1035 1.1.1.2.2.2 bouyer 1036 1.1.1.2.2.2 bouyer if (Op == StartOp) 1037 1.1.1.2.2.2 bouyer { 1038 1.1.1.2.2.2 bouyer break; 1039 1.1.1.2.2.2 bouyer } 1040 1.1.1.2.2.2 bouyer 1041 1.1.1.2.2.2 bouyer /* No more children, visit peers */ 1042 1.1.1.2.2.2 bouyer 1043 1.1.1.2.2.2 bouyer if (Op->Asl.Next) 1044 1.1.1.2.2.2 bouyer { 1045 1.1.1.2.2.2 bouyer Op = Op->Asl.Next; 1046 1.1.1.2.2.2 bouyer NodePreviouslyVisited = FALSE; 1047 1.1.1.2.2.2 bouyer } 1048 1.1.1.2.2.2 bouyer else 1049 1.1.1.2.2.2 bouyer { 1050 1.1.1.2.2.2 bouyer /* No children or peers, re-visit parent */ 1051 1.1.1.2.2.2 bouyer 1052 1.1.1.2.2.2 bouyer if (Level != 0 ) 1053 1.1.1.2.2.2 bouyer { 1054 1.1.1.2.2.2 bouyer Level--; 1055 1.1.1.2.2.2 bouyer } 1056 1.1.1.2.2.2 bouyer Op = Op->Asl.Parent; 1057 1.1.1.2.2.2 bouyer NodePreviouslyVisited = TRUE; 1058 1.1.1.2.2.2 bouyer } 1059 1.1.1.2.2.2 bouyer } 1060 1.1.1.2.2.2 bouyer break; 1061 1.1.1.2.2.2 bouyer 1062 1.1.1.2.2.2 bouyer 1063 1.1.1.2.2.2 bouyer case ASL_WALK_VISIT_UPWARD: 1064 1.1.1.2.2.2 bouyer 1065 1.1.1.2.2.2 bouyer while (Op) 1066 1.1.1.2.2.2 bouyer { 1067 1.1.1.2.2.2 bouyer /* Visit leaf node (no children) or parent node on return trip */ 1068 1.1.1.2.2.2 bouyer 1069 1.1.1.2.2.2 bouyer if ((!Op->Asl.Child) || 1070 1.1.1.2.2.2 bouyer (NodePreviouslyVisited)) 1071 1.1.1.2.2.2 bouyer { 1072 1.1.1.2.2.2 bouyer /* Let the callback process the node. */ 1073 1.1.1.2.2.2 bouyer 1074 1.1.1.2.2.2 bouyer Status = AscendingCallback (Op, Level, Context); 1075 1.1.1.2.2.2 bouyer if (ACPI_FAILURE (Status)) 1076 1.1.1.2.2.2 bouyer { 1077 1.1.1.2.2.2 bouyer return (Status); 1078 1.1.1.2.2.2 bouyer } 1079 1.1.1.2.2.2 bouyer } 1080 1.1.1.2.2.2 bouyer else 1081 1.1.1.2.2.2 bouyer { 1082 1.1.1.2.2.2 bouyer /* Visit children first, once */ 1083 1.1.1.2.2.2 bouyer 1084 1.1.1.2.2.2 bouyer Level++; 1085 1.1.1.2.2.2 bouyer Op = Op->Asl.Child; 1086 1.1.1.2.2.2 bouyer continue; 1087 1.1.1.2.2.2 bouyer } 1088 1.1.1.2.2.2 bouyer 1089 1.1.1.2.2.2 bouyer /* Terminate walk at start op */ 1090 1.1.1.2.2.2 bouyer 1091 1.1.1.2.2.2 bouyer if (Op == StartOp) 1092 1.1.1.2.2.2 bouyer { 1093 1.1.1.2.2.2 bouyer break; 1094 1.1.1.2.2.2 bouyer } 1095 1.1.1.2.2.2 bouyer 1096 1.1.1.2.2.2 bouyer /* No more children, visit peers */ 1097 1.1.1.2.2.2 bouyer 1098 1.1.1.2.2.2 bouyer if (Op->Asl.Next) 1099 1.1.1.2.2.2 bouyer { 1100 1.1.1.2.2.2 bouyer Op = Op->Asl.Next; 1101 1.1.1.2.2.2 bouyer NodePreviouslyVisited = FALSE; 1102 1.1.1.2.2.2 bouyer } 1103 1.1.1.2.2.2 bouyer else 1104 1.1.1.2.2.2 bouyer { 1105 1.1.1.2.2.2 bouyer /* No children or peers, re-visit parent */ 1106 1.1.1.2.2.2 bouyer 1107 1.1.1.2.2.2 bouyer if (Level != 0 ) 1108 1.1.1.2.2.2 bouyer { 1109 1.1.1.2.2.2 bouyer Level--; 1110 1.1.1.2.2.2 bouyer } 1111 1.1.1.2.2.2 bouyer Op = Op->Asl.Parent; 1112 1.1.1.2.2.2 bouyer NodePreviouslyVisited = TRUE; 1113 1.1.1.2.2.2 bouyer } 1114 1.1.1.2.2.2 bouyer } 1115 1.1.1.2.2.2 bouyer break; 1116 1.1.1.2.2.2 bouyer 1117 1.1.1.2.2.2 bouyer 1118 1.1.1.2.2.2 bouyer case ASL_WALK_VISIT_TWICE: 1119 1.1.1.2.2.2 bouyer 1120 1.1.1.2.2.2 bouyer while (Op) 1121 1.1.1.2.2.2 bouyer { 1122 1.1.1.2.2.2 bouyer if (NodePreviouslyVisited) 1123 1.1.1.2.2.2 bouyer { 1124 1.1.1.2.2.2 bouyer Status = AscendingCallback (Op, Level, Context); 1125 1.1.1.2.2.2 bouyer if (ACPI_FAILURE (Status)) 1126 1.1.1.2.2.2 bouyer { 1127 1.1.1.2.2.2 bouyer return (Status); 1128 1.1.1.2.2.2 bouyer } 1129 1.1.1.2.2.2 bouyer } 1130 1.1.1.2.2.2 bouyer else 1131 1.1.1.2.2.2 bouyer { 1132 1.1.1.2.2.2 bouyer /* Let the callback process the node. */ 1133 1.1.1.2.2.2 bouyer 1134 1.1.1.2.2.2 bouyer Status = DescendingCallback (Op, Level, Context); 1135 1.1.1.2.2.2 bouyer if (ACPI_SUCCESS (Status)) 1136 1.1.1.2.2.2 bouyer { 1137 1.1.1.2.2.2 bouyer /* Visit children first, once */ 1138 1.1.1.2.2.2 bouyer 1139 1.1.1.2.2.2 bouyer if (Op->Asl.Child) 1140 1.1.1.2.2.2 bouyer { 1141 1.1.1.2.2.2 bouyer Level++; 1142 1.1.1.2.2.2 bouyer Op = Op->Asl.Child; 1143 1.1.1.2.2.2 bouyer continue; 1144 1.1.1.2.2.2 bouyer } 1145 1.1.1.2.2.2 bouyer } 1146 1.1.1.2.2.2 bouyer else if (Status != AE_CTRL_DEPTH) 1147 1.1.1.2.2.2 bouyer { 1148 1.1.1.2.2.2 bouyer /* Exit immediately on any error */ 1149 1.1.1.2.2.2 bouyer 1150 1.1.1.2.2.2 bouyer return (Status); 1151 1.1.1.2.2.2 bouyer } 1152 1.1.1.2.2.2 bouyer } 1153 1.1.1.2.2.2 bouyer 1154 1.1.1.2.2.2 bouyer /* Terminate walk at start op */ 1155 1.1.1.2.2.2 bouyer 1156 1.1.1.2.2.2 bouyer if (Op == StartOp) 1157 1.1.1.2.2.2 bouyer { 1158 1.1.1.2.2.2 bouyer break; 1159 1.1.1.2.2.2 bouyer } 1160 1.1.1.2.2.2 bouyer 1161 1.1.1.2.2.2 bouyer /* No more children, visit peers */ 1162 1.1.1.2.2.2 bouyer 1163 1.1.1.2.2.2 bouyer if (Op->Asl.Next) 1164 1.1.1.2.2.2 bouyer { 1165 1.1.1.2.2.2 bouyer Op = Op->Asl.Next; 1166 1.1.1.2.2.2 bouyer NodePreviouslyVisited = FALSE; 1167 1.1.1.2.2.2 bouyer } 1168 1.1.1.2.2.2 bouyer else 1169 1.1.1.2.2.2 bouyer { 1170 1.1.1.2.2.2 bouyer /* No children or peers, re-visit parent */ 1171 1.1.1.2.2.2 bouyer 1172 1.1.1.2.2.2 bouyer if (Level != 0 ) 1173 1.1.1.2.2.2 bouyer { 1174 1.1.1.2.2.2 bouyer Level--; 1175 1.1.1.2.2.2 bouyer } 1176 1.1.1.2.2.2 bouyer Op = Op->Asl.Parent; 1177 1.1.1.2.2.2 bouyer NodePreviouslyVisited = TRUE; 1178 1.1.1.2.2.2 bouyer } 1179 1.1.1.2.2.2 bouyer } 1180 1.1.1.2.2.2 bouyer break; 1181 1.1.1.2.2.2 bouyer 1182 1.1.1.2.2.2 bouyer default: 1183 1.1.1.2.2.2 bouyer /* No other types supported */ 1184 1.1.1.2.2.2 bouyer break; 1185 1.1.1.2.2.2 bouyer } 1186 1.1.1.2.2.2 bouyer 1187 1.1.1.2.2.2 bouyer /* If we get here, the walk completed with no errors */ 1188 1.1.1.2.2.2 bouyer 1189 1.1.1.2.2.2 bouyer return (AE_OK); 1190 1.1.1.2.2.2 bouyer } 1191 1.1.1.2.2.2 bouyer 1192 1.1.1.2.2.2 bouyer 1193
Indexes created Fri Oct 03 02:09:57 GMT 2025