DEADSOFTWARE

fix building on linux with mpg123
authorDeaDDooMER <deaddoomer@deadsoftware.ru>
Sun, 1 Sep 2019 20:34:22 +0000 (23:34 +0300)
committerDeaDDooMER <deaddoomer@deadsoftware.ru>
Sun, 1 Sep 2019 20:34:22 +0000 (23:34 +0300)
src/engine/e_soundfile_mp3.pas
src/lib/mpg123/mpg123.pas

index 5f60a864bb726d8ed1a1ac9507e8e54de746301d..2870cbed154beda7f5e21614dc6549b456c0f605 100644 (file)
@@ -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
index 40ccc923b2e22d2f2611b5ac73649f5e6a7db97b..f928c8306531236012d2e77a207598be8a187dcd 100644 (file)
@@ -53,7 +53,8 @@ type
   ppclong = ^pclong;
   pcsize_t = ^csize_t;
   ppcint = ^pcint;
-  off_t = cint;
+(* off_t = cint; *)
+  off_t = coff_t;
   ppoff_t = ^poff_t;
   poff_t = ^coff_t;
   ppcuchar = ^pcuchar;