		Search-engine friendly clone of the ACL2 documentation.

One-byte-opcodes

X86-call-ff/2-op/en-m

Signature
(x86-call-ff/2-op/en-m 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-call-ff/2-op/en-m

(defun x86-call-ff/2-op/en-m
       (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-call-ff/2-op/en-m))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-call-ff/2-op/en-m)
       (?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*
    (((the (integer 2 8) operand-size)
      (select-operand-size proc-mode
                           nil rex-byte nil prefixes t t t x86))
     (p2 (prefixes->seg prefixes))
     (p4? (equal 103 (prefixes->adr prefixes)))
     (seg-reg
         (select-segment-register proc-mode p2 p4? mod r/m sib x86))
     (inst-ac? t)
     ((mv flg0 call-rip
          (the (unsigned-byte 3) increment-rip-by)
          (the (signed-byte 64) ?addr)
          x86)
      (x86-operand-from-modr/m-and-sib-bytes
           proc-mode
           0 operand-size inst-ac? nil seg-reg p4?
           temp-rip rex-byte r/m mod sib 0 x86))
     ((when flg0)
      (!!ms-fresh :x86-operand-from-modr/m-and-sib-bytes flg0))
     ((mv flg (the (signed-byte 48) next-rip))
      (add-to-*ip proc-mode
                  temp-rip increment-rip-by x86))
     ((when flg)
      (!!ms-fresh :rip-increment-error next-rip))
     (badlength? (check-instruction-length start-rip next-rip 0))
     ((when badlength?)
      (!!fault-fresh :gp 0
                     :instruction-length badlength?))
     (call-rip (if (equal proc-mode 0)
                   (i64 call-rip)
                 call-rip))
     ((unless (if (equal proc-mode 0)
                  (canonical-address-p call-rip)
                (and (<= 0 call-rip)
                     (<= call-rip
                         (the (unsigned-byte 32)
                              (seg-hidden-limiti 1 x86))))))
      (!!fault-fresh :gp 0
                     :bad-return-address call-rip))
     (rsp (read-*sp proc-mode x86))
     (rip-size
      (case proc-mode
       (0 8)
       (1
        (b*
         (((the (unsigned-byte 16) cs-attr)
           (seg-hidden-attri 1 x86))
          (cs.d
               (code-segment-descriptor-attributesbits->d cs-attr)))
         (if (= cs.d 1) 4 2)))
       (t 0)))
     ((mv flg new-rsp)
      (add-to-*sp proc-mode rsp (- rip-size)
                  x86))
     ((when flg)
      (!!fault-fresh :ss 0 :call flg))
     (check-alignment? (alignment-checking-enabled-p x86))
     ((mv flg x86)
      (case rip-size
        (8 (wime-size-opt proc-mode rip-size
                          new-rsp 2 next-rip check-alignment? x86
                          :check-canonicity t))
        (4 (wme-size-opt proc-mode
                         rip-size new-rsp 2 (n32 next-rip)
                         check-alignment? x86))
        (2 (wme-size-opt proc-mode
                         rip-size new-rsp 2 (n16 next-rip)
                         check-alignment? x86))
        (t (mv :not-implemented x86))))
     ((when flg)
      (!!ms-fresh :stack-writing-error flg))
     (x86 (write-*ip proc-mode call-rip x86))
     (x86 (write-*sp proc-mode new-rsp x86)))
    x86))))

Theorem: x86p-of-x86-call-ff/2-op/en-m

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