From 6715fd837a31b2a2c9c433a0707cc259fa2f966c Mon Sep 17 00:00:00 2001 From: maxim Date: Tue, 11 Feb 2014 21:55:25 +0000 Subject: [PATCH] Merged revision(s) 44004 #366610e42d from trunk: Debugger: Fixed potential crash with writing (system.move) to empty string ........ git-svn-id: branches/fixes_1_2@44014 - --- debugger/gdbmimiscclasses.pp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/debugger/gdbmimiscclasses.pp b/debugger/gdbmimiscclasses.pp index 25dace5ace..7d0dcb52f2 100644 --- a/debugger/gdbmimiscclasses.pp +++ b/debugger/gdbmimiscclasses.pp @@ -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;