• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Debugging
  • Projects
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
    • Vwsim
    • Fgl
    • Vl
      • Syntax
      • Loader
      • Warnings
        • Lint-warning-suppression
        • Warning-basics
        • Vl-warning
        • Vl-warninglist-add-ctx
        • Vl-warninglist->types
        • Propagating-errors
        • Vl-reportcard
        • Vl-some-warning-fatalp
        • Clean-warnings
        • Lint-whole-file-suppression
        • Warn
        • Vl-warninglist
        • Vl-remove-warnings
        • Vl-keep-warnings
        • Flat-warnings
        • Vl-some-warning-of-type-p
        • Vl-msg
        • Vl-warning-add-ctx
        • Vl-print-warning
          • Vl-print-warning-text-mode
        • Vmsg-binary-concat
        • Ok
        • Vl-trace-warnings
        • Fatal
        • Vmsg
      • Getting-started
      • Utilities
      • Printer
      • Kit
      • Mlib
      • Transforms
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Testing-utilities
  • Math

• 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))
    (if x.context (vl-cw-obj "~a0: ~@1"
                             (list x.context (vl-msg x.msg x.args)))
      (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)