mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-20 11:29:22 +02:00
* fixed 9868 typo
git-svn-id: trunk@8736 -
This commit is contained in:
parent
0f4f080d91
commit
c213f47986
@ -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(ptrint(buffer) + ofs), num, bigendianp, word, sgned, nil);
|
||||||
if res <= 0 then
|
if res < 0 then
|
||||||
Exit(res);
|
Exit(res);
|
||||||
|
|
||||||
if res = 0 then
|
if res = 0 then
|
||||||
|
Loading…
Reference in New Issue
Block a user