From: Sergey Matveev <stargrave@stargrave.org>
Date: Mon, 14 Apr 2025 06:37:08 +0000 (+0300)
Subject: More clear constant
X-Git-Url: http://www.git.cypherpunks.su/?a=commitdiff_plain;h=53b6657b4d0bb5caca712b7eb0d34c25e36a75ddbe4fd9c8298d76277b5a5091;p=keks.git

More clear constant
---

diff --git a/tcl/keks.tcl b/tcl/keks.tcl
index 3eb23d9..f645b9b 100755
--- a/tcl/keks.tcl
+++ b/tcl/keks.tcl
@@ -278,7 +278,7 @@ proc toTAI64 {v} {
     if {$v == [lindex $Leapsecs $i]} {
         incr v
     }
-    set v [expr {$v + 0x4000000000000000}]
+    set v [expr {$v + (1<<62)}]
     upvar buf buf
     toBE 8 $v
 }