paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 18:30:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Fixed potential crash with writing (system.move) to empty string

Browse Source 
git-svn-id: trunk@44004 -
This commit is contained in:
martin 2014-02-11 19:11:42 +00:00
parent a582592043
commit 366610e42d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/gdbmimiscclasses.pp
View File

@ -209,6 +209,7 @@ begin
end; end;
SetLength(Result, len); SetLength(Result, len);
if len > 0 then
Move(Item^.Name.Ptr^, Result[1], len); Move(Item^.Name.Ptr^, Result[1], len);
end; end;
@ -222,6 +223,7 @@ begin
if item = nil then Exit; if item = nil then Exit;
SetLength(Result, Item^.Value.Len); SetLength(Result, Item^.Value.Len);
if Item^.Value.Len > 0 then
Move(Item^.Value.Ptr^, Result[1], Item^.Value.Len); Move(Item^.Value.Ptr^, Result[1], Item^.Value.Len);
end; end;