paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

amicommon: the use OS-defined TICKS_PER_SECOND const instead of redefining it using another name

Browse Source 
git-svn-id: trunk@30391 -
This commit is contained in:
Károly Balogh 2015-03-30 08:26:16 +00:00
parent 99123a1ea9
commit 48b38994c8
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/amicommon/dos.pp
View File

@ -90,7 +90,6 @@ const
SecsPerDay : LongInt = 86400; SecsPerDay : LongInt = 86400;
SecsPerHour : Integer = 3600; SecsPerHour : Integer = 3600;
SecsPerMinute : ShortInt = 60; SecsPerMinute : ShortInt = 60;
TICKSPERSECOND = 50;
{****************************************************************************** {******************************************************************************
@ -218,7 +217,7 @@ begin
Minutes:=Minutes+Min; Minutes:=Minutes+Min;
{ Find the number of seconds and convert to ticks } { Find the number of seconds and convert to ticks }
S := LocalDate; S := LocalDate;
Ticks:=TICKSPERSECOND*S; Ticks:=TICKS_PER_SECOND*S;
end; end;
@ -856,7 +855,7 @@ begin
with FInfo^.fib_Date do with FInfo^.fib_Date do
FTime := ds_Days * (24 * 60 * 60) + FTime := ds_Days * (24 * 60 * 60) +
ds_Minute * 60 + ds_Minute * 60 +
ds_Tick div 50; ds_Tick div TICKS_PER_SECOND;
end else begin end else begin
FTime := 0; FTime := 0;
end; end;