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

* revised a52 package (liba52 headers)

Browse Source 
git-svn-id: trunk@12501 -
This commit is contained in:
ivost 2009-01-04 10:05:04 +00:00
parent 907427f2e5
commit 98102f8b74
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/a52/src/a52.pas
View File

@ -409,7 +409,7 @@ begin
begin
if decoder^.samplecnt = 0 then
begin
len := ptrint(decoder^.inbuf_ptr) - ptrint(@decoder^.inbuf);
len := ptruint(decoder^.inbuf_ptr) - ptruint(@decoder^.inbuf);
if (len < HEADER_SIZE) or (len < decoder^.frame_size) then
begin
@ -431,7 +431,7 @@ begin
if len = 0 then
begin
(* no sync found : move by one byte (inefficient, but simple!) *)
Move(decoder^.inbuf[1], decoder^.inbuf[0], ptrint(decoder^.inbuf_ptr) - ptrint(@decoder^.inbuf) - 1);
Move(decoder^.inbuf[1], decoder^.inbuf[0], ptruint(decoder^.inbuf_ptr) - ptruint(@decoder^.inbuf) - 1);
Dec(decoder^.inbuf_ptr, 1);
end else begin
decoder^.frame_size := len;
@ -480,7 +480,7 @@ begin
end;
(* skip decoded frame *)
Move(decoder^.inbuf[decoder^.frame_size], decoder^.inbuf[0], ptrint(decoder^.inbuf_ptr) - ptrint(@decoder^.inbuf) - decoder^.frame_size);
Move(decoder^.inbuf[decoder^.frame_size], decoder^.inbuf[0], ptruint(decoder^.inbuf_ptr) - ptruint(@decoder^.inbuf) - decoder^.frame_size);
Dec(decoder^.inbuf_ptr, decoder^.frame_size);
decoder^.frame_size := 0;
@ -494,8 +494,8 @@ begin
for i := 0 to len - 1 do
begin
pcint16(ptrint(buffer) + ofs + 0)^ := decoder^.samples[0][decoder^.sampleofs];
pcint16(ptrint(buffer) + ofs + 2)^ := decoder^.samples[1][decoder^.sampleofs];
pcint16(ptruint(buffer) + ofs + 0)^ := decoder^.samples[0][decoder^.sampleofs];
pcint16(ptruint(buffer) + ofs + 2)^ := decoder^.samples[1][decoder^.sampleofs];
Inc(decoder^.sampleofs);
Dec(decoder^.samplecnt);