paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:40:48 +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

6
debugger/gdbmimiscclasses.pp
View File

@ -209,7 +209,8 @@ begin
end; end;
SetLength(Result, len); SetLength(Result, len);
Move(Item^.Name.Ptr^, Result[1], len); if len > 0 then
Move(Item^.Name.Ptr^, Result[1], len);
end; end;
function TGDBMINameValueList.GetValue(const AName: string): string; function TGDBMINameValueList.GetValue(const AName: string): string;
@ -222,7 +223,8 @@ begin
if item = nil then Exit; if item = nil then Exit;
SetLength(Result, Item^.Value.Len); SetLength(Result, Item^.Value.Len);
Move(Item^.Value.Ptr^, Result[1], Item^.Value.Len); if Item^.Value.Len > 0 then
Move(Item^.Value.Ptr^, Result[1], Item^.Value.Len);
end; end;
function TGDBMINameValueList.GetValuePtr(const AName: string): TPCharWithLen; function TGDBMINameValueList.GetValuePtr(const AName: string): TPCharWithLen;