Changeset 145 for branches/easy compiler/USourceCode.pas

Timestamp:

Jan 17, 2018, 1:11:56 PM (7 years ago)

Author:

chronos

Message:

• Added: Check memory leaks in debug build mode.
• Fixed: Various memory leaks.

Location:

branches/easy compiler

Files:

• . (modified) (1 prop)
• USourceCode.pas (modified) (5 diffs)

branches/easy compiler

@@ -2 +2 @@
 *.exe
 *.lps
+heaptrclog.trc

@@ -2 +2 @@
 *.exe
 *.lps
+heaptrclog.trc

branches/easy compiler/USourceCode.pas

@@ -16 +16 @@
 
   TSourceReference = class
+  end;
+
+  TSourceReferences = class(TObjectList)
   end;
 
@@ -74 +77 @@
   end;
 
+  { TSourceConstant }
+
   TSourceConstant = class
     Name: string;
     Value: TSourceValue;
+    destructor Destroy; override;
   end;
 
@@ -123 +129 @@
   TSourceFunctionCall = class(TSourceInstruction)
     Name: string;
-    Parameters: array of TSourceReference;
-    procedure AddParameter(Value: TSourceReference);
+    Parameters: TSourceReferences;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -156 +163 @@
 implementation
 
+{ TSourceConstant }
+
+destructor TSourceConstant.Destroy;
+begin
+  Value.Free;
+  inherited Destroy;
+end;
+
+{ TSourceFunctionCall }
+
+constructor TSourceFunctionCall.Create;
+begin
+  Parameters := TSourceReferences.Create;
+end;
+
+destructor TSourceFunctionCall.Destroy;
+begin
+  Parameters.Free;
+  inherited Destroy;
+end;
+
 { TSourceBeginEnd }
 
@@ -324 +352 @@
 
 { TSourceFunctionCall }
-
-procedure TSourceFunctionCall.AddParameter(Value: TSourceReference);
-begin
-  SetLength(Parameters, Length(Parameters) + 1);
-  Parameters[Length(Parameters) - 1] := Value;
-end;
 
 { TSourceCode }

@@ -2 +2 @@
 *.exe
 *.lps
+heaptrclog.trc