(vl-build-vardecls &key temps constp varp lifetime type atts loc) → vardecls
Function:
(defun vl-build-vardecls-fn (temps constp varp lifetime type atts loc) (declare (xargs :guard (and (vl-vardeclassignlist-p temps) (booleanp constp) (booleanp varp) (vl-lifetime-p lifetime) (vl-datatype-p type) (vl-atts-p atts) (vl-location-p loc)))) (let ((__function__ 'vl-build-vardecls)) (declare (ignorable __function__)) (b* (((when (atom temps)) nil) ((vl-vardeclassign temp1) (car temps)) (decl1 (make-vl-vardecl :name temp1.id :initval temp1.rhs :constp constp :varp varp :lifetime lifetime :type (vl-datatype-update-udims temp1.dims type) :atts atts :loc loc))) (cons decl1 (vl-build-vardecls :temps (cdr temps) :constp constp :varp varp :lifetime lifetime :type type :atts atts :loc loc)))))
Theorem:
(defthm vl-vardecllist-p-of-vl-build-vardecls (b* ((vardecls (vl-build-vardecls-fn temps constp varp lifetime type atts loc))) (vl-vardecllist-p vardecls)) :rule-classes :rewrite)