--- 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