		Search-engine friendly clone of the ACL2 documentation.

Vl-loadresult

Make-vl-loadresult

Basic constructor macro for vl-loadresult structures.

Syntax

(make-vl-loadresult [:design <design>] 
                    [:filemap <filemap>] 
                    [:defines <defines>] 
                    [:ifdefmap <ifdefmap>] 
                    [:defmap <defmap>])

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

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

Definition

This is an ordinary make- macro introduced by defprod.

Macro: make-vl-loadresult

(defmacro make-vl-loadresult (&rest args)
  (std::make-aggregate 'vl-loadresult
                       args
                       '((:design)
                         (:filemap)
                         (:defines)
                         (:ifdefmap)
                         (:defmap))
                       'make-vl-loadresult
                       nil))

Function: vl-loadresult

(defun vl-loadresult (design filemap defines ifdefmap defmap)
  (declare (xargs :guard (and (vl-design-p design)
                              (vl-filemap-p filemap)
                              (vl-defines-p defines)
                              (vl-ifdef-use-map-p ifdefmap)
                              (vl-def-use-map-p defmap))))
  (declare (xargs :guard t))
  (let ((__function__ 'vl-loadresult))
    (declare (ignorable __function__))
    (b* ((design (mbe :logic (vl-design-fix design)
                      :exec design))
         (filemap (mbe :logic (vl-filemap-fix filemap)
                       :exec filemap))
         (defines (mbe :logic (vl-defines-fix defines)
                       :exec defines)
)
         (ifdefmap (mbe :logic (vl-ifdef-use-map-fix ifdefmap)
                        :exec ifdefmap))
         (defmap (mbe :logic (vl-def-use-map-fix defmap)
                      :exec defmap)))
      (cons :vl-loadresult (list (cons 'design design)
                                 (cons 'filemap filemap)
                                 (cons 'defines defines)
                                 (cons 'ifdefmap ifdefmap)
                                 (cons 'defmap defmap))))))