* fix from r7819 extended to more platforms

git-svn-id: trunk@7828 -

rtl/amiga/dos.pp

@@ -431,7 +431,7 @@ var
   TV: TTimeVal;
 begin
   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;
 
 {******************************************************************************

rtl/go32v2/dos.pp

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

rtl/morphos/dos.pp

@@ -431,7 +431,7 @@ var
   TV: TTimeVal;
 begin
   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;
 
 {******************************************************************************

rtl/netware/dos.pp

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

rtl/netwlibc/dos.pp

@@ -143,7 +143,7 @@ var
   tz : TimeZone;
 begin
   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;
 
 

rtl/watcom/dos.pp

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