paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed typecast error in A52 headers

Browse Source 
git-svn-id: trunk@4683 -
This commit is contained in:
ivost 2006-09-22 14:14:03 +00:00
parent 66e155acab
commit 87c5880318
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/extra/a52/a52.pas
View File

@ -486,7 +486,7 @@ const
ac3_channels: array[0..7] of cint = (2,1,2,3,3,4,4,5);
var
num, ofs: cint;
flags, i, len: cint;
flags, len, i: cint;
sample_rate, bit_rate: cint;
level: cfloat;
begin
@ -556,7 +556,7 @@ begin
if a52_block(decoder^.state) <> 0 then
Exit(-1);
float_to_int(decoder^.samples, pointer(PtrUInt(buffer) + Ofs + 2{channels}*i*256*2{sample_size}), 2{channels});
float_to_int(decoder^.samples, pointer(PtrInt(buffer) + Ofs + 2{channels}*i*256*2{sample_size}), 2{channels});
end;
decoder^.inbuf_ptr := @decoder^.inbuf;
@ -570,4 +570,4 @@ begin
Result := ofs;
end;
end.
end.