changed: #millisecondTimeAdd:and:
authorStefan Vogel <sv@exept.de>
Thu, 27 Oct 2011 18:31:24 +0200
changeset 13799 cf5e4ece609b
parent 13798 894c48237cd5
child 13800 2f04da6f127e
changed: #millisecondTimeAdd:and: check for overflow
AbstractOperatingSystem.st
--- a/AbstractOperatingSystem.st	Thu Oct 27 16:36:21 2011 +0200
+++ b/AbstractOperatingSystem.st	Thu Oct 27 18:31:24 2011 +0200
@@ -5520,7 +5520,10 @@
     |sum|
 
     sum := msTime1 + msTime2.
-    (sum > 16r1FFFFFFF) ifTrue:[^ sum - 16r20000000].
+    (sum > 16r1FFFFFFF) ifTrue:[
+        self assert:(sum <= 16r3FFFFFFF) message:'overflow in timer computation'.
+        ^ sum - 16r20000000.
+    ].
     (sum < 0) ifTrue:[^ sum + 16r20000000].
     ^ sum
 !
@@ -7055,11 +7058,11 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.214 2011-08-05 16:19:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.215 2011-10-27 16:31:24 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.214 2011-08-05 16:19:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.215 2011-10-27 16:31:24 stefan Exp $'
 ! !
 
 AbstractOperatingSystem initialize!