aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-05-08 17:26:37 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-05-08 17:26:37 +0000
commit0dd7fd1b3a6276a39699a00e72289f264b7fdd4f (patch)
treea3336ed458e633bb63e38a8b3bbf3910b7974d7d /Game/Code/Classes
parentd9f655090a307ecc8bb3ea4a74572744090bb2d7 (diff)
downloadusdx-0dd7fd1b3a6276a39699a00e72289f264b7fdd4f.tar.gz
usdx-0dd7fd1b3a6276a39699a00e72289f264b7fdd4f.tar.xz
usdx-0dd7fd1b3a6276a39699a00e72289f264b7fdd4f.zip
- 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
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UAudioCore_Bass.pas86
-rw-r--r--Game/Code/Classes/UCovers.pas3
-rw-r--r--Game/Code/Classes/ULog.pas2
3 files changed, 44 insertions, 47 deletions
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
diff --git a/Game/Code/Classes/UCovers.pas b/Game/Code/Classes/UCovers.pas
index 478264b9..9cd7af10 100644
--- a/Game/Code/Classes/UCovers.pas
+++ b/Game/Code/Classes/UCovers.pas
@@ -9,9 +9,6 @@ interface
{$I switches.inc}
uses gl,
- {$IFDEF win32}
- windows,
- {$ENDIF}
Math,
Classes,
SysUtils,
diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas
index ca488e7e..1d710387 100644
--- a/Game/Code/Classes/ULog.pas
+++ b/Game/Code/Classes/ULog.pas
@@ -37,7 +37,7 @@ const
LOG_LEVEL_NONE = -1;
// define level that Log(File)Level is initialized with
- LOG_LEVEL_DEFAULT = LOG_LEVEL_INFO;
+ LOG_LEVEL_DEFAULT = LOG_LEVEL_WARN;
LOG_FILE_LEVEL_DEFAULT = LOG_LEVEL_ERROR;
type