Collect all symbols for design-visible wires and return them as a flat list of bits.
(vl-collect-design-wires x walist warnings) → (mv warnings wires)
Function:
(defun vl-collect-design-wires (x walist warnings) (declare (xargs :guard (and (vl-module-p x) (vl-wirealist-p walist) (vl-warninglist-p warnings)))) (let ((__function__ 'vl-collect-design-wires)) (declare (ignorable __function__)) (b* (((when (atom x)) (mv warnings nil)) (vars (vl-module->vardecls x)) (dnets (vl-gather-vardecls-with-attribute vars "VL_DESIGN_WIRE")) (dnet-names (vl-vardecllist->names dnets))) (vl-collect-msb-bits-for-wires dnet-names walist warnings))))
Theorem:
(defthm vl-warninglist-p-of-vl-collect-design-wires.warnings (implies (vl-warninglist-p warnings) (b* (((mv ?warnings ?wires) (vl-collect-design-wires x walist warnings))) (vl-warninglist-p warnings))) :rule-classes :rewrite)
Theorem:
(defthm vl-emodwirelist-p-of-vl-collect-design-wires.wires (implies (vl-wirealist-p walist) (b* (((mv ?warnings ?wires) (vl-collect-design-wires x walist warnings))) (vl-emodwirelist-p wires))) :rule-classes :rewrite)