Changeset 238 for branches/CpuSingleSize/Machine.pas

Timestamp:

Jul 15, 2023, 12:51:15 AM (16 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Fixed: Memory leaks.

File:

• branches/CpuSingleSize/Machine.pas (moved) (moved from branches/CpuSingleSize/UMachine.pas ) (4 diffs)

branches/CpuSingleSize/Machine.pas

@@ -1 @@
-unit UMachine;
+unit Machine;
 
 interface
 
 uses
-  Classes, SysUtils, UCpu, Syncobjs, UMemory, Generics.Collections, Forms;
+  Classes, SysUtils, Cpu, Syncobjs, Memory, Generics.Collections, Forms;
 
 type
@@ -34 +34 @@
     InterruptVector: Integer;
     Form: TFormDevice;
+    destructor Destroy; override;
     procedure PulseInterrupt;
     procedure OutputHandler(Port, Data: TInteger); virtual;
@@ -250 +251 @@
 { TDevice }
 
+destructor TDevice.Destroy;
+begin
+  if Assigned(Form) then FreeAndNil(Form);
+  inherited;
+end;
+
 procedure TDevice.PulseInterrupt;
 begin
@@ -497 +504 @@
 begin
   PowerOff;
+  FreeAndNil(Cpu);
+  FreeAndNil(Memory);
   FreeAndNil(Devices);
   inherited;