		Search-engine friendly clone of the ACL2 documentation.

Two-byte-opcodes

X86-cpuid

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

(defun x86-cpuid (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-cpuid))
  (declare (ignorable __function__))
  (b* ((?ctx 'x86-cpuid))
   (b*
    ((requested-info (rr32 *eax* x86))
     (basic-info? (< requested-info 2147483648))
     (relevant-info (if basic-info? *cpuid-basic-info*
                      *cpuid-extended-info*))
     (info-idx (loghead 31 requested-info))
     (info
         (if (or (not relevant-info)
                 (equal info-idx 0))
             (make-cpuid-info :eax (+ (len relevant-info)
                                      (if basic-info? 0 2147483648))
                              :ebx 0
                              :ecx 0
                              :edx 0)
           (get-cpu-info info-idx relevant-info)))
     (x86 (wr32 *eax* (cpuid-info->eax info) x86))
     (x86 (wr32 *ebx* (cpuid-info->ebx info) x86))
     (x86 (wr32 *ecx* (cpuid-info->ecx info) x86))
     (x86 (wr32 *edx* (cpuid-info->edx info)
                x86)))
    (write-*ip proc-mode temp-rip x86)))))

Theorem: x86p-of-x86-cpuid

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