cpuid-vop.lisp

   1 (in-package :sb-c)
   2 (ignore-errors (defknown cl-user::%read-cpu (unsigned-byte-32 simple-array-unsigned-byte-16) nil))
   3
   4 (in-package :sb-vm)
   5
   6 (defmacro vect-ea (vect idx)
   7   `(make-ea :dword :base ,vect :index ,idx
   8     :disp (- (* vector-data-offset n-word-bytes) other-pointer-lowtag)))
   9
  10 (define-vop (%read-cpu/x86)
  11     (:translate cl-user::%read-cpu)
  12   (:policy :fast)
  13
  14   (:args (n :scs (unsigned-reg) :target eax)
  15          (result :scs (descriptor-reg)))
  16   (:arg-types unsigned-byte-32 simple-array-unsigned-byte-16)
  17
  18   (:temporary (:sc unsigned-reg :offset eax-offset :from (:argument 0)) eax)
  19   (:temporary (:sc unsigned-reg :offset ebx-offset) ebx)
  20   (:temporary (:sc unsigned-reg :offset ecx-offset) ecx)
  21   (:temporary (:sc unsigned-reg :offset edx-offset) edx)
  22   (:temporary (:sc unsigned-reg) index)
  23
  24   (:generator 10
  25
  26               (inst xor index index)
  27
  28               (inst mov eax n)
  29
  30               ;; zero regs
  31               (inst xor ebx ebx)
  32               (inst xor ecx ecx)
  33               (inst xor edx edx)
  34
  35               ;; cpuid
  36               (inst cpuid)
  37
  38               (inst push edx)
  39
  40               ;; EAX
  41               (inst mov edx eax)
  42               (inst shr edx 16)
  43               (inst and edx #xFFFF)
  44               (inst mov (vect-ea result index) edx)
  45               (inst add index 2)
  46
  47               (inst mov edx eax)
  48               (inst and edx #xFFFF)
  49               (inst mov (vect-ea result index) edx)
  50               (inst add index 2)
  51
  52               (inst pop edx)
  53
  54               ;; EBX
  55
  56               (inst mov eax ebx)
  57               (inst shr eax 16)
  58               (inst and eax #xFFFF)
  59               (inst mov (vect-ea result index) eax)
  60               (inst add index 2)
  61
  62               (inst mov eax ebx)
  63               (inst and eax #xFFFF)
  64               (inst mov (vect-ea result index) eax)
  65               (inst add index 2)
  66
  67               ;; ECX
  68
  69               (inst mov eax ecx)
  70               (inst shr eax 16)
  71               (inst and eax #xFFFF)
  72               (inst mov (vect-ea result index) eax)
  73               (inst add index 2)
  74
  75               (inst mov eax ecx)
  76               (inst and eax #xFFFF)
  77               (inst mov (vect-ea result index) eax)
  78               (inst add index 2)
  79
  80               ;; EDX
  81               (inst mov eax edx)
  82               (inst shr eax 16)
  83               (inst and eax #xFFFF)
  84               (inst mov (vect-ea result index) eax)
  85               (inst add index 2)
  86
  87               (inst mov eax edx)
  88               (inst and eax #xFFFF)
  89               (inst mov (vect-ea result index) eax)
  90               (inst add index 2)
  91               ))
  92
  93
  94
  95
  96