From 4a30435502bbe9c44fba16f3218f291875009fa4 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Sat, 17 Sep 2022 19:14:23 +0300
Subject: [PATCH] Jedi Code Format: Suppress "deprecated" warnings.

---
 components/jcf2/ReadWrite/FileConverter.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/components/jcf2/ReadWrite/FileConverter.pas b/components/jcf2/ReadWrite/FileConverter.pas
index 9e1d41027c..2941a7a386 100644
--- a/components/jcf2/ReadWrite/FileConverter.pas
+++ b/components/jcf2/ReadWrite/FileConverter.pas
@@ -441,10 +441,11 @@ end;
 
 procedure TFileConverter.Convert;
 var
-  dwStart, dwElapsed: DWord;
+  dwStart: QWord;
+  dwElapsed: DWord;
 begin
   if GetRegSettings.LogTime then
-    dwStart := GetTickCount
+    dwStart := GetTickCount64
   else
     dwStart := 0;
 
@@ -468,7 +469,7 @@ begin
 
   if GetRegSettings.LogTime then
   begin
-    dwElapsed := GetTickCount - dwStart;
+    dwElapsed := GetTickCount64 - dwStart;
     Log.Write('Run took ' + FloatToStr(dwElapsed / 1000) + ' seconds')
   end;