		Search-engine friendly clone of the ACL2 documentation.

Vl-modinst

Make-vl-modinst

Basic constructor macro for vl-modinst structures.

Syntax

(make-vl-modinst [:instname <instname>] 
                 [:modname <modname>] 
                 [:portargs <portargs>] 
                 [:paramargs <paramargs>] 
                 [:loc <loc>] 
                 [:range <range>] 
                 [:atts <atts>] 
                 [:str <str>] 
                 [:delay <delay>])

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

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

Definition

This is an ordinary make- macro introduced by defprod.

Macro: make-vl-modinst

(defmacro make-vl-modinst (&rest args)
  (std::make-aggregate 'vl-modinst
                       args
                       '((:instname)
                         (:modname)
                         (:portargs)
                         (:paramargs)
                         (:loc)
                         (:range)
                         (:atts)
                         (:str)
                         (:delay))
                       'make-vl-modinst
                       nil))

Function: vl-modinst

(defun vl-modinst (instname modname portargs
                            paramargs loc range atts str delay)
 (declare (xargs :guard (and (maybe-stringp instname)
                             (stringp modname)
                             (vl-arguments-p portargs)
                             (vl-paramargs-p paramargs)
                             (vl-location-p loc)
                             (vl-maybe-range-p range)
                             (vl-atts-p atts)
                             (vl-maybe-gatestrength-p str)
                             (vl-maybe-gatedelay-p delay))))
 (declare (xargs :guard t))
 (let ((__function__ 'vl-modinst))
  (declare (ignorable __function__))
  (b* ((instname (mbe :logic (maybe-string-fix instname)
                      :exec instname))
       (modname (mbe :logic (str-fix modname)
                     :exec modname))
       (portargs (mbe :logic (vl-arguments-fix portargs)
                      :exec portargs))
       (paramargs (mbe :logic (vl-paramargs-fix paramargs)
                       :exec paramargs))
       (loc (mbe :logic (vl-location-fix loc)
                 :exec loc))
       (range (mbe :logic (vl-maybe-range-fix range)
                   :exec range))
       (atts (mbe :logic (vl-atts-fix atts)
                  :exec atts))
       (str (mbe :logic (vl-maybe-gatestrength-fix str)
                 :exec str))
       (delay (mbe :logic (vl-maybe-gatedelay-fix delay)
                   :exec delay)))
   (cons
    :vl-modinst
    (std::prod-cons
         (std::prod-cons (std::prod-cons instname modname)
                         (std::prod-cons portargs paramargs))
         (std::prod-cons
              (std::prod-cons loc range)
              (std::prod-cons atts (std::prod-cons str delay))))))))