Browse Source

* revised oggvorbis package (vorbis headers)

git-svn-id: trunk@12503 -
ivost 16 years ago
parent
commit
f331278865
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/oggvorbis/src/vorbis.pas

+ 1 - 1
packages/oggvorbis/src/vorbis.pas

@@ -440,7 +440,7 @@ begin
 
 
   while num > 0 do
   while num > 0 do
   begin
   begin
-    res := ov_read(vf, pointer(ptrint(buffer) + ofs), num, bigendianp, word, sgned, nil);
+    res := ov_read(vf, pointer(ptruint(buffer) + ofs), num, bigendianp, word, sgned, nil);
     if res < 0 then
     if res < 0 then
       Exit(res);
       Exit(res);