		Search-engine friendly clone of the ACL2 documentation.

Lvaluecheck

Vl-plainarg-lvaluecheck

Signature
(vl-plainarg-lvaluecheck x loc instname warnings) → warnings
Arguments: x — Guard (vl-plainarg-p x).; loc — Guard (vl-location-p loc).; instname — Guard (maybe-stringp instname).; warnings — Guard (vl-warninglist-p warnings).
Returns: warnings — Type (vl-warninglist-p warnings).

Definitions and Theorems

Function: vl-plainarg-lvaluecheck

(defun vl-plainarg-lvaluecheck (x loc instname warnings)
 (declare (xargs :guard (and (vl-plainarg-p x)
                             (vl-location-p loc)
                             (maybe-stringp instname)
                             (vl-warninglist-p warnings))))
 (let ((__function__ 'vl-plainarg-lvaluecheck))
  (declare (ignorable __function__))
  (b* (((vl-plainarg x))
       ((unless x.expr) (ok))
       ((unless x.dir) (ok))
       ((when (vl-direction-equiv x.dir :vl-input))
        (ok))
       ((when (vl-expr-variable-lvalue-p x.expr))
        (ok)))
   (warn
    :type :vl-bad-lvalue
    :msg
    "~a0: expression for ~s1 port ~s2 of instance ~w3 is not a ~
                valid lvalue: ~a4.~%"
    :args (list (vl-location-fix loc)
                (case x.dir (:vl-inout "inout")
                      (:vl-output "output"))
                x.portname (maybe-string-fix instname)
                x.expr)))))

Theorem: vl-warninglist-p-of-vl-plainarg-lvaluecheck

(defthm vl-warninglist-p-of-vl-plainarg-lvaluecheck
  (b* ((warnings (vl-plainarg-lvaluecheck x loc instname warnings)))
    (vl-warninglist-p warnings))
  :rule-classes :rewrite)

Theorem: vl-plainarg-lvaluecheck-of-vl-plainarg-fix-x

(defthm vl-plainarg-lvaluecheck-of-vl-plainarg-fix-x
  (equal (vl-plainarg-lvaluecheck (vl-plainarg-fix x)
                                  loc instname warnings)
         (vl-plainarg-lvaluecheck x loc instname warnings)))

Theorem: vl-plainarg-lvaluecheck-vl-plainarg-equiv-congruence-on-x

(defthm vl-plainarg-lvaluecheck-vl-plainarg-equiv-congruence-on-x
 (implies
    (vl-plainarg-equiv x x-equiv)
    (equal (vl-plainarg-lvaluecheck x loc instname warnings)
           (vl-plainarg-lvaluecheck x-equiv loc instname warnings)))
 :rule-classes :congruence)

Theorem: vl-plainarg-lvaluecheck-of-vl-location-fix-loc

(defthm vl-plainarg-lvaluecheck-of-vl-location-fix-loc
  (equal (vl-plainarg-lvaluecheck x (vl-location-fix loc)
                                  instname warnings)
         (vl-plainarg-lvaluecheck x loc instname warnings)))

Theorem: vl-plainarg-lvaluecheck-vl-location-equiv-congruence-on-loc

(defthm vl-plainarg-lvaluecheck-vl-location-equiv-congruence-on-loc
 (implies
    (vl-location-equiv loc loc-equiv)
    (equal (vl-plainarg-lvaluecheck x loc instname warnings)
           (vl-plainarg-lvaluecheck x loc-equiv instname warnings)))
 :rule-classes :congruence)

Theorem: vl-plainarg-lvaluecheck-of-maybe-string-fix-instname

(defthm vl-plainarg-lvaluecheck-of-maybe-string-fix-instname
  (equal (vl-plainarg-lvaluecheck x loc (maybe-string-fix instname)
                                  warnings)
         (vl-plainarg-lvaluecheck x loc instname warnings)))

Theorem: vl-plainarg-lvaluecheck-maybe-string-equiv-congruence-on-instname

(defthm
  vl-plainarg-lvaluecheck-maybe-string-equiv-congruence-on-instname
 (implies
    (maybe-string-equiv instname instname-equiv)
    (equal (vl-plainarg-lvaluecheck x loc instname warnings)
           (vl-plainarg-lvaluecheck x loc instname-equiv warnings)))
 :rule-classes :congruence)

Theorem: vl-plainarg-lvaluecheck-of-vl-warninglist-fix-warnings

(defthm vl-plainarg-lvaluecheck-of-vl-warninglist-fix-warnings
 (equal
    (vl-plainarg-lvaluecheck x loc
                             instname (vl-warninglist-fix warnings))
    (vl-plainarg-lvaluecheck x loc instname warnings)))

Theorem: vl-plainarg-lvaluecheck-vl-warninglist-equiv-congruence-on-warnings

(defthm
 vl-plainarg-lvaluecheck-vl-warninglist-equiv-congruence-on-warnings
 (implies
    (vl-warninglist-equiv warnings warnings-equiv)
    (equal (vl-plainarg-lvaluecheck x loc instname warnings)
           (vl-plainarg-lvaluecheck x loc instname warnings-equiv)))
 :rule-classes :congruence)