Changeset 39 for trunk/Forms/UFormMain.pas

Timestamp:

Feb 19, 2012, 12:41:25 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Step into, step over, step out, run to cursor debbuging actions.
• Fixed: Updating interface from interpretter thread using synchronization.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -255 +255 @@
 
 procedure TMainForm.TargetStateChanged(Sender: TObject);
-var
-  DebugStep: TDebugStep;
-begin
+begin
+  UpdateInterface;
   if CurrentTarget.State = rsPaused then
     AProgramShowExecutionPoint.Execute;
-  UpdateInterface;
 end;
 
@@ -322 +320 @@
   FormMesssages.Align := alClient;
   FormMesssages.Show;
+  PageControlRight.Width := MainForm.Width div 2;
+  PageControlBottom.Height := MainForm.Height div 5;
 end;
 
@@ -440 +440 @@
 procedure TMainForm.AProgramRunExecute(Sender: TObject);
 begin
-  FormCPU.LastStepCounter := 0;
-  FormCPU.Show;
   if CurrentTarget is TTargetInterpretter then
     TTargetInterpretter(CurrentTarget).Input := FormInput.MemoInput.Lines.Text;
@@ -595 +593 @@
   DebugStep: TDebugStep;
 begin
-  DebugStep := CurrentTarget.DebugSteps.SearchBySourcePos(MemoSource.SelStart);
   if CurrentTarget.State = rsStopped then begin
     if not CurrentTarget.Compiled then AProgramCompile.Execute;
+    DebugStep := CurrentTarget.DebugSteps.SearchBySourcePos(MemoSource.SelStart);
     CurrentTarget.BreakPoints.SetSystem(DebugStep.TargetPosition);
     AProgramRun.Execute;
-  end else CurrentTarget.RunToCursor(DebugStep.TargetPosition);
+  end else begin
+    DebugStep := CurrentTarget.DebugSteps.SearchBySourcePos(MemoSource.SelStart);
+    CurrentTarget.RunToCursor(DebugStep.TargetPosition);
+  end;
 end;