(vl-build-assignments loc pairs strength delay atts) → assigns
Function:
(defun vl-build-assignments (loc pairs strength delay atts) (declare (xargs :guard (and (vl-location-p loc) (and (alistp pairs) (vl-exprlist-p (strip-cars pairs)) (vl-exprlist-p (strip-cdrs pairs))) (vl-maybe-gatestrength-p strength) (vl-maybe-gatedelay-p delay) (vl-atts-p atts)))) (let ((__function__ 'vl-build-assignments)) (declare (ignorable __function__)) (if (atom pairs) nil (cons (make-vl-assign :loc loc :lvalue (caar pairs) :expr (cdar pairs) :strength strength :delay delay :atts atts) (vl-build-assignments loc (cdr pairs) strength delay atts)))))
Theorem:
(defthm vl-assignlist-p-of-vl-build-assignments (b* ((assigns (vl-build-assignments loc pairs strength delay atts))) (vl-assignlist-p assigns)) :rule-classes :rewrite)