Changeset 136 for trunk/UBFTarget.pas

Timestamp:

Mar 5, 2022, 4:14:27 PM (2 years ago)

Author:

chronos

Message:

• Modified: Update recent files list in registry immediately.
• Fixed: Regresion in debugging step in and step out.
• Fixed: Of by one index in loop start command interpretation.
• Fixed: Correctly load directory and file name into open and save dialogs.
• Modified: Faster interval for program output refresh.

File:

• trunk/UBFTarget.pas (modified) (1 diff)

trunk/UBFTarget.pas

@@ -589 +589 @@
       ']': FProgram.Write(TMachineOperation.Create(cmLoopEnd, 0));
     end;
-    if DebugEnabled and (FProgram.Index <> LastIndex) then
-      DebugSteps.AddStep(I - 1, FProgram.Index - 1, soNormal);
+    if DebugEnabled and (FProgram.Index <> LastIndex) then begin
+      case FSourceCode[I] of
+        '[': DebugSteps.AddStep(I - 1, FProgram.Index - 1, soStepIn);
+        ']': DebugSteps.AddStep(I - 1, FProgram.Index - 1, soStepOut);
+        else DebugSteps.AddStep(I - 1, FProgram.Index - 1, soNormal);
+      end;
+    end;
     LastIndex := FProgram.Index;
   end;