1 /******************************************************************************
3 * Module Name: aslopcode - AML opcode generation
5 *****************************************************************************/
8 * Copyright (C) 2000 - 2016, Intel Corp.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
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.
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.
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.
44 #include <contrib/dev/acpica/compiler/aslcompiler.h>
45 #include "aslcompiler.y.h"
46 #include <contrib/dev/acpica/include/amlcode.h>
48 #define _COMPONENT ACPI_COMPILER
49 ACPI_MODULE_NAME ("aslopcodes")
52 /* Local prototypes */
56 ACPI_PARSE_OBJECT *Op);
60 ACPI_PARSE_OBJECT *Op);
64 ACPI_PARSE_OBJECT *Op);
68 ACPI_PARSE_OBJECT *Op);
72 ACPI_PARSE_OBJECT *Op);
75 /*******************************************************************************
77 * FUNCTION: OpcAmlOpcodeUpdateWalk
79 * PARAMETERS: ASL_WALK_CALLBACK
83 * DESCRIPTION: Opcode update walk, ascending callback
85 ******************************************************************************/
88 OpcAmlOpcodeUpdateWalk (
89 ACPI_PARSE_OBJECT *Op,
95 * Handle the Package() case where the actual opcode cannot be determined
96 * until the PackageLength operand has been folded and minimized.
97 * (PackageOp versus VarPackageOp)
99 * This is (as of ACPI 3.0) the only case where the AML opcode can change
100 * based upon the value of a parameter.
102 * The parser always inserts a VarPackage opcode, which can possibly be
103 * optimized to a Package opcode.
105 if (Op->Asl.ParseOpcode == PARSEOP_VAR_PACKAGE)
114 /*******************************************************************************
116 * FUNCTION: OpcAmlOpcodeWalk
118 * PARAMETERS: ASL_WALK_CALLBACK
122 * DESCRIPTION: Parse tree walk to generate both the AML opcodes and the AML
125 ******************************************************************************/
129 ACPI_PARSE_OBJECT *Op,
136 OpcGenerateAmlOpcode (Op);
137 OpnGenerateAmlOperands (Op);
142 /*******************************************************************************
144 * FUNCTION: OpcGetIntegerWidth
146 * PARAMETERS: Op - DEFINITION BLOCK op
150 * DESCRIPTION: Extract integer width from the table revision
152 ******************************************************************************/
156 ACPI_PARSE_OBJECT *Op)
158 ACPI_PARSE_OBJECT *Child;
166 if (Gbl_RevisionOverride)
168 AcpiUtSetIntegerWidth (Gbl_RevisionOverride);
172 Child = Op->Asl.Child;
173 Child = Child->Asl.Next;
174 Child = Child->Asl.Next;
176 /* Use the revision to set the integer width */
178 AcpiUtSetIntegerWidth ((UINT8) Child->Asl.Value.Integer);
183 /*******************************************************************************
185 * FUNCTION: OpcSetOptimalIntegerSize
187 * PARAMETERS: Op - A parse tree node
189 * RETURN: Integer width, in bytes. Also sets the node AML opcode to the
190 * optimal integer AML prefix opcode.
192 * DESCRIPTION: Determine the optimal AML encoding of an integer. All leading
193 * zeros can be truncated to squeeze the integer into the
194 * minimal number of AML bytes.
196 ******************************************************************************/
199 OpcSetOptimalIntegerSize (
200 ACPI_PARSE_OBJECT *Op)
205 * TBD: - we don't want to optimize integers in the block header, but the
206 * code below does not work correctly.
208 if (Op->Asl.Parent &&
209 Op->Asl.Parent->Asl.Parent &&
210 (Op->Asl.Parent->Asl.Parent->Asl.ParseOpcode == PARSEOP_DEFINITION_BLOCK))
217 * Check for the special AML integers first - Zero, One, Ones.
218 * These are single-byte opcodes that are the smallest possible
219 * representation of an integer.
221 * This optimization is optional.
223 if (Gbl_IntegerOptimizationFlag)
225 switch (Op->Asl.Value.Integer)
229 Op->Asl.AmlOpcode = AML_ZERO_OP;
230 AslError (ASL_OPTIMIZATION, ASL_MSG_INTEGER_OPTIMIZATION,
236 Op->Asl.AmlOpcode = AML_ONE_OP;
237 AslError (ASL_OPTIMIZATION, ASL_MSG_INTEGER_OPTIMIZATION,
241 case ACPI_UINT32_MAX:
243 /* Check for table integer width (32 or 64) */
245 if (AcpiGbl_IntegerByteWidth == 4)
247 Op->Asl.AmlOpcode = AML_ONES_OP;
248 AslError (ASL_OPTIMIZATION, ASL_MSG_INTEGER_OPTIMIZATION,
254 case ACPI_UINT64_MAX:
256 /* Check for table integer width (32 or 64) */
258 if (AcpiGbl_IntegerByteWidth == 8)
260 Op->Asl.AmlOpcode = AML_ONES_OP;
261 AslError (ASL_OPTIMIZATION, ASL_MSG_INTEGER_OPTIMIZATION,
273 /* Find the best fit using the various AML integer prefixes */
275 if (Op->Asl.Value.Integer <= ACPI_UINT8_MAX)
277 Op->Asl.AmlOpcode = AML_BYTE_OP;
281 if (Op->Asl.Value.Integer <= ACPI_UINT16_MAX)
283 Op->Asl.AmlOpcode = AML_WORD_OP;
287 if (Op->Asl.Value.Integer <= ACPI_UINT32_MAX)
289 Op->Asl.AmlOpcode = AML_DWORD_OP;
294 if (AcpiGbl_IntegerByteWidth == 4)
296 AslError (ASL_WARNING, ASL_MSG_INTEGER_LENGTH,
299 if (!Gbl_IgnoreErrors)
301 /* Truncate the integer to 32-bit */
302 Op->Asl.AmlOpcode = AML_DWORD_OP;
307 Op->Asl.AmlOpcode = AML_QWORD_OP;
313 /*******************************************************************************
315 * FUNCTION: OpcDoAccessAs
317 * PARAMETERS: Op - Parse node
321 * DESCRIPTION: Implement the ACCESS_AS ASL keyword.
323 ******************************************************************************/
327 ACPI_PARSE_OBJECT *Op)
329 ACPI_PARSE_OBJECT *TypeOp;
330 ACPI_PARSE_OBJECT *AttribOp;
331 ACPI_PARSE_OBJECT *LengthOp;
335 Op->Asl.AmlOpcodeLength = 1;
336 TypeOp = Op->Asl.Child;
338 /* First child is the access type */
340 TypeOp->Asl.AmlOpcode = AML_RAW_DATA_BYTE;
341 TypeOp->Asl.ParseOpcode = PARSEOP_RAW_DATA;
343 /* Second child is the optional access attribute */
345 AttribOp = TypeOp->Asl.Next;
346 if (AttribOp->Asl.ParseOpcode == PARSEOP_DEFAULT_ARG)
348 AttribOp->Asl.Value.Integer = 0;
351 AttribOp->Asl.AmlOpcode = AML_RAW_DATA_BYTE;
352 AttribOp->Asl.ParseOpcode = PARSEOP_RAW_DATA;
354 /* Only a few AccessAttributes support AccessLength */
356 Attribute = (UINT8) AttribOp->Asl.Value.Integer;
357 if ((Attribute != AML_FIELD_ATTRIB_MULTIBYTE) &&
358 (Attribute != AML_FIELD_ATTRIB_RAW_BYTES) &&
359 (Attribute != AML_FIELD_ATTRIB_RAW_PROCESS))
364 Op->Asl.AmlOpcode = AML_FIELD_EXT_ACCESS_OP;
367 * Child of Attributes is the AccessLength (required for Multibyte,
368 * RawBytes, RawProcess.)
370 LengthOp = AttribOp->Asl.Child;
376 /* TBD: probably can remove */
378 if (LengthOp->Asl.ParseOpcode == PARSEOP_DEFAULT_ARG)
380 LengthOp->Asl.Value.Integer = 16;
383 LengthOp->Asl.AmlOpcode = AML_RAW_DATA_BYTE;
384 LengthOp->Asl.ParseOpcode = PARSEOP_RAW_DATA;
388 /*******************************************************************************
390 * FUNCTION: OpcDoConnection
392 * PARAMETERS: Op - Parse node
396 * DESCRIPTION: Implement the Connection ASL keyword.
398 ******************************************************************************/
402 ACPI_PARSE_OBJECT *Op)
404 ASL_RESOURCE_NODE *Rnode;
405 ACPI_PARSE_OBJECT *BufferOp;
406 ACPI_PARSE_OBJECT *BufferLengthOp;
407 ACPI_PARSE_OBJECT *BufferDataOp;
408 ASL_RESOURCE_INFO Info;
412 Op->Asl.AmlOpcodeLength = 1;
414 if (Op->Asl.Child->Asl.AmlOpcode == AML_INT_NAMEPATH_OP)
419 BufferOp = Op->Asl.Child;
420 BufferLengthOp = BufferOp->Asl.Child;
421 BufferDataOp = BufferLengthOp->Asl.Next;
423 Info.DescriptorTypeOp = BufferDataOp->Asl.Next;
424 Info.CurrentByteOffset = 0;
425 State = ACPI_RSTATE_NORMAL;
426 Rnode = RsDoOneResourceDescriptor (&Info, &State);
433 * Transform the nodes into the following
435 * Op -> AML_BUFFER_OP
436 * First Child -> BufferLength
437 * Second Child -> Descriptor Buffer (raw byte data)
439 BufferOp->Asl.ParseOpcode = PARSEOP_BUFFER;
440 BufferOp->Asl.AmlOpcode = AML_BUFFER_OP;
441 BufferOp->Asl.CompileFlags = NODE_AML_PACKAGE | NODE_IS_RESOURCE_DESC;
442 UtSetParseOpName (BufferOp);
444 BufferLengthOp->Asl.ParseOpcode = PARSEOP_INTEGER;
445 BufferLengthOp->Asl.Value.Integer = Rnode->BufferLength;
446 (void) OpcSetOptimalIntegerSize (BufferLengthOp);
447 UtSetParseOpName (BufferLengthOp);
449 BufferDataOp->Asl.ParseOpcode = PARSEOP_RAW_DATA;
450 BufferDataOp->Asl.AmlOpcode = AML_RAW_DATA_CHAIN;
451 BufferDataOp->Asl.AmlOpcodeLength = 0;
452 BufferDataOp->Asl.AmlLength = Rnode->BufferLength;
453 BufferDataOp->Asl.Value.Buffer = (UINT8 *) Rnode;
454 UtSetParseOpName (BufferDataOp);
458 /*******************************************************************************
460 * FUNCTION: OpcDoUnicode
462 * PARAMETERS: Op - Parse node
466 * DESCRIPTION: Implement the UNICODE ASL "macro". Convert the input string
467 * to a unicode buffer. There is no Unicode AML opcode.
469 * Note: The Unicode string is 16 bits per character, no leading signature,
470 * with a 16-bit terminating NULL.
472 ******************************************************************************/
476 ACPI_PARSE_OBJECT *Op)
478 ACPI_PARSE_OBJECT *InitializerOp;
483 UINT16 *UnicodeString;
484 ACPI_PARSE_OBJECT *BufferLengthOp;
487 /* Change op into a buffer object */
489 Op->Asl.CompileFlags &= ~NODE_COMPILE_TIME_CONST;
490 Op->Asl.ParseOpcode = PARSEOP_BUFFER;
491 UtSetParseOpName (Op);
493 /* Buffer Length is first, followed by the string */
495 BufferLengthOp = Op->Asl.Child;
496 InitializerOp = BufferLengthOp->Asl.Next;
498 AsciiString = (UINT8 *) InitializerOp->Asl.Value.String;
500 /* Create a new buffer for the Unicode string */
502 Count = strlen (InitializerOp->Asl.Value.String) + 1;
503 Length = Count * sizeof (UINT16);
504 UnicodeString = UtLocalCalloc (Length);
506 /* Convert to Unicode string (including null terminator) */
508 for (i = 0; i < Count; i++)
510 UnicodeString[i] = (UINT16) AsciiString[i];
514 * Just set the buffer size node to be the buffer length, regardless
515 * of whether it was previously an integer or a default_arg placeholder
517 BufferLengthOp->Asl.ParseOpcode = PARSEOP_INTEGER;
518 BufferLengthOp->Asl.AmlOpcode = AML_DWORD_OP;
519 BufferLengthOp->Asl.Value.Integer = Length;
520 UtSetParseOpName (BufferLengthOp);
522 (void) OpcSetOptimalIntegerSize (BufferLengthOp);
524 /* The Unicode string is a raw data buffer */
526 InitializerOp->Asl.Value.Buffer = (UINT8 *) UnicodeString;
527 InitializerOp->Asl.AmlOpcode = AML_RAW_DATA_BUFFER;
528 InitializerOp->Asl.AmlLength = Length;
529 InitializerOp->Asl.ParseOpcode = PARSEOP_RAW_DATA;
530 InitializerOp->Asl.Child = NULL;
531 UtSetParseOpName (InitializerOp);
535 /*******************************************************************************
537 * FUNCTION: OpcDoEisaId
539 * PARAMETERS: Op - Parse node
543 * DESCRIPTION: Convert a string EISA ID to numeric representation. See the
544 * Pnp BIOS Specification for details. Here is an excerpt:
546 * A seven character ASCII representation of the product
547 * identifier compressed into a 32-bit identifier. The seven
548 * character ID consists of a three character manufacturer code,
549 * a three character hexadecimal product identifier, and a one
550 * character hexadecimal revision number. The manufacturer code
551 * is a 3 uppercase character code that is compressed into 3 5-bit
553 * 1) Find hex ASCII value for each letter
554 * 2) Subtract 40h from each ASCII value
555 * 3) Retain 5 least significant bits for each letter by
556 * discarding upper 3 bits because they are always 0.
557 * 4) Compressed code = concatenate 0 and the 3 5-bit values
559 * The format of the compressed product identifier is as follows:
560 * Byte 0: Bit 7 - Reserved (0)
561 * Bits 6-2: - 1st character of compressed mfg code
562 * Bits 1-0 - Upper 2 bits of 2nd character of mfg code
563 * Byte 1: Bits 7-5 - Lower 3 bits of 2nd character of mfg code
564 * Bits 4-0 - 3rd character of mfg code
565 * Byte 2: Bits 7-4 - 1st hex digit of product number
566 * Bits 3-0 - 2nd hex digit of product number
567 * Byte 3: Bits 7-4 - 3st hex digit of product number
568 * Bits 3-0 - Hex digit of the revision number
570 ******************************************************************************/
574 ACPI_PARSE_OBJECT *Op)
579 ACPI_STATUS Status = AE_OK;
583 InString = (char *) Op->Asl.Value.String;
586 * The EISAID string must be exactly 7 characters and of the form
587 * "UUUXXXX" -- 3 uppercase letters and 4 hex digits (e.g., "PNP0001")
589 if (strlen (InString) != 7)
591 Status = AE_BAD_PARAMETER;
595 /* Check all 7 characters for correct format */
597 for (i = 0; i < 7; i++)
599 /* First 3 characters must be uppercase letters */
603 if (!isupper ((int) InString[i]))
605 Status = AE_BAD_PARAMETER;
609 /* Last 4 characters must be hex digits */
611 else if (!isxdigit ((int) InString[i]))
613 Status = AE_BAD_PARAMETER;
618 if (ACPI_FAILURE (Status))
620 AslError (ASL_ERROR, ASL_MSG_INVALID_EISAID, Op, Op->Asl.Value.String);
624 /* Create ID big-endian first (bits are contiguous) */
627 (UINT32) ((UINT8) (InString[0] - 0x40)) << 26 |
628 (UINT32) ((UINT8) (InString[1] - 0x40)) << 21 |
629 (UINT32) ((UINT8) (InString[2] - 0x40)) << 16 |
631 (AcpiUtAsciiCharToHex (InString[3])) << 12 |
632 (AcpiUtAsciiCharToHex (InString[4])) << 8 |
633 (AcpiUtAsciiCharToHex (InString[5])) << 4 |
634 AcpiUtAsciiCharToHex (InString[6]);
636 /* Swap to little-endian to get final ID (see function header) */
638 EisaId = AcpiUtDwordByteSwap (BigEndianId);
642 * Morph the Op into an integer, regardless of whether there
643 * was an error in the EISAID string
645 Op->Asl.Value.Integer = EisaId;
647 Op->Asl.CompileFlags &= ~NODE_COMPILE_TIME_CONST;
648 Op->Asl.ParseOpcode = PARSEOP_INTEGER;
649 (void) OpcSetOptimalIntegerSize (Op);
651 /* Op is now an integer */
653 UtSetParseOpName (Op);
657 /*******************************************************************************
659 * FUNCTION: OpcDoUuId
661 * PARAMETERS: Op - Parse node
665 * DESCRIPTION: Convert UUID string to 16-byte buffer
667 ******************************************************************************/
671 ACPI_PARSE_OBJECT *Op)
675 ACPI_STATUS Status = AE_OK;
676 ACPI_PARSE_OBJECT *NewOp;
679 InString = ACPI_CAST_PTR (char, Op->Asl.Value.String);
680 Buffer = UtLocalCalloc (16);
682 Status = AuValidateUuid (InString);
683 if (ACPI_FAILURE (Status))
685 AslError (ASL_ERROR, ASL_MSG_INVALID_UUID, Op, Op->Asl.Value.String);
689 AcpiUtConvertStringToUuid (InString, Buffer);
692 /* Change Op to a Buffer */
694 Op->Asl.ParseOpcode = PARSEOP_BUFFER;
695 Op->Common.AmlOpcode = AML_BUFFER_OP;
697 /* Disable further optimization */
699 Op->Asl.CompileFlags &= ~NODE_COMPILE_TIME_CONST;
700 UtSetParseOpName (Op);
702 /* Child node is the buffer length */
704 NewOp = TrAllocateNode (PARSEOP_INTEGER);
706 NewOp->Asl.AmlOpcode = AML_BYTE_OP;
707 NewOp->Asl.Value.Integer = 16;
708 NewOp->Asl.Parent = Op;
710 Op->Asl.Child = NewOp;
713 /* Peer to the child is the raw buffer data */
715 NewOp = TrAllocateNode (PARSEOP_RAW_DATA);
716 NewOp->Asl.AmlOpcode = AML_RAW_DATA_BUFFER;
717 NewOp->Asl.AmlLength = 16;
718 NewOp->Asl.Value.String = ACPI_CAST_PTR (char, Buffer);
719 NewOp->Asl.Parent = Op->Asl.Parent;
721 Op->Asl.Next = NewOp;
725 /*******************************************************************************
727 * FUNCTION: OpcGenerateAmlOpcode
729 * PARAMETERS: Op - Parse node
733 * DESCRIPTION: Generate the AML opcode associated with the node and its
734 * parse (lex/flex) keyword opcode. Essentially implements
735 * a mapping between the parse opcodes and the actual AML opcodes.
737 ******************************************************************************/
740 OpcGenerateAmlOpcode (
741 ACPI_PARSE_OBJECT *Op)
746 Index = (UINT16) (Op->Asl.ParseOpcode - ASL_PARSE_OPCODE_BASE);
748 Op->Asl.AmlOpcode = AslKeywordMapping[Index].AmlOpcode;
749 Op->Asl.AcpiBtype = AslKeywordMapping[Index].AcpiBtype;
750 Op->Asl.CompileFlags |= AslKeywordMapping[Index].Flags;
752 if (!Op->Asl.Value.Integer)
754 Op->Asl.Value.Integer = AslKeywordMapping[Index].Value;
757 /* Special handling for some opcodes */
759 switch (Op->Asl.ParseOpcode)
761 case PARSEOP_INTEGER:
763 * Set the opcode based on the size of the integer
765 (void) OpcSetOptimalIntegerSize (Op);
770 Op->Asl.AmlOpcodeLength = 1;
773 case PARSEOP_ACCESSAS:
778 case PARSEOP_CONNECTION:
780 OpcDoConnection (Op);
793 case PARSEOP_FPRINTF:
808 case PARSEOP_UNICODE:
813 case PARSEOP_INCLUDE:
815 Gbl_HasIncludeFiles = TRUE;
818 case PARSEOP_EXTERNAL:
820 if (Gbl_DoExternals == FALSE)
822 Op->Asl.Child->Asl.ParseOpcode = PARSEOP_DEFAULT_ARG;
823 Op->Asl.Child->Asl.Next->Asl.ParseOpcode = PARSEOP_DEFAULT_ARG;
829 if (AcpiGbl_IntegerBitWidth == 32)
831 AslError (ASL_REMARK, ASL_MSG_TRUNCATION, Op, NULL);
837 /* Nothing to do for other opcodes */