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

Return -1 if size of file is smaller tham header size in tppufile.readheader method

Browse Source 
git-svn-id: trunk@49476 -
This commit is contained in:
pierre 2021-06-04 21:15:46 +00:00
parent aadcb00977
commit 4483343d00
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ppu.pas
View File

@ -277,7 +277,7 @@ end;
function tppufile.readheader: longint; function tppufile.readheader: longint;
begin begin
if fsize<sizeof(tppuheader) then if fsize<sizeof(tppuheader) then
exit(0); exit(-1);
result:=f.Read(header,sizeof(tppuheader)); result:=f.Read(header,sizeof(tppuheader));
{ The header is always stored in little endian order } { The header is always stored in little endian order }
{ therefore swap if on a big endian machine } { therefore swap if on a big endian machine }