Win32OperatingSystem.st
changeset 21104 b7b94965c192
parent 21103 22b82f63fead
child 21120 b930eee62bd2
--- 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