diff options
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/ULight.pas | 29 |
1 files changed, 6 insertions, 23 deletions
diff --git a/Game/Code/Classes/ULight.pas b/Game/Code/Classes/ULight.pas index f91d614c..a4bebfd2 100644 --- a/Game/Code/Classes/ULight.pas +++ b/Game/Code/Classes/ULight.pas @@ -41,42 +41,25 @@ uses {$IFDEF UseSerialPort} zlportio, {$ENDIF} - {$IFNDEF win32} - libc, - {$ENDIF} UTime; {$IFDEF FPC} function GetTime: TDateTime; - {$IFDEF win32} var SystemTime: TSystemTime; begin GetLocalTime(SystemTime); with SystemTime do -{$IFDEF DARWIN} + begin + {$IFDEF UNIX} Result := EncodeTime(Hour, Minute, Second, MilliSecond); -{$ELSE} + {$ELSE} Result := EncodeTime(wHour, wMinute, wSecond, wMilliSeconds); -{$ENDIF} - end; - {$ELSE} - Type - Time_t = longint; - TTime_T = Time_t; - var - T : TTime_T; - TV: TTimeVal; - UT: TUnixTime; - begin - gettimeofday(TV, nil); - T := TV.tv_sec; - localtime_r(@T, @UT); - Result := EncodeTime(UT.tm_hour, UT.tm_min, UT.tm_sec, TV.tv_usec div 1000); + {$ENDIF} + end; end; - {$ENDIF} - + {$ENDIF} |