From 0dd7fd1b3a6276a39699a00e72289f264b7fdd4f Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 8 May 2008 17:26:37 +0000
Subject: - removed a windows unit reference - added a missing "result :=" in
 bass error message function - set default log-level to warn

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

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

diff --git a/Game/Code/Classes/UAudioCore_Bass.pas b/Game/Code/Classes/UAudioCore_Bass.pas
index 55148f95..9c13b461 100644
--- a/Game/Code/Classes/UAudioCore_Bass.pas
+++ b/Game/Code/Classes/UAudioCore_Bass.pas
@@ -1,42 +1,42 @@
 unit UAudioCore_Bass;
-
-interface
-
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
-
-{$I switches.inc}
-
-uses
-  Classes,
-  SysUtils;
-
-type
-  TAudioCore_Bass = class
-    private
-    public
-      class function ErrorGetString(): string; overload;
-      class function ErrorGetString(errCode: integer): string; overload;
-  end;
-
-  
-implementation
-
-uses
-  UMain,
-  ULog,
-  bass;
-
-class function TAudioCore_Bass.ErrorGetString(): string; 
-begin
-  ErrorGetString(BASS_ErrorGetCode());
-end;
-
-class function TAudioCore_Bass.ErrorGetString(errCode: integer): string;
-begin
-  case errCode of
-    BASS_OK:
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+  Classes,
+  SysUtils;
+
+type
+  TAudioCore_Bass = class
+    private
+    public
+      class function ErrorGetString(): string; overload;
+      class function ErrorGetString(errCode: integer): string; overload;
+  end;
+
+  
+implementation
+
+uses
+  UMain,
+  ULog,
+  bass;
+
+class function TAudioCore_Bass.ErrorGetString(): string; 
+begin
+  Result := ErrorGetString(BASS_ErrorGetCode());
+end;
+
+class function TAudioCore_Bass.ErrorGetString(errCode: integer): string;
+begin
+  case errCode of
+    BASS_OK:
       result := 'No error';
     BASS_ERROR_MEM:
       result := 'Insufficient memory';
@@ -107,10 +107,10 @@ begin
     BASS_ERROR_CODEC:
       result := 'Codec not available/supported';
     BASS_ERROR_UNKNOWN:
-      result := 'Unknown error';
-    else
-      result := 'Unknown error';
-    end;
-end;
+      result := 'Unknown error';
+    else
+      result := 'Unknown error';
+    end;
+end;
 
 end.
\ No newline at end of file
-- 
cgit v1.2.3