aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens')
-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;