From 391d30716d48dc709f6444b19c008e82311623b9 Mon Sep 17 00:00:00 2001
From: eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 1 Nov 2007 19:34:40 +0000
Subject: Mac OS X version compiles and links. I hope I didn't break too many
 files on windows/linux. Added switches.inc to all files. Changed many IFDEFs.
 For Windows-only code please use MSWINDOWS instead of WIN32 now. WIN32 is
 also used by the Mac port.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@546 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/ULight.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Game/Code/Classes/ULight.pas')

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
-- 
cgit v1.2.3