class: AbstractOperatingSystem
authorStefan Vogel <sv@exept.de>
Tue, 11 Nov 2014 14:04:17 +0100
changeset 17030 699aeda3a948
parent 17029 3a13637fa5a9
child 17031 d443175f7558
class: AbstractOperatingSystem changed: #computeTimeAndDateFrom: #computeUTCTimeAndDateFrom: fix for change in previous version
AbstractOperatingSystem.st
--- a/AbstractOperatingSystem.st	Tue Nov 11 13:15:06 2014 +0100
+++ b/AbstractOperatingSystem.st	Tue Nov 11 14:04:17 2014 +0100
@@ -5794,10 +5794,7 @@
      dayInYear (1..) and dayInWeek (1..).
      Conversion is to localtime including any daylight saving adjustments."
 
-    |ret|
-
-    ret := self timeInfoFromSeconds:(osTime quo:1000) milliseconds:(osTime abs \\ 1000) localTime:true.
-    ^ ret
+    ^ self timeInfoFromSeconds:(osTime // 1000) milliseconds:(osTime \\ 1000) localTime:true.
 
     "
      OperatingSystem computeTimeAndDateFrom:0
@@ -5847,10 +5844,7 @@
         dayInWeek                       (1..).
      Conversion is to utc."
 
-    |ret|
-
-    ret := self timeInfoFromSeconds:(osTime quo:1000) milliseconds:(osTime abs \\ 1000)  localTime:false.
-    ^ ret
+    ^ self timeInfoFromSeconds:(osTime // 1000) milliseconds:(osTime \\ 1000)  localTime:false.
 
     "
      OperatingSystem computeUTCTimeAndDateFrom:0
@@ -7638,11 +7632,11 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.281 2014-11-11 12:13:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.282 2014-11-11 13:04:17 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.281 2014-11-11 12:13:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.282 2014-11-11 13:04:17 stefan Exp $'
 ! !