index c137e1d1386823beaaeefdd0d2aec47e21d5c93e..257ca2655c32f7ecdd007717bb23999a069c362b 100644 (file)
{$IF Defined(MSWINDOWS)}
Windows;
{$ELSEIF Defined(FPC)}
- Dos, BaseUnix, Unix;
+ Dos
+ {$IFDEF Unix}
+ , BaseUnix, Unix
+ {$ENDIF}
+ ;
{$ELSEIF Defined(DELPHI)}
Posix.SysTime;
{$IFEND}
Posix.SysTime.GetTimeOfDay(Time, nil);
Result := Int64(Time.tv_sec) * 1000000 + Time.tv_usec;
end;
-{$ELSEIF Defined(FPC)}
+{$ELSEIF Defined(FPC) and Defined(UNIX)}
function GetTimeMicroseconds: Int64;
var
TimeVal: TTimeVal;
fpGetTimeOfDay(@TimeVal, nil);
Result := Int64(TimeVal.tv_sec) * 1000000 + TimeVal.tv_usec;
end;
+{$ELSE}
+ function GetTimeMicroseconds: Int64;
+ begin
+ {$WARNING GetTimeMicroseconds stub!}
+ result := 0
+ end;
{$IFEND}
function GetTimeMilliseconds: Int64;