Changeset 43 for trunk/Compiler/UExecutor.pas

Timestamp:

Feb 29, 2012, 8:23:19 PM (13 years ago)

Author:

chronos

Message:

• Added: Debugging actions to Run menu.

File:

• trunk/Compiler/UExecutor.pas (modified) (2 diffs)

trunk/Compiler/UExecutor.pas

@@ -9 +9 @@
 
 type
+  TRunState = (rsStopped, rsPaused, rsRunning);
+
+  { TExecutor }
+
   TExecutor = class
+  private
+    FRunState: TRunState;
+    procedure SetRunState(AValue: TRunState);
+  public
     procedure Run; virtual; abstract;
     procedure Pause; virtual; abstract;
@@ -18 +26 @@
     procedure StepOut; virtual; abstract;
     procedure RunToCursor(Pos: Integer); virtual; abstract;
+    property State: TRunState read FRunState write SetRunState;
   end;
 
 implementation
 
+{ TExecutor }
+
+procedure TExecutor.SetRunState(AValue: TRunState);
+begin
+  if FRunState=AValue then Exit;
+  FRunState:=AValue;
+end;
+
 end.