Posted to tcl by miguel at Fri Oct 26 23:02:39 GMT 2007view raw
- #ifdef TCL_WIDE_CLICKS
- #define GetClicks(foo) (foo = TclpGetWideClicks())
- #elif 1
- /* Taken from /usr/include/asm-x86_64/msr.h */
- #define GetClicks(foo) do { \
- unsigned int __a,__d; \
- asm volatile("rdtsc" : "=a" (__a), "=d" (__d)); \
- (foo) = ((unsigned long long)__a) | (((unsigned long long)__d)<<32); \
- } while(0)
- #else
- #define GetClicks(foo) (foo = TclpGetClicks())
- #endif
- #endif