		Search-engine friendly clone of the ACL2 documentation.

One-byte-opcodes

X86-jrcxz

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

Definitions and Theorems

Function: x86-jrcxz

(defun x86-jrcxz (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))))
 (let ((__function__ 'x86-jrcxz))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-jrcxz))
   (b* ((badlength? (check-instruction-length start-rip temp-rip 1))
        ((when badlength?)
         (!!fault-fresh :gp 0
                        :instruction-length badlength?))
        (p4? (equal 103 (prefixes->adr prefixes)))
        (register-size (select-address-size proc-mode p4? x86))
        (branch-cond
             (equal (rgfi-size register-size *rcx* rex-byte x86)
                    0)))
     (if branch-cond
         (b* (((mv flg rel8 x86)
               (rime-size proc-mode 1 temp-rip 1 :x nil x86))
              ((when flg)
               (!!ms-fresh :rime-size-error flg))
              ((mv flg next-rip)
               (add-to-*ip proc-mode temp-rip (1+ rel8)
                           x86))
              ((when flg)
               (!!ms-fresh :rip-increment-error flg))
              (x86 (write-*ip proc-mode next-rip x86)))
           x86)
       (b* (((mv flg next-rip)
             (add-to-*ip proc-mode temp-rip 1 x86))
            ((when flg)
             (!!ms-fresh :rip-increment-error flg))
            (x86 (write-*ip proc-mode next-rip x86)))
         x86))))))

Theorem: x86p-of-x86-jrcxz

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