X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/eca2c8e0a8aad79c7dc7738346d265f973428995..3bf8ed9f9545a956985b6c3c0658893910e01f75:/btime.pas

diff --git a/btime.pas b/btime.pas
index a3428e8..8826a4d 100644
--- a/btime.pas
+++ b/btime.pas
@@ -255,7 +255,7 @@ begin
   gettimeofday(tv);
   sec := tv.tv_sec;
   {$ifndef cpu64}
-  if (sec < 0) then inc(sec,$100000000); //tv_sec is 32 bits
+  if (sec < -1) then inc(sec,$100000000); //tv_sec is 32 bits. allow -1 for invalid result
   {$endif}
   result := sec;
 end;