paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 20:49:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Refactor, merge TManaged.. classes into TIDE.. classes

Browse Source 
git-svn-id: trunk@30490 -
This commit is contained in:
martin 2011-04-27 14:55:07 +00:00
parent 535accdbc6
commit 1a0a37aaf9
4 changed files with 877 additions and 989 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/callstackdlg.pp
View File

@ -207,14 +207,14 @@ function TCallStackDlg.GetImageIndex(Entry: TCallStackEntry): Integer;
begin begin
if HasBreakPoint(Entry) then if HasBreakPoint(Entry) then
begin begin
if Entry.Current then if Entry.IsCurrent then
Result := imgCurrentLineAtBreakPoint Result := imgCurrentLineAtBreakPoint
else else
Result := imgBreakPoint; Result := imgBreakPoint;
end end
else else
begin begin
if Entry.Current then if Entry.IsCurrent then
Result := imgCurrentLine Result := imgCurrentLine
else else
if Entry.Source = '' then if Entry.Source = '' then
@ -475,7 +475,7 @@ begin
Entry := GetCurrentEntry; Entry := GetCurrentEntry;
if Entry = nil then Exit; if Entry = nil then Exit;
CallStack.Current := Entry; CallStack.CurrentIndex := Entry.Index;
finally finally
EnableAllActions; EnableAllActions;
end; end;

863
debugger/debugger.pp
View File

File diff suppressed because it is too large Load Diff

17
debugger/gdbmidebugger.pp
View File

@ -958,8 +958,8 @@ type
function CreateStackEntry(AIndex: Integer): TCallStackEntry; override; function CreateStackEntry(AIndex: Integer): TCallStackEntry; override;
procedure PrepareEntries(AIndex, ACount: Integer); override; procedure PrepareEntries(AIndex, ACount: Integer); override;
function GetCurrent: TCallStackEntry; override; function GetCurrent: Integer; override;
procedure SetCurrent(AValue: TCallStackEntry); override; procedure SetCurrent(AValue: Integer); override;
procedure DoThreadChanged; procedure DoThreadChanged;
public public
end; end;
@ -7346,14 +7346,9 @@ begin
FreeAndNil(FrameList); FreeAndNil(FrameList);
end; end;
function TGDBMICallStack.GetCurrent: TCallStackEntry; function TGDBMICallStack.GetCurrent: Integer;
var
idx: Integer;
begin begin
idx := TGDBMIDebugger(Debugger).FCurrentStackFrame; Result := TGDBMIDebugger(Debugger).FCurrentStackFrame;
if (idx < 0) or (idx >= Count)
then Result := nil
else Result := Entries[idx];
end; end;
procedure TGDBMICallStack.DoFramesCommandExecuted(Sender: TObject); procedure TGDBMICallStack.DoFramesCommandExecuted(Sender: TObject);
@ -7432,9 +7427,9 @@ begin
FInEvalFrames := False; FInEvalFrames := False;
end; end;
procedure TGDBMICallStack.SetCurrent(AValue: TCallStackEntry); procedure TGDBMICallStack.SetCurrent(AValue: Integer);
begin begin
TGDBMIDebugger(Debugger).CallStackSetCurrent(AValue.Index); TGDBMIDebugger(Debugger).CallStackSetCurrent(AValue);
end; end;
procedure TGDBMICallStack.DoThreadChanged; procedure TGDBMICallStack.DoThreadChanged;

980
ide/debugmanager.pas
View File

File diff suppressed because it is too large Load Diff