From a4de5895a4cb1c3bf06948c27af50b6d27de306e Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 8 Aug 2008 11:43:41 +0000
Subject: somw warnings removed

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

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

diff --git a/Game/Code/Classes/UPlaylist.pas b/Game/Code/Classes/UPlaylist.pas
index a08f33ec..c867c356 100644
--- a/Game/Code/Classes/UPlaylist.pas
+++ b/Game/Code/Classes/UPlaylist.pas
@@ -468,6 +468,8 @@ var
   P: Integer;
   I: Integer;
 begin
+  Result := -1;
+
   if iPlaylist = -1 then
     P := CurPlaylist
   else if (iPlaylist >= 0) AND (iPlaylist <= high(Playlists)) then
@@ -475,8 +477,6 @@ begin
   else
     exit;
 
-  Result := -1;
-
   For I := 0 to high(Playlists[P].Items) do
   begin
     if (Playlists[P].Items[I].SongID = Int(SongID)) then
-- 
cgit v1.2.3