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

* avoid range check errors for empty ansistrings written/read from ppus

Browse Source 
git-svn-id: trunk@18253 -
This commit is contained in:
florian 2011-08-17 19:01:03 +00:00
parent e796a878ca
commit 275c6092e5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ppu.pas
View File

@ -947,8 +947,13 @@ begin
error:=true; error:=true;
exit; exit;
end; end;
SetLength(Result,l); if l>0 then
ReadData(result[1],l); begin
SetLength(Result,l);
ReadData(result[1],l);
end
else
Result:='';
inc(entryidx,l); inc(entryidx,l);
end; end;
@ -1311,7 +1316,8 @@ procedure tppufile.putansistring(const s: ansistring);
begin begin
l:=length(s); l:=length(s);
putdata(l,4); putdata(l,4);
putdata(s[1],l); if l>0 then
putdata(s[1],l);
end; end;