aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/ULight.pas
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-18 11:16:30 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-18 11:16:30 +0000
commite3fc5e2c58302159b79e0e25e183aa3e75397a41 (patch)
treebb3a3d66b990231ada3e445c2ba623f15018a5b9 /Game/Code/Classes/ULight.pas
parent7e2e8a8f5a195ac0c49dcb941d065dd9bf0e0256 (diff)
downloadusdx-e3fc5e2c58302159b79e0e25e183aa3e75397a41.tar.gz
usdx-e3fc5e2c58302159b79e0e25e183aa3e75397a41.tar.xz
usdx-e3fc5e2c58302159b79e0e25e183aa3e75397a41.zip
added switches.inc , which will contain compiler directives used
( at least ) for porting to linux. this file now contains compiler directive UseSerialPort, which is conditionally set depending on the compiler. at this point lazarus will not use the serial port ( LCD or Light ) units. however this functionality should be maintained at this point in delphi. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@390 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/ULight.pas9
1 files changed, 8 insertions, 1 deletions
diff --git a/Game/Code/Classes/ULight.pas b/Game/Code/Classes/ULight.pas
index 1fc4aba8..b9c7af9e 100644
--- a/Game/Code/Classes/ULight.pas
+++ b/Game/Code/Classes/ULight.pas
@@ -1,5 +1,6 @@
unit ULight;
interface
+{$I switches.inc}
type
TLight = class
@@ -30,7 +31,11 @@ const
implementation
uses
- SysUtils, zlportio, UTime;
+ SysUtils,
+ {$IFDEF UseSerialPort}
+ zlportio,
+ {$ENDIF}
+ UTime;
constructor TLight.Create;
begin
@@ -45,8 +50,10 @@ end;
procedure TLight.SetState(State: integer);
begin
+ {$IFDEF UseSerialPort}
if Enabled then
PortWriteB($378, State);
+ {$ENDIF}
end;
procedure TLight.AutoSetState;