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

Fixes a potential crash in TStrings.SaveToStream

Browse Source 
git-svn-id: trunk@16187 -
This commit is contained in:
sekelsenmat 2010-10-19 15:50:13 +00:00
parent 7e5ff8ca89
commit 8b6e8079ec
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/classes/stringl.inc
View File

@ -851,6 +851,7 @@ Var
S : String; S : String;
begin begin
S:=Text; S:=Text;
if S = '' then Exit;
Stream.WriteBuffer(Pointer(S)^,Length(S)); Stream.WriteBuffer(Pointer(S)^,Length(S));
end; end;