Browse Source

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

git-svn-id: trunk@30391 -
Károly Balogh 10 years ago
parent
commit
48b38994c8
1 changed files with 2 additions and 3 deletions
  1. 2 3
      rtl/amicommon/dos.pp

+ 2 - 3
rtl/amicommon/dos.pp

@@ -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;