paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:59:08 +02: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
if HasBreakPoint(Entry) then
begin
if Entry.Current then
if Entry.IsCurrent then
Result := imgCurrentLineAtBreakPoint
else
Result := imgBreakPoint;
end
else
begin
if Entry.Current then
if Entry.IsCurrent then
Result := imgCurrentLine
else
if Entry.Source = '' then
@ -475,7 +475,7 @@ begin
Entry := GetCurrentEntry;
if Entry = nil then Exit;
CallStack.Current := Entry;
CallStack.CurrentIndex := Entry.Index;
finally
EnableAllActions;
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;
procedure PrepareEntries(AIndex, ACount: Integer); override;
function GetCurrent: TCallStackEntry; override;
procedure SetCurrent(AValue: TCallStackEntry); override;
function GetCurrent: Integer; override;
procedure SetCurrent(AValue: Integer); override;
procedure DoThreadChanged;
public
end;
@ -7346,14 +7346,9 @@ begin
FreeAndNil(FrameList);
end;
function TGDBMICallStack.GetCurrent: TCallStackEntry;
var
idx: Integer;
function TGDBMICallStack.GetCurrent: Integer;
begin
idx := TGDBMIDebugger(Debugger).FCurrentStackFrame;
if (idx < 0) or (idx >= Count)
then Result := nil
else Result := Entries[idx];
Result := TGDBMIDebugger(Debugger).FCurrentStackFrame;
end;
procedure TGDBMICallStack.DoFramesCommandExecuted(Sender: TObject);
@ -7432,9 +7427,9 @@ begin
FInEvalFrames := False;
end;
procedure TGDBMICallStack.SetCurrent(AValue: TCallStackEntry);
procedure TGDBMICallStack.SetCurrent(AValue: Integer);
begin
TGDBMIDebugger(Debugger).CallStackSetCurrent(AValue.Index);
TGDBMIDebugger(Debugger).CallStackSetCurrent(AValue);
end;
procedure TGDBMICallStack.DoThreadChanged;

980
ide/debugmanager.pas
View File

File diff suppressed because it is too large Load Diff