## 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 package 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") ];
);