Changeset 5916

Timestamp:

Feb 13, 2007, 5:12:05 PM (18 years ago)

Author:

Gary Byers

Message:

Add rdtsc (returns 60 bit non-negative fixnum) and rdtsc64 (returns
64-bit non-negative integer.)

File:

• trunk/ccl/level-0/X86/x86-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/X86/x86-misc.lisp

@@ -200 +200 @@
   (jmp-subprim .SPvalues))
 
+(defx86lapfunction rdtsc ()
+  (:byte #x0f)                          ;two-byte rdtsc opcode
+  (:byte #x31)                          ;is #x0f #x31
+  (shlq ($ 32) (% rdx))
+  (orq (% rdx) (% rax))
+  (imul ($ (* 2 target::node-size)) (% rax) (% arg_z))
+  (shrq ($ 1) (% arg_z))
+  (single-value-return))
+
+;;; Return all 64 bits of the time-stamp counter as an unsigned integer.
+(defx86lapfunction rdtsc64 ()
+  (:byte #x0f)                          ;two-byte rdtsc opcode
+  (:byte #x31)                          ;is #x0f #x31
+  (shlq ($ 32) (% rdx))
+  (orq (% rdx) (% rax))
+  (jmp-subprim .SPmakeu64))
+
 ;;; It would be nice if (%setf-macptr macptr (ash (the fixnum value)
 ;;; ash::fixnumshift)) would do this inline.