Subversion Repositories scarts

; Macro instruction definitions.

; Copyright (C) 2000, 2009 Red Hat, Inc.

; This file is part of CGEN.

; See file COPYING.CGEN for details.

; If the macro expands to a string, arguments in the input string

; are refered to with %N.  Multiple insns are separated with '\n'.

; String expansion is a special case of the normal form which is a Scheme

; expression that controls the expansion.  The Scheme expression will be able

; to refer to the current assembly state to decide how to perform the

; expansion.  Special expression `emit' is used to call the assembler emitter

; for a particular insn.  Special expression `expand' is used to return a

; string to be reparsed (which is special cased).

; Parse a list of macro-instruction expansion descriptions.

; description in the .cpu file.

; All arguments are in raw (non-evaluated) form.

; ??? At present we only support macros that are aliases of one real insn.

; Object to describe a macro-insn.

; list of expansion expressions

; Return a list of the machs that support MINSN.

; This is computed from the syntax string.

; Return enum cgen_minsn_types value for MINSN.

"@ARCH@_MINSN_"; Parse a macro-insn expansion description.

; ??? At present we only support unconditional simple expansion.

"invalid macro expansion""invalid macro expansion, must be `(emit ...)'"; Parse a macro-instruction description.

; This is the main routine for building a macro-insn object from a

; description in the .cpu file.

; All arguments are in raw (non-evaluated) form.

; The result is the parsed object or #f if object isn't for selected mach(s).

"Processing macro-insn "" ...\n""invalid macro expansion list";; Pick out name first to augment the error context.

"cgen_minsn""Ignoring "".\n"; Read a macro-insn description

; CONTEXT is a <context> object for error messages.

; ARG-LIST is an associative list of field name and field value.

""""; Loop over each element in ARG-LIST, recording what's found.

; Define a macro-insn object, name/value pair list version.

; don't waste time if simulator

; This only supports one expansion.

; yet :-).

; don't waste time if simulator

"define-full-minsn"; Compute the ifield list for an alias macro-insn.

; known quantities to operands that have fixed values in the macro-insn.

; List of "free variables", i.e. operands.

; parsed the associated element in ifld-names is deleted.  At the

; element in a list, so we insert a fencepost.

; For each macro-insn ifield expression, look it up in the real insn's

; ifield list.  If an operand without a prespecified value, leave

; unchanged.  If an operand or ifield with a value, assign the value to

; If `op-name' is an operand, use its ifield.

; Otherwise `op-name' must be an ifield name.

"unknown operand"; Ensure `f' is an operand.

"not an operand""incomplete operand list, missing: "; Create an aliased real insn from an alias macro-insn.

; Must emit exactly one real insn.

"not an alias macro-insn""unknown real insn in expansion"": "; ifield-assertion

; semantics

; timing

; FIXME: use same format entry as real insn,

; (car (ifmt-analyze i #f))))

;(insn-set-ifmt! i (insn-ifmt alias-of))

; Called before a .cpu file is read in.

"\

Define a macro instruction, name/value pair list version.

Define a macro instruction, all arguments specified.

"; Called after the .cpu file has been read in.