		Search-engine friendly clone of the ACL2 documentation.

Port-resolve

Vl-module-resolve-nonansi-interfaceports

Signature
(vl-module-resolve-nonansi-interfaceports x ss) → new-x
Arguments: x — Guard (vl-module-p x).; ss — Guard (vl-scopestack-p ss).
Returns: new-x — Type (vl-module-p new-x).

Definitions and Theorems

Function: vl-module-resolve-nonansi-interfaceports

(defun vl-module-resolve-nonansi-interfaceports (x ss)
 (declare (xargs :guard (and (vl-module-p x)
                             (vl-scopestack-p ss))))
 (let ((__function__ 'vl-module-resolve-nonansi-interfaceports))
  (declare (ignorable __function__))
  (b*
   (((vl-module x) (vl-module-fix x))
    ((unless (and x.parse-temps
                  (not (vl-parse-temps->ansi-p x.parse-temps))))
     x)
    (ss (vl-scopestack-push x ss))
    (loaditems (vl-parse-temps->loaditems x.parse-temps))
    ((mv warnings new-loaditems ifport-alist)
     (vl-loaditems-remove-interfaceport-decls loaditems ss))
    (ifport-alist (make-fast-alist ifport-alist))
    (vardecls
       (with-local-nrev
            (vl-fast-delete-vardecls (alist-keys ifport-alist)
                                     ifport-alist x.vardecls nrev)))
    (ports (vl-ports-resolve-interfaces x.ports ifport-alist)))
   (change-vl-module
       x
       :vardecls vardecls
       :ports ports
       :parse-temps (change-vl-parse-temps x.parse-temps
                                           :loaditems new-loaditems)
       :warnings (append-without-guard warnings x.warnings)))))

Theorem: vl-module-p-of-vl-module-resolve-nonansi-interfaceports

(defthm vl-module-p-of-vl-module-resolve-nonansi-interfaceports
  (b* ((new-x (vl-module-resolve-nonansi-interfaceports x ss)))
    (vl-module-p new-x))
  :rule-classes :rewrite)

Theorem: vl-module-resolve-nonansi-interfaceports-of-vl-module-fix-x

(defthm vl-module-resolve-nonansi-interfaceports-of-vl-module-fix-x
  (equal (vl-module-resolve-nonansi-interfaceports (vl-module-fix x)
                                                   ss)
         (vl-module-resolve-nonansi-interfaceports x ss)))

Theorem: vl-module-resolve-nonansi-interfaceports-vl-module-equiv-congruence-on-x

(defthm
 vl-module-resolve-nonansi-interfaceports-vl-module-equiv-congruence-on-x
 (implies
      (vl-module-equiv x x-equiv)
      (equal (vl-module-resolve-nonansi-interfaceports x ss)
             (vl-module-resolve-nonansi-interfaceports x-equiv ss)))
 :rule-classes :congruence)

Theorem: vl-module-resolve-nonansi-interfaceports-of-vl-scopestack-fix-ss

(defthm
   vl-module-resolve-nonansi-interfaceports-of-vl-scopestack-fix-ss
  (equal (vl-module-resolve-nonansi-interfaceports
              x (vl-scopestack-fix ss))
         (vl-module-resolve-nonansi-interfaceports x ss)))

Theorem: vl-module-resolve-nonansi-interfaceports-vl-scopestack-equiv-congruence-on-ss

(defthm
 vl-module-resolve-nonansi-interfaceports-vl-scopestack-equiv-congruence-on-ss
 (implies
      (vl-scopestack-equiv ss ss-equiv)
      (equal (vl-module-resolve-nonansi-interfaceports x ss)
             (vl-module-resolve-nonansi-interfaceports x ss-equiv)))
 :rule-classes :congruence)