Subversion Repositories scarts

; Collection of macros to simplify .cpu file writing. -*- Scheme -*-

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

; This file is part of CGEN.

; See file COPYING.CGEN for details.

; Enums.

; Define a normal enum without using name/value pairs.

; This is currently the same as define-full-enum but it needn't remain

; that way (it's define-full-enum that would change).

(define-pmacro (define-normal-enum name comment attrs prefix vals)

  "Define a normal enum, fixed number of arguments."

  (define-full-enum name comment attrs prefix vals)

)

; Define a normal insn enum.

(define-pmacro (define-normal-insn-enum name comment attrs prefix fld vals)

  "Define a normal instruction opcode enum."

  (define-full-insn-enum name comment attrs prefix fld vals)

)

; Instruction fields.

; Normally, fields are unsigned and have no encode/decode needs.

(define-pmacro (define-normal-ifield name comment attrs start length)

  "Define a normal instruction field."

  (define-full-ifield name comment attrs start length UINT #f #f)

)

; For those who don't like typing.

(define-pmacro (df name comment attrs start length mode encode decode)

  "Shorthand form of normal fields requiring mode, encode/decode."

  (define-full-ifield name comment attrs start length mode encode decode)

)

(define-pmacro dnf

  "Shorthand form of define-normal-ifield."

  define-normal-ifield

)

; Define a normal multi-ifield.

(define-pmacro (define-normal-multi-ifield name comment attrs

                 mode subflds insert extract)

  "Define a normal multi-part instruction field."

  (define-full-multi-ifield name comment attrs mode subflds insert extract)

)

; For those who don't like typing.

(define-pmacro dnmf

  "Shorthand form of define-normal-multi-ifield."

  define-normal-multi-ifield

)

; Simple multi-ifields: mode is UINT, default insert/extract support,

; default encode/decode support.

(define-pmacro (dsmf name comment attrs subflds)

  "Define a simple multi-part instruction field."

  (define-full-multi-ifield name comment attrs UINT subflds #f #f)

)

; Hardware.

; Simpler version for most hardware elements.

; Allow special assembler support specification but no semantic-name,

; getter/setter, or layout specs.

(define-pmacro (define-normal-hardware name comment attrs type

                 indices values handlers)

  "Define a normal hardware element."

  (define-full-hardware name comment attrs name type

    indices values handlers () () ())

)

; For those who don't like typing.

(define-pmacro dnh

  "Shorthand form of define-normal-hardware."

  define-normal-hardware

)

; Simpler version of dnh that leaves out the indices, values, handlers,

; getter/setter, and layout specs.

; This is useful for 1 bit registers.

; ??? While dsh and dnh aren't that distinguishable when perusing a .cpu file,

; they both take a fixed number of positional arguments, and dsh is a proper

; subset of dnh with all arguments in the same positions, so methinks things

; are ok.

(define-pmacro (define-simple-hardware name comment attrs type)

  "Define a simple hardware element (usually a scalar register)."

  (define-full-hardware name comment attrs name type () () () () () ())

)

(define-pmacro dsh

  "Shorthand form of define-simple-hardware."

  define-simple-hardware

)

; Operands.

; Simpler version for most operands.

; Allow special assembler support specification but no handlers or

; getter/setter specs.

(define-pmacro (define-normal-operand name comment attrs type index)

  "Define a normal operand."

  (define-full-operand name comment attrs type DFLT index () () ())

)

; For those who don't like typing.

(define-pmacro dno

  "Shorthand form of define-normal-operand."

  define-normal-operand

)

; Deprecated, but still in wide use.

(define-pmacro dnop

  "Shorthand form of define-normal-operand."

  define-normal-operand

)

(define-pmacro (dndo x-name x-mode x-args

                     x-syntax x-base-ifield x-encoding x-ifield-assertion

                     x-getter x-setter)

  "Define a normal derived operand."

  (define-derived-operand

    (name x-name)

    (mode x-mode)

    (args x-args)

    (syntax x-syntax)

    (base-ifield x-base-ifield)

    (encoding x-encoding)

    (ifield-assertion x-ifield-assertion)

    (getter x-getter)

    (setter x-setter)

    )

)

; Instructions.

; Define an instruction object, normal version.

; At present all fields must be specified.

; Fields ifield-assertion is absent.

(define-pmacro (define-normal-insn name comment attrs syntax fmt semantics timing)

  "Define a normal instruction."

  (define-full-insn name comment attrs syntax fmt () semantics timing)

)

; To reduce the amount of typing.

; Note that this is the same name as the D'ni in MYST.  Oooohhhh.....

; this must be the right way to go. :-)

(define-pmacro dni

  "Shorthand form of define-normal-insn."

  define-normal-insn

)

; Macro instructions.

; Define a macro-insn object, normal version.

; This only supports expanding to one real insn.

(define-pmacro (define-normal-macro-insn name comment attrs syntax expansion)

  "Define a normal macro instruction."

  (define-full-minsn name comment attrs syntax expansion)

)

; To reduce the amount of typing.

(define-pmacro dnmi

  "Shorthand form of define-normal-macro-insn."

  define-normal-macro-insn

)

; Modes.

; ??? Not currently available for use.

;

; Define Normal Mode

;

;(define-pmacro (define-normal-mode name comment attrs bits bytes

;                non-mode-c-type printf-type sem-mode ptr-to host?)

;  "Define a normal mode.\n"

;  (define-full-mode name comment attrs bits bytes

;    non-mode-c-type printf-type sem-mode ptr-to host?)

;)

;

; For those who don't like typing.

;(define-pmacro dnm

;  "Shorthand form of define-normal-mode.\n"

;  define-normal-mode

;)