		Search-engine friendly clone of the ACL2 documentation.

One-byte-opcodes

X86-popf

Signature
(x86-popf 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-popf

(defun x86-popf (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-popf))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-popf))
   (b*
    (((the (integer 1 8) operand-size)
      (select-operand-size proc-mode
                           nil rex-byte nil prefixes t t nil x86))
     (rsp (read-*sp proc-mode x86))
     ((mv flg new-rsp)
      (add-to-*sp proc-mode rsp operand-size x86))
     ((when flg)
      (!!fault-fresh :ss 0 :push flg))
     ((mv flg0 val x86)
      (rme-size-opt proc-mode operand-size rsp
                    2 :r (alignment-checking-enabled-p x86)
                    x86
                    :mem-ptr? nil
                    :check-canonicity t))
     ((when flg0)
      (!!ms-fresh :rme-size-opt flg))
     ((the (unsigned-byte 32) val)
      (logior 2
              (the (unsigned-byte 32)
                   (logand 4161495 val))))
     (x86 (write-*sp proc-mode new-rsp x86))
     (x86
      (case operand-size
       (2 (!rflags val x86))
       (otherwise (let* ((rf (the (unsigned-byte 1) (flgi :rf x86)))
                         (vm (the (unsigned-byte 1) (flgi :vm x86)))
                         (x86 (!rflags val x86))
                         (x86 (!flgi :rf rf x86))
                         (x86 (!flgi :vm vm x86))
                         (x86 (!flgi :vip 0 x86))
                         (x86 (!flgi :vif 0 x86)))
                    x86))))
     (x86 (write-*ip proc-mode temp-rip x86)))
    x86))))

Theorem: x86p-of-x86-popf

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