Changed MpSqPortableUtil >> timestampFromSeconds: seconds nanos: nano…

…Seconds
msgpack · Feb 3, 2024 · da5228a · da5228a
1 parent b2a90aa
commit da5228a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 9 deletions.
diff --git a/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/instance/setNanoSeconds..st b/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/instance/setNanoSeconds..st
diff --git a/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/properties.json b/repository/MessagePack-Squeak-Core.package/DateAndTime.extension/properties.json
diff --git a/...gePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st b/...gePack-Squeak-Core.package/MpSqPortableUtil.class/instance/timestampFromSeconds.nanos..st
@@ -1,6 +1,6 @@
 actions
 timestampFromSeconds: seconds nanos: nanoSeconds
-	| ts |
-	ts := DateAndTime fromSeconds: seconds + 2177452800 offset: 0.
-	nanoSeconds > 0 ifTrue: [ ts setNanoSeconds: nanoSeconds].
+	| microseconds ts |
+	microseconds := (seconds * 1000000) + (nanoSeconds * 0.001).
+	ts := DateAndTime utcMicroseconds: microseconds offset: 0.
 	^ts