paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed 9868 typo

Browse Source 
git-svn-id: trunk@8736 -
This commit is contained in:
marco 2007-10-07 07:33:14 +00:00
parent 0f4f080d91
commit c213f47986
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/extra/oggvorbis/vorbis.pas
View File

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