Changeset 145 for branches/easy compiler/USourceExecutor.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)
• USourceExecutor.pas (modified) (7 diffs)

branches/easy compiler

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

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

branches/easy compiler/USourceExecutor.pas

@@ -12 +12 @@
   TInputEvent = function: string of object;
 
+  { TExecutorVariable }
+
   TExecutorVariable = class
     Variable: TSourceVariable;
     Value: TSourceValue;
+    destructor Destroy; override;
   end;
 
@@ -39 +42 @@
 
 implementation
+
+{ TExecutorVariable }
+
+destructor TExecutorVariable.Destroy;
+begin
+  Value.Free;
+  inherited Destroy;
+end;
 
 
@@ -110 +121 @@
       if Name = 'print' then begin
         if Assigned(FOnOutput) then begin
-          Value := ReadValueReference(Parameters[0]);
+          Value := ReadValueReference(TSourceReference(Parameters[0]));
           if Value is TSourceValueString then
             FOnOutput(TSourceValueString(Value).Value)
@@ -120 +131 @@
       if Name = 'println' then begin
         if Assigned(FOnOutput) then begin
-          Value := ReadValueReference(Parameters[0]);
+          Value := ReadValueReference(TSourceReference(Parameters[0]));
           if Value is TSourceValueString then
             FOnOutput(TSourceValueString(Value).Value + LineEnding)
@@ -130 +141 @@
       if Name = 'inputln' then begin
         if Assigned(FOnInput) then begin
-          Variable := ReadVarReference(Parameters[0]);
+          Variable := ReadVarReference(TSourceReference(Parameters[0]));
           ExecutorVar := Variables.Search(Variable);
           if ExecutorVar.Value is TSourceValueString then begin
@@ -147 +158 @@
       end else
       if Name = 'assign' then begin
-        Variable := ReadVarReference(Parameters[0]);
-        Value := ReadValueReference(Parameters[1]);
+        Variable := ReadVarReference(TSourceReference(Parameters[0]));
+        Value := ReadValueReference(TSourceReference(Parameters[1]));
         ExecutorVar := Variables.Search(Variable);
         if not Assigned(ExecutorVar) then begin
@@ -159 +170 @@
       end else
       if Name = 'increment' then begin
-        Variable := ReadVarReference(Parameters[0]);
-        Value := ReadValueReference(Parameters[1]);
+        Variable := ReadVarReference(TSourceReference(Parameters[0]));
+        Value := ReadValueReference(TSourceReference(Parameters[1]));
         ExecutorVar := Variables.Search(Variable);
         if not Assigned(ExecutorVar) then raise Exception.Create('Variable not found');

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