paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 15:00:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* prevent crash when appending empty string

Browse Source
This commit is contained in:
peter 2004-12-02 17:56:01 +00:00
parent 15e2b21671
commit d3b001f8a4
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/astrings.inc
View File

@ -544,6 +544,8 @@ Procedure fpc_ansistr_append_shortstring(Var S : AnsiString;Str : ShortString);
var
ofs : SizeInt;
begin
if Str='' then
exit;
ofs:=Length(S);
SetLength(S,ofs+length(Str));
move(Str[1],S[ofs+1],length(Str));
@ -554,12 +556,11 @@ Procedure fpc_ansistr_append_ansistring(Var S : AnsiString;Str : AnsiString); [P
var
ofs : SizeInt;
begin
if Str<>'' then
begin
ofs:=Length(S);
SetLength(S,ofs+length(Str));
move(Str[1],S[ofs+1],length(Str)+1);
end;
if Str='' then
exit;
ofs:=Length(S);
SetLength(S,ofs+length(Str));
move(Str[1],S[ofs+1],length(Str)+1);
end;
{$ifdef interncopy}
@ -867,7 +868,10 @@ end;
{
$Log$
Revision 1.50 2004-11-17 22:19:04 peter
Revision 1.51 2004-12-02 17:56:01 peter
* prevent crash when appending empty string
Revision 1.50 2004/11/17 22:19:04 peter
internconst, internproc and some external declarations moved to interface
Revision 1.49 2004/10/31 16:21:30 peter