paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 17:51:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unnecessary string copy form tppufile.getstring

Browse Source 
git-svn-id: trunk@15459 -
This commit is contained in:
Jonas Maebe 2010-06-20 12:31:27 +00:00
parent 293d51a277
commit 25561d0f71
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ppu.pas
View File

@ -766,18 +766,15 @@ end;
function tppufile.getstring:string;
var
s : string;
begin
s[0]:=chr(getbyte);
if entryidx+length(s)>entry.size then
result[0]:=chr(getbyte);
if entryidx+length(result)>entry.size then
begin
error:=true;
exit;
end;
ReadData(s[1],length(s));
getstring:=s;
inc(entryidx,length(s));
ReadData(result[1],length(result));
inc(entryidx,length(result));
end;