• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Community
  • Proof-automation
  • ACL2
  • Macro-libraries
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
      • Warnings
        • Vl-warninglist->types
        • Vl-warning
        • Propagating-errors
        • Vl-reportcard
        • Vl-warning-sort
        • Lint-warning-suppression
        • Clean-warnings
        • Warn
        • Vl-print-warnings-with-header
        • Vl-some-warning-fatalp
        • Vl-print-warnings-with-named-header
        • Flat-warnings
        • Vl-remove-warnings
        • Vl-keep-warnings
        • Vl-print-warnings
        • Vl-some-warning-of-type-p
        • Vl-clean-warnings
        • Vl-warnings-to-string
        • Vl-warninglist
        • Vl-print-warning
          • Vl-print-warning-text-mode
        • Ok
        • Vl-trace-warnings
        • Fatal
      • Primitives
      • Use-set
      • Syntax
      • Getting-started
      • Utilities
      • Loader
      • Transforms
      • Lint
      • Mlib
      • Server
      • Kit
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Fgl
    • Vwsim
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Vl-print-warning

Vl-print-warning-text-mode

Signature

(vl-print-warning-text-mode x &key (ps 'ps)) → ps

Arguments

x — Guard (vl-warning-p x).

Definitions and Theorems

Function: vl-print-warning-text-mode-fn

(defun vl-print-warning-text-mode-fn (x ps)
 (declare (xargs :stobjs (ps)))
 (declare (xargs :guard (vl-warning-p x)))
 (let ((__function__ 'vl-print-warning-text-mode))
  (declare (ignorable __function__))
  (b*
   (((vl-warning x) x)
    (note (cond ((and x.fn x.fatalp)
                 (cat " (fatal, from "
                      (str::downcase-string (symbol-name x.fn))
                      ")"))
                (x.fatalp " (fatal)")
                (x.fn (cat " (from "
                           (str::downcase-string (symbol-name x.fn))
                           ")"))
                (t ""))))
   (vl-ps-seq (vl-print (symbol-name x.type))
              (vl-println note)
              (vl-indent (vl-ps->autowrap-ind))
              (vl-cw-obj x.msg x.args)
              (vl-println "")))))

Theorem: vl-print-warning-text-mode-fn-of-vl-warning-fix-x

(defthm vl-print-warning-text-mode-fn-of-vl-warning-fix-x
  (equal (vl-print-warning-text-mode-fn (vl-warning-fix x)
                                        ps)
         (vl-print-warning-text-mode-fn x ps)))

Theorem: vl-print-warning-text-mode-fn-vl-warning-equiv-congruence-on-x

(defthm
     vl-print-warning-text-mode-fn-vl-warning-equiv-congruence-on-x
  (implies (vl-warning-equiv x x-equiv)
           (equal (vl-print-warning-text-mode-fn x ps)
                  (vl-print-warning-text-mode-fn x-equiv ps)))
  :rule-classes :congruence)