		Search-engine friendly clone of the ACL2 documentation.

Vl-assignstmt

Make-vl-assignstmt

Basic constructor macro for vl-assignstmt structures.

Syntax

(make-vl-assignstmt [:type <type>] 
                    [:lvalue <lvalue>] 
                    [:rhs <rhs>] 
                    [:loc <loc>] 
                    [:ctrl <ctrl>] 
                    [:atts <atts>])

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

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

Definition

This is an ordinary make- macro introduced by defprod.

Macro: make-vl-assignstmt

(defmacro make-vl-assignstmt (&rest args)
  (std::make-aggregate 'vl-assignstmt
                       args
                       '((:type)
                         (:lvalue)
                         (:rhs)
                         (:loc)
                         (:ctrl)
                         (:atts))
                       'make-vl-assignstmt
                       nil))

Function: vl-assignstmt

(defun vl-assignstmt (type lvalue rhs loc ctrl atts)
 (declare (xargs :guard (and (vl-assign-type-p type)
                             (vl-expr-p lvalue)
                             (vl-rhs-p rhs)
                             (vl-location-p loc)
                             (vl-maybe-delayoreventcontrol-p ctrl)
                             (vl-atts-p atts))))
 (declare (xargs :guard t))
 (let ((__function__ 'vl-assignstmt))
   (declare (ignorable __function__))
   (b* ((type (mbe :logic (vl-assign-type-fix type)
                   :exec type))
        (lvalue (mbe :logic (vl-expr-fix lvalue)
                     :exec lvalue))
        (rhs (mbe :logic (vl-rhs-fix rhs) :exec rhs))
        (loc (mbe :logic (vl-location-fix loc)
                  :exec loc))
        (ctrl (mbe :logic (vl-maybe-delayoreventcontrol-fix ctrl)
                   :exec ctrl))
        (atts (mbe :logic (vl-atts-fix atts)
                   :exec atts)))
     (cons :vl-assignstmt
           (std::prod-cons
                (std::prod-cons type (std::prod-cons lvalue rhs))
                (std::prod-cons loc (std::prod-cons ctrl atts)))))))