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, 8 insertions, 3 deletions

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 38266797..2d10c9dc 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -1,6 +1,7 @@
 unit UScreenSong;

 

 interface

+{$I switches.inc}

 

 uses

   UMenu, SDL, UMusic, UFiles, UTime, UDisplay, USongs, SysUtils, ULog, UThemes, UTexture, ULanguage,

@@ -344,9 +345,13 @@ begin
         end;

       SDLK_RETURN:

         begin

-          if Length(Songs.Song) > 0 then begin

-//            PortWriteB($378, 0);

-            if CatSongs.Song[Interaction].Main then begin // clicked on Category Button

+          if Length(Songs.Song) > 0 then

+          begin

+            {$IFDEF UseSerialPort}

+              // PortWriteB($378, 0);

+            {$ENDIF}

+            if CatSongs.Song[Interaction].Main then

+            begin // clicked on Category Button

 

               //Show Cat in Top Left Mod

               ShowCatTL (Interaction);