(vl-make-guts-from-inttoken x) → guts
Function:
(defun vl-make-guts-from-inttoken (x) (declare (xargs :guard (vl-inttoken-p x))) (let ((__function__ 'vl-make-guts-from-inttoken)) (declare (ignorable __function__)) (b* (((vl-inttoken x) x)) (if x.value (make-vl-constint :origwidth x.width :origsign (if x.signedp :vl-signed :vl-unsigned) :value x.value :wasunsized x.wasunsized) (make-vl-weirdint :origsign (if x.signedp :vl-signed :vl-unsigned) :bits (if (mbt (consp x.bits)) x.bits '(:vl-0val)) :wasunsized x.wasunsized)))))
Theorem:
(defthm vl-value-p-of-vl-make-guts-from-inttoken (b* ((guts (vl-make-guts-from-inttoken x))) (vl-value-p guts)) :rule-classes :rewrite)