Changeset 35 for trunk/Target/UTarget.pas

Timestamp:

Feb 19, 2012, 12:03:21 AM (12 years ago)

Author:

chronos

Message:

• Added: Function to show execution point in code if program is paused.
• Added: Some partial stepping implementation.

File:

• trunk/Target/UTarget.pas (modified) (8 diffs)

trunk/Target/UTarget.pas

@@ -49 +49 @@
     procedure AddLine(Text: string);
     function LongFileName(FileName: string): string;
+    function GetExecutionPosition: Integer; virtual;
   public
     Name: string;
@@ -58 +59 @@
     ProjectFileName: string;
     Capabilities: TTargetCapabilities;
-    BreakPointers: TListInteger;
+    BreakPoints: TListInteger;
     DebugSteps: TDebugStepList;
     constructor Create; virtual;
@@ -71 +72 @@
     procedure StepInto; virtual;
     procedure StepOut; virtual;
-    procedure RunToCursor; virtual;
+    procedure RunToCursor(Pos: Integer); virtual;
     procedure LoadFromRegistry(Root: HKEY; Key: string); virtual;
     procedure SaveToRegistry(Root: HKEY; Key: string); virtual;
@@ -79 +80 @@
     property TargetCode: string read GetTargetCode;
     property Compiled: Boolean read FCompiled write FCompiled;
+    property ExecutionPosition: Integer read GetExecutionPosition;
   end;
 
@@ -184 +186 @@
 begin
   Result := FTargetCode;
+end;
+
+function TTarget.GetExecutionPosition: Integer;
+begin
+
 end;
 
@@ -211 +218 @@
   inherited;
   Optimization := coNormal;
-  BreakPointers := TListInteger.Create;
+  BreakPoints := TListInteger.Create;
   DebugSteps := TDebugStepList.Create;
 end;
@@ -218 +225 @@
 begin
   DebugSteps.Free;;
-  BreakPointers.Free;
+  BreakPoints.Free;
   inherited Destroy;
 end;
@@ -303 +310 @@
 end;
 
-procedure TTarget.RunToCursor;
+procedure TTarget.RunToCursor(Pos: Integer);
 begin