Changeset 52 for trunk/Compiler/Target/Interpretter/UTargetInterpretter.pas

Timestamp:

Jun 25, 2012, 2:07:44 PM (12 years ago)

Author:

chronos

Message:

• Modified: Updated Common package to version 0.7.

File:

• trunk/Compiler/Target/Interpretter/UTargetInterpretter.pas (modified) (4 diffs)

trunk/Compiler/Target/Interpretter/UTargetInterpretter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UTarget, UExecutor, USourceCode, Dialogs;
+  Classes, SysUtils, UTarget, UExecutor, USourceCode, Dialogs, SpecializedList;
 
 type
@@ -20 +20 @@
   TExecutorInterpretter = class(TExecutor)
   private
+    //procedure SystemAdd(FunctionCall: TFunctionCall);
+    //procedure SystemSub(FunctionCall: TFunctionCall);
+    //procedure SystemMove(FunctionCall: TFunctionCall);
+    //procedure SystemFillChar(FunctionCall: TFunctionCall);
+
     procedure RunCommand(Command: TCommand);
     procedure RunBeginEnd(BeginEnd: TBeginEnd);
@@ -31 +36 @@
     function Evaluate(Expression: TExpression): Boolean;
   public
+    Variables: TListObject;
     procedure Run; override;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -127 +135 @@
 procedure TExecutorInterpretter.Run;
 begin
-  ShowMessage(TModuleProgram(TCompiler(TTarget(Target).Compiler).Analyzer.ProgramCode.MainModule).Name);
   with TModuleProgram(TCompiler(TTarget(Target).Compiler).Analyzer.ProgramCode.MainModule) do begin
     RunBeginEnd(Body.Code);
   end;
+end;
+
+constructor TExecutorInterpretter.Create;
+begin
+  Variables := TListObject.Create;
+end;
+
+destructor TExecutorInterpretter.Destroy;
+begin
+  Variables.Free;
+  inherited Destroy;
 end;