Posted to tcl by miguel at Fri Oct 26 23:02:39 GMT 2007view raw

  1. #ifdef TCL_WIDE_CLICKS
  2. #define GetClicks(foo) (foo = TclpGetWideClicks())
  3. #elif 1
  4. /* Taken from /usr/include/asm-x86_64/msr.h */
  5. #define GetClicks(foo) do { \
  6. unsigned int __a,__d; \
  7. asm volatile("rdtsc" : "=a" (__a), "=d" (__d)); \
  8. (foo) = ((unsigned long long)__a) | (((unsigned long long)__d)<<32); \
  9. } while(0)
  10. #else
  11. #define GetClicks(foo) (foo = TclpGetClicks())
  12. #endif
  13. #endif