Changeset 14 for branches/DelphiToC/UPascalSource.pas

Timestamp:

Apr 9, 2009, 11:04:41 AM (16 years ago)

Author:

george

Message:

• Opraveno: Chyby v uvolňování paměti.
• Opraveno: Program po rozdělení do více souborů opět funguje jako dříve.

File:

• branches/DelphiToC/UPascalSource.pas (modified) (12 diffs)

branches/DelphiToC/UPascalSource.pas

@@ -24 +24 @@
   TVariableList = class;
   TFunctionList = class;
+  TExpressionList = class;
   TExpression = class;
   TOperationList = class;
@@ -56 +57 @@
     Parent: TCommonBlock;
     function Search(Name: string): TType;
+    destructor Destroy; override;
   end;
 
@@ -67 +69 @@
     Parent: TCommonBlock;
     function Search(Name: string): TConstant;
+    destructor Destroy; override;
   end;
 
@@ -78 +81 @@
     Parent: TCommonBlock;
     function Search(Name: string): TVariable;
+    destructor Destroy; override;
   end;
 
@@ -86 +90 @@
     Value: TValue;
     OperatorName: string;
-    SubItems: TList; // TList<TExpression>
+    SubItems: TExpressionList;
     Associated: Boolean;
     constructor Create;
     destructor Destroy; override;
   end;
+
+  TExpressionList = class(TList)
+    destructor Destroy; override;
+  end;
+
 
   TOperation = class
@@ -177 +186 @@
   for I := 0 to Modules.Count - 1 do
     TModule(Modules[I]).Free;
+  Modules.Free;
   Device.Free;
 end;
@@ -184 +194 @@
 
 { TConstantList }
+
+destructor TConstantList.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    TConstant(Items[I]).Free;
+  inherited;
+end;
 
 function TConstantList.Search(Name: string): TConstant;
@@ -257 +276 @@
 { TTypeList }
 
+destructor TTypeList.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    TType(Items[I]).Free;
+  inherited;
+end;
+
 function TTypeList.Search(Name: string): TType;
 var
@@ -273 +301 @@
 { TVariableList }
 
+destructor TVariableList.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    TVariable(Items[I]).Free;
+  inherited;
+end;
+
 function TVariableList.Search(Name: string): TVariable;
 var
@@ -312 +349 @@
 constructor TExpression.Create;
 begin
-  SubItems := TList.Create;
+  SubItems := TExpressionList.Create;
   SubItems.Count := 2;
 end;
@@ -318 +355 @@
 destructor TExpression.Destroy;
 begin
-  SubItems.Destroy;
+  SubItems.Free;
   inherited;
 end;
@@ -341 +378 @@
 end;
 
+{ TExpressionList }
+
+destructor TExpressionList.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    TExpression(Items[I]).Free;
+  inherited;
+end;
+
 end.