From fb174160559b9823a932fc238b55eb44619c47e8 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 22 Nov 2014 23:21:19 +0000
Subject: Remove unused variables and fix warnings with ifdefed variables.
 Thanks to rudi_s.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3103 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/USong.pas | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/base/USong.pas')

diff --git a/src/base/USong.pas b/src/base/USong.pas
index a8581ebd..bff39a29 100644
--- a/src/base/USong.pas
+++ b/src/base/USong.pas
@@ -283,8 +283,6 @@ end;
 function TSong.FindSongFile(Dir: IPath; Mask: UTF8String): IPath;
 var
   Iter: IFileIterator;
-  FileInfo: TFileInfo;
-  FileName: IPath;
 begin
   Iter := FileSystem.FileFind(Dir.Append(Mask), faDirectory);
   if (Iter.HasNext) then
@@ -638,7 +636,6 @@ var
   Param3:    integer;
   ParamS:    string;
   I, J:      integer;
-  NoteIndex: integer;
 
   NoteType:  char;
   SentenceEnd, Rest, Time: integer;
@@ -1264,8 +1261,6 @@ begin
 end;
 
 procedure TSong.NewSentence(LineNumberP: integer; Param1, Param2: integer);
-var
-  I: integer;
 begin
 
   if (Lines[LineNumberP].Line[Lines[LineNumberP].High].HighNote  <> -1) then
-- 
cgit v1.2.3