From 174244a5ddf10da145779f6fe0ad1c5bc398fa6a Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 8 Oct 2007 09:08:17 +0000
Subject: fixed bad build build#USDX-DELPHI-31 oops...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@473 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UMusic.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index bdd0be83..3c43615b 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -97,12 +97,12 @@ type
 
       //Custom Sounds
       CustomSounds: array of TCustomSoundEntry;
+      Loaded:   boolean;
+      Loop:     boolean;
 
 
       function FFMPeg_StreamCreateFile(abool : boolean; aFileName : pchar ): THandle;
 
-      Loaded:   boolean;
-      Loop:     boolean;
     public
       Bass:               hStream;
       procedure InitializePlayback;
@@ -670,7 +670,8 @@ begin
   {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
 
-  if not BASS_RecordInit(RecordI) then begin
+  if not BASS_RecordInit(RecordI) then
+  begin
     Error := BASS_ErrorGetCode;
 
     ErrorMsg := IntToStr(Error);
-- 
cgit v1.2.3