• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Debugging
  • Projects
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
      • Warnings
      • Primitives
      • Use-set
        • Typo-detection
        • Vl-wireinfo-alistp
        • Vl-annotate-vardecllist-with-wireinfo
        • Vl-useset-report-entry-p
        • Vl-print-useset-report-entry
        • Vl-mark-wires-for-module
        • Vl-split-useset-report
        • Vl-annotate-vardecl-with-wireinfo
        • Vl-mark-wires-for-modinstlist
        • Vl-mark-wires-for-modinst
        • Vl-mark-wires-for-gateinstlist
        • Vl-mark-wires-for-gateinst
        • Vl-mark-wires-for-plainarg
        • Vl-wireinfo-p
        • Vl-mark-wires-for-modulelist
        • Vl-vardecllist-impexp-names
        • Vl-report-totals
        • Vl-mark-wires-for-plainarglist
        • Vl-collect-unused-or-unset-wires
        • Vl-clean-up-warning-wires
        • Vl-print-useset-report-top
        • Vl-mark-wires-for-arguments
        • Vl-useset-report-p
        • Vl-star-names-of-warning-wires
        • Vl-design-use-set-report
        • Vl-module-impexp-names
        • Vl-make-initial-wireinfo-alist
        • Vl-mark-wire-used
        • Vl-mark-wire-set
        • Vl-mark-wires-used
        • Vl-mark-wires-for-assignment
        • Vl-mark-wires-for-assignlist
        • Vl-mark-wires-set
        • Vl-print-useset-report-full-aux
        • Vl-print-typo-alist
        • Vl-print-typo-possibilities
      • Syntax
      • Getting-started
      • Utilities
      • Loader
      • Transforms
      • Lint
      • Mlib
      • Server
      • Kit
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Vwsim
    • Fgl
    • Vl
    • Svl
    • X86isa
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Use-set

Vl-mark-wire-set

Signature

(vl-mark-wire-set x warnp alist) → new-alist

Arguments

x — Guard (stringp x).

alist — Guard (vl-wireinfo-alistp alist).

Returns

new-alist — Type (vl-wireinfo-alistp new-alist), given the guard.

Definitions and Theorems

Function: vl-mark-wire-set

(defun vl-mark-wire-set (x warnp alist)
 (declare (xargs :guard (and (stringp x)
                             (vl-wireinfo-alistp alist))))
 (let ((__function__ 'vl-mark-wire-set))
  (declare (ignorable __function__))
  (b*
   ((info (cdr (hons-get x alist)))
    (-
     (or
      info (not warnp)
      (cw
       "In vl-mark-wire-set: expected all wires to be in the ~
                   wireinfo-alist, but ~x0 is not.  Adding a new entry for ~
                   it.~%"
       x)))
    (current-usedp (and info (vl-wireinfo->usedp info)))
    (current-setp (and info (vl-wireinfo->setp info)))
    ((when current-setp) alist))
   (hons-acons x
               (make-vl-wireinfo :usedp current-usedp
                                 :setp t)
               alist))))

Theorem: vl-wireinfo-alistp-of-vl-mark-wire-set

(defthm vl-wireinfo-alistp-of-vl-mark-wire-set
  (implies (and (force (stringp x))
                (force (vl-wireinfo-alistp alist)))
           (b* ((new-alist (vl-mark-wire-set x warnp alist)))
             (vl-wireinfo-alistp new-alist)))
  :rule-classes :rewrite)