no longer by default call TimeBeginPeriod(1) in btime init

git-svn-id: file:///svnroot/lcore/trunk@150 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/btime.pas b/btime.pas
index 8218e6415a97bf63f25a278f6c75ceb0ad95280c..87801b5416e3abba52d62e3832d7a3c59dc92ae6 100644 (file)
--- a/btime.pas
+++ b/btime.pas
@@ -12,6 +12,9 @@ unit btime;
 {$ifdef fpc}\r
   {$mode delphi}\r
 {$endif}\r
 {$ifdef fpc}\r
   {$mode delphi}\r
 {$endif}\r

+\r
+{$include lcoreconfig.inc}\r
+\r

 interface\r
 \r
 {$ifdef mswindows}\r
 interface\r
 \r
 {$ifdef mswindows}\r


@@ -57,6 +60,9 @@ function timestrshort(i:tunixtimeint):string;    // Wed Aug 15 16:21:09 2012
 function timestriso(i:tunixtimeint):string;      // 2012-08-15 16:21:09\r
 function timestrisoutc(i:float):string;          // 2012-08-15T14:21:09.255553Z\r
 \r
 function timestriso(i:tunixtimeint):string;      // 2012-08-15 16:21:09\r
 function timestrisoutc(i:float):string;          // 2012-08-15T14:21:09.255553Z\r
 \r

+procedure beginhightimerrate;\r
+procedure endhightimerrate;\r
+\r

 {$ifdef mswindows}\r
 function unixtimefloat_systemtime:float;\r
 {$endif}\r
 {$ifdef mswindows}\r
 function unixtimefloat_systemtime:float;\r
 {$endif}\r


@@ -762,10 +768,19 @@ begin
 \r
 end;\r
 \r
 \r
 end;\r
 \r

+procedure beginhightimerrate;\r
+begin\r
+  {$ifdef mswindows}timebeginperiod(1);{$endif}\r
+end;\r
+\r
+procedure endhightimerrate;\r
+begin\r
+  {$ifdef mswindows}timeendperiod(1);{$endif}\r
+end;\r

 \r
 procedure init;\r
 begin\r
 \r
 procedure init;\r
 begin\r

-  {$ifdef mswindows}timebeginperiod(1);{$endif} //ensure stable unchanging clock\r
+  {$ifdef btimehighrate}beginhightimerrate;{$endif}\r

   fillchar(mmtime_driftavg,sizeof(mmtime_driftavg),0);\r
   settimebias := 0;\r
   gettimezone;\r
   fillchar(mmtime_driftavg,sizeof(mmtime_driftavg),0);\r
   settimebias := 0;\r
   gettimezone;\r

diff --git a/lcoreconfig.inc b/lcoreconfig.inc
index 39d1f27fb41dcb598eddc756930e8be8075817f7..fbf9b6dc90c6b81cd47c5eaf7b9f2b5b42ceb33d 100644 (file)
--- a/lcoreconfig.inc
+++ b/lcoreconfig.inc
@@ -43,3 +43,10 @@ after running for a period of time. -anders}
 {$ifdef mswindows}\r
   {-$define winasyncdns}\r
 {$endif}\r
 {$ifdef mswindows}\r
   {-$define winasyncdns}\r
 {$endif}\r

+\r
+{-------------------------------------------------------------------------------------}\r
+{btime used to set TimeBeginPeriod(1) on init, so a program was permanently in this state.\r
+doing this is not recommended, so it is no longer done by default.\r
+set this define to get the old behavior back.}\r
+{-$define btimehighrate}\r
+\r