paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 44004 #366610e42d from trunk:

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

git-svn-id: branches/fixes_1_2@44014 -
This commit is contained in:
maxim 2014-02-11 21:55:25 +00:00
parent 01bbac9bc4
commit 6715fd837a
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;
SetLength(Result, len);
Move(Item^.Name.Ptr^, Result[1], len);
if len > 0 then
Move(Item^.Name.Ptr^, Result[1], len);
end;
function TGDBMINameValueList.GetValue(const AName: string): string;
@ -222,7 +223,8 @@ begin
if item = nil then Exit;
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;
function TGDBMINameValueList.GetValuePtr(const AName: string): TPCharWithLen;