* revised a52 package (liba52 headers)

git-svn-id: trunk@12501 -

packages/a52/src/a52.pas

@@ -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);