From fd6d416f75bc316dca4356b5b8e5c7e317d1f156 Mon Sep 17 00:00:00 2001 From: jaybinks Date: Fri, 2 Nov 2007 07:15:11 +0000 Subject: fix bad build#USDX-DELPHI-99 git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@550 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/USongs.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Game/Code/Classes/USongs.pas b/Game/Code/Classes/USongs.pas index e3b2f3b2..6a58a8dd 100644 --- a/Game/Code/Classes/USongs.pas +++ b/Game/Code/Classes/USongs.pas @@ -187,14 +187,15 @@ begin end; procedure TSongs.Execute(); +(* var - lrfds : fdSet; time : Ttimeval; res : integer; buf : pchar; len, bufflen : longint; str : String; +*) begin fParseSongDirectory := true; @@ -218,6 +219,7 @@ begin fProcessing := true; Log.LogError('SongList', 'Searching For Songs'); + Setlength(Song, 50); BrowsePos := 0; -- cgit v1.2.3