paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 21:18:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeDebugger: Don't assert address of empty string. Exit early.

Browse Source
This commit is contained in:
Martin 2025-03-16 21:58:09 +01:00
parent 515752eac7
commit 55c94bee7b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/packages/idedebugger/idedebuggerwatchresutils.pas
View File

@ -577,10 +577,13 @@ function TStringBuilderPart.GetFullString: String;
var
p: PChar;
begin
Result := '';
if FData = nil then
exit('');
exit();
if FType = sbfString then
exit(string(FData));
if PHeader(FData)^.FTotalLen = 0 then
exit;
SetLength(Result, PHeader(FData)^.FTotalLen);
p := pchar(Result);