Another attempt at a patch for the event clock for really old versions of microsoft c.

Copied from Perforce
 Change: 179445
 ServerID: perforce.ravenbrook.com

1 files changed, 8 insertions, 8 deletions

diff --git a/mps/code/eventcom.h b/mps/code/eventcom.h
index d108609715c..ca4af0b6b00 100644
--- a/mps/code/eventcom.h
+++ b/mps/code/eventcom.h
@@ -60,17 +60,17 @@ typedef union EventClockUnion {
 
 #else /* _MSC_VER < 1400 */
 
-/* Fake the __rdtsc intrinsic for old Microsoft C versions. */
+/* This is mostly a patch for Open Dylan's bootstrap on Windows, which is
+   using Microsoft Visual Studio 6 because of support for CodeView debugging
+   information. */
+
+#include <windows.h> /* KILL IT WITH FIRE! */
 
 #define EVENT_CLOCK(lvalue) \
   BEGIN \
-    EventClockUnion ecu; \
-    __asm { \
-      __asm __emit 0fh __asm __emit 031h      ; rdtsc \
-      mov ecu.half.high, edx \
-      mov ecu.half.low, eax \
-    } \
-    (lvalue) = ecu.whole; \
+    __declspec(align(16)) LARGE_INTEGER _count; \
+    QueryPerformanceCounter(&_count); \
+    (lvalue) = _count.QuadPart; \
   END
   
 #endif /* _MSC_VER < 1400 */