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

* fix memory leaks after ptckvm finalization

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-10-20 10:49:55 +03:00
parent b8a4a72760
commit bb218b2fb1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/ptckvm/src/ptckvm.pas
View File

@ -669,11 +669,13 @@ begin
Timer := nil;
CursorBlinkTimer := nil;
Format := nil;
PendingResize := nil;
FreeAndNil(KeyPressEvents);
CurrentWidth := 0;
CurrentHeight := 0;
CurrentWidthPixels := 0;
CurrentHeightPixels := 0;
FreeAndNil(CurrentFont);
end;
procedure KVMUpdateScreen;