		Search-engine friendly clone of the ACL2 documentation.

Two-byte-opcodes

X86-fxsave/fxsave64

Signature
(x86-fxsave/fxsave64 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-fxsave/fxsave64

(defun x86-fxsave/fxsave64
       (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-fxsave/fxsave64))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-fxsave/fxsave64)
       (?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*
    ((p2 (prefixes->seg prefixes))
     (p4? (equal 103 (prefixes->adr prefixes)))
     ((the (integer 1 8) operand-size)
      (select-operand-size proc-mode nil
                           rex-byte nil prefixes nil nil nil x86))
     (seg-reg
         (select-segment-register proc-mode p2 p4? mod r/m sib x86))
     (inst-ac? t)
     ((mv flg &
          (the (unsigned-byte 3) increment-rip-by)
          (the (signed-byte 64) dest-addr)
          x86)
      (x86-operand-from-modr/m-and-sib-bytes
           proc-mode
           0 operand-size inst-ac? t seg-reg p4?
           temp-rip rex-byte r/m mod sib 0 x86))
     ((when flg)
      (!!ms-fresh :x86-operand-from-modr/m-and-sib-bytes flg))
     ((mv flg (the (signed-byte 48) temp-rip))
      (add-to-*ip proc-mode
                  temp-rip increment-rip-by x86))
     ((when flg)
      (!!ms-fresh :rip-increment-error temp-rip))
     ((unless (signed-byte-p 64 (+ 512 dest-addr)))
      (!!ms-fresh :fxsave-address-overflow))
     ((mv flg x86)
      (wme16 proc-mode
             dest-addr seg-reg (fp-ctrl x86)
             inst-ac? x86))
     ((when flg)
      (!!ms-fresh :wme16 proc-mode flg))
     ((mv flg x86)
      (wme16 proc-mode (+ 2 dest-addr)
             seg-reg (fp-status x86)
             inst-ac? x86))
     ((when flg)
      (!!ms-fresh :wme16 proc-mode flg))
     (fp-tag (fp-tag x86))
     (odd-tag-bits (logand 43690 fp-tag))
     (ftw (logand (ash odd-tag-bits -1) fp-tag))
     (ftw (logior (ash (logand ftw 17476) -1)
                  (logand ftw 4369)))
     (ftw (logior (ash (logand ftw 12336) -2)
                  (logand ftw 771)))
     (ftw (logior (ash (logand ftw 3840) -4)
                  (logand ftw 15)))
     (ftw (loghead 8 (lognot ftw)))
     ((mv flg x86)
      (wme08 proc-mode (+ 4 dest-addr)
             seg-reg ftw x86))
     ((when flg)
      (!!ms-fresh :wme08 proc-mode flg))
     ((mv flg x86)
      (wme16 proc-mode (+ 6 dest-addr)
             seg-reg (fp-opcode x86)
             inst-ac? x86))
     ((when flg)
      (!!ms-fresh :wme16 proc-mode flg))
     ((mv flg x86)
      (wme64 proc-mode (+ 8 dest-addr)
             seg-reg (fp-last-inst x86)
             inst-ac? x86))
     ((when flg)
      (!!ms-fresh :wme64 proc-mode flg))
     ((mv flg x86)
      (wme64 proc-mode (+ 16 dest-addr)
             seg-reg (fp-last-data x86)
             inst-ac? x86))
     ((when flg)
      (!!ms-fresh :wme64 proc-mode flg))
     ((mv flg x86)
      (wme32 proc-mode (+ 24 dest-addr)
             seg-reg (mxcsr x86)
             inst-ac? x86))
     ((when flg)
      (!!ms-fresh :wme32 proc-mode flg))
     ((mv flg x86)
      (wme32 proc-mode (+ 28 dest-addr)
             seg-reg 65535 inst-ac? x86))
     ((when flg)
      (!!ms-fresh :wme32 proc-mode flg))
     ((mv flg x86)
      (write-mm-regs proc-mode
                     inst-ac? seg-reg 0 (+ 32 dest-addr)
                     8 x86))
     ((when flg) x86)
     ((mv flg x86)
      (write-xmm-regs proc-mode
                      inst-ac? seg-reg 0 (+ 160 dest-addr)
                      (if (equal proc-mode *64-bit-mode*)
                          16
                        8)
                      x86))
     ((when flg) x86))
    (write-*ip proc-mode temp-rip x86)))))

Theorem: x86p-of-x86-fxsave/fxsave64

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