Read from quadword general-purpose registers
(rr64 reg x86) → *
This function is used only in 64-bit mode.
Function:
(defun rr64$inline (reg x86) (declare (xargs :stobjs (x86))) (declare (type (unsigned-byte 4) reg)) (n64 (the (signed-byte 64) (rgfi reg x86))))
Theorem:
(defthm n64p-rr64 (unsigned-byte-p 64 (rr64 reg x86)) :rule-classes (:rewrite (:type-prescription :corollary (natp (rr64 reg x86)) :hints (("Goal" :in-theory '(unsigned-byte-p integer-range-p natp)))) (:linear :corollary (and (<= 0 (rr64 reg x86)) (< (rr64 reg x86) 18446744073709551616)) :hints (("Goal" :in-theory '(unsigned-byte-p integer-range-p (:e expt)))))))