Changeset 35 for branches/UltimatOS/UCpu.pas

Timestamp:

Jul 14, 2022, 11:29:01 PM (22 months ago)

Author:

chronos

Message:

• Added: Cpu state window.

File:

• branches/UltimatOS/UCpu.pas (modified) (4 diffs)

branches/UltimatOS/UCpu.pas

@@ -82 +82 @@
     procedure InstructionDisableInt;
   public
-    ExecutedCount: Integer;
+    Ticks: Int64;
     InterruptCount: Integer;
     Terminated: Boolean;
@@ -159 +159 @@
   if AValue and not Assigned(FCpuThread) then begin
     FCpuThread := TCpuThread.Create(True);
-    FCpuThread.FreeOnTerminate := True;
+    FCpuThread.FreeOnTerminate := False;
     FCpuThread.Cpu := Self;
     FCpuThread.Start;
@@ -488 +488 @@
     FInstructionHandlers[Instruction]
     else raise Exception.Create('Missing handler for instruction ' + IntToStr(Integer(Instruction)));
-  Inc(ExecutedCount);
+  Inc(Ticks);
 end;
 
@@ -496 +496 @@
   IP := 0;
   SP := 0;
-  ExecutedCount := 0;
+  Ticks := 0;
   InterruptEnabled := True;
   InterruptPending := False;