		Search-engine friendly clone of the ACL2 documentation.

Two-byte-opcodes

X86-pslldq/psrldq

Shift double quadword left/right logical (SSE variant).

Signature
(x86-pslldq/psrldq proc-mode start-rip temp-rip prefixes rex-byte opcode modr/m sib x86) → x86
Returns: x86 — Type (x86p x86), given (x86p x86).

PSLLDQ xmm1, imm8 
PSRLDQ xmm1, imm8

Definitions and Theorems

Function: x86-pslldq/psrldq

(defun x86-pslldq/psrldq
       (proc-mode start-rip temp-rip
                  prefixes rex-byte opcode modr/m sib x86)
 (declare (xargs :stobjs (x86)))
 (declare (type (integer 0 4) proc-mode)
          (type (signed-byte 48) start-rip)
          (type (signed-byte 48) temp-rip)
          (type (unsigned-byte 52) prefixes)
          (type (unsigned-byte 8) rex-byte)
          (type (unsigned-byte 8) opcode)
          (type (unsigned-byte 8) modr/m)
          (type (unsigned-byte 8) sib))
 (declare (ignorable proc-mode start-rip temp-rip
                     prefixes rex-byte opcode modr/m sib))
 (declare (xargs :guard (and (prefixes-p prefixes)
                             (modr/m-p modr/m)
                             (sib-p sib)
                             (rip-guard-okp proc-mode temp-rip)
                             (member-equal (modr/m->reg modr/m)
                                           '(7 3)))))
 (let ((__function__ 'x86-pslldq/psrldq))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-pslldq/psrldq)
       (?r/m (the (unsigned-byte 3)
                  (modr/m->r/m modr/m)))
       (?mod (the (unsigned-byte 2)
                  (modr/m->mod modr/m)))
       (?reg (the (unsigned-byte 3)
                  (modr/m->reg modr/m))))
   (b* ((reg-index (reg-index r/m rex-byte 0))
        (operand (xmmi-size 16 reg-index x86))
        ((mv flg count x86)
         (rme-size-opt proc-mode 1 temp-rip 1 :x nil x86))
        ((when flg)
         (!!ms-fresh :rme-size-error flg))
        ((mv flg (the (signed-byte 48) temp-rip))
         (add-to-*ip proc-mode temp-rip 1 x86))
        ((when flg)
         (!!ms-fresh :rip-increment-error flg))
        (badlength? (check-instruction-length start-rip temp-rip 0))
        ((when badlength?)
         (!!fault-fresh :gp 0
                        :instruction-length badlength?))
        ((the (unsigned-byte 128) result)
         (case reg
           (7 (logand (1- (expt 2 128))
                      (ash operand (* 8 count))))
           (3 (ash operand (- (* 8 count))))
           (t (prog2$ (acl2::impossible) 0))))
        (x86 (!xmmi-size 16 reg-index result x86))
        (x86 (write-*ip proc-mode temp-rip x86)))
     x86))))

Theorem: x86p-of-x86-pslldq/psrldq

(defthm x86p-of-x86-pslldq/psrldq
 (implies
  (x86p x86)
  (b* ((x86 (x86-pslldq/psrldq proc-mode start-rip temp-rip prefixes
                               rex-byte opcode modr/m sib x86)))
    (x86p x86)))
 :rule-classes :rewrite)