aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenSong.pas
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-11 10:50:01 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-11 10:50:01 +0000
commit0d997f8433e982584a0ab67a6d630d12f4314759 (patch)
treedc5ec28147f1b419d6513b5b30d253f905e9f966 /Game/Code/Screens/UScreenSong.pas
parent97a179d3ac5ce99d5e43406f2f66285576eefaf9 (diff)
downloadusdx-0d997f8433e982584a0ab67a6d630d12f4314759.tar.gz
usdx-0d997f8433e982584a0ab67a6d630d12f4314759.tar.xz
usdx-0d997f8433e982584a0ab67a6d630d12f4314759.zip
fixes so codebase builds in delphi now, after major FFMpeg changse for linux.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@503 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenSong.pas6
1 files changed, 4 insertions, 2 deletions
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index b5a34f46..0bf411c1 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -1766,7 +1766,7 @@ begin
( assigned( Theme.Song ) ) AND
( i < length( Data ) ) THEN
begin
- if single( Data[i] ) > single( 1 ) then
+ if single( Data[i] ) > 1 then
begin
lTmp := Single(Data[i]) * Theme.Song.Equalizer.Length;
if lTmp > Pos then
@@ -1774,8 +1774,10 @@ begin
end;
end;
except
+ {$IFDEF FPC}
on E:EInvalidOp do
- writeln( 'UScreenSong - DOH !!!! ('+inttostr(i)+' '+ inttostr( integer( single( Data[i] ) ) )+' * '+ ')' );
+ writeln( 'UScreenSong - DOH !!!! ('+inttostr(i)+' '+ inttostr( integer( Data[i] ) )+' * '+ ')' );
+ {$ENDIF}
end
end;