Changeset 33 for trunk/Target/UTarget.pas

Timestamp:

Feb 18, 2012, 11:08:44 PM (12 years ago)

Author:

chronos

Message:

• Modified: CompiledForm replaced by compiled source tab in PageControl on MainForm.
• Added: Function for switching position between source code and target code.

File:

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

trunk/Target/UTarget.pas

@@ -18 +18 @@
   TRunState = (rsStopped, rsPaused, rsRunning);
 
+  TStepOperation = (soNormal, soStepIn, soStepOut);
+
+  TDebugStep = class
+    SourcePosition: Integer;
+    TargetPosition: Integer;
+    Operation: TStepOperation;
+  end;
+
+  { TDebugStepList }
+
+  TDebugStepList = class(TListObject)
+    function SearchBySourcePos(Pos: Integer): TDebugStep;
+    function SearchByTargetPos(Pos: Integer): TDebugStep;
+    procedure AddStep(SourcePos, TargetPos: Integer; Operation: TStepOperation);
+  end;
+
   { TTarget }
 
   TTarget = class
   private
+    FCompiled: Boolean;
   protected
-    FSource: string;
+    FSourceCode: string;
+    FTargetCode: string;
     Indent: Integer;
     FState: TRunState;
     FOnChangeState: TNotifyEvent;
-    procedure SetSource(AValue: string); virtual;
+    procedure SetSourceCode(AValue: string); virtual;
+    function GetTargetCode: string; virtual;
     procedure AddLine(Text: string);
     function LongFileName(FileName: string): string;
@@ -33 +52 @@
     Name: string;
     ProgramName: string;
-    Output: string;
     Optimization: TCompilerOptimization;
     CompilerPath: string;
@@ -40 +58 @@
     ProjectFileName: string;
     Capabilities: TTargetCapabilities;
+    BreakPointers: TListInteger;
+    DebugSteps: TDebugStepList;
     constructor Create; virtual;
+    destructor Destroy; override;
     procedure OptimizeSource;
     procedure Compile; virtual;
@@ -55 +76 @@
     property State: TRunState read FState;
     property OnChangeState: TNotifyEvent read FOnChangeState write FOnChangeState;
-    property Source: string write SetSource;
+    property SourceCode: string write SetSourceCode;
+    property TargetCode: string read GetTargetCode;
+    property Compiled: Boolean read FCompiled write FCompiled;
   end;
 
@@ -73 +96 @@
 
 implementation
+
+{ TDebugStepList }
+
+function TDebugStepList.SearchBySourcePos(Pos: Integer
+  ): TDebugStep;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TDebugStep(Items[I]).SourcePosition < Pos) do Inc(I);
+  if I < Count then Result := TDebugStep(Items[I])
+    else Result := nil;
+end;
+
+function TDebugStepList.SearchByTargetPos(Pos: Integer
+  ): TDebugStep;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TDebugStep(Items[I]).TargetPosition < Pos) do Inc(I);
+  if I < Count then Result := TDebugStep(Items[I])
+    else Result := nil;
+end;
+
+procedure TDebugStepList.AddStep(SourcePos, TargetPos: Integer;
+  Operation: TStepOperation);
+var
+  NewItem: TDebugStep;
+begin
+  NewItem := TDebugStep.Create;
+  NewItem.SourcePosition := SourcePos;
+  NewItem.TargetPosition := TargetPos;
+  NewItem.Operation := Operation;
+  Add(NewItem);
+end;
 
 
@@ -122 +181 @@
 { TTarget }
 
-procedure TTarget.SetSource(AValue: string);
-begin
-  FSource := AValue;
+function TTarget.GetTargetCode: string;
+begin
+  Result := FTargetCode;
+end;
+
+procedure TTarget.SetSourceCode(AValue: string);
+begin
+  FSourceCode := AValue;
 end;
 
 procedure TTarget.AddLine(Text: string);
 begin
-  Output := Output + DupeString('  ', Indent) + Text + LineEnding;
+  FTargetCode := FTargetCode + DupeString('  ', Indent) + Text + LineEnding;
 end;
 
@@ -145 +209 @@
 constructor TTarget.Create;
 begin
+  inherited;
   Optimization := coNormal;
+  BreakPointers := TListInteger.Create;
+  DebugSteps := TDebugStepList.Create;
+end;
+
+destructor TTarget.Destroy;
+begin
+  DebugSteps.Free;;
+  BreakPointers.Free;
+  inherited Destroy;
 end;
 
@@ -156 +230 @@
 procedure TTarget.Compile;
 begin
-
+  Compiled := True;
 end;
 
@@ -170 +244 @@
   with TStringList.Create do
   try
-    Text := Output;
+    Text := FTargetCode;
     SaveToFile(CompiledFile);
   finally