		Search-engine friendly clone of the ACL2 documentation.

Instruction-ternary

Make-instruction-ternary

Basic constructor macro for instruction-ternary structures.

Syntax

(make-instruction-ternary [:op <op>] 
                          [:arg1 <arg1>] 
                          [:arg2 <arg2>] 
                          [:arg3 <arg3>] 
                          [:into <into>])

This is the usual way to construct instruction-ternary structures. It simply conses together a structure with the specified fields.

This macro generates a new instruction-ternary structure from scratch. See also change-instruction-ternary, which can "change" an existing structure, instead.

Definition

This is an ordinary make- macro introduced by fty::defprod.

Macro: make-instruction-ternary

(defmacro make-instruction-ternary (&rest args)
  (std::make-aggregate 'instruction-ternary
                       args
                       '((:op) (:arg1) (:arg2) (:arg3) (:into))
                       'make-instruction-ternary
                       nil))

Function: instruction-ternary

(defun instruction-ternary (op arg1 arg2 arg3 into)
  (declare (xargs :guard (and (ternary-opp op)
                              (operandp arg1)
                              (operandp arg2)
                              (operandp arg3)
                              (registerp into))))
  (declare (xargs :guard t))
  (let ((__function__ 'instruction-ternary))
    (declare (ignorable __function__))
    (b* ((op (mbe :logic (ternary-op-fix op)
                  :exec op))
         (arg1 (mbe :logic (operand-fix arg1)
                    :exec arg1))
         (arg2 (mbe :logic (operand-fix arg2)
                    :exec arg2))
         (arg3 (mbe :logic (operand-fix arg3)
                    :exec arg3))
         (into (mbe :logic (register-fix into)
                    :exec into)))
      (cons :ternary (list op arg1 arg2 arg3 into)))))