#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Wed, 07 Dec 2016 10:03:10 +0100
changeset 21104 b7b94965c192
parent 21103 22b82f63fead
child 21105 f51ebd03d20b
#BUGFIX by stefan class: Win32OperatingSystem changed: #getMillisecondTime Fix for 64-bit Windows: use full range of 62bit SmallInteger (Superclass requires this)
Win32OperatingSystem.st
--- a/Win32OperatingSystem.st	Wed Dec 07 07:42:18 2016 +0100
+++ b/Win32OperatingSystem.st	Wed Dec 07 10:03:10 2016 +0100
@@ -978,7 +978,6 @@
     "Modified: 7.1.1997 / 19:36:11 / stefan"
 ! !
 
-
 !Win32OperatingSystem class methodsFor:'OS signal constants'!
 
 sigABRT
@@ -11097,9 +11096,22 @@
     "
 
 %{  /* NOCONTEXT */
-
+#if POINTERSIZE == 8
+    RETURN ( __mkSmallInteger(GetTickCount64() & (_MAX_INT >> 1)) );
+#else
     RETURN ( __mkSmallInteger(GetTickCount() & (_MAX_INT >> 1)) );
-%}
+#endif
+%}
+
+    "
+        self getMillisecondTime
+
+        |t1 t2|
+        t1 := self getMillisecondTime.
+        Delay waitForSeconds:1.
+        t2 := self getMillisecondTime.
+        t2 - t1.
+    "
 !
 
 getOSTime