PreviousUpNext

15.4.411  src/lib/compiler/back/low/tools/arch/architecture-description-language-parser.pkg

## architecture-description-language-parser.pkg

# Compiled by:
#     src/lib/compiler/back/low/tools/arch/make-sourcecode-for-backend-packages.lib

# This package is referenced (only) in:
#
#     src/lib/compiler/back/low/tools/arch/make-sourcecode-for-backend-intel32.pkg
#     src/lib/compiler/back/low/tools/arch/make-sourcecode-for-backend-pwrpc32.pkg
#     src/lib/compiler/back/low/tools/arch/make-sourcecode-for-backend-sparc32.pkg
#     src/lib/compiler/back/low/tools/arch/make-sourcecode-for-backend-packages-g.pkg (dead)
#
package architecture_description_language_parser
    = 
    architecture_description_language_parser_g (                                        # architecture_description_language_parser_g    is from   src/lib/compiler/back/low/tools/parser/architecture-description-language-parser-g.pkg
        #
        package rsu =  adl_raw_syntax_unparser;                                         # adl_raw_syntax_unparser                       is from   src/lib/compiler/back/low/tools/adl-syntax/adl-raw-syntax-unparser.pkg
                                                                                        # "rsu" == "raw_syntax_unparser".
        adl_mode = TRUE;

        include  adl_raw_syntax_form;                                                   # adl_raw_syntax_form                           is from   src/lib/compiler/back/low/tools/adl-syntax/adl-raw-syntax-form.pkg

        fun new_cell (name, nickname)
            = 
            REGISTER_SET
              { name,
                nickname,
                from       =>  REF 0,
                to         =>  REF -1,
                alias      =>  NULL,
                count      =>  NULL,
                bits       =>  0, 
                print      =>  FN_IN_EXPRESSION  [ CLAUSE  ([WILDCARD_PATTERN],  NULL,  LITERAL_IN_EXPRESSION  (STRING_LIT  name)) ],
                aggregable =>  FALSE,
                defaults   =>  []
              };

        extra_cells
            = 
            [ new_cell ("REGISTERSET", "registerset") ];
    );


Comments and suggestions to: bugs@mythryl.org

PreviousUpNext