aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/ULight.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes/ULight.pas')
-rw-r--r--Game/Code/Classes/ULight.pas8
1 files changed, 4 insertions, 4 deletions
diff --git a/Game/Code/Classes/ULight.pas b/Game/Code/Classes/ULight.pas
index 99edc88c..6621cf59 100644
--- a/Game/Code/Classes/ULight.pas
+++ b/Game/Code/Classes/ULight.pas
@@ -2,10 +2,6 @@ unit ULight;
interface
-{$IFDEF FPC}
- {$MODE Delphi}
-{$ENDIF}
-
{$I switches.inc}
type
@@ -55,7 +51,11 @@ uses
begin
GetLocalTime(SystemTime);
with SystemTime do
+{$IFDEF DARWIN}
+ Result := EncodeTime(Hour, Minute, Second, MilliSecond);
+{$ELSE}
Result := EncodeTime(wHour, wMinute, wSecond, wMilliSeconds);
+{$ENDIF}
end;
{$ELSE}
Type