Print an assembler clobber.
(print-asm-clobber clobber pstate) → new-pstate
Function:
(defun print-asm-clobber (clobber pstate) (declare (xargs :guard (and (asm-clobberp clobber) (pristatep pstate)))) (let ((__function__ 'print-asm-clobber)) (declare (ignorable __function__)) (b* ((strings (asm-clobber->strings clobber)) ((unless (consp strings)) (raise "Misusage error: ~ no string literals in assembler clobber.") (pristate-fix pstate))) (print-stringlit-list strings pstate))))
Theorem:
(defthm pristatep-of-print-asm-clobber (b* ((new-pstate (print-asm-clobber clobber pstate))) (pristatep new-pstate)) :rule-classes :rewrite)
Theorem:
(defthm pristate->gcc-of-print-asm-clobber (b* ((?new-pstate (print-asm-clobber clobber pstate))) (equal (pristate->gcc new-pstate) (pristate->gcc pstate))))
Theorem:
(defthm print-asm-clobber-of-asm-clobber-fix-clobber (equal (print-asm-clobber (asm-clobber-fix clobber) pstate) (print-asm-clobber clobber pstate)))
Theorem:
(defthm print-asm-clobber-asm-clobber-equiv-congruence-on-clobber (implies (asm-clobber-equiv clobber clobber-equiv) (equal (print-asm-clobber clobber pstate) (print-asm-clobber clobber-equiv pstate))) :rule-classes :congruence)
Theorem:
(defthm print-asm-clobber-of-pristate-fix-pstate (equal (print-asm-clobber clobber (pristate-fix pstate)) (print-asm-clobber clobber pstate)))
Theorem:
(defthm print-asm-clobber-pristate-equiv-congruence-on-pstate (implies (pristate-equiv pstate pstate-equiv) (equal (print-asm-clobber clobber pstate) (print-asm-clobber clobber pstate-equiv))) :rule-classes :congruence)