paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 18:30:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* revised oggvorbis package (vorbis headers)

Browse Source 
git-svn-id: trunk@12503 -
This commit is contained in:
ivost 2009-01-04 10:16:37 +00:00
parent f48cef82e8
commit f331278865
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/oggvorbis/src/vorbis.pas
View File

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