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

* micro-optimization for tentryfile.getbyte() (based on patch by

Browse Source 
J. Gareth Moreton, mantis #35406)

git-svn-id: trunk@41924 -
This commit is contained in:
Jonas Maebe 2019-04-22 15:16:33 +00:00
parent 75cdae9836
commit 55aeac44f0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/entfile.pas
View File

@ -609,13 +609,13 @@ end;
function tentryfile.getbyte:byte; function tentryfile.getbyte:byte;
begin begin
if entryidx+1>entry.size then if entryidx>=entry.size then
begin begin
error:=true; error:=true;
result:=0; result:=0;
exit; exit;
end; end;
if bufsize-bufidx>=1 then if bufidx<bufsize then
begin begin
result:=pbyte(@buf[bufidx])^; result:=pbyte(@buf[bufidx])^;
inc(bufidx); inc(bufidx);