Write to quadword general-purpose registers
(wr64 reg val x86) → x86
This function is used only in 64-bit mode.
Function:
(defun wr64$inline (reg val x86) (declare (xargs :stobjs (x86))) (declare (type (unsigned-byte 4) reg) (type (unsigned-byte 64) val)) (b* ((x86 (!rgfi reg (n64-to-i64 val) x86))) x86))
Theorem:
(defthm x86p-wr64 (implies (x86p x86) (x86p (wr64 reg val x86))))