Przeglądaj źródła

* fix memory leaks after ptckvm finalization

Nikolay Nikolov 9 miesięcy temu
rodzic
commit
bb218b2fb1
1 zmienionych plików z 2 dodań i 0 usunięć
  1. 2 0
      packages/ptckvm/src/ptckvm.pas

+ 2 - 0
packages/ptckvm/src/ptckvm.pas

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