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/UAudio_bass.pas | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

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

diff --git a/Game/Code/Classes/UAudio_bass.pas b/Game/Code/Classes/UAudio_bass.pas
index 985eede5..463a6c7f 100644
--- a/Game/Code/Classes/UAudio_bass.pas
+++ b/Game/Code/Classes/UAudio_bass.pas
@@ -2,9 +2,7 @@ unit UAudio_bass;
 
 interface
 
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
+{$I switches.inc}
 
 
 uses Classes,
@@ -24,7 +22,7 @@ uses Classes,
 implementation
 
 uses
-     {$IFDEF FPC}
+     {$IFDEF LAZARUS}
      lclintf,
      {$ENDIF}
      URecord,
@@ -111,7 +109,7 @@ var
 
 function  TAudio_bass.GetName: String;
 begin
-  result := 'BASS';
+  result := 'BASS';
 end;
 
 procedure TAudio_bass.InitializePlayback;
@@ -637,11 +635,11 @@ initialization
   writeln( 'UAudio_Bass - Register Input' );
   AudioManager.add( IAudioInput( singleton_MusicBass )    );
 
-finalization
-  writeln( 'UAudio_Bass - UnRegister Playback' );
-  AudioManager.Remove( IAudioPlayback( singleton_MusicBass ) );
-
-  writeln( 'UAudio_Bass - UnRegister Input' );
-  AudioManager.Remove( IAudioInput( singleton_MusicBass ) );
+finalization
+  writeln( 'UAudio_Bass - UnRegister Playback' );
+  AudioManager.Remove( IAudioPlayback( singleton_MusicBass ) );
+
+  writeln( 'UAudio_Bass - UnRegister Input' );
+  AudioManager.Remove( IAudioInput( singleton_MusicBass ) );
 
 end.
-- 
cgit v1.2.3