Changeset 7 for os/trunk/System

Timestamp:

Jun 2, 2013, 6:59:07 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Components now have list of childs and free them on destruction.
• Fixed: Memory leaks.

File:

• os/trunk/System/LDOS.Kernel.pas (modified) (5 diffs)

os/trunk/System/LDOS.Kernel.pas

@@ -21 +21 @@
     procedure Execute; virtual;
     procedure Terminate; virtual;
+    destructor Destroy; override;
   end;
 
@@ -87 +88 @@
     procedure HandleTaskList;
   public
-    Timers: TList<TTimer>;
-    Processes: TList<TProcess>;
-    Drivers: TList<TDriver>;
+    Timers: TObjectList<TTimer>;
+    Processes: TObjectList<TProcess>;
+    Drivers: TObjectList<TDriver>;
     StartOnBoot: TList<TApplication>;
     Screen: TScreen;
@@ -135 +136 @@
 constructor TKernel.Create;
 begin
-  Processes := TList<TProcess>.Create;
-  Timers := TList<TTimer>.Create;
-  Drivers := TList<TDriver>.Create;
+  Processes := TObjectList<TProcess>.Create;
+  Timers := TObjectList<TTimer>.Create;
+  Drivers := TObjectList<TDriver>.Create;
   Screen := TScreen.Create;
   Screen.Kernel := Self;
@@ -227 +228 @@
   Canvas.Destroy;
   Forms.Destroy;
+  VideoDevice.Destroy;
   inherited;
 end;
@@ -311 +313 @@
 
 { TProcess }
+
+destructor TProcess.Destroy;
+begin
+  if Assigned(Application) then Application.Destroy;
+  inherited;
+end;
 
 procedure TProcess.Execute;