paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 21:39:21 +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

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;