Subversion Repositories Kolibri OS

 *

 * Module Name: aslcompile - top level compile module

 *

 *****************************************************************************/

 *

 * 1. Copyright Notice

 *

 * Some or all of this work - Copyright (c) 1999 - 2010, Intel Corp.

 * All rights reserved.

 *

 * 2. License

 *

 * 2.1. This is your license from Intel Corp. under its intellectual property

 * rights.  You may have additional license terms from the party that provided

 * you this software, covering your right to use that party's intellectual

 * property rights.

 *

 * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a

 * copy of the source code appearing in this file ("Covered Code") an

 * irrevocable, perpetual, worldwide license under Intel's copyrights in the

 * base code distributed originally by Intel ("Original Intel Code") to copy,

 * make derivatives, distribute, use and display any portion of the Covered

 * Code in any form, with the right to sublicense such rights; and

 *

 * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent

 * license (with the right to sublicense), under only those claims of Intel

 * patents that are infringed by the Original Intel Code, to make, use, sell,

 * offer to sell, and import the Covered Code and derivative works thereof

 * solely to the minimum extent necessary to exercise the above copyright

 * license, and in no event shall the patent license extend to any additions

 * to or modifications of the Original Intel Code.  No other license or right

 * is granted directly or by implication, estoppel or otherwise;

 *

 * The above copyright and patent license is granted only if the following

 * conditions are met:

 *

 * 3. Conditions

 *

 * 3.1. Redistribution of Source with Rights to Further Distribute Source.

 * Redistribution of source code of any substantial portion of the Covered

 * Code or modification with rights to further distribute source must include

 * the above Copyright Notice, the above License, this list of Conditions,

 * and the following Disclaimer and Export Compliance provision.  In addition,

 * Licensee must cause all Covered Code to which Licensee contributes to

 * contain a file documenting the changes Licensee made to create that Covered

 * Code and the date of any change.  Licensee must include in that file the

 * documentation of any changes made by any predecessor Licensee.  Licensee

 * must include a prominent statement that the modification is derived,

 * directly or indirectly, from Original Intel Code.

 *

 * 3.2. Redistribution of Source with no Rights to Further Distribute Source.

 * Redistribution of source code of any substantial portion of the Covered

 * Code or modification without rights to further distribute source must

 * include the following Disclaimer and Export Compliance provision in the

 * documentation and/or other materials provided with distribution.  In

 * addition, Licensee may not authorize further sublicense of source of any

 * portion of the Covered Code, and must include terms to the effect that the

 * license from Licensee to its licensee is limited to the intellectual

 * property embodied in the software Licensee provides to its licensee, and

 * not to intellectual property embodied in modifications its licensee may

 * make.

 *

 * 3.3. Redistribution of Executable. Redistribution in executable form of any

 * substantial portion of the Covered Code or modification must reproduce the

 * above Copyright Notice, and the following Disclaimer and Export Compliance

 * provision in the documentation and/or other materials provided with the

 * distribution.

 *

 * 3.4. Intel retains all right, title, and interest in and to the Original

 * Intel Code.

 *

 * 3.5. Neither the name Intel nor any other trademark owned or controlled by

 * Intel shall be used in advertising or otherwise to promote the sale, use or

 * other dealings in products derived from or relating to the Covered Code

 * without prior written authorization from Intel.

 *

 * 4. Disclaimer and Export Compliance

 *

 * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED

 * HERE.  ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE

 * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT,  ASSISTANCE,

 * INSTALLATION, TRAINING OR OTHER SERVICES.  INTEL WILL NOT PROVIDE ANY

 * UPDATES, ENHANCEMENTS OR EXTENSIONS.  INTEL SPECIFICALLY DISCLAIMS ANY

 * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A

 * PARTICULAR PURPOSE.

 *

 * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES

 * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR

 * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,

 * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY

 * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL

 * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES.  THESE LIMITATIONS

 * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY

 * LIMITED REMEDY.

 *

 * 4.3. Licensee shall not export, either directly or indirectly, any of this

 * software or system incorporating such software without first obtaining any

 * required license or other approval from the U. S. Department of Commerce or

 * any other agency or department of the United States Government.  In the

 * event Licensee exports any such software from the United States or

 * re-exports any such software from a foreign destination, Licensee shall

 * ensure that the distribution and export/re-export of the software is in

 * compliance with all laws, regulations, orders, or other restrictions of the

 * U.S. Export Administration Regulations. Licensee agrees that neither it nor

 * any of its subsidiaries will export/re-export any technical data, process,

 * software, or service, directly or indirectly, to any country for which the

 * United States government or any agency thereof requires an export license,

 * other governmental approval, or letter of assurance, without first obtaining

 * such license, approval or letter.

 *

 *****************************************************************************/

#include 

#include "aslcompiler.h"

        ACPI_MODULE_NAME    ("aslcompile")

CmFlushSourceCode (

    void);

FlConsumeAnsiComment (

    ASL_FILE_INFO           *FileInfo,

    ASL_FILE_STATUS         *Status);

FlConsumeNewComment (

    ASL_FILE_INFO           *FileInfo,

    ASL_FILE_STATUS         *Status);

 *

 * FUNCTION:    AslCompilerSignon

 *

 * PARAMETERS:  FileId      - ID of the output file

 *

 * RETURN:      None

 *

 * DESCRIPTION: Display compiler signon

 *

 ******************************************************************************/

AslCompilerSignon (

    UINT32                  FileId)

{

    char                    *Prefix = "";

    {

    case ASL_FILE_ASM_SOURCE_OUTPUT:

    case ASL_FILE_ASM_INCLUDE_OUTPUT:

        break;

        {

            Prefix = "; ";

        }

        else if ((Gbl_HexOutputFlag == HEX_OUTPUT_C) ||

                 (Gbl_HexOutputFlag == HEX_OUTPUT_ASL))

        {

            FlPrintFile (ASL_FILE_HEX_OUTPUT, "/*\n");

            Prefix = " * ";

        }

        break;

    case ASL_FILE_C_INCLUDE_OUTPUT:

        break;

        /* No other output types supported */

        break;

    }

     * Compiler signon with copyright

     */

    FlPrintFile (FileId,

        "%s\n%s%s\n%s",

        Prefix,

        Prefix, IntelAcpiCA,

        Prefix);

    {

        FlPrintFile (FileId,

            "%s", DisassemblerId);

    }

    else

    {

        FlPrintFile (FileId,

            "%s", CompilerId);

    }

        " version %X [%s]\n%s%s\n%s%s\n%s\n",

        (UINT32) ACPI_CA_VERSION, __DATE__,

        Prefix, CompilerCopyright,

        Prefix, CompilerCompliance,

        Prefix);

}

 *

 * FUNCTION:    AslCompilerFileHeader

 *

 * PARAMETERS:  FileId      - ID of the output file

 *

 * RETURN:      None

 *

 * DESCRIPTION: Header used at the beginning of output files

 *

 ******************************************************************************/

AslCompilerFileHeader (

    UINT32                  FileId)

{

    struct tm               *NewTime;

    time_t                  Aclock;

    char                    *Prefix = "";

    {

    case ASL_FILE_ASM_SOURCE_OUTPUT:

    case ASL_FILE_ASM_INCLUDE_OUTPUT:

        break;

        {

            Prefix = "; ";

        }

        else if ((Gbl_HexOutputFlag == HEX_OUTPUT_C) ||

                 (Gbl_HexOutputFlag == HEX_OUTPUT_ASL))

        {

            Prefix = " * ";

        }

        break;

    case ASL_FILE_C_INCLUDE_OUTPUT:

        break;

        /* No other output types supported */

        break;

    }

    NewTime = localtime (&Aclock);

        "%sCompilation of \"%s\" - %s%s\n",

        Prefix, Gbl_Files[ASL_FILE_INPUT].Filename, asctime (NewTime),

        Prefix);

    {

    case ASL_FILE_C_SOURCE_OUTPUT:

    case ASL_FILE_C_INCLUDE_OUTPUT:

        FlPrintFile (FileId, " */\n");

        break;

        /* Nothing to do for other output types */

        break;

    }

}

 *

 * FUNCTION:    CmFlushSourceCode

 *

 * PARAMETERS:  None

 *

 * RETURN:      None

 *

 * DESCRIPTION: Read in any remaining source code after the parse tree

 *              has been constructed.

 *

 ******************************************************************************/

CmFlushSourceCode (

    void)

{

    char                    Buffer;

    {

        InsertLineBuffer ((int) Buffer);

    }

}

 *

 * FUNCTION:    FlConsume*

 *

 * PARAMETERS:  FileInfo        - Points to an open input file

 *

 * RETURN:      Number of lines consumed

 *

 * DESCRIPTION: Step over both types of comment during check for ascii chars

 *

 ******************************************************************************/

FlConsumeAnsiComment (

    ASL_FILE_INFO           *FileInfo,

    ASL_FILE_STATUS         *Status)

{

    UINT8                   Byte;

    BOOLEAN                 ClosingComment = FALSE;

    {

        /* Scan until comment close is found */

        {

            if (Byte == '/')

            {

                return;

            }

            {

                /* Reset */

            }

        }

        else if (Byte == '*')

        {

            ClosingComment = TRUE;

        }

        {

            Status->Line++;

        }

    }

}

FlConsumeNewComment (

    ASL_FILE_INFO           *FileInfo,

    ASL_FILE_STATUS         *Status)

{

    UINT8                   Byte;

    {

        Status->Offset++;

        {

            Status->Line++;

            return;

        }

    }

}

 *

 * FUNCTION:    FlCheckForAscii

 *

 * PARAMETERS:  FileInfo        - Points to an open input file

 *

 * RETURN:      Status

 *

 * DESCRIPTION: Verify that the input file is entirely ASCII. Ignores characters

 *              within comments. Note: does not handle nested comments and does

 *              not handle comment delimiters within string literals. However,

 *              on the rare chance this happens and an invalid character is

 *              missed, the parser will catch the error by failing in some

 *              spectactular manner.

 *

 ******************************************************************************/

FlCheckForAscii (

    ASL_FILE_INFO           *FileInfo)

{

    UINT8                   Byte;

    ACPI_SIZE               BadBytes = 0;

    BOOLEAN                 OpeningComment = FALSE;

    ASL_FILE_STATUS         Status;

    Status.Offset = 0;

    {

        /* Ignore comment fields (allow non-ascii within) */

        {

            /* Check for second comment open delimiter */

            {

                FlConsumeAnsiComment (FileInfo, &Status);

            }

            {

                FlConsumeNewComment (FileInfo, &Status);

            }

        }

        else if (Byte == '/')

        {

            OpeningComment = TRUE;

        }

        {

            if (BadBytes < 10)

            {

                AcpiOsPrintf (

                    "Non-ASCII character [0x%2.2X] found in line %u, file offset 0x%.2X\n",

                    Byte, Status.Line, Status.Offset);

            }

        }

        {

            Status.Line++;

        }

    }

    {

        AcpiOsPrintf (

            "%u non-ASCII characters found in input source text, could be a binary file\n",

            BadBytes);

        AslError (ASL_ERROR, ASL_MSG_NON_ASCII, NULL, FileInfo->Filename);

        return (AE_BAD_CHARACTER);

    }

}

 *

 * FUNCTION:    CmDoCompile

 *

 * PARAMETERS:  None

 *

 * RETURN:      Status (0 = OK)

 *

 * DESCRIPTION: This procedure performs the entire compile

 *

 ******************************************************************************/

CmDoCompile (

    void)

{

    ACPI_STATUS             Status;

    UINT8                   FullCompile;

    UINT8                   Event;

    Event = UtBeginEvent ("Open input and output files");

    UtEndEvent (Event);

    AslCompilerparse();

    UtEndEvent (Event);

    CmFlushSourceCode ();

    {

        CmCleanupAndExit ();

        return -1;

    }

    UtEndEvent (Event);

    DbgPrint (ASL_DEBUG_OUTPUT, "\nParse tree transforms\n\n");

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_DOWNWARD,

        TrAmlTransformWalk, NULL, NULL);

    UtEndEvent (Event);

    DbgPrint (ASL_DEBUG_OUTPUT, "\nGenerating AML opcodes\n\n");

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_UPWARD, NULL,

        OpcAmlOpcodeWalk, NULL);

    UtEndEvent (Event);

     * Now that the input is parsed, we can open the AML output file.

     * Note: by default, the name of this file comes from the table descriptor

     * within the input file.

     */

    Event = UtBeginEvent ("Open AML output file");

    Status = FlOpenAmlOutputFile (Gbl_OutputFilenamePrefix);

    if (ACPI_FAILURE (Status))

    {

        AePrintErrorLog (ASL_FILE_STDERR);

        return -1;

    }

    UtEndEvent (Event);

    DbgPrint (ASL_DEBUG_OUTPUT,

        "\nInterpreting compile-time constant expressions\n\n");

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_DOWNWARD,

        OpcAmlConstantWalk, NULL, NULL);

    UtEndEvent (Event);

    DbgPrint (ASL_DEBUG_OUTPUT,

        "\nUpdating AML opcodes after constant folding\n\n");

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_UPWARD,

        NULL, OpcAmlOpcodeUpdateWalk, NULL);

    UtEndEvent (Event);

    DbgPrint (ASL_DEBUG_OUTPUT, "\nGenerating Package lengths\n\n");

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_UPWARD, NULL,

        LnPackageLengthWalk, NULL);

    UtEndEvent (Event);

    {

        AePrintErrorLog (ASL_FILE_STDOUT);

        UtDisplaySummary (ASL_FILE_STDOUT);

        if (Gbl_DebugFlag)

        {

            /* Print error summary to the debug file */

            UtDisplaySummary (ASL_FILE_STDERR);

        }

        return 0;

    }

     * Create an internal namespace and use it as a symbol table

     */

    Status = LdLoadNamespace (RootNode);

    UtEndEvent (Event);

    if (ACPI_FAILURE (Status))

    {

        return -1;

    }

    Status = LkCrossReferenceNamespace ();

    if (ACPI_FAILURE (Status))

    {

        return -1;

    }

    UtEndEvent (AslGbl_NamespaceEvent);

     * Semantic analysis.  This can happen only after the

     * namespace has been loaded and cross-referenced.

     *

     * part one - check control methods

     */

    Event = UtBeginEvent ("Analyze control method return types");

    AnalysisWalkInfo.MethodStack = NULL;

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_TWICE,

        AnMethodAnalysisWalkBegin,

        AnMethodAnalysisWalkEnd, &AnalysisWalkInfo);

    UtEndEvent (Event);

    DbgPrint (ASL_DEBUG_OUTPUT, "\nSemantic analysis - Method typing\n\n");

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_TWICE,

        AnMethodTypingWalkBegin,

        AnMethodTypingWalkEnd, NULL);

    UtEndEvent (Event);

    DbgPrint (ASL_DEBUG_OUTPUT, "\nSemantic analysis - Operand type checking\n\n");

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_TWICE,

        AnOperandTypecheckWalkBegin,

        AnOperandTypecheckWalkEnd, &AnalysisWalkInfo);

    UtEndEvent (Event);

    DbgPrint (ASL_DEBUG_OUTPUT, "\nSemantic analysis - miscellaneous\n\n");

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_TWICE,

        AnOtherSemanticAnalysisWalkBegin,

        AnOtherSemanticAnalysisWalkEnd, &AnalysisWalkInfo);

    UtEndEvent (Event);

    DbgPrint (ASL_DEBUG_OUTPUT, "\nGenerating Package lengths\n\n");

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_UPWARD, NULL,

        LnInitLengthsWalk, NULL);

    TrWalkParseTree (RootNode, ASL_WALK_VISIT_UPWARD, NULL,

        LnPackageLengthWalk, NULL);

    UtEndEvent (Event);

    CgGenerateAmlOutput ();

    UtEndEvent (Event);

    CmDoOutputFiles ();

    UtEndEvent (Event);

    CmCleanupAndExit ();

    return 0;

}

 *

 * FUNCTION:    CmDoOutputFiles

 *

 * PARAMETERS:  None

 *

 * RETURN:      None.

 *

 * DESCRIPTION: Create all "listing" type files

 *

 ******************************************************************************/

CmDoOutputFiles (

    void)

{

    LsDoHexOutput ();

}

 *

 * FUNCTION:    CmDumpEvent

 *

 * PARAMETERS:  Event           - A compiler event struct

 *

 * RETURN:      None.

 *

 * DESCRIPTION: Dump a compiler event struct

 *

 ******************************************************************************/

CmDumpEvent (

    ASL_EVENT_INFO          *Event)

{

    UINT32                  Delta;

    UINT32                  USec;

    UINT32                  MSec;

    {

        return;

    }

    MSec = Delta / 10000;

    {

        MSec++;

    }

        USec, MSec, Event->EventName);

}

 *

 * FUNCTION:    CmCleanupAndExit

 *

 * PARAMETERS:  None

 *

 * RETURN:      None.

 *

 * DESCRIPTION: Close all open files and exit the compiler

 *

 ******************************************************************************/

CmCleanupAndExit (

    void)

{

    UINT32                  i;

    if (Gbl_DebugFlag)

    {

        /* Print error summary to the debug file */

    }

    for (i = 0; i < AslGbl_NextEvent; i++)

    {

        CmDumpEvent (&AslGbl_Events[i]);

    }

    {

        printf ("\nElapsed time for major events\n\n");

        for (i = 0; i < AslGbl_NextEvent; i++)

        {

            CmDumpEvent (&AslGbl_Events[i]);

        }

        printf ("%11u : %s\n", TotalParseNodes, "Parse nodes");

        printf ("%11u : %s\n", Gbl_NsLookupCount, "Namespace searches");

        printf ("%11u : %s\n", TotalNamedObjects, "Named objects");

        printf ("%11u : %s\n", TotalMethods, "Control methods");

        printf ("%11u : %s\n", TotalAllocations, "Memory Allocations");

        printf ("%11u : %s\n", TotalAllocated, "Total allocated memory");

        printf ("%11u : %s\n", TotalFolds, "Constant subtrees folded");

        printf ("\n");

    }

    {

        DbgPrint (ASL_DEBUG_OUTPUT,

            "\n\nMiscellaneous compile statistics\n\n");

            "%32s : %u\n", "Total Namespace searches",

            Gbl_NsLookupCount);

            "%32s : %u usec\n", "Time per search", ((UINT32)

            (AslGbl_Events[AslGbl_NamespaceEvent].EndTime -

                AslGbl_Events[AslGbl_NamespaceEvent].StartTime) / 10) /

                Gbl_NsLookupCount);

    }

    {

        printf ("\nMaximum error count (%u) exceeded\n",

            ASL_MAX_ERROR_COUNT);

    }

    {

        FlCloseFile (i);

    }

        Gbl_Files[ASL_FILE_AML_OUTPUT].Handle)

    {

        if (remove (Gbl_Files[ASL_FILE_AML_OUTPUT].Filename))

        {

            printf ("%s: ",

                Gbl_Files[ASL_FILE_AML_OUTPUT].Filename);

            perror ("Could not delete AML file");

        }

    }

     * Delete intermediate ("combined") source file (if -ls flag not set)

     *

     * TBD: SourceOutput should be .TMP, then rename if we want to keep it?

     */

    if (!Gbl_SourceOutputFlag)

    {

        if (remove (Gbl_Files[ASL_FILE_SOURCE_OUTPUT].Filename))

        {

            printf ("%s: ",

                Gbl_Files[ASL_FILE_SOURCE_OUTPUT].Filename);

            perror ("Could not delete SRC file");

        }

    }

}