Changeset 201 for branches/interpreter2/UExecutor.pas

Timestamp:

Apr 16, 2020, 7:40:38 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Memory leaks.

Location:

branches/interpreter2

Files:

• . (modified) (1 prop)
• UExecutor.pas (modified) (1 diff)

branches/interpreter2/UExecutor.pas

@@ -266 +266 @@
   Expression: TExpression): string;
 begin
-  if Assigned(Expression.Variable) then begin
-    Result := Block.Variables.SearchByVariable(Expression.Variable).Value;
+  if Assigned(Expression.VariableRef) then begin
+    Result := Block.Variables.SearchByVariable(Expression.VariableRef).Value;
   end else
-  if Assigned(Expression.Constant) then begin
-    Result := Expression.Constant.Value;
+  if Assigned(Expression.ConstantRef) then begin
+    Result := Expression.ConstantRef.Value;
   end else
   if Assigned(Expression.FunctionCall) then begin