• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
      • Symbolic-test-vectors
      • Esim-primitives
      • E-conversion
        • Vl-ealist-p
        • Modinsts-to-eoccs
        • Vl-module-make-esim
        • Exploding-vectors
        • Resolving-multiple-drivers
        • Vl-modulelist-make-esims
        • Vl-module-check-e-ok
        • Vl-collect-design-wires
          • Vl-collect-msb-bits-for-wires
        • Adding-z-drivers
        • Vl-design-to-e
        • Vl-design-to-e-check-ports
        • Vl-design-to-e-main
        • Port-bit-checking
      • Esim-steps
      • Patterns
      • Mod-internal-paths
      • Defmodules
      • Esim-simplify-update-fns
      • Esim-tutorial
      • Esim-vl
    • Vl2014
    • Sv
    • Vwsim
    • Fgl
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Testing-utilities
  • Math

• Vl-collect-design-wires

Vl-collect-msb-bits-for-wires

Append together all the MSB bits for a list of wire names.

Signature

(vl-collect-msb-bits-for-wires names walist warnings) 
  → 
(mv warnings wires)

Arguments

names — Guard (string-listp names).

walist — Guard (vl-wirealist-p walist).

warnings — Guard (vl-warninglist-p warnings).

Returns

warnings — Type (vl-warninglist-p warnings), given (vl-warninglist-p warnings).

wires — Type (vl-emodwirelist-p wires), given (vl-wirealist-p walist).

Definitions and Theorems

Function: vl-collect-msb-bits-for-wires

(defun vl-collect-msb-bits-for-wires
       (names walist warnings)
       (declare (xargs :guard (and (string-listp names)
                                   (vl-wirealist-p walist)
                                   (vl-warninglist-p warnings))))
       (let ((__function__ 'vl-collect-msb-bits-for-wires))
            (declare (ignorable __function__))
            (b* (((when (atom names)) (mv warnings nil))
                 (name1 (car names))
                 (entry1 (hons-get name1 walist))
                 (wires1 (cdr entry1))
                 ((mv warnings rest)
                  (vl-collect-msb-bits-for-wires (cdr names)
                                                 walist warnings))
                 (warnings (if entry1 warnings
                               (warn :type :vl-design-wires
                                     :msg "No walist entry for ~s0."
                                     :args (list name1)))))
                (mv warnings (append wires1 rest)))))

Theorem: vl-warninglist-p-of-vl-collect-msb-bits-for-wires.warnings

(defthm
  vl-warninglist-p-of-vl-collect-msb-bits-for-wires.warnings
  (implies
       (vl-warninglist-p warnings)
       (b* (((mv ?warnings ?wires)
             (vl-collect-msb-bits-for-wires names walist warnings)))
           (vl-warninglist-p warnings)))
  :rule-classes :rewrite)

Theorem: vl-emodwirelist-p-of-vl-collect-msb-bits-for-wires.wires

(defthm
  vl-emodwirelist-p-of-vl-collect-msb-bits-for-wires.wires
  (implies
       (vl-wirealist-p walist)
       (b* (((mv ?warnings ?wires)
             (vl-collect-msb-bits-for-wires names walist warnings)))
           (vl-emodwirelist-p wires)))
  :rule-classes :rewrite)