From 6282148a849bb30e6b153396fc255a4f7976b122 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Mon, 7 Nov 2011 07:42:00 +0000
Subject: [PATCH] GetTickCount: A fix which was recommended by the compiler

git-svn-id: trunk@33387 -
---
 components/lazutils/lazutf8sysutils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/lazutils/lazutf8sysutils.pas b/components/lazutils/lazutf8sysutils.pas
index 9491c6aaa9..f137056da2 100644
--- a/components/lazutils/lazutf8sysutils.pas
+++ b/components/lazutils/lazutf8sysutils.pas
@@ -102,7 +102,7 @@ var
   tp: TTimeVal;
 begin
   fpgettimeofday(@tp, nil);
-  Result := (tp.tv_sec * 1000) + (tp.tv_usec div 1000);
+  Result := (Int64(tp.tv_sec) * 1000) + (tp.tv_usec div 1000);
 end;
 {$else}
 // Not Windows and not UNIX, so just write the most trivial code until we have something besser: