From 53b6657b4d0bb5caca712b7eb0d34c25e36a75ddbe4fd9c8298d76277b5a5091 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Mon, 14 Apr 2025 09:37:08 +0300
Subject: [PATCH] More clear constant

---
 tcl/keks.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 }
-- 
2.48.1