Changeset 31 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Feb 18, 2012, 8:02:50 PM (13 years ago)

Author:

chronos

Message:

• Modified: Renamed classes from Compiler to Target. Interpretter registred as possible and default target.

File:

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

trunk/Target/UTargetInterpretter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Dialogs, Forms, StrUtils;
+  Classes, SysUtils, Dialogs, Forms, StrUtils, UTarget;
 
 type
@@ -28 +28 @@
   { TTargetInterpretter }
 
-  TTargetInterpretter = class
+  TTargetInterpretter = class(TTarget)
   private
     FCellSize: Integer;
@@ -64 +64 @@
     procedure Reset;
     procedure SingleStep;
-    procedure Run;
-    procedure Pause;
-    procedure Stop;
+    procedure Run; override;
+    procedure Pause; override;
+    procedure Stop; override;
     constructor Create;
     destructor Destroy; override;
@@ -284 +284 @@
 constructor TTargetInterpretter.Create;
 begin
+  Name := 'Interpretter';
+  Capabilities := [tcRun, tcPause, tcStop];
   MemorySize := 30000;
   CellSize := 256;