Restore a saved vl-saved-ppst into the ppst stobj.
(vl-restore-ppst saved &key (ppst 'ppst)) → ppst
Function:
(defun vl-restore-ppst-fn (saved ppst) (declare (xargs :stobjs (ppst))) (declare (xargs :guard (vl-saved-ppst-p saved))) (let ((__function__ 'vl-restore-ppst)) (declare (ignorable __function__)) (b* (((vl-saved-ppst saved)) (ppst (vl-ppst-update-acc saved.acc)) (ppst (vl-ppst-update-istack saved.istack)) (ppst (vl-ppst-update-activep saved.activep)) (ppst (vl-ppst-update-defines saved.defines)) (ppst (vl-ppst-update-filemap saved.filemap)) (ppst (vl-ppst-update-config saved.config)) (ppst (vl-ppst-update-iskips saved.iskips)) (ppst (vl-ppst-update-warnings saved.warnings)) (ppst (vl-ppst-update-includes saved.includes)) (ppst (vl-ppst-update-bytes saved.bytes)) (ppst (vl-ppst-update-idcache saved.idcache)) (ppst (vl-ppst-update-ifdefmap saved.ifdefmap)) (ppst (vl-ppst-update-defmap saved.defmap))) ppst)))
Theorem:
(defthm vl-save-and-restore-ppst-correct (implies (vl-ppst-p ppst) (equal (vl-restore-ppst (vl-save-ppst) :ppst (create-ppst)) ppst)))