Преглед на файлове

* revised oggvorbis package (vorbis headers)

git-svn-id: trunk@12503 -
ivost преди 17 години
родител
ревизия
f331278865
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      packages/oggvorbis/src/vorbis.pas

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

@@ -440,7 +440,7 @@ begin
 
   while num > 0 do
   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
       Exit(res);