Merge branch 'vendor/MDOCML'
[dragonfly.git] / sys / contrib / dev / acpica / source / components / dispatcher / dsfield.c
1 /******************************************************************************
2  *
3  * Module Name: dsfield - Dispatcher field routines
4  *
5  *****************************************************************************/
6
7 /*
8  * Copyright (C) 2000 - 2014, Intel Corp.
9  * All rights reserved.
10  *
11  * Redistribution and use in source and binary forms, with or without
12  * modification, are permitted provided that the following conditions
13  * are met:
14  * 1. Redistributions of source code must retain the above copyright
15  *    notice, this list of conditions, and the following disclaimer,
16  *    without modification.
17  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
18  *    substantially similar to the "NO WARRANTY" disclaimer below
19  *    ("Disclaimer") and any redistribution must be conditioned upon
20  *    including a substantially similar Disclaimer requirement for further
21  *    binary redistribution.
22  * 3. Neither the names of the above-listed copyright holders nor the names
23  *    of any contributors may be used to endorse or promote products derived
24  *    from this software without specific prior written permission.
25  *
26  * Alternatively, this software may be distributed under the terms of the
27  * GNU General Public License ("GPL") version 2 as published by the Free
28  * Software Foundation.
29  *
30  * NO WARRANTY
31  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
32  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
33  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
34  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
35  * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
36  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
37  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
38  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
39  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
40  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
41  * POSSIBILITY OF SUCH DAMAGES.
42  */
43
44 #define __DSFIELD_C__
45
46 #include "acpi.h"
47 #include "accommon.h"
48 #include "amlcode.h"
49 #include "acdispat.h"
50 #include "acinterp.h"
51 #include "acnamesp.h"
52 #include "acparser.h"
53
54
55 #define _COMPONENT          ACPI_DISPATCHER
56         ACPI_MODULE_NAME    ("dsfield")
57
58 /* Local prototypes */
59
60 #ifdef ACPI_ASL_COMPILER
61 #include "acdisasm.h"
62
63 static ACPI_STATUS
64 AcpiDsCreateExternalRegion (
65     ACPI_STATUS             LookupStatus,
66     ACPI_PARSE_OBJECT       *Op,
67     char                    *Path,
68     ACPI_WALK_STATE         *WalkState,
69     ACPI_NAMESPACE_NODE     **Node);
70 #endif
71
72 static ACPI_STATUS
73 AcpiDsGetFieldNames (
74     ACPI_CREATE_FIELD_INFO  *Info,
75     ACPI_WALK_STATE         *WalkState,
76     ACPI_PARSE_OBJECT       *Arg);
77
78
79 #ifdef ACPI_ASL_COMPILER
80 /*******************************************************************************
81  *
82  * FUNCTION:    AcpiDsCreateExternalRegion (iASL Disassembler only)
83  *
84  * PARAMETERS:  LookupStatus    - Status from NsLookup operation
85  *              Op              - Op containing the Field definition and args
86  *              Path            - Pathname of the region
87  *  `           WalkState       - Current method state
88  *              Node            - Where the new region node is returned
89  *
90  * RETURN:      Status
91  *
92  * DESCRIPTION: Add region to the external list if NOT_FOUND. Create a new
93  *              region node/object.
94  *
95  ******************************************************************************/
96
97 static ACPI_STATUS
98 AcpiDsCreateExternalRegion (
99     ACPI_STATUS             LookupStatus,
100     ACPI_PARSE_OBJECT       *Op,
101     char                    *Path,
102     ACPI_WALK_STATE         *WalkState,
103     ACPI_NAMESPACE_NODE     **Node)
104 {
105     ACPI_STATUS             Status;
106     ACPI_OPERAND_OBJECT     *ObjDesc;
107
108
109     if (LookupStatus != AE_NOT_FOUND)
110     {
111         return (LookupStatus);
112     }
113
114     /*
115      * Table disassembly:
116      * OperationRegion not found. Generate an External for it, and
117      * insert the name into the namespace.
118      */
119     AcpiDmAddOpToExternalList (Op, Path, ACPI_TYPE_REGION, 0, 0);
120     Status = AcpiNsLookup (WalkState->ScopeInfo, Path, ACPI_TYPE_REGION,
121        ACPI_IMODE_LOAD_PASS1, ACPI_NS_SEARCH_PARENT, WalkState, Node);
122     if (ACPI_FAILURE (Status))
123     {
124         return (Status);
125     }
126
127     /* Must create and install a region object for the new node */
128
129     ObjDesc = AcpiUtCreateInternalObject (ACPI_TYPE_REGION);
130     if (!ObjDesc)
131     {
132         return (AE_NO_MEMORY);
133     }
134
135     ObjDesc->Region.Node = *Node;
136     Status = AcpiNsAttachObject (*Node, ObjDesc, ACPI_TYPE_REGION);
137     return (Status);
138 }
139 #endif
140
141
142 /*******************************************************************************
143  *
144  * FUNCTION:    AcpiDsCreateBufferField
145  *
146  * PARAMETERS:  Op                  - Current parse op (CreateXXField)
147  *              WalkState           - Current state
148  *
149  * RETURN:      Status
150  *
151  * DESCRIPTION: Execute the CreateField operators:
152  *              CreateBitFieldOp,
153  *              CreateByteFieldOp,
154  *              CreateWordFieldOp,
155  *              CreateDwordFieldOp,
156  *              CreateQwordFieldOp,
157  *              CreateFieldOp       (all of which define a field in a buffer)
158  *
159  ******************************************************************************/
160
161 ACPI_STATUS
162 AcpiDsCreateBufferField (
163     ACPI_PARSE_OBJECT       *Op,
164     ACPI_WALK_STATE         *WalkState)
165 {
166     ACPI_PARSE_OBJECT       *Arg;
167     ACPI_NAMESPACE_NODE     *Node;
168     ACPI_STATUS             Status;
169     ACPI_OPERAND_OBJECT     *ObjDesc;
170     ACPI_OPERAND_OBJECT     *SecondDesc = NULL;
171     UINT32                  Flags;
172
173
174     ACPI_FUNCTION_TRACE (DsCreateBufferField);
175
176
177     /*
178      * Get the NameString argument (name of the new BufferField)
179      */
180     if (Op->Common.AmlOpcode == AML_CREATE_FIELD_OP)
181     {
182         /* For CreateField, name is the 4th argument */
183
184         Arg = AcpiPsGetArg (Op, 3);
185     }
186     else
187     {
188         /* For all other CreateXXXField operators, name is the 3rd argument */
189
190         Arg = AcpiPsGetArg (Op, 2);
191     }
192
193     if (!Arg)
194     {
195         return_ACPI_STATUS (AE_AML_NO_OPERAND);
196     }
197
198     if (WalkState->DeferredNode)
199     {
200         Node = WalkState->DeferredNode;
201         Status = AE_OK;
202     }
203     else
204     {
205         /* Execute flag should always be set when this function is entered */
206
207         if (!(WalkState->ParseFlags & ACPI_PARSE_EXECUTE))
208         {
209             return_ACPI_STATUS (AE_AML_INTERNAL);
210         }
211
212         /* Creating new namespace node, should not already exist */
213
214         Flags = ACPI_NS_NO_UPSEARCH | ACPI_NS_DONT_OPEN_SCOPE |
215                 ACPI_NS_ERROR_IF_FOUND;
216
217         /*
218          * Mark node temporary if we are executing a normal control
219          * method. (Don't mark if this is a module-level code method)
220          */
221         if (WalkState->MethodNode &&
222             !(WalkState->ParseFlags & ACPI_PARSE_MODULE_LEVEL))
223         {
224             Flags |= ACPI_NS_TEMPORARY;
225         }
226
227         /* Enter the NameString into the namespace */
228
229         Status = AcpiNsLookup (WalkState->ScopeInfo, Arg->Common.Value.String,
230                     ACPI_TYPE_ANY, ACPI_IMODE_LOAD_PASS1,
231                     Flags, WalkState, &Node);
232         if (ACPI_FAILURE (Status))
233         {
234             ACPI_ERROR_NAMESPACE (Arg->Common.Value.String, Status);
235             return_ACPI_STATUS (Status);
236         }
237     }
238
239     /*
240      * We could put the returned object (Node) on the object stack for later,
241      * but for now, we will put it in the "op" object that the parser uses,
242      * so we can get it again at the end of this scope.
243      */
244     Op->Common.Node = Node;
245
246     /*
247      * If there is no object attached to the node, this node was just created
248      * and we need to create the field object. Otherwise, this was a lookup
249      * of an existing node and we don't want to create the field object again.
250      */
251     ObjDesc = AcpiNsGetAttachedObject (Node);
252     if (ObjDesc)
253     {
254         return_ACPI_STATUS (AE_OK);
255     }
256
257     /*
258      * The Field definition is not fully parsed at this time.
259      * (We must save the address of the AML for the buffer and index operands)
260      */
261
262     /* Create the buffer field object */
263
264     ObjDesc = AcpiUtCreateInternalObject (ACPI_TYPE_BUFFER_FIELD);
265     if (!ObjDesc)
266     {
267         Status = AE_NO_MEMORY;
268         goto Cleanup;
269     }
270
271     /*
272      * Remember location in AML stream of the field unit opcode and operands --
273      * since the buffer and index operands must be evaluated.
274      */
275     SecondDesc                  = ObjDesc->Common.NextObject;
276     SecondDesc->Extra.AmlStart  = Op->Named.Data;
277     SecondDesc->Extra.AmlLength = Op->Named.Length;
278     ObjDesc->BufferField.Node   = Node;
279
280     /* Attach constructed field descriptors to parent node */
281
282     Status = AcpiNsAttachObject (Node, ObjDesc, ACPI_TYPE_BUFFER_FIELD);
283     if (ACPI_FAILURE (Status))
284     {
285         goto Cleanup;
286     }
287
288
289 Cleanup:
290
291     /* Remove local reference to the object */
292
293     AcpiUtRemoveReference (ObjDesc);
294     return_ACPI_STATUS (Status);
295 }
296
297
298 /*******************************************************************************
299  *
300  * FUNCTION:    AcpiDsGetFieldNames
301  *
302  * PARAMETERS:  Info            - CreateField info structure
303  *  `           WalkState       - Current method state
304  *              Arg             - First parser arg for the field name list
305  *
306  * RETURN:      Status
307  *
308  * DESCRIPTION: Process all named fields in a field declaration. Names are
309  *              entered into the namespace.
310  *
311  ******************************************************************************/
312
313 static ACPI_STATUS
314 AcpiDsGetFieldNames (
315     ACPI_CREATE_FIELD_INFO  *Info,
316     ACPI_WALK_STATE         *WalkState,
317     ACPI_PARSE_OBJECT       *Arg)
318 {
319     ACPI_STATUS             Status;
320     UINT64                  Position;
321     ACPI_PARSE_OBJECT       *Child;
322
323
324     ACPI_FUNCTION_TRACE_PTR (DsGetFieldNames, Info);
325
326
327     /* First field starts at bit zero */
328
329     Info->FieldBitPosition = 0;
330
331     /* Process all elements in the field list (of parse nodes) */
332
333     while (Arg)
334     {
335         /*
336          * Four types of field elements are handled:
337          * 1) Name - Enters a new named field into the namespace
338          * 2) Offset - specifies a bit offset
339          * 3) AccessAs - changes the access mode/attributes
340          * 4) Connection - Associate a resource template with the field
341          */
342         switch (Arg->Common.AmlOpcode)
343         {
344         case AML_INT_RESERVEDFIELD_OP:
345
346             Position = (UINT64) Info->FieldBitPosition
347                         + (UINT64) Arg->Common.Value.Size;
348
349             if (Position > ACPI_UINT32_MAX)
350             {
351                 ACPI_ERROR ((AE_INFO,
352                     "Bit offset within field too large (> 0xFFFFFFFF)"));
353                 return_ACPI_STATUS (AE_SUPPORT);
354             }
355
356             Info->FieldBitPosition = (UINT32) Position;
357             break;
358
359         case AML_INT_ACCESSFIELD_OP:
360         case AML_INT_EXTACCESSFIELD_OP:
361             /*
362              * Get new AccessType, AccessAttribute, and AccessLength fields
363              * -- to be used for all field units that follow, until the
364              * end-of-field or another AccessAs keyword is encountered.
365              * NOTE. These three bytes are encoded in the integer value
366              * of the parseop for convenience.
367              *
368              * In FieldFlags, preserve the flag bits other than the
369              * ACCESS_TYPE bits.
370              */
371
372             /* AccessType (ByteAcc, WordAcc, etc.) */
373
374             Info->FieldFlags = (UINT8)
375                 ((Info->FieldFlags & ~(AML_FIELD_ACCESS_TYPE_MASK)) |
376                 ((UINT8) ((UINT32) (Arg->Common.Value.Integer & 0x07))));
377
378             /* AccessAttribute (AttribQuick, AttribByte, etc.) */
379
380             Info->Attribute = (UINT8) ((Arg->Common.Value.Integer >> 8) & 0xFF);
381
382             /* AccessLength (for serial/buffer protocols) */
383
384             Info->AccessLength = (UINT8) ((Arg->Common.Value.Integer >> 16) & 0xFF);
385             break;
386
387         case AML_INT_CONNECTION_OP:
388             /*
389              * Clear any previous connection. New connection is used for all
390              * fields that follow, similar to AccessAs
391              */
392             Info->ResourceBuffer = NULL;
393             Info->ConnectionNode = NULL;
394
395             /*
396              * A Connection() is either an actual resource descriptor (buffer)
397              * or a named reference to a resource template
398              */
399             Child = Arg->Common.Value.Arg;
400             if (Child->Common.AmlOpcode == AML_INT_BYTELIST_OP)
401             {
402                 Info->ResourceBuffer = Child->Named.Data;
403                 Info->ResourceLength = (UINT16) Child->Named.Value.Integer;
404             }
405             else
406             {
407                 /* Lookup the Connection() namepath, it should already exist */
408
409                 Status = AcpiNsLookup (WalkState->ScopeInfo,
410                             Child->Common.Value.Name, ACPI_TYPE_ANY,
411                             ACPI_IMODE_EXECUTE, ACPI_NS_DONT_OPEN_SCOPE,
412                             WalkState, &Info->ConnectionNode);
413                 if (ACPI_FAILURE (Status))
414                 {
415                     ACPI_ERROR_NAMESPACE (Child->Common.Value.Name, Status);
416                     return_ACPI_STATUS (Status);
417                 }
418             }
419             break;
420
421         case AML_INT_NAMEDFIELD_OP:
422
423             /* Lookup the name, it should already exist */
424
425             Status = AcpiNsLookup (WalkState->ScopeInfo,
426                         (char *) &Arg->Named.Name, Info->FieldType,
427                         ACPI_IMODE_EXECUTE, ACPI_NS_DONT_OPEN_SCOPE,
428                         WalkState, &Info->FieldNode);
429             if (ACPI_FAILURE (Status))
430             {
431                 ACPI_ERROR_NAMESPACE ((char *) &Arg->Named.Name, Status);
432                 return_ACPI_STATUS (Status);
433             }
434             else
435             {
436                 Arg->Common.Node = Info->FieldNode;
437                 Info->FieldBitLength = Arg->Common.Value.Size;
438
439                 /*
440                  * If there is no object attached to the node, this node was
441                  * just created and we need to create the field object.
442                  * Otherwise, this was a lookup of an existing node and we
443                  * don't want to create the field object again.
444                  */
445                 if (!AcpiNsGetAttachedObject (Info->FieldNode))
446                 {
447                     Status = AcpiExPrepFieldValue (Info);
448                     if (ACPI_FAILURE (Status))
449                     {
450                         return_ACPI_STATUS (Status);
451                     }
452                 }
453             }
454
455             /* Keep track of bit position for the next field */
456
457             Position = (UINT64) Info->FieldBitPosition
458                         + (UINT64) Arg->Common.Value.Size;
459
460             if (Position > ACPI_UINT32_MAX)
461             {
462                 ACPI_ERROR ((AE_INFO,
463                     "Field [%4.4s] bit offset too large (> 0xFFFFFFFF)",
464                     ACPI_CAST_PTR (char, &Info->FieldNode->Name)));
465                 return_ACPI_STATUS (AE_SUPPORT);
466             }
467
468             Info->FieldBitPosition += Info->FieldBitLength;
469             break;
470
471         default:
472
473             ACPI_ERROR ((AE_INFO,
474                 "Invalid opcode in field list: 0x%X", Arg->Common.AmlOpcode));
475             return_ACPI_STATUS (AE_AML_BAD_OPCODE);
476         }
477
478         Arg = Arg->Common.Next;
479     }
480
481     return_ACPI_STATUS (AE_OK);
482 }
483
484
485 /*******************************************************************************
486  *
487  * FUNCTION:    AcpiDsCreateField
488  *
489  * PARAMETERS:  Op              - Op containing the Field definition and args
490  *              RegionNode      - Object for the containing Operation Region
491  *  `           WalkState       - Current method state
492  *
493  * RETURN:      Status
494  *
495  * DESCRIPTION: Create a new field in the specified operation region
496  *
497  ******************************************************************************/
498
499 ACPI_STATUS
500 AcpiDsCreateField (
501     ACPI_PARSE_OBJECT       *Op,
502     ACPI_NAMESPACE_NODE     *RegionNode,
503     ACPI_WALK_STATE         *WalkState)
504 {
505     ACPI_STATUS             Status;
506     ACPI_PARSE_OBJECT       *Arg;
507     ACPI_CREATE_FIELD_INFO  Info;
508
509
510     ACPI_FUNCTION_TRACE_PTR (DsCreateField, Op);
511
512
513     /* First arg is the name of the parent OpRegion (must already exist) */
514
515     Arg = Op->Common.Value.Arg;
516
517     if (!RegionNode)
518     {
519         Status = AcpiNsLookup (WalkState->ScopeInfo, Arg->Common.Value.Name,
520                         ACPI_TYPE_REGION, ACPI_IMODE_EXECUTE,
521                         ACPI_NS_SEARCH_PARENT, WalkState, &RegionNode);
522 #ifdef ACPI_ASL_COMPILER
523         Status = AcpiDsCreateExternalRegion (Status, Arg,
524             Arg->Common.Value.Name, WalkState, &RegionNode);
525 #endif
526         if (ACPI_FAILURE (Status))
527         {
528             ACPI_ERROR_NAMESPACE (Arg->Common.Value.Name, Status);
529             return_ACPI_STATUS (Status);
530         }
531     }
532
533     ACPI_MEMSET (&Info, 0, sizeof (ACPI_CREATE_FIELD_INFO));
534
535     /* Second arg is the field flags */
536
537     Arg = Arg->Common.Next;
538     Info.FieldFlags = (UINT8) Arg->Common.Value.Integer;
539     Info.Attribute = 0;
540
541     /* Each remaining arg is a Named Field */
542
543     Info.FieldType = ACPI_TYPE_LOCAL_REGION_FIELD;
544     Info.RegionNode = RegionNode;
545
546     Status = AcpiDsGetFieldNames (&Info, WalkState, Arg->Common.Next);
547     return_ACPI_STATUS (Status);
548 }
549
550
551 /*******************************************************************************
552  *
553  * FUNCTION:    AcpiDsInitFieldObjects
554  *
555  * PARAMETERS:  Op              - Op containing the Field definition and args
556  *  `           WalkState       - Current method state
557  *
558  * RETURN:      Status
559  *
560  * DESCRIPTION: For each "Field Unit" name in the argument list that is
561  *              part of the field declaration, enter the name into the
562  *              namespace.
563  *
564  ******************************************************************************/
565
566 ACPI_STATUS
567 AcpiDsInitFieldObjects (
568     ACPI_PARSE_OBJECT       *Op,
569     ACPI_WALK_STATE         *WalkState)
570 {
571     ACPI_STATUS             Status;
572     ACPI_PARSE_OBJECT       *Arg = NULL;
573     ACPI_NAMESPACE_NODE     *Node;
574     UINT8                   Type = 0;
575     UINT32                  Flags;
576
577
578     ACPI_FUNCTION_TRACE_PTR (DsInitFieldObjects, Op);
579
580
581     /* Execute flag should always be set when this function is entered */
582
583     if (!(WalkState->ParseFlags & ACPI_PARSE_EXECUTE))
584     {
585         if (WalkState->ParseFlags & ACPI_PARSE_DEFERRED_OP)
586         {
587             /* BankField Op is deferred, just return OK */
588
589             return_ACPI_STATUS (AE_OK);
590         }
591
592         return_ACPI_STATUS (AE_AML_INTERNAL);
593     }
594
595     /*
596      * Get the FieldList argument for this opcode. This is the start of the
597      * list of field elements.
598      */
599     switch (WalkState->Opcode)
600     {
601     case AML_FIELD_OP:
602
603         Arg = AcpiPsGetArg (Op, 2);
604         Type = ACPI_TYPE_LOCAL_REGION_FIELD;
605         break;
606
607     case AML_BANK_FIELD_OP:
608
609         Arg = AcpiPsGetArg (Op, 4);
610         Type = ACPI_TYPE_LOCAL_BANK_FIELD;
611         break;
612
613     case AML_INDEX_FIELD_OP:
614
615         Arg = AcpiPsGetArg (Op, 3);
616         Type = ACPI_TYPE_LOCAL_INDEX_FIELD;
617         break;
618
619     default:
620
621         return_ACPI_STATUS (AE_BAD_PARAMETER);
622     }
623
624     /* Creating new namespace node(s), should not already exist */
625
626     Flags = ACPI_NS_NO_UPSEARCH | ACPI_NS_DONT_OPEN_SCOPE |
627             ACPI_NS_ERROR_IF_FOUND;
628
629     /*
630      * Mark node(s) temporary if we are executing a normal control
631      * method. (Don't mark if this is a module-level code method)
632      */
633     if (WalkState->MethodNode &&
634         !(WalkState->ParseFlags & ACPI_PARSE_MODULE_LEVEL))
635     {
636         Flags |= ACPI_NS_TEMPORARY;
637     }
638
639     /*
640      * Walk the list of entries in the FieldList
641      * Note: FieldList can be of zero length. In this case, Arg will be NULL.
642      */
643     while (Arg)
644     {
645         /*
646          * Ignore OFFSET/ACCESSAS/CONNECTION terms here; we are only interested
647          * in the field names in order to enter them into the namespace.
648          */
649         if (Arg->Common.AmlOpcode == AML_INT_NAMEDFIELD_OP)
650         {
651             Status = AcpiNsLookup (WalkState->ScopeInfo,
652                         (char *) &Arg->Named.Name, Type, ACPI_IMODE_LOAD_PASS1,
653                         Flags, WalkState, &Node);
654             if (ACPI_FAILURE (Status))
655             {
656                 ACPI_ERROR_NAMESPACE ((char *) &Arg->Named.Name, Status);
657                 if (Status != AE_ALREADY_EXISTS)
658                 {
659                     return_ACPI_STATUS (Status);
660                 }
661
662                 /* Name already exists, just ignore this error */
663
664                 Status = AE_OK;
665             }
666
667             Arg->Common.Node = Node;
668         }
669
670         /* Get the next field element in the list */
671
672         Arg = Arg->Common.Next;
673     }
674
675     return_ACPI_STATUS (AE_OK);
676 }
677
678
679 /*******************************************************************************
680  *
681  * FUNCTION:    AcpiDsCreateBankField
682  *
683  * PARAMETERS:  Op              - Op containing the Field definition and args
684  *              RegionNode      - Object for the containing Operation Region
685  *              WalkState       - Current method state
686  *
687  * RETURN:      Status
688  *
689  * DESCRIPTION: Create a new bank field in the specified operation region
690  *
691  ******************************************************************************/
692
693 ACPI_STATUS
694 AcpiDsCreateBankField (
695     ACPI_PARSE_OBJECT       *Op,
696     ACPI_NAMESPACE_NODE     *RegionNode,
697     ACPI_WALK_STATE         *WalkState)
698 {
699     ACPI_STATUS             Status;
700     ACPI_PARSE_OBJECT       *Arg;
701     ACPI_CREATE_FIELD_INFO  Info;
702
703
704     ACPI_FUNCTION_TRACE_PTR (DsCreateBankField, Op);
705
706
707     /* First arg is the name of the parent OpRegion (must already exist) */
708
709     Arg = Op->Common.Value.Arg;
710     if (!RegionNode)
711     {
712         Status = AcpiNsLookup (WalkState->ScopeInfo, Arg->Common.Value.Name,
713                         ACPI_TYPE_REGION, ACPI_IMODE_EXECUTE,
714                         ACPI_NS_SEARCH_PARENT, WalkState, &RegionNode);
715 #ifdef ACPI_ASL_COMPILER
716         Status = AcpiDsCreateExternalRegion (Status, Arg,
717             Arg->Common.Value.Name, WalkState, &RegionNode);
718 #endif
719         if (ACPI_FAILURE (Status))
720         {
721             ACPI_ERROR_NAMESPACE (Arg->Common.Value.Name, Status);
722             return_ACPI_STATUS (Status);
723         }
724     }
725
726     /* Second arg is the Bank Register (Field) (must already exist) */
727
728     Arg = Arg->Common.Next;
729     Status = AcpiNsLookup (WalkState->ScopeInfo, Arg->Common.Value.String,
730                     ACPI_TYPE_ANY, ACPI_IMODE_EXECUTE,
731                     ACPI_NS_SEARCH_PARENT, WalkState, &Info.RegisterNode);
732     if (ACPI_FAILURE (Status))
733     {
734         ACPI_ERROR_NAMESPACE (Arg->Common.Value.String, Status);
735         return_ACPI_STATUS (Status);
736     }
737
738     /*
739      * Third arg is the BankValue
740      * This arg is a TermArg, not a constant
741      * It will be evaluated later, by AcpiDsEvalBankFieldOperands
742      */
743     Arg = Arg->Common.Next;
744
745     /* Fourth arg is the field flags */
746
747     Arg = Arg->Common.Next;
748     Info.FieldFlags = (UINT8) Arg->Common.Value.Integer;
749
750     /* Each remaining arg is a Named Field */
751
752     Info.FieldType = ACPI_TYPE_LOCAL_BANK_FIELD;
753     Info.RegionNode = RegionNode;
754
755     /*
756      * Use Info.DataRegisterNode to store BankField Op
757      * It's safe because DataRegisterNode will never be used when create bank field
758      * We store AmlStart and AmlLength in the BankField Op for late evaluation
759      * Used in AcpiExPrepFieldValue(Info)
760      *
761      * TBD: Or, should we add a field in ACPI_CREATE_FIELD_INFO, like "void *ParentOp"?
762      */
763     Info.DataRegisterNode = (ACPI_NAMESPACE_NODE*) Op;
764
765     Status = AcpiDsGetFieldNames (&Info, WalkState, Arg->Common.Next);
766     return_ACPI_STATUS (Status);
767 }
768
769
770 /*******************************************************************************
771  *
772  * FUNCTION:    AcpiDsCreateIndexField
773  *
774  * PARAMETERS:  Op              - Op containing the Field definition and args
775  *              RegionNode      - Object for the containing Operation Region
776  *  `           WalkState       - Current method state
777  *
778  * RETURN:      Status
779  *
780  * DESCRIPTION: Create a new index field in the specified operation region
781  *
782  ******************************************************************************/
783
784 ACPI_STATUS
785 AcpiDsCreateIndexField (
786     ACPI_PARSE_OBJECT       *Op,
787     ACPI_NAMESPACE_NODE     *RegionNode,
788     ACPI_WALK_STATE         *WalkState)
789 {
790     ACPI_STATUS             Status;
791     ACPI_PARSE_OBJECT       *Arg;
792     ACPI_CREATE_FIELD_INFO  Info;
793
794
795     ACPI_FUNCTION_TRACE_PTR (DsCreateIndexField, Op);
796
797
798     /* First arg is the name of the Index register (must already exist) */
799
800     Arg = Op->Common.Value.Arg;
801     Status = AcpiNsLookup (WalkState->ScopeInfo, Arg->Common.Value.String,
802                     ACPI_TYPE_ANY, ACPI_IMODE_EXECUTE,
803                     ACPI_NS_SEARCH_PARENT, WalkState, &Info.RegisterNode);
804     if (ACPI_FAILURE (Status))
805     {
806         ACPI_ERROR_NAMESPACE (Arg->Common.Value.String, Status);
807         return_ACPI_STATUS (Status);
808     }
809
810     /* Second arg is the data register (must already exist) */
811
812     Arg = Arg->Common.Next;
813     Status = AcpiNsLookup (WalkState->ScopeInfo, Arg->Common.Value.String,
814                     ACPI_TYPE_ANY, ACPI_IMODE_EXECUTE,
815                     ACPI_NS_SEARCH_PARENT, WalkState, &Info.DataRegisterNode);
816     if (ACPI_FAILURE (Status))
817     {
818         ACPI_ERROR_NAMESPACE (Arg->Common.Value.String, Status);
819         return_ACPI_STATUS (Status);
820     }
821
822     /* Next arg is the field flags */
823
824     Arg = Arg->Common.Next;
825     Info.FieldFlags = (UINT8) Arg->Common.Value.Integer;
826
827     /* Each remaining arg is a Named Field */
828
829     Info.FieldType = ACPI_TYPE_LOCAL_INDEX_FIELD;
830     Info.RegionNode = RegionNode;
831
832     Status = AcpiDsGetFieldNames (&Info, WalkState, Arg->Common.Next);
833     return_ACPI_STATUS (Status);
834 }