psloop.c revision 1.1.1.2.4.2
1 1.1.1.2.4.2 rmind /****************************************************************************** 2 1.1.1.2.4.2 rmind * 3 1.1.1.2.4.2 rmind * Module Name: psloop - Main AML parse loop 4 1.1.1.2.4.2 rmind * 5 1.1.1.2.4.2 rmind *****************************************************************************/ 6 1.1.1.2.4.2 rmind 7 1.1.1.2.4.2 rmind /* 8 1.1.1.2.4.2 rmind * Copyright (C) 2000 - 2011, Intel Corp. 9 1.1.1.2.4.2 rmind * All rights reserved. 10 1.1.1.2.4.2 rmind * 11 1.1.1.2.4.2 rmind * Redistribution and use in source and binary forms, with or without 12 1.1.1.2.4.2 rmind * modification, are permitted provided that the following conditions 13 1.1.1.2.4.2 rmind * are met: 14 1.1.1.2.4.2 rmind * 1. Redistributions of source code must retain the above copyright 15 1.1.1.2.4.2 rmind * notice, this list of conditions, and the following disclaimer, 16 1.1.1.2.4.2 rmind * without modification. 17 1.1.1.2.4.2 rmind * 2. Redistributions in binary form must reproduce at minimum a disclaimer 18 1.1.1.2.4.2 rmind * substantially similar to the "NO WARRANTY" disclaimer below 19 1.1.1.2.4.2 rmind * ("Disclaimer") and any redistribution must be conditioned upon 20 1.1.1.2.4.2 rmind * including a substantially similar Disclaimer requirement for further 21 1.1.1.2.4.2 rmind * binary redistribution. 22 1.1.1.2.4.2 rmind * 3. Neither the names of the above-listed copyright holders nor the names 23 1.1.1.2.4.2 rmind * of any contributors may be used to endorse or promote products derived 24 1.1.1.2.4.2 rmind * from this software without specific prior written permission. 25 1.1.1.2.4.2 rmind * 26 1.1.1.2.4.2 rmind * Alternatively, this software may be distributed under the terms of the 27 1.1.1.2.4.2 rmind * GNU General Public License ("GPL") version 2 as published by the Free 28 1.1.1.2.4.2 rmind * Software Foundation. 29 1.1.1.2.4.2 rmind * 30 1.1.1.2.4.2 rmind * NO WARRANTY 31 1.1.1.2.4.2 rmind * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 32 1.1.1.2.4.2 rmind * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 33 1.1.1.2.4.2 rmind * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR 34 1.1.1.2.4.2 rmind * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 35 1.1.1.2.4.2 rmind * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 36 1.1.1.2.4.2 rmind * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 37 1.1.1.2.4.2 rmind * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 38 1.1.1.2.4.2 rmind * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 39 1.1.1.2.4.2 rmind * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 40 1.1.1.2.4.2 rmind * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 41 1.1.1.2.4.2 rmind * POSSIBILITY OF SUCH DAMAGES. 42 1.1.1.2.4.2 rmind */ 43 1.1.1.2.4.2 rmind 44 1.1.1.2.4.2 rmind 45 1.1.1.2.4.2 rmind /* 46 1.1.1.2.4.2 rmind * Parse the AML and build an operation tree as most interpreters, (such as 47 1.1.1.2.4.2 rmind * Perl) do. Parsing is done by hand rather than with a YACC generated parser 48 1.1.1.2.4.2 rmind * to tightly constrain stack and dynamic memory usage. Parsing is kept 49 1.1.1.2.4.2 rmind * flexible and the code fairly compact by parsing based on a list of AML 50 1.1.1.2.4.2 rmind * opcode templates in AmlOpInfo[]. 51 1.1.1.2.4.2 rmind */ 52 1.1.1.2.4.2 rmind 53 1.1.1.2.4.2 rmind #include "acpi.h" 54 1.1.1.2.4.2 rmind #include "accommon.h" 55 1.1.1.2.4.2 rmind #include "acparser.h" 56 1.1.1.2.4.2 rmind #include "acdispat.h" 57 1.1.1.2.4.2 rmind #include "amlcode.h" 58 1.1.1.2.4.2 rmind 59 1.1.1.2.4.2 rmind #define _COMPONENT ACPI_PARSER 60 1.1.1.2.4.2 rmind ACPI_MODULE_NAME ("psloop") 61 1.1.1.2.4.2 rmind 62 1.1.1.2.4.2 rmind static UINT32 AcpiGbl_Depth = 0; 63 1.1.1.2.4.2 rmind 64 1.1.1.2.4.2 rmind 65 1.1.1.2.4.2 rmind /* Local prototypes */ 66 1.1.1.2.4.2 rmind 67 1.1.1.2.4.2 rmind static ACPI_STATUS 68 1.1.1.2.4.2 rmind AcpiPsGetAmlOpcode ( 69 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState); 70 1.1.1.2.4.2 rmind 71 1.1.1.2.4.2 rmind static ACPI_STATUS 72 1.1.1.2.4.2 rmind AcpiPsBuildNamedOp ( 73 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 74 1.1.1.2.4.2 rmind UINT8 *AmlOpStart, 75 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *UnnamedOp, 76 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT **Op); 77 1.1.1.2.4.2 rmind 78 1.1.1.2.4.2 rmind static ACPI_STATUS 79 1.1.1.2.4.2 rmind AcpiPsCreateOp ( 80 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 81 1.1.1.2.4.2 rmind UINT8 *AmlOpStart, 82 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT **NewOp); 83 1.1.1.2.4.2 rmind 84 1.1.1.2.4.2 rmind static ACPI_STATUS 85 1.1.1.2.4.2 rmind AcpiPsGetArguments ( 86 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 87 1.1.1.2.4.2 rmind UINT8 *AmlOpStart, 88 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *Op); 89 1.1.1.2.4.2 rmind 90 1.1.1.2.4.2 rmind static ACPI_STATUS 91 1.1.1.2.4.2 rmind AcpiPsCompleteOp ( 92 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 93 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT **Op, 94 1.1.1.2.4.2 rmind ACPI_STATUS Status); 95 1.1.1.2.4.2 rmind 96 1.1.1.2.4.2 rmind static ACPI_STATUS 97 1.1.1.2.4.2 rmind AcpiPsCompleteFinalOp ( 98 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 99 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *Op, 100 1.1.1.2.4.2 rmind ACPI_STATUS Status); 101 1.1.1.2.4.2 rmind 102 1.1.1.2.4.2 rmind static void 103 1.1.1.2.4.2 rmind AcpiPsLinkModuleCode ( 104 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *ParentOp, 105 1.1.1.2.4.2 rmind UINT8 *AmlStart, 106 1.1.1.2.4.2 rmind UINT32 AmlLength, 107 1.1.1.2.4.2 rmind ACPI_OWNER_ID OwnerId); 108 1.1.1.2.4.2 rmind 109 1.1.1.2.4.2 rmind 110 1.1.1.2.4.2 rmind /******************************************************************************* 111 1.1.1.2.4.2 rmind * 112 1.1.1.2.4.2 rmind * FUNCTION: AcpiPsGetAmlOpcode 113 1.1.1.2.4.2 rmind * 114 1.1.1.2.4.2 rmind * PARAMETERS: WalkState - Current state 115 1.1.1.2.4.2 rmind * 116 1.1.1.2.4.2 rmind * RETURN: Status 117 1.1.1.2.4.2 rmind * 118 1.1.1.2.4.2 rmind * DESCRIPTION: Extract the next AML opcode from the input stream. 119 1.1.1.2.4.2 rmind * 120 1.1.1.2.4.2 rmind ******************************************************************************/ 121 1.1.1.2.4.2 rmind 122 1.1.1.2.4.2 rmind static ACPI_STATUS 123 1.1.1.2.4.2 rmind AcpiPsGetAmlOpcode ( 124 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState) 125 1.1.1.2.4.2 rmind { 126 1.1.1.2.4.2 rmind 127 1.1.1.2.4.2 rmind ACPI_FUNCTION_TRACE_PTR (PsGetAmlOpcode, WalkState); 128 1.1.1.2.4.2 rmind 129 1.1.1.2.4.2 rmind 130 1.1.1.2.4.2 rmind WalkState->AmlOffset = (UINT32) ACPI_PTR_DIFF (WalkState->ParserState.Aml, 131 1.1.1.2.4.2 rmind WalkState->ParserState.AmlStart); 132 1.1.1.2.4.2 rmind WalkState->Opcode = AcpiPsPeekOpcode (&(WalkState->ParserState)); 133 1.1.1.2.4.2 rmind 134 1.1.1.2.4.2 rmind /* 135 1.1.1.2.4.2 rmind * First cut to determine what we have found: 136 1.1.1.2.4.2 rmind * 1) A valid AML opcode 137 1.1.1.2.4.2 rmind * 2) A name string 138 1.1.1.2.4.2 rmind * 3) An unknown/invalid opcode 139 1.1.1.2.4.2 rmind */ 140 1.1.1.2.4.2 rmind WalkState->OpInfo = AcpiPsGetOpcodeInfo (WalkState->Opcode); 141 1.1.1.2.4.2 rmind 142 1.1.1.2.4.2 rmind switch (WalkState->OpInfo->Class) 143 1.1.1.2.4.2 rmind { 144 1.1.1.2.4.2 rmind case AML_CLASS_ASCII: 145 1.1.1.2.4.2 rmind case AML_CLASS_PREFIX: 146 1.1.1.2.4.2 rmind /* 147 1.1.1.2.4.2 rmind * Starts with a valid prefix or ASCII char, this is a name 148 1.1.1.2.4.2 rmind * string. Convert the bare name string to a namepath. 149 1.1.1.2.4.2 rmind */ 150 1.1.1.2.4.2 rmind WalkState->Opcode = AML_INT_NAMEPATH_OP; 151 1.1.1.2.4.2 rmind WalkState->ArgTypes = ARGP_NAMESTRING; 152 1.1.1.2.4.2 rmind break; 153 1.1.1.2.4.2 rmind 154 1.1.1.2.4.2 rmind case AML_CLASS_UNKNOWN: 155 1.1.1.2.4.2 rmind 156 1.1.1.2.4.2 rmind /* The opcode is unrecognized. Just skip unknown opcodes */ 157 1.1.1.2.4.2 rmind 158 1.1.1.2.4.2 rmind ACPI_ERROR ((AE_INFO, 159 1.1.1.2.4.2 rmind "Found unknown opcode 0x%X at AML address %p offset 0x%X, ignoring", 160 1.1.1.2.4.2 rmind WalkState->Opcode, WalkState->ParserState.Aml, WalkState->AmlOffset)); 161 1.1.1.2.4.2 rmind 162 1.1.1.2.4.2 rmind ACPI_DUMP_BUFFER (WalkState->ParserState.Aml, 128); 163 1.1.1.2.4.2 rmind 164 1.1.1.2.4.2 rmind /* Assume one-byte bad opcode */ 165 1.1.1.2.4.2 rmind 166 1.1.1.2.4.2 rmind WalkState->ParserState.Aml++; 167 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_CTRL_PARSE_CONTINUE); 168 1.1.1.2.4.2 rmind 169 1.1.1.2.4.2 rmind default: 170 1.1.1.2.4.2 rmind 171 1.1.1.2.4.2 rmind /* Found opcode info, this is a normal opcode */ 172 1.1.1.2.4.2 rmind 173 1.1.1.2.4.2 rmind WalkState->ParserState.Aml += AcpiPsGetOpcodeSize (WalkState->Opcode); 174 1.1.1.2.4.2 rmind WalkState->ArgTypes = WalkState->OpInfo->ParseArgs; 175 1.1.1.2.4.2 rmind break; 176 1.1.1.2.4.2 rmind } 177 1.1.1.2.4.2 rmind 178 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_OK); 179 1.1.1.2.4.2 rmind } 180 1.1.1.2.4.2 rmind 181 1.1.1.2.4.2 rmind 182 1.1.1.2.4.2 rmind /******************************************************************************* 183 1.1.1.2.4.2 rmind * 184 1.1.1.2.4.2 rmind * FUNCTION: AcpiPsBuildNamedOp 185 1.1.1.2.4.2 rmind * 186 1.1.1.2.4.2 rmind * PARAMETERS: WalkState - Current state 187 1.1.1.2.4.2 rmind * AmlOpStart - Begin of named Op in AML 188 1.1.1.2.4.2 rmind * UnnamedOp - Early Op (not a named Op) 189 1.1.1.2.4.2 rmind * Op - Returned Op 190 1.1.1.2.4.2 rmind * 191 1.1.1.2.4.2 rmind * RETURN: Status 192 1.1.1.2.4.2 rmind * 193 1.1.1.2.4.2 rmind * DESCRIPTION: Parse a named Op 194 1.1.1.2.4.2 rmind * 195 1.1.1.2.4.2 rmind ******************************************************************************/ 196 1.1.1.2.4.2 rmind 197 1.1.1.2.4.2 rmind static ACPI_STATUS 198 1.1.1.2.4.2 rmind AcpiPsBuildNamedOp ( 199 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 200 1.1.1.2.4.2 rmind UINT8 *AmlOpStart, 201 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *UnnamedOp, 202 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT **Op) 203 1.1.1.2.4.2 rmind { 204 1.1.1.2.4.2 rmind ACPI_STATUS Status = AE_OK; 205 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *Arg = NULL; 206 1.1.1.2.4.2 rmind 207 1.1.1.2.4.2 rmind 208 1.1.1.2.4.2 rmind ACPI_FUNCTION_TRACE_PTR (PsBuildNamedOp, WalkState); 209 1.1.1.2.4.2 rmind 210 1.1.1.2.4.2 rmind 211 1.1.1.2.4.2 rmind UnnamedOp->Common.Value.Arg = NULL; 212 1.1.1.2.4.2 rmind UnnamedOp->Common.ArgListLength = 0; 213 1.1.1.2.4.2 rmind UnnamedOp->Common.AmlOpcode = WalkState->Opcode; 214 1.1.1.2.4.2 rmind 215 1.1.1.2.4.2 rmind /* 216 1.1.1.2.4.2 rmind * Get and append arguments until we find the node that contains 217 1.1.1.2.4.2 rmind * the name (the type ARGP_NAME). 218 1.1.1.2.4.2 rmind */ 219 1.1.1.2.4.2 rmind while (GET_CURRENT_ARG_TYPE (WalkState->ArgTypes) && 220 1.1.1.2.4.2 rmind (GET_CURRENT_ARG_TYPE (WalkState->ArgTypes) != ARGP_NAME)) 221 1.1.1.2.4.2 rmind { 222 1.1.1.2.4.2 rmind Status = AcpiPsGetNextArg (WalkState, &(WalkState->ParserState), 223 1.1.1.2.4.2 rmind GET_CURRENT_ARG_TYPE (WalkState->ArgTypes), &Arg); 224 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 225 1.1.1.2.4.2 rmind { 226 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 227 1.1.1.2.4.2 rmind } 228 1.1.1.2.4.2 rmind 229 1.1.1.2.4.2 rmind AcpiPsAppendArg (UnnamedOp, Arg); 230 1.1.1.2.4.2 rmind INCREMENT_ARG_LIST (WalkState->ArgTypes); 231 1.1.1.2.4.2 rmind } 232 1.1.1.2.4.2 rmind 233 1.1.1.2.4.2 rmind /* 234 1.1.1.2.4.2 rmind * Make sure that we found a NAME and didn't run out of arguments 235 1.1.1.2.4.2 rmind */ 236 1.1.1.2.4.2 rmind if (!GET_CURRENT_ARG_TYPE (WalkState->ArgTypes)) 237 1.1.1.2.4.2 rmind { 238 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_AML_NO_OPERAND); 239 1.1.1.2.4.2 rmind } 240 1.1.1.2.4.2 rmind 241 1.1.1.2.4.2 rmind /* We know that this arg is a name, move to next arg */ 242 1.1.1.2.4.2 rmind 243 1.1.1.2.4.2 rmind INCREMENT_ARG_LIST (WalkState->ArgTypes); 244 1.1.1.2.4.2 rmind 245 1.1.1.2.4.2 rmind /* 246 1.1.1.2.4.2 rmind * Find the object. This will either insert the object into 247 1.1.1.2.4.2 rmind * the namespace or simply look it up 248 1.1.1.2.4.2 rmind */ 249 1.1.1.2.4.2 rmind WalkState->Op = NULL; 250 1.1.1.2.4.2 rmind 251 1.1.1.2.4.2 rmind Status = WalkState->DescendingCallback (WalkState, Op); 252 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 253 1.1.1.2.4.2 rmind { 254 1.1.1.2.4.2 rmind ACPI_EXCEPTION ((AE_INFO, Status, "During name lookup/catalog")); 255 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 256 1.1.1.2.4.2 rmind } 257 1.1.1.2.4.2 rmind 258 1.1.1.2.4.2 rmind if (!*Op) 259 1.1.1.2.4.2 rmind { 260 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_CTRL_PARSE_CONTINUE); 261 1.1.1.2.4.2 rmind } 262 1.1.1.2.4.2 rmind 263 1.1.1.2.4.2 rmind Status = AcpiPsNextParseState (WalkState, *Op, Status); 264 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 265 1.1.1.2.4.2 rmind { 266 1.1.1.2.4.2 rmind if (Status == AE_CTRL_PENDING) 267 1.1.1.2.4.2 rmind { 268 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_CTRL_PARSE_PENDING); 269 1.1.1.2.4.2 rmind } 270 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 271 1.1.1.2.4.2 rmind } 272 1.1.1.2.4.2 rmind 273 1.1.1.2.4.2 rmind AcpiPsAppendArg (*Op, UnnamedOp->Common.Value.Arg); 274 1.1.1.2.4.2 rmind AcpiGbl_Depth++; 275 1.1.1.2.4.2 rmind 276 1.1.1.2.4.2 rmind if ((*Op)->Common.AmlOpcode == AML_REGION_OP || 277 1.1.1.2.4.2 rmind (*Op)->Common.AmlOpcode == AML_DATA_REGION_OP) 278 1.1.1.2.4.2 rmind { 279 1.1.1.2.4.2 rmind /* 280 1.1.1.2.4.2 rmind * Defer final parsing of an OperationRegion body, because we don't 281 1.1.1.2.4.2 rmind * have enough info in the first pass to parse it correctly (i.e., 282 1.1.1.2.4.2 rmind * there may be method calls within the TermArg elements of the body.) 283 1.1.1.2.4.2 rmind * 284 1.1.1.2.4.2 rmind * However, we must continue parsing because the opregion is not a 285 1.1.1.2.4.2 rmind * standalone package -- we don't know where the end is at this point. 286 1.1.1.2.4.2 rmind * 287 1.1.1.2.4.2 rmind * (Length is unknown until parse of the body complete) 288 1.1.1.2.4.2 rmind */ 289 1.1.1.2.4.2 rmind (*Op)->Named.Data = AmlOpStart; 290 1.1.1.2.4.2 rmind (*Op)->Named.Length = 0; 291 1.1.1.2.4.2 rmind } 292 1.1.1.2.4.2 rmind 293 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_OK); 294 1.1.1.2.4.2 rmind } 295 1.1.1.2.4.2 rmind 296 1.1.1.2.4.2 rmind 297 1.1.1.2.4.2 rmind /******************************************************************************* 298 1.1.1.2.4.2 rmind * 299 1.1.1.2.4.2 rmind * FUNCTION: AcpiPsCreateOp 300 1.1.1.2.4.2 rmind * 301 1.1.1.2.4.2 rmind * PARAMETERS: WalkState - Current state 302 1.1.1.2.4.2 rmind * AmlOpStart - Op start in AML 303 1.1.1.2.4.2 rmind * NewOp - Returned Op 304 1.1.1.2.4.2 rmind * 305 1.1.1.2.4.2 rmind * RETURN: Status 306 1.1.1.2.4.2 rmind * 307 1.1.1.2.4.2 rmind * DESCRIPTION: Get Op from AML 308 1.1.1.2.4.2 rmind * 309 1.1.1.2.4.2 rmind ******************************************************************************/ 310 1.1.1.2.4.2 rmind 311 1.1.1.2.4.2 rmind static ACPI_STATUS 312 1.1.1.2.4.2 rmind AcpiPsCreateOp ( 313 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 314 1.1.1.2.4.2 rmind UINT8 *AmlOpStart, 315 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT **NewOp) 316 1.1.1.2.4.2 rmind { 317 1.1.1.2.4.2 rmind ACPI_STATUS Status = AE_OK; 318 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *Op; 319 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *NamedOp = NULL; 320 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *ParentScope; 321 1.1.1.2.4.2 rmind UINT8 ArgumentCount; 322 1.1.1.2.4.2 rmind const ACPI_OPCODE_INFO *OpInfo; 323 1.1.1.2.4.2 rmind 324 1.1.1.2.4.2 rmind 325 1.1.1.2.4.2 rmind ACPI_FUNCTION_TRACE_PTR (PsCreateOp, WalkState); 326 1.1.1.2.4.2 rmind 327 1.1.1.2.4.2 rmind 328 1.1.1.2.4.2 rmind Status = AcpiPsGetAmlOpcode (WalkState); 329 1.1.1.2.4.2 rmind if (Status == AE_CTRL_PARSE_CONTINUE) 330 1.1.1.2.4.2 rmind { 331 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_CTRL_PARSE_CONTINUE); 332 1.1.1.2.4.2 rmind } 333 1.1.1.2.4.2 rmind 334 1.1.1.2.4.2 rmind /* Create Op structure and append to parent's argument list */ 335 1.1.1.2.4.2 rmind 336 1.1.1.2.4.2 rmind WalkState->OpInfo = AcpiPsGetOpcodeInfo (WalkState->Opcode); 337 1.1.1.2.4.2 rmind Op = AcpiPsAllocOp (WalkState->Opcode); 338 1.1.1.2.4.2 rmind if (!Op) 339 1.1.1.2.4.2 rmind { 340 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_NO_MEMORY); 341 1.1.1.2.4.2 rmind } 342 1.1.1.2.4.2 rmind 343 1.1.1.2.4.2 rmind if (WalkState->OpInfo->Flags & AML_NAMED) 344 1.1.1.2.4.2 rmind { 345 1.1.1.2.4.2 rmind Status = AcpiPsBuildNamedOp (WalkState, AmlOpStart, Op, &NamedOp); 346 1.1.1.2.4.2 rmind AcpiPsFreeOp (Op); 347 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 348 1.1.1.2.4.2 rmind { 349 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 350 1.1.1.2.4.2 rmind } 351 1.1.1.2.4.2 rmind 352 1.1.1.2.4.2 rmind *NewOp = NamedOp; 353 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_OK); 354 1.1.1.2.4.2 rmind } 355 1.1.1.2.4.2 rmind 356 1.1.1.2.4.2 rmind /* Not a named opcode, just allocate Op and append to parent */ 357 1.1.1.2.4.2 rmind 358 1.1.1.2.4.2 rmind if (WalkState->OpInfo->Flags & AML_CREATE) 359 1.1.1.2.4.2 rmind { 360 1.1.1.2.4.2 rmind /* 361 1.1.1.2.4.2 rmind * Backup to beginning of CreateXXXfield declaration 362 1.1.1.2.4.2 rmind * BodyLength is unknown until we parse the body 363 1.1.1.2.4.2 rmind */ 364 1.1.1.2.4.2 rmind Op->Named.Data = AmlOpStart; 365 1.1.1.2.4.2 rmind Op->Named.Length = 0; 366 1.1.1.2.4.2 rmind } 367 1.1.1.2.4.2 rmind 368 1.1.1.2.4.2 rmind if (WalkState->Opcode == AML_BANK_FIELD_OP) 369 1.1.1.2.4.2 rmind { 370 1.1.1.2.4.2 rmind /* 371 1.1.1.2.4.2 rmind * Backup to beginning of BankField declaration 372 1.1.1.2.4.2 rmind * BodyLength is unknown until we parse the body 373 1.1.1.2.4.2 rmind */ 374 1.1.1.2.4.2 rmind Op->Named.Data = AmlOpStart; 375 1.1.1.2.4.2 rmind Op->Named.Length = 0; 376 1.1.1.2.4.2 rmind } 377 1.1.1.2.4.2 rmind 378 1.1.1.2.4.2 rmind ParentScope = AcpiPsGetParentScope (&(WalkState->ParserState)); 379 1.1.1.2.4.2 rmind AcpiPsAppendArg (ParentScope, Op); 380 1.1.1.2.4.2 rmind 381 1.1.1.2.4.2 rmind if (ParentScope) 382 1.1.1.2.4.2 rmind { 383 1.1.1.2.4.2 rmind OpInfo = AcpiPsGetOpcodeInfo (ParentScope->Common.AmlOpcode); 384 1.1.1.2.4.2 rmind if (OpInfo->Flags & AML_HAS_TARGET) 385 1.1.1.2.4.2 rmind { 386 1.1.1.2.4.2 rmind ArgumentCount = AcpiPsGetArgumentCount (OpInfo->Type); 387 1.1.1.2.4.2 rmind if (ParentScope->Common.ArgListLength > ArgumentCount) 388 1.1.1.2.4.2 rmind { 389 1.1.1.2.4.2 rmind Op->Common.Flags |= ACPI_PARSEOP_TARGET; 390 1.1.1.2.4.2 rmind } 391 1.1.1.2.4.2 rmind } 392 1.1.1.2.4.2 rmind else if (ParentScope->Common.AmlOpcode == AML_INCREMENT_OP) 393 1.1.1.2.4.2 rmind { 394 1.1.1.2.4.2 rmind Op->Common.Flags |= ACPI_PARSEOP_TARGET; 395 1.1.1.2.4.2 rmind } 396 1.1.1.2.4.2 rmind } 397 1.1.1.2.4.2 rmind 398 1.1.1.2.4.2 rmind if (WalkState->DescendingCallback != NULL) 399 1.1.1.2.4.2 rmind { 400 1.1.1.2.4.2 rmind /* 401 1.1.1.2.4.2 rmind * Find the object. This will either insert the object into 402 1.1.1.2.4.2 rmind * the namespace or simply look it up 403 1.1.1.2.4.2 rmind */ 404 1.1.1.2.4.2 rmind WalkState->Op = *NewOp = Op; 405 1.1.1.2.4.2 rmind 406 1.1.1.2.4.2 rmind Status = WalkState->DescendingCallback (WalkState, &Op); 407 1.1.1.2.4.2 rmind Status = AcpiPsNextParseState (WalkState, Op, Status); 408 1.1.1.2.4.2 rmind if (Status == AE_CTRL_PENDING) 409 1.1.1.2.4.2 rmind { 410 1.1.1.2.4.2 rmind Status = AE_CTRL_PARSE_PENDING; 411 1.1.1.2.4.2 rmind } 412 1.1.1.2.4.2 rmind } 413 1.1.1.2.4.2 rmind 414 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 415 1.1.1.2.4.2 rmind } 416 1.1.1.2.4.2 rmind 417 1.1.1.2.4.2 rmind 418 1.1.1.2.4.2 rmind /******************************************************************************* 419 1.1.1.2.4.2 rmind * 420 1.1.1.2.4.2 rmind * FUNCTION: AcpiPsGetArguments 421 1.1.1.2.4.2 rmind * 422 1.1.1.2.4.2 rmind * PARAMETERS: WalkState - Current state 423 1.1.1.2.4.2 rmind * AmlOpStart - Op start in AML 424 1.1.1.2.4.2 rmind * Op - Current Op 425 1.1.1.2.4.2 rmind * 426 1.1.1.2.4.2 rmind * RETURN: Status 427 1.1.1.2.4.2 rmind * 428 1.1.1.2.4.2 rmind * DESCRIPTION: Get arguments for passed Op. 429 1.1.1.2.4.2 rmind * 430 1.1.1.2.4.2 rmind ******************************************************************************/ 431 1.1.1.2.4.2 rmind 432 1.1.1.2.4.2 rmind static ACPI_STATUS 433 1.1.1.2.4.2 rmind AcpiPsGetArguments ( 434 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 435 1.1.1.2.4.2 rmind UINT8 *AmlOpStart, 436 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *Op) 437 1.1.1.2.4.2 rmind { 438 1.1.1.2.4.2 rmind ACPI_STATUS Status = AE_OK; 439 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *Arg = NULL; 440 1.1.1.2.4.2 rmind const ACPI_OPCODE_INFO *OpInfo; 441 1.1.1.2.4.2 rmind 442 1.1.1.2.4.2 rmind 443 1.1.1.2.4.2 rmind ACPI_FUNCTION_TRACE_PTR (PsGetArguments, WalkState); 444 1.1.1.2.4.2 rmind 445 1.1.1.2.4.2 rmind 446 1.1.1.2.4.2 rmind switch (Op->Common.AmlOpcode) 447 1.1.1.2.4.2 rmind { 448 1.1.1.2.4.2 rmind case AML_BYTE_OP: /* AML_BYTEDATA_ARG */ 449 1.1.1.2.4.2 rmind case AML_WORD_OP: /* AML_WORDDATA_ARG */ 450 1.1.1.2.4.2 rmind case AML_DWORD_OP: /* AML_DWORDATA_ARG */ 451 1.1.1.2.4.2 rmind case AML_QWORD_OP: /* AML_QWORDATA_ARG */ 452 1.1.1.2.4.2 rmind case AML_STRING_OP: /* AML_ASCIICHARLIST_ARG */ 453 1.1.1.2.4.2 rmind 454 1.1.1.2.4.2 rmind /* Fill in constant or string argument directly */ 455 1.1.1.2.4.2 rmind 456 1.1.1.2.4.2 rmind AcpiPsGetNextSimpleArg (&(WalkState->ParserState), 457 1.1.1.2.4.2 rmind GET_CURRENT_ARG_TYPE (WalkState->ArgTypes), Op); 458 1.1.1.2.4.2 rmind break; 459 1.1.1.2.4.2 rmind 460 1.1.1.2.4.2 rmind case AML_INT_NAMEPATH_OP: /* AML_NAMESTRING_ARG */ 461 1.1.1.2.4.2 rmind 462 1.1.1.2.4.2 rmind Status = AcpiPsGetNextNamepath (WalkState, &(WalkState->ParserState), Op, 1); 463 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 464 1.1.1.2.4.2 rmind { 465 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 466 1.1.1.2.4.2 rmind } 467 1.1.1.2.4.2 rmind 468 1.1.1.2.4.2 rmind WalkState->ArgTypes = 0; 469 1.1.1.2.4.2 rmind break; 470 1.1.1.2.4.2 rmind 471 1.1.1.2.4.2 rmind default: 472 1.1.1.2.4.2 rmind /* 473 1.1.1.2.4.2 rmind * Op is not a constant or string, append each argument to the Op 474 1.1.1.2.4.2 rmind */ 475 1.1.1.2.4.2 rmind while (GET_CURRENT_ARG_TYPE (WalkState->ArgTypes) && !WalkState->ArgCount) 476 1.1.1.2.4.2 rmind { 477 1.1.1.2.4.2 rmind WalkState->AmlOffset = (UINT32) ACPI_PTR_DIFF (WalkState->ParserState.Aml, 478 1.1.1.2.4.2 rmind WalkState->ParserState.AmlStart); 479 1.1.1.2.4.2 rmind 480 1.1.1.2.4.2 rmind Status = AcpiPsGetNextArg (WalkState, &(WalkState->ParserState), 481 1.1.1.2.4.2 rmind GET_CURRENT_ARG_TYPE (WalkState->ArgTypes), &Arg); 482 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 483 1.1.1.2.4.2 rmind { 484 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 485 1.1.1.2.4.2 rmind } 486 1.1.1.2.4.2 rmind 487 1.1.1.2.4.2 rmind if (Arg) 488 1.1.1.2.4.2 rmind { 489 1.1.1.2.4.2 rmind Arg->Common.AmlOffset = WalkState->AmlOffset; 490 1.1.1.2.4.2 rmind AcpiPsAppendArg (Op, Arg); 491 1.1.1.2.4.2 rmind } 492 1.1.1.2.4.2 rmind 493 1.1.1.2.4.2 rmind INCREMENT_ARG_LIST (WalkState->ArgTypes); 494 1.1.1.2.4.2 rmind } 495 1.1.1.2.4.2 rmind 496 1.1.1.2.4.2 rmind 497 1.1.1.2.4.2 rmind /* 498 1.1.1.2.4.2 rmind * Handle executable code at "module-level". This refers to 499 1.1.1.2.4.2 rmind * executable opcodes that appear outside of any control method. 500 1.1.1.2.4.2 rmind */ 501 1.1.1.2.4.2 rmind if ((WalkState->PassNumber <= ACPI_IMODE_LOAD_PASS2) && 502 1.1.1.2.4.2 rmind ((WalkState->ParseFlags & ACPI_PARSE_DISASSEMBLE) == 0)) 503 1.1.1.2.4.2 rmind { 504 1.1.1.2.4.2 rmind /* 505 1.1.1.2.4.2 rmind * We want to skip If/Else/While constructs during Pass1 because we 506 1.1.1.2.4.2 rmind * want to actually conditionally execute the code during Pass2. 507 1.1.1.2.4.2 rmind * 508 1.1.1.2.4.2 rmind * Except for disassembly, where we always want to walk the 509 1.1.1.2.4.2 rmind * If/Else/While packages 510 1.1.1.2.4.2 rmind */ 511 1.1.1.2.4.2 rmind switch (Op->Common.AmlOpcode) 512 1.1.1.2.4.2 rmind { 513 1.1.1.2.4.2 rmind case AML_IF_OP: 514 1.1.1.2.4.2 rmind case AML_ELSE_OP: 515 1.1.1.2.4.2 rmind case AML_WHILE_OP: 516 1.1.1.2.4.2 rmind 517 1.1.1.2.4.2 rmind /* 518 1.1.1.2.4.2 rmind * Currently supported module-level opcodes are: 519 1.1.1.2.4.2 rmind * IF/ELSE/WHILE. These appear to be the most common, 520 1.1.1.2.4.2 rmind * and easiest to support since they open an AML 521 1.1.1.2.4.2 rmind * package. 522 1.1.1.2.4.2 rmind */ 523 1.1.1.2.4.2 rmind if (WalkState->PassNumber == ACPI_IMODE_LOAD_PASS1) 524 1.1.1.2.4.2 rmind { 525 1.1.1.2.4.2 rmind AcpiPsLinkModuleCode (Op->Common.Parent, AmlOpStart, 526 1.1.1.2.4.2 rmind (UINT32) (WalkState->ParserState.PkgEnd - AmlOpStart), 527 1.1.1.2.4.2 rmind WalkState->OwnerId); 528 1.1.1.2.4.2 rmind } 529 1.1.1.2.4.2 rmind 530 1.1.1.2.4.2 rmind ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, 531 1.1.1.2.4.2 rmind "Pass1: Skipping an If/Else/While body\n")); 532 1.1.1.2.4.2 rmind 533 1.1.1.2.4.2 rmind /* Skip body of if/else/while in pass 1 */ 534 1.1.1.2.4.2 rmind 535 1.1.1.2.4.2 rmind WalkState->ParserState.Aml = WalkState->ParserState.PkgEnd; 536 1.1.1.2.4.2 rmind WalkState->ArgCount = 0; 537 1.1.1.2.4.2 rmind break; 538 1.1.1.2.4.2 rmind 539 1.1.1.2.4.2 rmind default: 540 1.1.1.2.4.2 rmind /* 541 1.1.1.2.4.2 rmind * Check for an unsupported executable opcode at module 542 1.1.1.2.4.2 rmind * level. We must be in PASS1, the parent must be a SCOPE, 543 1.1.1.2.4.2 rmind * The opcode class must be EXECUTE, and the opcode must 544 1.1.1.2.4.2 rmind * not be an argument to another opcode. 545 1.1.1.2.4.2 rmind */ 546 1.1.1.2.4.2 rmind if ((WalkState->PassNumber == ACPI_IMODE_LOAD_PASS1) && 547 1.1.1.2.4.2 rmind (Op->Common.Parent->Common.AmlOpcode == AML_SCOPE_OP)) 548 1.1.1.2.4.2 rmind { 549 1.1.1.2.4.2 rmind OpInfo = AcpiPsGetOpcodeInfo (Op->Common.AmlOpcode); 550 1.1.1.2.4.2 rmind if ((OpInfo->Class == AML_CLASS_EXECUTE) && 551 1.1.1.2.4.2 rmind (!Arg)) 552 1.1.1.2.4.2 rmind { 553 1.1.1.2.4.2 rmind ACPI_WARNING ((AE_INFO, 554 1.1.1.2.4.2 rmind "Detected an unsupported executable opcode " 555 1.1.1.2.4.2 rmind "at module-level: [0x%.4X] at table offset 0x%.4X", 556 1.1.1.2.4.2 rmind Op->Common.AmlOpcode, 557 1.1.1.2.4.2 rmind (UINT32) (ACPI_PTR_DIFF (AmlOpStart, 558 1.1.1.2.4.2 rmind WalkState->ParserState.AmlStart) + 559 1.1.1.2.4.2 rmind sizeof (ACPI_TABLE_HEADER)))); 560 1.1.1.2.4.2 rmind } 561 1.1.1.2.4.2 rmind } 562 1.1.1.2.4.2 rmind break; 563 1.1.1.2.4.2 rmind } 564 1.1.1.2.4.2 rmind } 565 1.1.1.2.4.2 rmind 566 1.1.1.2.4.2 rmind /* Special processing for certain opcodes */ 567 1.1.1.2.4.2 rmind 568 1.1.1.2.4.2 rmind switch (Op->Common.AmlOpcode) 569 1.1.1.2.4.2 rmind { 570 1.1.1.2.4.2 rmind case AML_METHOD_OP: 571 1.1.1.2.4.2 rmind /* 572 1.1.1.2.4.2 rmind * Skip parsing of control method because we don't have enough 573 1.1.1.2.4.2 rmind * info in the first pass to parse it correctly. 574 1.1.1.2.4.2 rmind * 575 1.1.1.2.4.2 rmind * Save the length and address of the body 576 1.1.1.2.4.2 rmind */ 577 1.1.1.2.4.2 rmind Op->Named.Data = WalkState->ParserState.Aml; 578 1.1.1.2.4.2 rmind Op->Named.Length = (UINT32) 579 1.1.1.2.4.2 rmind (WalkState->ParserState.PkgEnd - WalkState->ParserState.Aml); 580 1.1.1.2.4.2 rmind 581 1.1.1.2.4.2 rmind /* Skip body of method */ 582 1.1.1.2.4.2 rmind 583 1.1.1.2.4.2 rmind WalkState->ParserState.Aml = WalkState->ParserState.PkgEnd; 584 1.1.1.2.4.2 rmind WalkState->ArgCount = 0; 585 1.1.1.2.4.2 rmind break; 586 1.1.1.2.4.2 rmind 587 1.1.1.2.4.2 rmind case AML_BUFFER_OP: 588 1.1.1.2.4.2 rmind case AML_PACKAGE_OP: 589 1.1.1.2.4.2 rmind case AML_VAR_PACKAGE_OP: 590 1.1.1.2.4.2 rmind 591 1.1.1.2.4.2 rmind if ((Op->Common.Parent) && 592 1.1.1.2.4.2 rmind (Op->Common.Parent->Common.AmlOpcode == AML_NAME_OP) && 593 1.1.1.2.4.2 rmind (WalkState->PassNumber <= ACPI_IMODE_LOAD_PASS2)) 594 1.1.1.2.4.2 rmind { 595 1.1.1.2.4.2 rmind /* 596 1.1.1.2.4.2 rmind * Skip parsing of Buffers and Packages because we don't have 597 1.1.1.2.4.2 rmind * enough info in the first pass to parse them correctly. 598 1.1.1.2.4.2 rmind */ 599 1.1.1.2.4.2 rmind Op->Named.Data = AmlOpStart; 600 1.1.1.2.4.2 rmind Op->Named.Length = (UINT32) 601 1.1.1.2.4.2 rmind (WalkState->ParserState.PkgEnd - AmlOpStart); 602 1.1.1.2.4.2 rmind 603 1.1.1.2.4.2 rmind /* Skip body */ 604 1.1.1.2.4.2 rmind 605 1.1.1.2.4.2 rmind WalkState->ParserState.Aml = WalkState->ParserState.PkgEnd; 606 1.1.1.2.4.2 rmind WalkState->ArgCount = 0; 607 1.1.1.2.4.2 rmind } 608 1.1.1.2.4.2 rmind break; 609 1.1.1.2.4.2 rmind 610 1.1.1.2.4.2 rmind case AML_WHILE_OP: 611 1.1.1.2.4.2 rmind 612 1.1.1.2.4.2 rmind if (WalkState->ControlState) 613 1.1.1.2.4.2 rmind { 614 1.1.1.2.4.2 rmind WalkState->ControlState->Control.PackageEnd = 615 1.1.1.2.4.2 rmind WalkState->ParserState.PkgEnd; 616 1.1.1.2.4.2 rmind } 617 1.1.1.2.4.2 rmind break; 618 1.1.1.2.4.2 rmind 619 1.1.1.2.4.2 rmind default: 620 1.1.1.2.4.2 rmind 621 1.1.1.2.4.2 rmind /* No action for all other opcodes */ 622 1.1.1.2.4.2 rmind break; 623 1.1.1.2.4.2 rmind } 624 1.1.1.2.4.2 rmind 625 1.1.1.2.4.2 rmind break; 626 1.1.1.2.4.2 rmind } 627 1.1.1.2.4.2 rmind 628 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_OK); 629 1.1.1.2.4.2 rmind } 630 1.1.1.2.4.2 rmind 631 1.1.1.2.4.2 rmind 632 1.1.1.2.4.2 rmind /******************************************************************************* 633 1.1.1.2.4.2 rmind * 634 1.1.1.2.4.2 rmind * FUNCTION: AcpiPsLinkModuleCode 635 1.1.1.2.4.2 rmind * 636 1.1.1.2.4.2 rmind * PARAMETERS: ParentOp - Parent parser op 637 1.1.1.2.4.2 rmind * AmlStart - Pointer to the AML 638 1.1.1.2.4.2 rmind * AmlLength - Length of executable AML 639 1.1.1.2.4.2 rmind * OwnerId - OwnerId of module level code 640 1.1.1.2.4.2 rmind * 641 1.1.1.2.4.2 rmind * RETURN: None. 642 1.1.1.2.4.2 rmind * 643 1.1.1.2.4.2 rmind * DESCRIPTION: Wrap the module-level code with a method object and link the 644 1.1.1.2.4.2 rmind * object to the global list. Note, the mutex field of the method 645 1.1.1.2.4.2 rmind * object is used to link multiple module-level code objects. 646 1.1.1.2.4.2 rmind * 647 1.1.1.2.4.2 rmind ******************************************************************************/ 648 1.1.1.2.4.2 rmind 649 1.1.1.2.4.2 rmind static void 650 1.1.1.2.4.2 rmind AcpiPsLinkModuleCode ( 651 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *ParentOp, 652 1.1.1.2.4.2 rmind UINT8 *AmlStart, 653 1.1.1.2.4.2 rmind UINT32 AmlLength, 654 1.1.1.2.4.2 rmind ACPI_OWNER_ID OwnerId) 655 1.1.1.2.4.2 rmind { 656 1.1.1.2.4.2 rmind ACPI_OPERAND_OBJECT *Prev; 657 1.1.1.2.4.2 rmind ACPI_OPERAND_OBJECT *Next; 658 1.1.1.2.4.2 rmind ACPI_OPERAND_OBJECT *MethodObj; 659 1.1.1.2.4.2 rmind ACPI_NAMESPACE_NODE *ParentNode; 660 1.1.1.2.4.2 rmind 661 1.1.1.2.4.2 rmind 662 1.1.1.2.4.2 rmind /* Get the tail of the list */ 663 1.1.1.2.4.2 rmind 664 1.1.1.2.4.2 rmind Prev = Next = AcpiGbl_ModuleCodeList; 665 1.1.1.2.4.2 rmind while (Next) 666 1.1.1.2.4.2 rmind { 667 1.1.1.2.4.2 rmind Prev = Next; 668 1.1.1.2.4.2 rmind Next = Next->Method.Mutex; 669 1.1.1.2.4.2 rmind } 670 1.1.1.2.4.2 rmind 671 1.1.1.2.4.2 rmind /* 672 1.1.1.2.4.2 rmind * Insert the module level code into the list. Merge it if it is 673 1.1.1.2.4.2 rmind * adjacent to the previous element. 674 1.1.1.2.4.2 rmind */ 675 1.1.1.2.4.2 rmind if (!Prev || 676 1.1.1.2.4.2 rmind ((Prev->Method.AmlStart + Prev->Method.AmlLength) != AmlStart)) 677 1.1.1.2.4.2 rmind { 678 1.1.1.2.4.2 rmind /* Create, initialize, and link a new temporary method object */ 679 1.1.1.2.4.2 rmind 680 1.1.1.2.4.2 rmind MethodObj = AcpiUtCreateInternalObject (ACPI_TYPE_METHOD); 681 1.1.1.2.4.2 rmind if (!MethodObj) 682 1.1.1.2.4.2 rmind { 683 1.1.1.2.4.2 rmind return; 684 1.1.1.2.4.2 rmind } 685 1.1.1.2.4.2 rmind 686 1.1.1.2.4.2 rmind if (ParentOp->Common.Node) 687 1.1.1.2.4.2 rmind { 688 1.1.1.2.4.2 rmind ParentNode = ParentOp->Common.Node; 689 1.1.1.2.4.2 rmind } 690 1.1.1.2.4.2 rmind else 691 1.1.1.2.4.2 rmind { 692 1.1.1.2.4.2 rmind ParentNode = AcpiGbl_RootNode; 693 1.1.1.2.4.2 rmind } 694 1.1.1.2.4.2 rmind 695 1.1.1.2.4.2 rmind MethodObj->Method.AmlStart = AmlStart; 696 1.1.1.2.4.2 rmind MethodObj->Method.AmlLength = AmlLength; 697 1.1.1.2.4.2 rmind MethodObj->Method.OwnerId = OwnerId; 698 1.1.1.2.4.2 rmind MethodObj->Method.InfoFlags |= ACPI_METHOD_MODULE_LEVEL; 699 1.1.1.2.4.2 rmind 700 1.1.1.2.4.2 rmind /* 701 1.1.1.2.4.2 rmind * Save the parent node in NextObject. This is cheating, but we 702 1.1.1.2.4.2 rmind * don't want to expand the method object. 703 1.1.1.2.4.2 rmind */ 704 1.1.1.2.4.2 rmind MethodObj->Method.NextObject = 705 1.1.1.2.4.2 rmind ACPI_CAST_PTR (ACPI_OPERAND_OBJECT, ParentNode); 706 1.1.1.2.4.2 rmind 707 1.1.1.2.4.2 rmind if (!Prev) 708 1.1.1.2.4.2 rmind { 709 1.1.1.2.4.2 rmind AcpiGbl_ModuleCodeList = MethodObj; 710 1.1.1.2.4.2 rmind } 711 1.1.1.2.4.2 rmind else 712 1.1.1.2.4.2 rmind { 713 1.1.1.2.4.2 rmind Prev->Method.Mutex = MethodObj; 714 1.1.1.2.4.2 rmind } 715 1.1.1.2.4.2 rmind } 716 1.1.1.2.4.2 rmind else 717 1.1.1.2.4.2 rmind { 718 1.1.1.2.4.2 rmind Prev->Method.AmlLength += AmlLength; 719 1.1.1.2.4.2 rmind } 720 1.1.1.2.4.2 rmind } 721 1.1.1.2.4.2 rmind 722 1.1.1.2.4.2 rmind 723 1.1.1.2.4.2 rmind /******************************************************************************* 724 1.1.1.2.4.2 rmind * 725 1.1.1.2.4.2 rmind * FUNCTION: AcpiPsCompleteOp 726 1.1.1.2.4.2 rmind * 727 1.1.1.2.4.2 rmind * PARAMETERS: WalkState - Current state 728 1.1.1.2.4.2 rmind * Op - Returned Op 729 1.1.1.2.4.2 rmind * Status - Parse status before complete Op 730 1.1.1.2.4.2 rmind * 731 1.1.1.2.4.2 rmind * RETURN: Status 732 1.1.1.2.4.2 rmind * 733 1.1.1.2.4.2 rmind * DESCRIPTION: Complete Op 734 1.1.1.2.4.2 rmind * 735 1.1.1.2.4.2 rmind ******************************************************************************/ 736 1.1.1.2.4.2 rmind 737 1.1.1.2.4.2 rmind static ACPI_STATUS 738 1.1.1.2.4.2 rmind AcpiPsCompleteOp ( 739 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 740 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT **Op, 741 1.1.1.2.4.2 rmind ACPI_STATUS Status) 742 1.1.1.2.4.2 rmind { 743 1.1.1.2.4.2 rmind ACPI_STATUS Status2; 744 1.1.1.2.4.2 rmind 745 1.1.1.2.4.2 rmind 746 1.1.1.2.4.2 rmind ACPI_FUNCTION_TRACE_PTR (PsCompleteOp, WalkState); 747 1.1.1.2.4.2 rmind 748 1.1.1.2.4.2 rmind 749 1.1.1.2.4.2 rmind /* 750 1.1.1.2.4.2 rmind * Finished one argument of the containing scope 751 1.1.1.2.4.2 rmind */ 752 1.1.1.2.4.2 rmind WalkState->ParserState.Scope->ParseScope.ArgCount--; 753 1.1.1.2.4.2 rmind 754 1.1.1.2.4.2 rmind /* Close this Op (will result in parse subtree deletion) */ 755 1.1.1.2.4.2 rmind 756 1.1.1.2.4.2 rmind Status2 = AcpiPsCompleteThisOp (WalkState, *Op); 757 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status2)) 758 1.1.1.2.4.2 rmind { 759 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status2); 760 1.1.1.2.4.2 rmind } 761 1.1.1.2.4.2 rmind 762 1.1.1.2.4.2 rmind *Op = NULL; 763 1.1.1.2.4.2 rmind 764 1.1.1.2.4.2 rmind switch (Status) 765 1.1.1.2.4.2 rmind { 766 1.1.1.2.4.2 rmind case AE_OK: 767 1.1.1.2.4.2 rmind break; 768 1.1.1.2.4.2 rmind 769 1.1.1.2.4.2 rmind 770 1.1.1.2.4.2 rmind case AE_CTRL_TRANSFER: 771 1.1.1.2.4.2 rmind 772 1.1.1.2.4.2 rmind /* We are about to transfer to a called method */ 773 1.1.1.2.4.2 rmind 774 1.1.1.2.4.2 rmind WalkState->PrevOp = NULL; 775 1.1.1.2.4.2 rmind WalkState->PrevArgTypes = WalkState->ArgTypes; 776 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 777 1.1.1.2.4.2 rmind 778 1.1.1.2.4.2 rmind 779 1.1.1.2.4.2 rmind case AE_CTRL_END: 780 1.1.1.2.4.2 rmind 781 1.1.1.2.4.2 rmind AcpiPsPopScope (&(WalkState->ParserState), Op, 782 1.1.1.2.4.2 rmind &WalkState->ArgTypes, &WalkState->ArgCount); 783 1.1.1.2.4.2 rmind 784 1.1.1.2.4.2 rmind if (*Op) 785 1.1.1.2.4.2 rmind { 786 1.1.1.2.4.2 rmind WalkState->Op = *Op; 787 1.1.1.2.4.2 rmind WalkState->OpInfo = AcpiPsGetOpcodeInfo ((*Op)->Common.AmlOpcode); 788 1.1.1.2.4.2 rmind WalkState->Opcode = (*Op)->Common.AmlOpcode; 789 1.1.1.2.4.2 rmind 790 1.1.1.2.4.2 rmind Status = WalkState->AscendingCallback (WalkState); 791 1.1.1.2.4.2 rmind Status = AcpiPsNextParseState (WalkState, *Op, Status); 792 1.1.1.2.4.2 rmind 793 1.1.1.2.4.2 rmind Status2 = AcpiPsCompleteThisOp (WalkState, *Op); 794 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status2)) 795 1.1.1.2.4.2 rmind { 796 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status2); 797 1.1.1.2.4.2 rmind } 798 1.1.1.2.4.2 rmind } 799 1.1.1.2.4.2 rmind 800 1.1.1.2.4.2 rmind Status = AE_OK; 801 1.1.1.2.4.2 rmind break; 802 1.1.1.2.4.2 rmind 803 1.1.1.2.4.2 rmind 804 1.1.1.2.4.2 rmind case AE_CTRL_BREAK: 805 1.1.1.2.4.2 rmind case AE_CTRL_CONTINUE: 806 1.1.1.2.4.2 rmind 807 1.1.1.2.4.2 rmind /* Pop off scopes until we find the While */ 808 1.1.1.2.4.2 rmind 809 1.1.1.2.4.2 rmind while (!(*Op) || ((*Op)->Common.AmlOpcode != AML_WHILE_OP)) 810 1.1.1.2.4.2 rmind { 811 1.1.1.2.4.2 rmind AcpiPsPopScope (&(WalkState->ParserState), Op, 812 1.1.1.2.4.2 rmind &WalkState->ArgTypes, &WalkState->ArgCount); 813 1.1.1.2.4.2 rmind } 814 1.1.1.2.4.2 rmind 815 1.1.1.2.4.2 rmind /* Close this iteration of the While loop */ 816 1.1.1.2.4.2 rmind 817 1.1.1.2.4.2 rmind WalkState->Op = *Op; 818 1.1.1.2.4.2 rmind WalkState->OpInfo = AcpiPsGetOpcodeInfo ((*Op)->Common.AmlOpcode); 819 1.1.1.2.4.2 rmind WalkState->Opcode = (*Op)->Common.AmlOpcode; 820 1.1.1.2.4.2 rmind 821 1.1.1.2.4.2 rmind Status = WalkState->AscendingCallback (WalkState); 822 1.1.1.2.4.2 rmind Status = AcpiPsNextParseState (WalkState, *Op, Status); 823 1.1.1.2.4.2 rmind 824 1.1.1.2.4.2 rmind Status2 = AcpiPsCompleteThisOp (WalkState, *Op); 825 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status2)) 826 1.1.1.2.4.2 rmind { 827 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status2); 828 1.1.1.2.4.2 rmind } 829 1.1.1.2.4.2 rmind 830 1.1.1.2.4.2 rmind Status = AE_OK; 831 1.1.1.2.4.2 rmind break; 832 1.1.1.2.4.2 rmind 833 1.1.1.2.4.2 rmind 834 1.1.1.2.4.2 rmind case AE_CTRL_TERMINATE: 835 1.1.1.2.4.2 rmind 836 1.1.1.2.4.2 rmind /* Clean up */ 837 1.1.1.2.4.2 rmind do 838 1.1.1.2.4.2 rmind { 839 1.1.1.2.4.2 rmind if (*Op) 840 1.1.1.2.4.2 rmind { 841 1.1.1.2.4.2 rmind Status2 = AcpiPsCompleteThisOp (WalkState, *Op); 842 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status2)) 843 1.1.1.2.4.2 rmind { 844 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status2); 845 1.1.1.2.4.2 rmind } 846 1.1.1.2.4.2 rmind 847 1.1.1.2.4.2 rmind AcpiUtDeleteGenericState ( 848 1.1.1.2.4.2 rmind AcpiUtPopGenericState (&WalkState->ControlState)); 849 1.1.1.2.4.2 rmind } 850 1.1.1.2.4.2 rmind 851 1.1.1.2.4.2 rmind AcpiPsPopScope (&(WalkState->ParserState), Op, 852 1.1.1.2.4.2 rmind &WalkState->ArgTypes, &WalkState->ArgCount); 853 1.1.1.2.4.2 rmind 854 1.1.1.2.4.2 rmind } while (*Op); 855 1.1.1.2.4.2 rmind 856 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_OK); 857 1.1.1.2.4.2 rmind 858 1.1.1.2.4.2 rmind 859 1.1.1.2.4.2 rmind default: /* All other non-AE_OK status */ 860 1.1.1.2.4.2 rmind 861 1.1.1.2.4.2 rmind do 862 1.1.1.2.4.2 rmind { 863 1.1.1.2.4.2 rmind if (*Op) 864 1.1.1.2.4.2 rmind { 865 1.1.1.2.4.2 rmind Status2 = AcpiPsCompleteThisOp (WalkState, *Op); 866 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status2)) 867 1.1.1.2.4.2 rmind { 868 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status2); 869 1.1.1.2.4.2 rmind } 870 1.1.1.2.4.2 rmind } 871 1.1.1.2.4.2 rmind 872 1.1.1.2.4.2 rmind AcpiPsPopScope (&(WalkState->ParserState), Op, 873 1.1.1.2.4.2 rmind &WalkState->ArgTypes, &WalkState->ArgCount); 874 1.1.1.2.4.2 rmind 875 1.1.1.2.4.2 rmind } while (*Op); 876 1.1.1.2.4.2 rmind 877 1.1.1.2.4.2 rmind 878 1.1.1.2.4.2 rmind #if 0 879 1.1.1.2.4.2 rmind /* 880 1.1.1.2.4.2 rmind * TBD: Cleanup parse ops on error 881 1.1.1.2.4.2 rmind */ 882 1.1.1.2.4.2 rmind if (*Op == NULL) 883 1.1.1.2.4.2 rmind { 884 1.1.1.2.4.2 rmind AcpiPsPopScope (ParserState, Op, 885 1.1.1.2.4.2 rmind &WalkState->ArgTypes, &WalkState->ArgCount); 886 1.1.1.2.4.2 rmind } 887 1.1.1.2.4.2 rmind #endif 888 1.1.1.2.4.2 rmind WalkState->PrevOp = NULL; 889 1.1.1.2.4.2 rmind WalkState->PrevArgTypes = WalkState->ArgTypes; 890 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 891 1.1.1.2.4.2 rmind } 892 1.1.1.2.4.2 rmind 893 1.1.1.2.4.2 rmind /* This scope complete? */ 894 1.1.1.2.4.2 rmind 895 1.1.1.2.4.2 rmind if (AcpiPsHasCompletedScope (&(WalkState->ParserState))) 896 1.1.1.2.4.2 rmind { 897 1.1.1.2.4.2 rmind AcpiPsPopScope (&(WalkState->ParserState), Op, 898 1.1.1.2.4.2 rmind &WalkState->ArgTypes, &WalkState->ArgCount); 899 1.1.1.2.4.2 rmind ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, "Popped scope, Op=%p\n", *Op)); 900 1.1.1.2.4.2 rmind } 901 1.1.1.2.4.2 rmind else 902 1.1.1.2.4.2 rmind { 903 1.1.1.2.4.2 rmind *Op = NULL; 904 1.1.1.2.4.2 rmind } 905 1.1.1.2.4.2 rmind 906 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_OK); 907 1.1.1.2.4.2 rmind } 908 1.1.1.2.4.2 rmind 909 1.1.1.2.4.2 rmind 910 1.1.1.2.4.2 rmind /******************************************************************************* 911 1.1.1.2.4.2 rmind * 912 1.1.1.2.4.2 rmind * FUNCTION: AcpiPsCompleteFinalOp 913 1.1.1.2.4.2 rmind * 914 1.1.1.2.4.2 rmind * PARAMETERS: WalkState - Current state 915 1.1.1.2.4.2 rmind * Op - Current Op 916 1.1.1.2.4.2 rmind * Status - Current parse status before complete last 917 1.1.1.2.4.2 rmind * Op 918 1.1.1.2.4.2 rmind * 919 1.1.1.2.4.2 rmind * RETURN: Status 920 1.1.1.2.4.2 rmind * 921 1.1.1.2.4.2 rmind * DESCRIPTION: Complete last Op. 922 1.1.1.2.4.2 rmind * 923 1.1.1.2.4.2 rmind ******************************************************************************/ 924 1.1.1.2.4.2 rmind 925 1.1.1.2.4.2 rmind static ACPI_STATUS 926 1.1.1.2.4.2 rmind AcpiPsCompleteFinalOp ( 927 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState, 928 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *Op, 929 1.1.1.2.4.2 rmind ACPI_STATUS Status) 930 1.1.1.2.4.2 rmind { 931 1.1.1.2.4.2 rmind ACPI_STATUS Status2; 932 1.1.1.2.4.2 rmind 933 1.1.1.2.4.2 rmind 934 1.1.1.2.4.2 rmind ACPI_FUNCTION_TRACE_PTR (PsCompleteFinalOp, WalkState); 935 1.1.1.2.4.2 rmind 936 1.1.1.2.4.2 rmind 937 1.1.1.2.4.2 rmind /* 938 1.1.1.2.4.2 rmind * Complete the last Op (if not completed), and clear the scope stack. 939 1.1.1.2.4.2 rmind * It is easily possible to end an AML "package" with an unbounded number 940 1.1.1.2.4.2 rmind * of open scopes (such as when several ASL blocks are closed with 941 1.1.1.2.4.2 rmind * sequential closing braces). We want to terminate each one cleanly. 942 1.1.1.2.4.2 rmind */ 943 1.1.1.2.4.2 rmind ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, "AML package complete at Op %p\n", Op)); 944 1.1.1.2.4.2 rmind do 945 1.1.1.2.4.2 rmind { 946 1.1.1.2.4.2 rmind if (Op) 947 1.1.1.2.4.2 rmind { 948 1.1.1.2.4.2 rmind if (WalkState->AscendingCallback != NULL) 949 1.1.1.2.4.2 rmind { 950 1.1.1.2.4.2 rmind WalkState->Op = Op; 951 1.1.1.2.4.2 rmind WalkState->OpInfo = AcpiPsGetOpcodeInfo (Op->Common.AmlOpcode); 952 1.1.1.2.4.2 rmind WalkState->Opcode = Op->Common.AmlOpcode; 953 1.1.1.2.4.2 rmind 954 1.1.1.2.4.2 rmind Status = WalkState->AscendingCallback (WalkState); 955 1.1.1.2.4.2 rmind Status = AcpiPsNextParseState (WalkState, Op, Status); 956 1.1.1.2.4.2 rmind if (Status == AE_CTRL_PENDING) 957 1.1.1.2.4.2 rmind { 958 1.1.1.2.4.2 rmind Status = AcpiPsCompleteOp (WalkState, &Op, AE_OK); 959 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 960 1.1.1.2.4.2 rmind { 961 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 962 1.1.1.2.4.2 rmind } 963 1.1.1.2.4.2 rmind } 964 1.1.1.2.4.2 rmind 965 1.1.1.2.4.2 rmind if (Status == AE_CTRL_TERMINATE) 966 1.1.1.2.4.2 rmind { 967 1.1.1.2.4.2 rmind Status = AE_OK; 968 1.1.1.2.4.2 rmind 969 1.1.1.2.4.2 rmind /* Clean up */ 970 1.1.1.2.4.2 rmind do 971 1.1.1.2.4.2 rmind { 972 1.1.1.2.4.2 rmind if (Op) 973 1.1.1.2.4.2 rmind { 974 1.1.1.2.4.2 rmind Status2 = AcpiPsCompleteThisOp (WalkState, Op); 975 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status2)) 976 1.1.1.2.4.2 rmind { 977 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status2); 978 1.1.1.2.4.2 rmind } 979 1.1.1.2.4.2 rmind } 980 1.1.1.2.4.2 rmind 981 1.1.1.2.4.2 rmind AcpiPsPopScope (&(WalkState->ParserState), &Op, 982 1.1.1.2.4.2 rmind &WalkState->ArgTypes, &WalkState->ArgCount); 983 1.1.1.2.4.2 rmind 984 1.1.1.2.4.2 rmind } while (Op); 985 1.1.1.2.4.2 rmind 986 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 987 1.1.1.2.4.2 rmind } 988 1.1.1.2.4.2 rmind 989 1.1.1.2.4.2 rmind else if (ACPI_FAILURE (Status)) 990 1.1.1.2.4.2 rmind { 991 1.1.1.2.4.2 rmind /* First error is most important */ 992 1.1.1.2.4.2 rmind 993 1.1.1.2.4.2 rmind (void) AcpiPsCompleteThisOp (WalkState, Op); 994 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 995 1.1.1.2.4.2 rmind } 996 1.1.1.2.4.2 rmind } 997 1.1.1.2.4.2 rmind 998 1.1.1.2.4.2 rmind Status2 = AcpiPsCompleteThisOp (WalkState, Op); 999 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status2)) 1000 1.1.1.2.4.2 rmind { 1001 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status2); 1002 1.1.1.2.4.2 rmind } 1003 1.1.1.2.4.2 rmind } 1004 1.1.1.2.4.2 rmind 1005 1.1.1.2.4.2 rmind AcpiPsPopScope (&(WalkState->ParserState), &Op, &WalkState->ArgTypes, 1006 1.1.1.2.4.2 rmind &WalkState->ArgCount); 1007 1.1.1.2.4.2 rmind 1008 1.1.1.2.4.2 rmind } while (Op); 1009 1.1.1.2.4.2 rmind 1010 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 1011 1.1.1.2.4.2 rmind } 1012 1.1.1.2.4.2 rmind 1013 1.1.1.2.4.2 rmind 1014 1.1.1.2.4.2 rmind /******************************************************************************* 1015 1.1.1.2.4.2 rmind * 1016 1.1.1.2.4.2 rmind * FUNCTION: AcpiPsParseLoop 1017 1.1.1.2.4.2 rmind * 1018 1.1.1.2.4.2 rmind * PARAMETERS: WalkState - Current state 1019 1.1.1.2.4.2 rmind * 1020 1.1.1.2.4.2 rmind * RETURN: Status 1021 1.1.1.2.4.2 rmind * 1022 1.1.1.2.4.2 rmind * DESCRIPTION: Parse AML (pointed to by the current parser state) and return 1023 1.1.1.2.4.2 rmind * a tree of ops. 1024 1.1.1.2.4.2 rmind * 1025 1.1.1.2.4.2 rmind ******************************************************************************/ 1026 1.1.1.2.4.2 rmind 1027 1.1.1.2.4.2 rmind ACPI_STATUS 1028 1.1.1.2.4.2 rmind AcpiPsParseLoop ( 1029 1.1.1.2.4.2 rmind ACPI_WALK_STATE *WalkState) 1030 1.1.1.2.4.2 rmind { 1031 1.1.1.2.4.2 rmind ACPI_STATUS Status = AE_OK; 1032 1.1.1.2.4.2 rmind ACPI_PARSE_OBJECT *Op = NULL; /* current op */ 1033 1.1.1.2.4.2 rmind ACPI_PARSE_STATE *ParserState; 1034 1.1.1.2.4.2 rmind UINT8 *AmlOpStart = NULL; 1035 1.1.1.2.4.2 rmind 1036 1.1.1.2.4.2 rmind 1037 1.1.1.2.4.2 rmind ACPI_FUNCTION_TRACE_PTR (PsParseLoop, WalkState); 1038 1.1.1.2.4.2 rmind 1039 1.1.1.2.4.2 rmind 1040 1.1.1.2.4.2 rmind if (WalkState->DescendingCallback == NULL) 1041 1.1.1.2.4.2 rmind { 1042 1.1.1.2.4.2 rmind return_ACPI_STATUS (AE_BAD_PARAMETER); 1043 1.1.1.2.4.2 rmind } 1044 1.1.1.2.4.2 rmind 1045 1.1.1.2.4.2 rmind ParserState = &WalkState->ParserState; 1046 1.1.1.2.4.2 rmind WalkState->ArgTypes = 0; 1047 1.1.1.2.4.2 rmind 1048 1.1.1.2.4.2 rmind #if (!defined (ACPI_NO_METHOD_EXECUTION) && !defined (ACPI_CONSTANT_EVAL_ONLY)) 1049 1.1.1.2.4.2 rmind 1050 1.1.1.2.4.2 rmind if (WalkState->WalkType & ACPI_WALK_METHOD_RESTART) 1051 1.1.1.2.4.2 rmind { 1052 1.1.1.2.4.2 rmind /* We are restarting a preempted control method */ 1053 1.1.1.2.4.2 rmind 1054 1.1.1.2.4.2 rmind if (AcpiPsHasCompletedScope (ParserState)) 1055 1.1.1.2.4.2 rmind { 1056 1.1.1.2.4.2 rmind /* 1057 1.1.1.2.4.2 rmind * We must check if a predicate to an IF or WHILE statement 1058 1.1.1.2.4.2 rmind * was just completed 1059 1.1.1.2.4.2 rmind */ 1060 1.1.1.2.4.2 rmind if ((ParserState->Scope->ParseScope.Op) && 1061 1.1.1.2.4.2 rmind ((ParserState->Scope->ParseScope.Op->Common.AmlOpcode == AML_IF_OP) || 1062 1.1.1.2.4.2 rmind (ParserState->Scope->ParseScope.Op->Common.AmlOpcode == AML_WHILE_OP)) && 1063 1.1.1.2.4.2 rmind (WalkState->ControlState) && 1064 1.1.1.2.4.2 rmind (WalkState->ControlState->Common.State == 1065 1.1.1.2.4.2 rmind ACPI_CONTROL_PREDICATE_EXECUTING)) 1066 1.1.1.2.4.2 rmind { 1067 1.1.1.2.4.2 rmind /* 1068 1.1.1.2.4.2 rmind * A predicate was just completed, get the value of the 1069 1.1.1.2.4.2 rmind * predicate and branch based on that value 1070 1.1.1.2.4.2 rmind */ 1071 1.1.1.2.4.2 rmind WalkState->Op = NULL; 1072 1.1.1.2.4.2 rmind Status = AcpiDsGetPredicateValue (WalkState, ACPI_TO_POINTER (TRUE)); 1073 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status) && 1074 1.1.1.2.4.2 rmind ((Status & AE_CODE_MASK) != AE_CODE_CONTROL)) 1075 1.1.1.2.4.2 rmind { 1076 1.1.1.2.4.2 rmind if (Status == AE_AML_NO_RETURN_VALUE) 1077 1.1.1.2.4.2 rmind { 1078 1.1.1.2.4.2 rmind ACPI_EXCEPTION ((AE_INFO, Status, 1079 1.1.1.2.4.2 rmind "Invoked method did not return a value")); 1080 1.1.1.2.4.2 rmind } 1081 1.1.1.2.4.2 rmind 1082 1.1.1.2.4.2 rmind ACPI_EXCEPTION ((AE_INFO, Status, "GetPredicate Failed")); 1083 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 1084 1.1.1.2.4.2 rmind } 1085 1.1.1.2.4.2 rmind 1086 1.1.1.2.4.2 rmind Status = AcpiPsNextParseState (WalkState, Op, Status); 1087 1.1.1.2.4.2 rmind } 1088 1.1.1.2.4.2 rmind 1089 1.1.1.2.4.2 rmind AcpiPsPopScope (ParserState, &Op, 1090 1.1.1.2.4.2 rmind &WalkState->ArgTypes, &WalkState->ArgCount); 1091 1.1.1.2.4.2 rmind ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, "Popped scope, Op=%p\n", Op)); 1092 1.1.1.2.4.2 rmind } 1093 1.1.1.2.4.2 rmind else if (WalkState->PrevOp) 1094 1.1.1.2.4.2 rmind { 1095 1.1.1.2.4.2 rmind /* We were in the middle of an op */ 1096 1.1.1.2.4.2 rmind 1097 1.1.1.2.4.2 rmind Op = WalkState->PrevOp; 1098 1.1.1.2.4.2 rmind WalkState->ArgTypes = WalkState->PrevArgTypes; 1099 1.1.1.2.4.2 rmind } 1100 1.1.1.2.4.2 rmind } 1101 1.1.1.2.4.2 rmind #endif 1102 1.1.1.2.4.2 rmind 1103 1.1.1.2.4.2 rmind /* Iterative parsing loop, while there is more AML to process: */ 1104 1.1.1.2.4.2 rmind 1105 1.1.1.2.4.2 rmind while ((ParserState->Aml < ParserState->AmlEnd) || (Op)) 1106 1.1.1.2.4.2 rmind { 1107 1.1.1.2.4.2 rmind AmlOpStart = ParserState->Aml; 1108 1.1.1.2.4.2 rmind if (!Op) 1109 1.1.1.2.4.2 rmind { 1110 1.1.1.2.4.2 rmind Status = AcpiPsCreateOp (WalkState, AmlOpStart, &Op); 1111 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 1112 1.1.1.2.4.2 rmind { 1113 1.1.1.2.4.2 rmind if (Status == AE_CTRL_PARSE_CONTINUE) 1114 1.1.1.2.4.2 rmind { 1115 1.1.1.2.4.2 rmind continue; 1116 1.1.1.2.4.2 rmind } 1117 1.1.1.2.4.2 rmind 1118 1.1.1.2.4.2 rmind if (Status == AE_CTRL_PARSE_PENDING) 1119 1.1.1.2.4.2 rmind { 1120 1.1.1.2.4.2 rmind Status = AE_OK; 1121 1.1.1.2.4.2 rmind } 1122 1.1.1.2.4.2 rmind 1123 1.1.1.2.4.2 rmind Status = AcpiPsCompleteOp (WalkState, &Op, Status); 1124 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 1125 1.1.1.2.4.2 rmind { 1126 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 1127 1.1.1.2.4.2 rmind } 1128 1.1.1.2.4.2 rmind 1129 1.1.1.2.4.2 rmind continue; 1130 1.1.1.2.4.2 rmind } 1131 1.1.1.2.4.2 rmind 1132 1.1.1.2.4.2 rmind Op->Common.AmlOffset = WalkState->AmlOffset; 1133 1.1.1.2.4.2 rmind 1134 1.1.1.2.4.2 rmind if (WalkState->OpInfo) 1135 1.1.1.2.4.2 rmind { 1136 1.1.1.2.4.2 rmind ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, 1137 1.1.1.2.4.2 rmind "Opcode %4.4X [%s] Op %p Aml %p AmlOffset %5.5X\n", 1138 1.1.1.2.4.2 rmind (UINT32) Op->Common.AmlOpcode, WalkState->OpInfo->Name, 1139 1.1.1.2.4.2 rmind Op, ParserState->Aml, Op->Common.AmlOffset)); 1140 1.1.1.2.4.2 rmind } 1141 1.1.1.2.4.2 rmind } 1142 1.1.1.2.4.2 rmind 1143 1.1.1.2.4.2 rmind 1144 1.1.1.2.4.2 rmind /* 1145 1.1.1.2.4.2 rmind * Start ArgCount at zero because we don't know if there are 1146 1.1.1.2.4.2 rmind * any args yet 1147 1.1.1.2.4.2 rmind */ 1148 1.1.1.2.4.2 rmind WalkState->ArgCount = 0; 1149 1.1.1.2.4.2 rmind 1150 1.1.1.2.4.2 rmind /* Are there any arguments that must be processed? */ 1151 1.1.1.2.4.2 rmind 1152 1.1.1.2.4.2 rmind if (WalkState->ArgTypes) 1153 1.1.1.2.4.2 rmind { 1154 1.1.1.2.4.2 rmind /* Get arguments */ 1155 1.1.1.2.4.2 rmind 1156 1.1.1.2.4.2 rmind Status = AcpiPsGetArguments (WalkState, AmlOpStart, Op); 1157 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 1158 1.1.1.2.4.2 rmind { 1159 1.1.1.2.4.2 rmind Status = AcpiPsCompleteOp (WalkState, &Op, Status); 1160 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 1161 1.1.1.2.4.2 rmind { 1162 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 1163 1.1.1.2.4.2 rmind } 1164 1.1.1.2.4.2 rmind 1165 1.1.1.2.4.2 rmind continue; 1166 1.1.1.2.4.2 rmind } 1167 1.1.1.2.4.2 rmind } 1168 1.1.1.2.4.2 rmind 1169 1.1.1.2.4.2 rmind /* Check for arguments that need to be processed */ 1170 1.1.1.2.4.2 rmind 1171 1.1.1.2.4.2 rmind if (WalkState->ArgCount) 1172 1.1.1.2.4.2 rmind { 1173 1.1.1.2.4.2 rmind /* 1174 1.1.1.2.4.2 rmind * There are arguments (complex ones), push Op and 1175 1.1.1.2.4.2 rmind * prepare for argument 1176 1.1.1.2.4.2 rmind */ 1177 1.1.1.2.4.2 rmind Status = AcpiPsPushScope (ParserState, Op, 1178 1.1.1.2.4.2 rmind WalkState->ArgTypes, WalkState->ArgCount); 1179 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 1180 1.1.1.2.4.2 rmind { 1181 1.1.1.2.4.2 rmind Status = AcpiPsCompleteOp (WalkState, &Op, Status); 1182 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 1183 1.1.1.2.4.2 rmind { 1184 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 1185 1.1.1.2.4.2 rmind } 1186 1.1.1.2.4.2 rmind 1187 1.1.1.2.4.2 rmind continue; 1188 1.1.1.2.4.2 rmind } 1189 1.1.1.2.4.2 rmind 1190 1.1.1.2.4.2 rmind Op = NULL; 1191 1.1.1.2.4.2 rmind continue; 1192 1.1.1.2.4.2 rmind } 1193 1.1.1.2.4.2 rmind 1194 1.1.1.2.4.2 rmind /* 1195 1.1.1.2.4.2 rmind * All arguments have been processed -- Op is complete, 1196 1.1.1.2.4.2 rmind * prepare for next 1197 1.1.1.2.4.2 rmind */ 1198 1.1.1.2.4.2 rmind WalkState->OpInfo = AcpiPsGetOpcodeInfo (Op->Common.AmlOpcode); 1199 1.1.1.2.4.2 rmind if (WalkState->OpInfo->Flags & AML_NAMED) 1200 1.1.1.2.4.2 rmind { 1201 1.1.1.2.4.2 rmind if (AcpiGbl_Depth) 1202 1.1.1.2.4.2 rmind { 1203 1.1.1.2.4.2 rmind AcpiGbl_Depth--; 1204 1.1.1.2.4.2 rmind } 1205 1.1.1.2.4.2 rmind 1206 1.1.1.2.4.2 rmind if (Op->Common.AmlOpcode == AML_REGION_OP || 1207 1.1.1.2.4.2 rmind Op->Common.AmlOpcode == AML_DATA_REGION_OP) 1208 1.1.1.2.4.2 rmind { 1209 1.1.1.2.4.2 rmind /* 1210 1.1.1.2.4.2 rmind * Skip parsing of control method or opregion body, 1211 1.1.1.2.4.2 rmind * because we don't have enough info in the first pass 1212 1.1.1.2.4.2 rmind * to parse them correctly. 1213 1.1.1.2.4.2 rmind * 1214 1.1.1.2.4.2 rmind * Completed parsing an OpRegion declaration, we now 1215 1.1.1.2.4.2 rmind * know the length. 1216 1.1.1.2.4.2 rmind */ 1217 1.1.1.2.4.2 rmind Op->Named.Length = (UINT32) (ParserState->Aml - Op->Named.Data); 1218 1.1.1.2.4.2 rmind } 1219 1.1.1.2.4.2 rmind } 1220 1.1.1.2.4.2 rmind 1221 1.1.1.2.4.2 rmind if (WalkState->OpInfo->Flags & AML_CREATE) 1222 1.1.1.2.4.2 rmind { 1223 1.1.1.2.4.2 rmind /* 1224 1.1.1.2.4.2 rmind * Backup to beginning of CreateXXXfield declaration (1 for 1225 1.1.1.2.4.2 rmind * Opcode) 1226 1.1.1.2.4.2 rmind * 1227 1.1.1.2.4.2 rmind * BodyLength is unknown until we parse the body 1228 1.1.1.2.4.2 rmind */ 1229 1.1.1.2.4.2 rmind Op->Named.Length = (UINT32) (ParserState->Aml - Op->Named.Data); 1230 1.1.1.2.4.2 rmind } 1231 1.1.1.2.4.2 rmind 1232 1.1.1.2.4.2 rmind if (Op->Common.AmlOpcode == AML_BANK_FIELD_OP) 1233 1.1.1.2.4.2 rmind { 1234 1.1.1.2.4.2 rmind /* 1235 1.1.1.2.4.2 rmind * Backup to beginning of BankField declaration 1236 1.1.1.2.4.2 rmind * 1237 1.1.1.2.4.2 rmind * BodyLength is unknown until we parse the body 1238 1.1.1.2.4.2 rmind */ 1239 1.1.1.2.4.2 rmind Op->Named.Length = (UINT32) (ParserState->Aml - Op->Named.Data); 1240 1.1.1.2.4.2 rmind } 1241 1.1.1.2.4.2 rmind 1242 1.1.1.2.4.2 rmind /* This op complete, notify the dispatcher */ 1243 1.1.1.2.4.2 rmind 1244 1.1.1.2.4.2 rmind if (WalkState->AscendingCallback != NULL) 1245 1.1.1.2.4.2 rmind { 1246 1.1.1.2.4.2 rmind WalkState->Op = Op; 1247 1.1.1.2.4.2 rmind WalkState->Opcode = Op->Common.AmlOpcode; 1248 1.1.1.2.4.2 rmind 1249 1.1.1.2.4.2 rmind Status = WalkState->AscendingCallback (WalkState); 1250 1.1.1.2.4.2 rmind Status = AcpiPsNextParseState (WalkState, Op, Status); 1251 1.1.1.2.4.2 rmind if (Status == AE_CTRL_PENDING) 1252 1.1.1.2.4.2 rmind { 1253 1.1.1.2.4.2 rmind Status = AE_OK; 1254 1.1.1.2.4.2 rmind } 1255 1.1.1.2.4.2 rmind } 1256 1.1.1.2.4.2 rmind 1257 1.1.1.2.4.2 rmind Status = AcpiPsCompleteOp (WalkState, &Op, Status); 1258 1.1.1.2.4.2 rmind if (ACPI_FAILURE (Status)) 1259 1.1.1.2.4.2 rmind { 1260 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 1261 1.1.1.2.4.2 rmind } 1262 1.1.1.2.4.2 rmind 1263 1.1.1.2.4.2 rmind } /* while ParserState->Aml */ 1264 1.1.1.2.4.2 rmind 1265 1.1.1.2.4.2 rmind Status = AcpiPsCompleteFinalOp (WalkState, Op, Status); 1266 1.1.1.2.4.2 rmind return_ACPI_STATUS (Status); 1267 1.1.1.2.4.2 rmind } 1268 1.1.1.2.4.2 rmind 1269
Indexes created Fri Oct 03 02:09:57 GMT 2025