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

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

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