paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:29:14 +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 begin
if decoder^.samplecnt = 0 then if decoder^.samplecnt = 0 then
begin 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 if (len < HEADER_SIZE) or (len < decoder^.frame_size) then
begin begin
@ -431,7 +431,7 @@ begin
if len = 0 then if len = 0 then
begin begin
(* no sync found : move by one byte (inefficient, but simple!) *) (* 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); Dec(decoder^.inbuf_ptr, 1);
end else begin end else begin
decoder^.frame_size := len; decoder^.frame_size := len;
@ -480,7 +480,7 @@ begin
end; end;
(* skip decoded frame *) (* 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); Dec(decoder^.inbuf_ptr, decoder^.frame_size);
decoder^.frame_size := 0; decoder^.frame_size := 0;
@ -494,8 +494,8 @@ begin
for i := 0 to len - 1 do for i := 0 to len - 1 do
begin begin
pcint16(ptrint(buffer) + ofs + 0)^ := decoder^.samples[0][decoder^.sampleofs]; pcint16(ptruint(buffer) + ofs + 0)^ := decoder^.samples[0][decoder^.sampleofs];
pcint16(ptrint(buffer) + ofs + 2)^ := decoder^.samples[1][decoder^.sampleofs]; pcint16(ptruint(buffer) + ofs + 2)^ := decoder^.samples[1][decoder^.sampleofs];
Inc(decoder^.sampleofs); Inc(decoder^.sampleofs);
Dec(decoder^.samplecnt); Dec(decoder^.samplecnt);