Changeset 89 for branches/virt simple/UMachine.pas

Timestamp:

Sep 30, 2016, 10:13:35 PM (8 years ago)

Author:

chronos

Message:

• Modified: Start/stop virtual machine by buttons. Thread moved from main form to TMachine class.

Location:

branches/virt simple

Files:

• . (modified) (1 prop)
• UMachine.pas (modified) (5 diffs)

branches/virt simple/UMachine.pas

@@ -63 +63 @@
   TSystemCallEvent = procedure(Index: TValue) of object;
 
+  TMachineThread = class;
+
   { TMachine }
 
@@ -70 +72 @@
     FOnPortOut: TPortOutEvent;
     FOnSystemCall: TSystemCallEvent;
+    FRunning: Boolean;
     InstructionHandlers: array[TOpcode] of TInstructionHandler;
+    Thread: TMachineThread;
     function GetValue(Param: TParam): TValue;
     procedure InstructionAdd;
@@ -103 +107 @@
     procedure Init(MemorySize, RegisterCount: Integer);
     procedure Run;
+    procedure Start;
+    procedure Stop;
     constructor Create;
     destructor Destroy; override;
+    property Running: Boolean read FRunning;
     property OnPortOut: TPortOutEvent read FOnPortOut write FOnPortOut;
     property OnPortIn: TPortInEvent read FOnPortIn write FOnPortIn;
@@ -110 +117 @@
   end;
 
+  { TMachineThread }
+
+  TMachineThread = class(TThread)
+    Machine: TMachine;
+    procedure Execute; override;
+  end;
+
 
 implementation
+
+{ TMachineThread }
+
+procedure TMachineThread.Execute;
+begin
+  Machine.Run;
+end;
 
 
@@ -369 +390 @@
 begin
   while not Terminated do begin
-    with TInstruction(Instructions[IP]) do
-    if Assigned(InstructionHandlers[Opcode]) then
-      InstructionHandlers[Opcode]
-      else raise Exception.Create('Unsupported instruction opcode ' + OpcodeString[Opcode]);
+    if IP < Instructions.Count then begin
+      with TInstruction(Instructions[IP]) do
+      if Assigned(InstructionHandlers[Opcode]) then
+        InstructionHandlers[Opcode]
+        else raise Exception.Create('Unsupported instruction opcode ' + OpcodeString[Opcode]);
+    end else raise Exception.Create('Reached end of program memory');
     Inc(IP);
+  end;
+end;
+
+procedure TMachine.Start;
+begin
+  if not Running then begin
+    Terminated := False;
+    Thread := TMachineThread.Create(True);
+    Thread.Machine := Self;
+    Thread.Start;
+    FRunning := True;
+  end;
+end;
+
+procedure TMachine.Stop;
+begin
+  if Running then begin
+    Terminated := True;
+    Thread.Terminate;
+    Thread.WaitFor;
+    FreeAndNil(Thread);
+    FRunning := False;
   end;
 end;