diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-20 17:21:34 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-20 17:21:34 +0000 |
commit | dd321341472d48dec57e23cbae7fc77450a58e61 (patch) | |
tree | fbfe34d0e973329c8dcf3d2985a92852831e9edf /packages/libogcfpc/src/ogc/lwp_watchdog.inc | |
parent | bdec57935fdb7f20eb519f9d99d12d2d07e9cb15 (diff) | |
parent | 754a9168ff60fc59322032d21d4ca127ec4b27cd (diff) | |
download | fpc-dd321341472d48dec57e23cbae7fc77450a58e61.tar.gz |
* synchronised with trunk till r42256
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/debug_eh@42257 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/libogcfpc/src/ogc/lwp_watchdog.inc')
-rw-r--r-- | packages/libogcfpc/src/ogc/lwp_watchdog.inc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/libogcfpc/src/ogc/lwp_watchdog.inc b/packages/libogcfpc/src/ogc/lwp_watchdog.inc index 354a7d0694..90c99da9cc 100644 --- a/packages/libogcfpc/src/ogc/lwp_watchdog.inc +++ b/packages/libogcfpc/src/ogc/lwp_watchdog.inc @@ -125,12 +125,12 @@ end; function tick_microsecs(ticks: cuint64): cuint64; inline; begin - result := (((cuint64(ticks)*8) mod cuint64(TB_TIMER_CLOCK div 125))); + result := (((cuint64(ticks)*8) div cuint64(TB_TIMER_CLOCK div 125)) mod TB_USPERSEC); end; function tick_nanosecs(ticks: cuint64): cuint64; inline; begin - result := (((cuint64(ticks)*8000) mod cuint64(TB_TIMER_CLOCK div 125))); + result := (((cuint64(ticks)*8000) div cuint64(TB_TIMER_CLOCK div 125)) mod TB_NSPERSEC); end; |