Home | History | Annotate | Line # | Download | only in compiler
aslprintf.c revision 1.1.1.1.2.2
      1  1.1.1.1.2.2  skrll /******************************************************************************
      2  1.1.1.1.2.2  skrll  *
      3  1.1.1.1.2.2  skrll  * Module Name: aslprintf - ASL Printf/Fprintf macro support
      4  1.1.1.1.2.2  skrll  *
      5  1.1.1.1.2.2  skrll  *****************************************************************************/
      6  1.1.1.1.2.2  skrll 
      7  1.1.1.1.2.2  skrll /*
      8  1.1.1.1.2.2  skrll  * Copyright (C) 2000 - 2015, Intel Corp.
      9  1.1.1.1.2.2  skrll  * All rights reserved.
     10  1.1.1.1.2.2  skrll  *
     11  1.1.1.1.2.2  skrll  * Redistribution and use in source and binary forms, with or without
     12  1.1.1.1.2.2  skrll  * modification, are permitted provided that the following conditions
     13  1.1.1.1.2.2  skrll  * are met:
     14  1.1.1.1.2.2  skrll  * 1. Redistributions of source code must retain the above copyright
     15  1.1.1.1.2.2  skrll  *    notice, this list of conditions, and the following disclaimer,
     16  1.1.1.1.2.2  skrll  *    without modification.
     17  1.1.1.1.2.2  skrll  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
     18  1.1.1.1.2.2  skrll  *    substantially similar to the "NO WARRANTY" disclaimer below
     19  1.1.1.1.2.2  skrll  *    ("Disclaimer") and any redistribution must be conditioned upon
     20  1.1.1.1.2.2  skrll  *    including a substantially similar Disclaimer requirement for further
     21  1.1.1.1.2.2  skrll  *    binary redistribution.
     22  1.1.1.1.2.2  skrll  * 3. Neither the names of the above-listed copyright holders nor the names
     23  1.1.1.1.2.2  skrll  *    of any contributors may be used to endorse or promote products derived
     24  1.1.1.1.2.2  skrll  *    from this software without specific prior written permission.
     25  1.1.1.1.2.2  skrll  *
     26  1.1.1.1.2.2  skrll  * Alternatively, this software may be distributed under the terms of the
     27  1.1.1.1.2.2  skrll  * GNU General Public License ("GPL") version 2 as published by the Free
     28  1.1.1.1.2.2  skrll  * Software Foundation.
     29  1.1.1.1.2.2  skrll  *
     30  1.1.1.1.2.2  skrll  * NO WARRANTY
     31  1.1.1.1.2.2  skrll  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
     32  1.1.1.1.2.2  skrll  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
     33  1.1.1.1.2.2  skrll  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
     34  1.1.1.1.2.2  skrll  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
     35  1.1.1.1.2.2  skrll  * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     36  1.1.1.1.2.2  skrll  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     37  1.1.1.1.2.2  skrll  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     38  1.1.1.1.2.2  skrll  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
     39  1.1.1.1.2.2  skrll  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
     40  1.1.1.1.2.2  skrll  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     41  1.1.1.1.2.2  skrll  * POSSIBILITY OF SUCH DAMAGES.
     42  1.1.1.1.2.2  skrll  */
     43  1.1.1.1.2.2  skrll 
     44  1.1.1.1.2.2  skrll #include "aslcompiler.h"
     45  1.1.1.1.2.2  skrll #include "aslcompiler.y.h"
     46  1.1.1.1.2.2  skrll #include "amlcode.h"
     47  1.1.1.1.2.2  skrll 
     48  1.1.1.1.2.2  skrll #define _COMPONENT          ACPI_COMPILER
     49  1.1.1.1.2.2  skrll         ACPI_MODULE_NAME    ("aslprintf")
     50  1.1.1.1.2.2  skrll 
     51  1.1.1.1.2.2  skrll 
     52  1.1.1.1.2.2  skrll /* Local prototypes */
     53  1.1.1.1.2.2  skrll 
     54  1.1.1.1.2.2  skrll static void
     55  1.1.1.1.2.2  skrll OpcCreateConcatenateNode (
     56  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *Op,
     57  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *Node);
     58  1.1.1.1.2.2  skrll 
     59  1.1.1.1.2.2  skrll static void
     60  1.1.1.1.2.2  skrll OpcParsePrintf (
     61  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *Op,
     62  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *DestOp);
     63  1.1.1.1.2.2  skrll 
     64  1.1.1.1.2.2  skrll 
     65  1.1.1.1.2.2  skrll /*******************************************************************************
     66  1.1.1.1.2.2  skrll  *
     67  1.1.1.1.2.2  skrll  * FUNCTION:    OpcDoPrintf
     68  1.1.1.1.2.2  skrll  *
     69  1.1.1.1.2.2  skrll  * PARAMETERS:  Op                  - printf parse node
     70  1.1.1.1.2.2  skrll  *
     71  1.1.1.1.2.2  skrll  * RETURN:      None
     72  1.1.1.1.2.2  skrll  *
     73  1.1.1.1.2.2  skrll  * DESCRIPTION: Convert printf macro to a Store(..., Debug) AML operation.
     74  1.1.1.1.2.2  skrll  *
     75  1.1.1.1.2.2  skrll  ******************************************************************************/
     76  1.1.1.1.2.2  skrll 
     77  1.1.1.1.2.2  skrll void
     78  1.1.1.1.2.2  skrll OpcDoPrintf (
     79  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *Op)
     80  1.1.1.1.2.2  skrll {
     81  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *DestOp;
     82  1.1.1.1.2.2  skrll 
     83  1.1.1.1.2.2  skrll 
     84  1.1.1.1.2.2  skrll     /* Store destination is the Debug op */
     85  1.1.1.1.2.2  skrll 
     86  1.1.1.1.2.2  skrll     DestOp = TrAllocateNode (PARSEOP_DEBUG);
     87  1.1.1.1.2.2  skrll     DestOp->Asl.AmlOpcode = AML_DEBUG_OP;
     88  1.1.1.1.2.2  skrll     DestOp->Asl.Parent = Op;
     89  1.1.1.1.2.2  skrll     DestOp->Asl.LogicalLineNumber = Op->Asl.LogicalLineNumber;
     90  1.1.1.1.2.2  skrll 
     91  1.1.1.1.2.2  skrll     OpcParsePrintf (Op, DestOp);
     92  1.1.1.1.2.2  skrll }
     93  1.1.1.1.2.2  skrll 
     94  1.1.1.1.2.2  skrll 
     95  1.1.1.1.2.2  skrll /*******************************************************************************
     96  1.1.1.1.2.2  skrll  *
     97  1.1.1.1.2.2  skrll  * FUNCTION:    OpcDoFprintf
     98  1.1.1.1.2.2  skrll  *
     99  1.1.1.1.2.2  skrll  * PARAMETERS:  Op                  - fprintf parse node
    100  1.1.1.1.2.2  skrll  *
    101  1.1.1.1.2.2  skrll  * RETURN:      None
    102  1.1.1.1.2.2  skrll  *
    103  1.1.1.1.2.2  skrll  * DESCRIPTION: Convert fprintf macro to a Store AML operation.
    104  1.1.1.1.2.2  skrll  *
    105  1.1.1.1.2.2  skrll  ******************************************************************************/
    106  1.1.1.1.2.2  skrll 
    107  1.1.1.1.2.2  skrll void
    108  1.1.1.1.2.2  skrll OpcDoFprintf (
    109  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *Op)
    110  1.1.1.1.2.2  skrll {
    111  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *DestOp;
    112  1.1.1.1.2.2  skrll 
    113  1.1.1.1.2.2  skrll 
    114  1.1.1.1.2.2  skrll     /* Store destination is the first argument of fprintf */
    115  1.1.1.1.2.2  skrll 
    116  1.1.1.1.2.2  skrll     DestOp = Op->Asl.Child;
    117  1.1.1.1.2.2  skrll     Op->Asl.Child = DestOp->Asl.Next;
    118  1.1.1.1.2.2  skrll     DestOp->Asl.Next = NULL;
    119  1.1.1.1.2.2  skrll 
    120  1.1.1.1.2.2  skrll     OpcParsePrintf (Op, DestOp);
    121  1.1.1.1.2.2  skrll }
    122  1.1.1.1.2.2  skrll 
    123  1.1.1.1.2.2  skrll 
    124  1.1.1.1.2.2  skrll /*******************************************************************************
    125  1.1.1.1.2.2  skrll  *
    126  1.1.1.1.2.2  skrll  * FUNCTION:    OpcParsePrintf
    127  1.1.1.1.2.2  skrll  *
    128  1.1.1.1.2.2  skrll  * PARAMETERS:  Op                  - Printf parse node
    129  1.1.1.1.2.2  skrll  *              DestOp              - Destination of Store operation
    130  1.1.1.1.2.2  skrll  *
    131  1.1.1.1.2.2  skrll  * RETURN:      None
    132  1.1.1.1.2.2  skrll  *
    133  1.1.1.1.2.2  skrll  * DESCRIPTION: Convert printf macro to a Store AML operation. The printf
    134  1.1.1.1.2.2  skrll  *              macro parse tree is layed out as follows:
    135  1.1.1.1.2.2  skrll  *
    136  1.1.1.1.2.2  skrll  *              Op        - printf parse op
    137  1.1.1.1.2.2  skrll  *              Op->Child - Format string
    138  1.1.1.1.2.2  skrll  *              Op->Next  - Format string arguments
    139  1.1.1.1.2.2  skrll  *
    140  1.1.1.1.2.2  skrll  ******************************************************************************/
    141  1.1.1.1.2.2  skrll 
    142  1.1.1.1.2.2  skrll static void
    143  1.1.1.1.2.2  skrll OpcParsePrintf (
    144  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *Op,
    145  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *DestOp)
    146  1.1.1.1.2.2  skrll {
    147  1.1.1.1.2.2  skrll     char                    *Format;
    148  1.1.1.1.2.2  skrll     char                    *StartPosition = NULL;
    149  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *ArgNode;
    150  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *NextNode;
    151  1.1.1.1.2.2  skrll     UINT32                  StringLength = 0;
    152  1.1.1.1.2.2  skrll     char                    *NewString;
    153  1.1.1.1.2.2  skrll     BOOLEAN                 StringToProcess = FALSE;
    154  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *NewOp;
    155  1.1.1.1.2.2  skrll 
    156  1.1.1.1.2.2  skrll 
    157  1.1.1.1.2.2  skrll     /* Get format string */
    158  1.1.1.1.2.2  skrll 
    159  1.1.1.1.2.2  skrll     Format = ACPI_CAST_PTR (char, Op->Asl.Child->Asl.Value.String);
    160  1.1.1.1.2.2  skrll     ArgNode = Op->Asl.Child->Asl.Next;
    161  1.1.1.1.2.2  skrll 
    162  1.1.1.1.2.2  skrll     /*
    163  1.1.1.1.2.2  skrll      * Detach argument list so that we can use a NULL check to distinguish
    164  1.1.1.1.2.2  skrll      * the first concatenation operation we need to make
    165  1.1.1.1.2.2  skrll      */
    166  1.1.1.1.2.2  skrll     Op->Asl.Child = NULL;
    167  1.1.1.1.2.2  skrll 
    168  1.1.1.1.2.2  skrll     for (; *Format; ++Format)
    169  1.1.1.1.2.2  skrll     {
    170  1.1.1.1.2.2  skrll         if (*Format != '%')
    171  1.1.1.1.2.2  skrll         {
    172  1.1.1.1.2.2  skrll             if (!StringToProcess)
    173  1.1.1.1.2.2  skrll             {
    174  1.1.1.1.2.2  skrll                 /* Mark the beginning of a string */
    175  1.1.1.1.2.2  skrll 
    176  1.1.1.1.2.2  skrll                 StartPosition = Format;
    177  1.1.1.1.2.2  skrll                 StringToProcess = TRUE;
    178  1.1.1.1.2.2  skrll             }
    179  1.1.1.1.2.2  skrll 
    180  1.1.1.1.2.2  skrll             ++StringLength;
    181  1.1.1.1.2.2  skrll             continue;
    182  1.1.1.1.2.2  skrll         }
    183  1.1.1.1.2.2  skrll 
    184  1.1.1.1.2.2  skrll         /* Save string, if any, to new string object and concat it */
    185  1.1.1.1.2.2  skrll 
    186  1.1.1.1.2.2  skrll         if (StringToProcess)
    187  1.1.1.1.2.2  skrll         {
    188  1.1.1.1.2.2  skrll             NewString = UtStringCacheCalloc (StringLength + 1);
    189  1.1.1.1.2.2  skrll             ACPI_STRNCPY (NewString, StartPosition, StringLength);
    190  1.1.1.1.2.2  skrll 
    191  1.1.1.1.2.2  skrll             NewOp = TrAllocateNode (PARSEOP_STRING_LITERAL);
    192  1.1.1.1.2.2  skrll             NewOp->Asl.Value.String = NewString;
    193  1.1.1.1.2.2  skrll             NewOp->Asl.AmlOpcode = AML_STRING_OP;
    194  1.1.1.1.2.2  skrll             NewOp->Asl.AcpiBtype = ACPI_BTYPE_STRING;
    195  1.1.1.1.2.2  skrll             NewOp->Asl.LogicalLineNumber = Op->Asl.LogicalLineNumber;
    196  1.1.1.1.2.2  skrll 
    197  1.1.1.1.2.2  skrll             OpcCreateConcatenateNode(Op, NewOp);
    198  1.1.1.1.2.2  skrll 
    199  1.1.1.1.2.2  skrll             StringLength = 0;
    200  1.1.1.1.2.2  skrll             StringToProcess = FALSE;
    201  1.1.1.1.2.2  skrll         }
    202  1.1.1.1.2.2  skrll 
    203  1.1.1.1.2.2  skrll         ++Format;
    204  1.1.1.1.2.2  skrll 
    205  1.1.1.1.2.2  skrll         /*
    206  1.1.1.1.2.2  skrll          * We have a format parameter and will need an argument to go
    207  1.1.1.1.2.2  skrll          * with it
    208  1.1.1.1.2.2  skrll          */
    209  1.1.1.1.2.2  skrll         if (!ArgNode ||
    210  1.1.1.1.2.2  skrll             ArgNode->Asl.ParseOpcode == PARSEOP_DEFAULT_ARG)
    211  1.1.1.1.2.2  skrll         {
    212  1.1.1.1.2.2  skrll             AslError(ASL_ERROR, ASL_MSG_ARG_COUNT_LO, Op, NULL);
    213  1.1.1.1.2.2  skrll             return;
    214  1.1.1.1.2.2  skrll         }
    215  1.1.1.1.2.2  skrll 
    216  1.1.1.1.2.2  skrll         /*
    217  1.1.1.1.2.2  skrll          * We do not support sub-specifiers of printf (flags, width,
    218  1.1.1.1.2.2  skrll          * precision, length). For specifiers we only support %x/%X for
    219  1.1.1.1.2.2  skrll          * hex or %s for strings. Also, %o for generic "acpi object".
    220  1.1.1.1.2.2  skrll          */
    221  1.1.1.1.2.2  skrll         switch (*Format)
    222  1.1.1.1.2.2  skrll         {
    223  1.1.1.1.2.2  skrll         case 's':
    224  1.1.1.1.2.2  skrll 
    225  1.1.1.1.2.2  skrll             if (ArgNode->Asl.ParseOpcode != PARSEOP_STRING_LITERAL)
    226  1.1.1.1.2.2  skrll             {
    227  1.1.1.1.2.2  skrll                 AslError(ASL_ERROR, ASL_MSG_INVALID_TYPE, ArgNode,
    228  1.1.1.1.2.2  skrll                     "String required");
    229  1.1.1.1.2.2  skrll                 return;
    230  1.1.1.1.2.2  skrll             }
    231  1.1.1.1.2.2  skrll 
    232  1.1.1.1.2.2  skrll             NextNode = ArgNode->Asl.Next;
    233  1.1.1.1.2.2  skrll             ArgNode->Asl.Next = NULL;
    234  1.1.1.1.2.2  skrll             OpcCreateConcatenateNode(Op, ArgNode);
    235  1.1.1.1.2.2  skrll             ArgNode = NextNode;
    236  1.1.1.1.2.2  skrll             continue;
    237  1.1.1.1.2.2  skrll 
    238  1.1.1.1.2.2  skrll         case 'X':
    239  1.1.1.1.2.2  skrll         case 'x':
    240  1.1.1.1.2.2  skrll         case 'o':
    241  1.1.1.1.2.2  skrll 
    242  1.1.1.1.2.2  skrll             NextNode = ArgNode->Asl.Next;
    243  1.1.1.1.2.2  skrll             ArgNode->Asl.Next = NULL;
    244  1.1.1.1.2.2  skrll 
    245  1.1.1.1.2.2  skrll             /*
    246  1.1.1.1.2.2  skrll              * Append an empty string if the first argument is
    247  1.1.1.1.2.2  skrll              * not a string. This will implicitly conver the 2nd
    248  1.1.1.1.2.2  skrll              * concat source to a string per the ACPI specification.
    249  1.1.1.1.2.2  skrll              */
    250  1.1.1.1.2.2  skrll             if (!Op->Asl.Child)
    251  1.1.1.1.2.2  skrll             {
    252  1.1.1.1.2.2  skrll                 NewOp = TrAllocateNode (PARSEOP_STRING_LITERAL);
    253  1.1.1.1.2.2  skrll                 NewOp->Asl.Value.String = "";
    254  1.1.1.1.2.2  skrll                 NewOp->Asl.AmlOpcode = AML_STRING_OP;
    255  1.1.1.1.2.2  skrll                 NewOp->Asl.AcpiBtype = ACPI_BTYPE_STRING;
    256  1.1.1.1.2.2  skrll                 NewOp->Asl.LogicalLineNumber = Op->Asl.LogicalLineNumber;
    257  1.1.1.1.2.2  skrll 
    258  1.1.1.1.2.2  skrll                 OpcCreateConcatenateNode(Op, NewOp);
    259  1.1.1.1.2.2  skrll             }
    260  1.1.1.1.2.2  skrll 
    261  1.1.1.1.2.2  skrll             OpcCreateConcatenateNode(Op, ArgNode);
    262  1.1.1.1.2.2  skrll             ArgNode = NextNode;
    263  1.1.1.1.2.2  skrll             break;
    264  1.1.1.1.2.2  skrll 
    265  1.1.1.1.2.2  skrll         default:
    266  1.1.1.1.2.2  skrll 
    267  1.1.1.1.2.2  skrll             AslError(ASL_ERROR, ASL_MSG_INVALID_OPERAND, Op,
    268  1.1.1.1.2.2  skrll                 "Unrecognized format specifier");
    269  1.1.1.1.2.2  skrll             continue;
    270  1.1.1.1.2.2  skrll         }
    271  1.1.1.1.2.2  skrll     }
    272  1.1.1.1.2.2  skrll 
    273  1.1.1.1.2.2  skrll     /* Process any remaining string */
    274  1.1.1.1.2.2  skrll 
    275  1.1.1.1.2.2  skrll     if (StringToProcess)
    276  1.1.1.1.2.2  skrll     {
    277  1.1.1.1.2.2  skrll         NewString = UtStringCacheCalloc (StringLength + 1);
    278  1.1.1.1.2.2  skrll         ACPI_STRNCPY (NewString, StartPosition, StringLength);
    279  1.1.1.1.2.2  skrll 
    280  1.1.1.1.2.2  skrll         NewOp = TrAllocateNode (PARSEOP_STRING_LITERAL);
    281  1.1.1.1.2.2  skrll         NewOp->Asl.Value.String = NewString;
    282  1.1.1.1.2.2  skrll         NewOp->Asl.AcpiBtype = ACPI_BTYPE_STRING;
    283  1.1.1.1.2.2  skrll         NewOp->Asl.AmlOpcode = AML_STRING_OP;
    284  1.1.1.1.2.2  skrll         NewOp->Asl.LogicalLineNumber = Op->Asl.LogicalLineNumber;
    285  1.1.1.1.2.2  skrll 
    286  1.1.1.1.2.2  skrll         OpcCreateConcatenateNode(Op, NewOp);
    287  1.1.1.1.2.2  skrll     }
    288  1.1.1.1.2.2  skrll 
    289  1.1.1.1.2.2  skrll     /*
    290  1.1.1.1.2.2  skrll      * If we get here and there's no child node then Format
    291  1.1.1.1.2.2  skrll      * was an empty string. Just make a no op.
    292  1.1.1.1.2.2  skrll      */
    293  1.1.1.1.2.2  skrll     if (!Op->Asl.Child)
    294  1.1.1.1.2.2  skrll     {
    295  1.1.1.1.2.2  skrll         Op->Asl.ParseOpcode = PARSEOP_NOOP;
    296  1.1.1.1.2.2  skrll         AslError(ASL_WARNING, ASL_MSG_NULL_STRING, Op,
    297  1.1.1.1.2.2  skrll             "Converted to NOOP");
    298  1.1.1.1.2.2  skrll         return;
    299  1.1.1.1.2.2  skrll     }
    300  1.1.1.1.2.2  skrll 
    301  1.1.1.1.2.2  skrll      /* Check for erroneous extra arguments */
    302  1.1.1.1.2.2  skrll 
    303  1.1.1.1.2.2  skrll     if (ArgNode &&
    304  1.1.1.1.2.2  skrll         ArgNode->Asl.ParseOpcode != PARSEOP_DEFAULT_ARG)
    305  1.1.1.1.2.2  skrll     {
    306  1.1.1.1.2.2  skrll         AslError(ASL_WARNING, ASL_MSG_ARG_COUNT_HI, ArgNode,
    307  1.1.1.1.2.2  skrll             "Extra arguments ignored");
    308  1.1.1.1.2.2  skrll     }
    309  1.1.1.1.2.2  skrll 
    310  1.1.1.1.2.2  skrll     /* Change Op to a Store */
    311  1.1.1.1.2.2  skrll 
    312  1.1.1.1.2.2  skrll     Op->Asl.ParseOpcode = PARSEOP_STORE;
    313  1.1.1.1.2.2  skrll     Op->Common.AmlOpcode = AML_STORE_OP;
    314  1.1.1.1.2.2  skrll     Op->Asl.CompileFlags  = 0;
    315  1.1.1.1.2.2  skrll 
    316  1.1.1.1.2.2  skrll     /* Disable further optimization */
    317  1.1.1.1.2.2  skrll 
    318  1.1.1.1.2.2  skrll     Op->Asl.CompileFlags &= ~NODE_COMPILE_TIME_CONST;
    319  1.1.1.1.2.2  skrll     UtSetParseOpName (Op);
    320  1.1.1.1.2.2  skrll 
    321  1.1.1.1.2.2  skrll     /* Set Store destination */
    322  1.1.1.1.2.2  skrll 
    323  1.1.1.1.2.2  skrll     Op->Asl.Child->Asl.Next = DestOp;
    324  1.1.1.1.2.2  skrll }
    325  1.1.1.1.2.2  skrll 
    326  1.1.1.1.2.2  skrll 
    327  1.1.1.1.2.2  skrll /*******************************************************************************
    328  1.1.1.1.2.2  skrll  *
    329  1.1.1.1.2.2  skrll  * FUNCTION:    OpcCreateConcatenateNode
    330  1.1.1.1.2.2  skrll  *
    331  1.1.1.1.2.2  skrll  * PARAMETERS:  Op                  - Parse node
    332  1.1.1.1.2.2  skrll  *              Node                - Parse node to be concatenated
    333  1.1.1.1.2.2  skrll  *
    334  1.1.1.1.2.2  skrll  * RETURN:      None
    335  1.1.1.1.2.2  skrll  *
    336  1.1.1.1.2.2  skrll  * DESCRIPTION: Make Node the child of Op. If child node already exists, then
    337  1.1.1.1.2.2  skrll  *              concat child with Node and makes concat node the child of Op.
    338  1.1.1.1.2.2  skrll  *
    339  1.1.1.1.2.2  skrll  ******************************************************************************/
    340  1.1.1.1.2.2  skrll 
    341  1.1.1.1.2.2  skrll static void
    342  1.1.1.1.2.2  skrll OpcCreateConcatenateNode (
    343  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *Op,
    344  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *Node)
    345  1.1.1.1.2.2  skrll {
    346  1.1.1.1.2.2  skrll     ACPI_PARSE_OBJECT       *NewConcatOp;
    347  1.1.1.1.2.2  skrll 
    348  1.1.1.1.2.2  skrll 
    349  1.1.1.1.2.2  skrll     if (!Op->Asl.Child)
    350  1.1.1.1.2.2  skrll     {
    351  1.1.1.1.2.2  skrll         Op->Asl.Child = Node;
    352  1.1.1.1.2.2  skrll         Node->Asl.Parent = Op;
    353  1.1.1.1.2.2  skrll         return;
    354  1.1.1.1.2.2  skrll     }
    355  1.1.1.1.2.2  skrll 
    356  1.1.1.1.2.2  skrll     NewConcatOp = TrAllocateNode (PARSEOP_CONCATENATE);
    357  1.1.1.1.2.2  skrll     NewConcatOp->Asl.AmlOpcode = AML_CONCAT_OP;
    358  1.1.1.1.2.2  skrll     NewConcatOp->Asl.AcpiBtype = 0x7;
    359  1.1.1.1.2.2  skrll     NewConcatOp->Asl.LogicalLineNumber = Op->Asl.LogicalLineNumber;
    360  1.1.1.1.2.2  skrll 
    361  1.1.1.1.2.2  skrll     /* First arg is child of Op*/
    362  1.1.1.1.2.2  skrll 
    363  1.1.1.1.2.2  skrll     NewConcatOp->Asl.Child = Op->Asl.Child;
    364  1.1.1.1.2.2  skrll     Op->Asl.Child->Asl.Parent = NewConcatOp;
    365  1.1.1.1.2.2  skrll 
    366  1.1.1.1.2.2  skrll     /* Second arg is Node */
    367  1.1.1.1.2.2  skrll 
    368  1.1.1.1.2.2  skrll     NewConcatOp->Asl.Child->Asl.Next = Node;
    369  1.1.1.1.2.2  skrll     Node->Asl.Parent = NewConcatOp;
    370  1.1.1.1.2.2  skrll 
    371  1.1.1.1.2.2  skrll     /* Third arg is Zero (not used) */
    372  1.1.1.1.2.2  skrll 
    373  1.1.1.1.2.2  skrll     NewConcatOp->Asl.Child->Asl.Next->Asl.Next =
    374  1.1.1.1.2.2  skrll         TrAllocateNode (PARSEOP_ZERO);
    375  1.1.1.1.2.2  skrll     NewConcatOp->Asl.Child->Asl.Next->Asl.Next->Asl.Parent =
    376  1.1.1.1.2.2  skrll         NewConcatOp;
    377  1.1.1.1.2.2  skrll 
    378  1.1.1.1.2.2  skrll     Op->Asl.Child = NewConcatOp;
    379  1.1.1.1.2.2  skrll     NewConcatOp->Asl.Parent = Op;
    380  1.1.1.1.2.2  skrll }
    381