fix building on linux with mpg123

[d2df-sdl.git] / src / engine / e_soundfile_mp3.pas

diff --git a/src/engine/e_soundfile_mp3.pas b/src/engine/e_soundfile_mp3.pas
index 5f60a864bb726d8ed1a1ac9507e8e54de746301d..2870cbed154beda7f5e21614dc6549b456c0f605 100644 (file)
--- a/src/engine/e_soundfile_mp3.pas
+++ b/src/engine/e_soundfile_mp3.pas
@@ -151,7 +151,8 @@ end;
 
 function TMP3Loader.LoadStream(Stream: TStream; SStreaming: Boolean): Boolean;
 var
-  SRate, SEnc, SChans: LongInt;
+  SRate: clong;
+  SEnc, SChans: LongInt;
 begin
   FMPG := mpg123_new(nil, nil);
   if FMPG = nil then