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

* fix from r7819 extended to more platforms

Browse Source 
git-svn-id: trunk@7828 -
This commit is contained in:
Tomas Hajny 2007-06-26 21:08:37 +00:00
parent 11b56e2cc8
commit c00021373a
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/amiga/dos.pp
View File

@ -431,7 +431,7 @@ var
TV: TTimeVal; TV: TTimeVal;
begin begin
Get_Sys_Time (@TV); Get_Sys_Time (@TV);
GetMsCount := TV.TV_Secs * 1000 + TV.TV_Micro div 1000; GetMsCount := int64 (TV.TV_Secs) * 1000 + TV.TV_Micro div 1000;
end; end;
{****************************************************************************** {******************************************************************************

2
rtl/go32v2/dos.pp
View File

@ -151,7 +151,7 @@ end;
function GetMsCount: int64; function GetMsCount: int64;
begin begin
GetMsCount := MemL [$40:$6c] * 55; GetMsCount := int64 (MemL [$40:$6c]) * 55;
end; end;

2
rtl/morphos/dos.pp
View File

@ -431,7 +431,7 @@ var
TV: TTimeVal; TV: TTimeVal;
begin begin
Get_Sys_Time (@TV); Get_Sys_Time (@TV);
GetMsCount := TV.TV_Secs * 1000 + TV.TV_Micro div 1000; GetMsCount := int64 (TV.TV_Secs) * 1000 + TV.TV_Micro div 1000;
end; end;
{****************************************************************************** {******************************************************************************

2
rtl/netware/dos.pp
View File

@ -105,7 +105,7 @@ end;
function GetMsCount: int64; function GetMsCount: int64;
begin begin
GetMsCount := Nwserv.GetCurrentTicks * 55; GetMsCount := int64 (Nwserv.GetCurrentTicks) * 55;
end; end;

2
rtl/netwlibc/dos.pp
View File

@ -143,7 +143,7 @@ var
tz : TimeZone; tz : TimeZone;
begin begin
FPGetTimeOfDay (tv, tz); FPGetTimeOfDay (tv, tz);
GetMsCount := tv.tv_Sec * 1000 + tv.tv_uSec div 1000; GetMsCount := int64 (tv.tv_Sec) * 1000 + tv.tv_uSec div 1000;
end; end;

2
rtl/watcom/dos.pp
View File

@ -151,7 +151,7 @@ end;
function GetMsCount: int64; function GetMsCount: int64;
begin begin
GetMsCount := MemL [$40:$6c] * 55; GetMsCount := int64 (MemL [$40:$6c]) * 55;
end; end;
{****************************************************************************** {******************************************************************************