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

FpDebug: fix Memleak. Introduced in "PascalPrinter, Automatically deref pointers to string types. Issue #39559" / a400e1f8c7

Browse Source
This commit is contained in:
Martin 2022-03-04 00:15:20 +01:00
parent 78f789c59b
commit 625e655423
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fppascalbuilder.pas
View File

@ -791,6 +791,7 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String;
else else
if s <> '' then if s <> '' then
APrintedValue := s + '(' + APrintedValue + ')'; // no typeinfo for strings/pchar APrintedValue := s + '(' + APrintedValue + ')'; // no typeinfo for strings/pchar
m.ReleaseReference;
end; end;
Result := True; Result := True;