Specification for the
(shlx-spec size src cnt) → *
Since this instruction does not affect the flags, this function does not take or return flags.
Function:
(defun shlx-spec$inline (size src cnt) (declare (type (member 4 8) size)) (declare (xargs :guard (unsigned-byte-p 6 cnt))) (declare (xargs :guard (case size (4 (n32p src)) (8 (n64p src)) (otherwise nil)))) (case size (4 (shlx-spec-32 src cnt)) (8 (shlx-spec-64 src cnt)) (otherwise 0)))
Theorem:
(defthm natp-shlx-spec (natp (shlx-spec size src cnt)) :rule-classes :type-prescription)