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

1 files changed, 12 insertions, 2 deletions

diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index 43010bde..e89b4785 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -1,8 +1,16 @@
 unit UMain;

 

 interface

+{$I switches.inc}

+

 uses SDL, UGraphic, UMusic, URecord, UTime, SysUtils, UDisplay, UIni, ULog, ULyrics, UScreenSing,

-  OpenGL12, zlportio {you can disable it and all PortWriteB calls}, ULCD, ULight, UThemes{, UScreenPopup};

+  OpenGL12,

+

+  {$IFDEF UseSerialPort}

+  zlportio {you can disable it and all PortWriteB calls},

+  {$ENDIF}

+

+  ULCD, ULight, UThemes{, UScreenPopup};

 

 type

   TPlayer = record

@@ -512,7 +520,9 @@ begin
       if (TempBeat mod 4 <> 0) then Music.PlayHihat;*)

     end;

 

-  //PortWriteB($378, LPT_1 + LPT_2 * 2); // 0 zapala

+    {$IFDEF UseSerialPort}

+      // PortWriteB($378, LPT_1 + LPT_2 * 2); // 0 zapala

+    {$ENDIF}

 end;

 

 procedure NewBeatD(Sender: TScreenSing);