		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>] 
                    [:expr <expr>] 
                    [:ctrl <ctrl>] 
                    [:atts <atts>] 
                    [:loc <loc>])

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)
                         (:expr)
                         (:ctrl)
                         (:atts)
                         (:loc))
                       'make-vl-assignstmt
                       nil))

Function: vl-assignstmt

(defun vl-assignstmt (type lvalue expr ctrl atts loc)
 (declare (xargs :guard (and (vl-assign-type-p type)
                             (vl-expr-p lvalue)
                             (vl-expr-p expr)
                             (vl-maybe-delayoreventcontrol-p ctrl)
                             (vl-atts-p atts)
                             (vl-location-p loc))))
 (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))
        (expr (mbe :logic (vl-expr-fix expr)
                   :exec expr))
        (ctrl (mbe :logic (vl-maybe-delayoreventcontrol-fix ctrl)
                   :exec ctrl))
        (atts (mbe :logic (vl-atts-fix atts)
                   :exec atts))
        (loc (mbe :logic (vl-location-fix loc)
                  :exec loc)))
     (cons :vl-assignstmt
           (std::prod-cons
                (std::prod-cons type (std::prod-cons lvalue expr))
                (std::prod-cons ctrl (std::prod-cons atts loc)))))))