exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix computation of seconds in NTP conversion function

Browse Source
This commit is contained in:
Daniel Borchmann 2020-01-09 21:34:38 +01:00
parent c16500344c
commit 97e3b4da13
Signed by: exot
GPG Key ID: 1C7071A75BB72D64
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
site-lisp/db-utils.el
View File

@ -216,8 +216,9 @@ If not given, FORMAT-STRING defaults to some ISO 8601-like format."
(- (lsh (- high-seconds) -16))
(lsh high-seconds -16)))
(l (% high-seconds 65536))
(u (floor (* (/ low 4294967296.0) 1e6)))
(p (- low (floor (/ (* u 4294967296) 1e6)))))
(low-pseconds (* (/ low 4294967296.0) 1e12))
(u (floor (/ low-pseconds 1e6)))
(p (floor (- low-pseconds (* 1e6 u)))))
(message
(format-time-string (or format-string "%FT%H:%M:%S.%9NZ")
(list h l u p)