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

IDE: clean up

Browse Source 
git-svn-id: trunk@36278 -
This commit is contained in:
mattias 2012-03-23 16:06:53 +00:00
parent 9bb4a0555a
commit 9398fb166e
2 changed files with 50 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
debugger/debugger.pp
View File

@ -455,7 +455,7 @@ type
private private
FSnapshots: TDebuggerDataSnapShotList; FSnapshots: TDebuggerDataSnapShotList;
protected protected
function CreateSnapshot(CreateEmpty: Boolean = False): TObject; virtual; function CreateSnapshot({%H-}CreateEmpty: Boolean = False): TObject; virtual;
function GetSnapshotObj(AnID: Pointer): TObject; virtual; function GetSnapshotObj(AnID: Pointer): TObject; virtual;
public public
constructor Create; constructor Create;
@ -553,7 +553,7 @@ type
procedure DoBreakHitCountChange; virtual; procedure DoBreakHitCountChange; virtual;
procedure DoExpressionChange; virtual; procedure DoExpressionChange; virtual;
procedure DoEnableChange; virtual; procedure DoEnableChange; virtual;
procedure DoHit(const ACount: Integer; var AContinue: Boolean); virtual; procedure DoHit(const ACount: Integer; var {%H-}AContinue: Boolean); virtual;
procedure SetHitCount(const AValue: Integer); procedure SetHitCount(const AValue: Integer);
procedure DoKindChange; virtual; procedure DoKindChange; virtual;
procedure SetValid(const AValue: TValidState); procedure SetValid(const AValue: TValidState);
@ -690,7 +690,7 @@ type
procedure DoStateChange(const AOldState: TDBGState); virtual; procedure DoStateChange(const AOldState: TDBGState); virtual;
procedure DoLogMessage(const AMessage: String); virtual; procedure DoLogMessage(const AMessage: String); virtual;
procedure DoLogCallStack(const Limit: Integer); virtual; procedure DoLogCallStack(const Limit: Integer); virtual;
procedure DoLogExpression(const AnExpression: String); virtual; // implemented in TGDBMIBreakpoint procedure DoLogExpression(const {%H-}AnExpression: String); virtual; // implemented in TGDBMIBreakpoint
property Debugger: TDebugger read GetDebugger; property Debugger: TDebugger read GetDebugger;
public public
constructor Create(ACollection: TCollection); override; constructor Create(ACollection: TCollection); override;
@ -801,7 +801,7 @@ type
function Find(const ASource: String; const ALine: Integer): TDBGBreakPoint; overload; function Find(const ASource: String; const ALine: Integer): TDBGBreakPoint; overload;
function Find(const ASource: String; const ALine: Integer; const AIgnore: TDBGBreakPoint): TDBGBreakPoint; overload; function Find(const ASource: String; const ALine: Integer; const AIgnore: TDBGBreakPoint): TDBGBreakPoint; overload;
function Find(const AAddress: TDBGPtr): TDBGBreakPoint; overload; function Find(const AAddress: TDBGPtr): TDBGBreakPoint; overload;
function Find(const AAddress: TDBGPtr; const AIgnore: TDBGBreakPoint): TDBGBreakPoint; overload; function Find(const AAddress: TDBGPtr; const {%H-}AIgnore: TDBGBreakPoint): TDBGBreakPoint; overload;
function Find(const AData: String; const AScope: TDBGWatchPointScope; function Find(const AData: String; const AScope: TDBGWatchPointScope;
const AKind: TDBGWatchPointKind): TDBGBreakPoint; overload; const AKind: TDBGWatchPointKind): TDBGBreakPoint; overload;
function Find(const AData: String; const AScope: TDBGWatchPointScope; function Find(const AData: String; const AScope: TDBGWatchPointScope;
@ -1111,9 +1111,9 @@ type
const AnEvaluateFlags: TDBGEvaluateFlags): TWatchValue; const AnEvaluateFlags: TDBGEvaluateFlags): TWatchValue;
function GetEntryByIdx(AnIndex: integer): TWatchValue; function GetEntryByIdx(AnIndex: integer): TWatchValue;
protected protected
function CreateEntry(const AThreadId: Integer; const AStackFrame: Integer; function CreateEntry(const {%H-}AThreadId: Integer; const {%H-}AStackFrame: Integer;
const ADisplayFormat: TWatchDisplayFormat; const {%H-}ADisplayFormat: TWatchDisplayFormat;
const AnEvaluateFlags: TDBGEvaluateFlags): TWatchValue; virtual; const {%H-}AnEvaluateFlags: TDBGEvaluateFlags): TWatchValue; virtual;
procedure LoadDataFromXMLConfig(const AConfig: TXMLConfig; procedure LoadDataFromXMLConfig(const AConfig: TXMLConfig;
APath: string); APath: string);
procedure SaveDataToXMLConfig(const AConfig: TXMLConfig; procedure SaveDataToXMLConfig(const AConfig: TXMLConfig;
@ -1391,7 +1391,7 @@ type
function GetEntry(const AThreadId: Integer; const AStackFrame: Integer): TLocals; function GetEntry(const AThreadId: Integer; const AStackFrame: Integer): TLocals;
function GetEntryByIdx(const AnIndex: Integer): TLocals; function GetEntryByIdx(const AnIndex: Integer): TLocals;
protected protected
function CreateEntry(const AThreadId: Integer; const AStackFrame: Integer): TLocals; virtual; function CreateEntry(const {%H-}AThreadId: Integer; const {%H-}AStackFrame: Integer): TLocals; virtual;
procedure Add(AnEntry: TLocals); procedure Add(AnEntry: TLocals);
procedure LoadDataFromXMLConfig(const AConfig: TXMLConfig; procedure LoadDataFromXMLConfig(const AConfig: TXMLConfig;
APath: string); APath: string);
@ -1498,15 +1498,15 @@ type
TBaseLineInfo = class(TObject) TBaseLineInfo = class(TObject)
protected protected
function GetSource(const AnIndex: integer): String; virtual; function GetSource(const {%H-}AnIndex: integer): String; virtual;
public public
constructor Create; constructor Create;
function Count: Integer; virtual; function Count: Integer; virtual;
function GetAddress(const AIndex: Integer; const ALine: Integer): TDbgPtr; virtual; function GetAddress(const {%H-}AIndex: Integer; const {%H-}ALine: Integer): TDbgPtr; virtual;
function GetAddress(const ASource: String; const ALine: Integer): TDbgPtr; function GetAddress(const ASource: String; const ALine: Integer): TDbgPtr;
function GetInfo(AAdress: TDbgPtr; out ASource, ALine, AOffset: Integer): Boolean; virtual; function GetInfo({%H-}AAdress: TDbgPtr; out {%H-}ASource, {%H-}ALine, {%H-}AOffset: Integer): Boolean; virtual;
function IndexOf(const ASource: String): integer; virtual; function IndexOf(const {%H-}ASource: String): integer; virtual;
procedure Request(const ASource: String); virtual; procedure Request(const {%H-}ASource: String); virtual;
public public
property Sources[const AnIndex: Integer]: String read GetSource; property Sources[const AnIndex: Integer]: String read GetSource;
end; end;
@ -1525,7 +1525,7 @@ type
private private
FNotificationList: TList; FNotificationList: TList;
FMaster: TDBGLineInfo; FMaster: TDBGLineInfo;
procedure LineInfoChanged(const ASender: TObject; const ASource: String); procedure LineInfoChanged(const {%H-}ASender: TObject; const ASource: String);
procedure SetMaster(const AMaster: TDBGLineInfo); procedure SetMaster(const AMaster: TDBGLineInfo);
protected protected
function GetSource(const AIndex: Integer): String; override; function GetSource(const AIndex: Integer): String; override;
@ -1553,7 +1553,7 @@ type
protected protected
procedure Changed(ASource: String); virtual; procedure Changed(ASource: String); virtual;
procedure DoChange(ASource: String); procedure DoChange(ASource: String);
procedure DoStateChange(const AOldState: TDBGState); virtual; procedure DoStateChange(const {%H-}AOldState: TDBGState); virtual;
property Debugger: TDebugger read FDebugger; property Debugger: TDebugger read FDebugger;
public public
constructor Create(const ADebugger: TDebugger); constructor Create(const ADebugger: TDebugger);
@ -1598,9 +1598,9 @@ type
protected protected
FUpdateCount: Integer; FUpdateCount: Integer;
FFormatList: TRegistersFormatList; FFormatList: TRegistersFormatList;
function GetModified(const AnIndex: Integer): Boolean; virtual; function GetModified(const {%H-}AnIndex: Integer): Boolean; virtual;
function GetName(const AnIndex: Integer): String; virtual; function GetName(const {%H-}AnIndex: Integer): String; virtual;
function GetValue(const AnIndex: Integer): String; virtual; function GetValue(const {%H-}AnIndex: Integer): String; virtual;
function GetFormat(const AnIndex: Integer): TRegisterDisplayFormat; function GetFormat(const AnIndex: Integer): TRegisterDisplayFormat;
procedure SetFormat(const AnIndex: Integer; const AValue: TRegisterDisplayFormat); virtual; procedure SetFormat(const AnIndex: Integer; const AValue: TRegisterDisplayFormat); virtual;
procedure ChangeUpdating; virtual; procedure ChangeUpdating; virtual;
@ -1662,8 +1662,8 @@ type
protected protected
procedure Changed; virtual; procedure Changed; virtual;
procedure DoChange; procedure DoChange;
procedure DoStateChange(const AOldState: TDBGState); virtual; procedure DoStateChange(const {%H-}AOldState: TDBGState); virtual;
procedure FormatChanged(const AnIndex: Integer); virtual; procedure FormatChanged(const {%H-}AnIndex: Integer); virtual;
function GetCount: Integer; virtual; function GetCount: Integer; virtual;
procedure ChangeUpdating; override; procedure ChangeUpdating; override;
property Debugger: TDebugger read FDebugger; property Debugger: TDebugger read FDebugger;
@ -1764,7 +1764,7 @@ type
procedure Clear; virtual; procedure Clear; virtual;
function GetCount: Integer; virtual; function GetCount: Integer; virtual;
procedure SetCount(ACount: Integer); virtual; procedure SetCount({%H-}ACount: Integer); virtual;
function GetEntry(AIndex: Integer): TCallStackEntry; virtual; function GetEntry(AIndex: Integer): TCallStackEntry; virtual;
procedure AddEntry(AnEntry: TCallStackEntry); virtual; // must be added in correct order procedure AddEntry(AnEntry: TCallStackEntry); virtual; // must be added in correct order
procedure AssignEntriesTo(AnOther: TCallStack); virtual; procedure AssignEntriesTo(AnOther: TCallStack); virtual;
@ -1781,7 +1781,7 @@ type
constructor CreateCopy(const ASource: TCallStack); constructor CreateCopy(const ASource: TCallStack);
destructor Destroy; override; destructor Destroy; override;
procedure Assign(AnOther: TCallStack); procedure Assign(AnOther: TCallStack);
procedure PrepareRange(AIndex, ACount: Integer); virtual; procedure PrepareRange({%H-}AIndex, {%H-}ACount: Integer); virtual;
procedure ChangeCurrentIndex(ANewIndex: Integer); virtual; procedure ChangeCurrentIndex(ANewIndex: Integer); virtual;
property Count: Integer read GetCount write SetCount; property Count: Integer read GetCount write SetCount;
property CurrentIndex: Integer read GetCurrent write SetCurrent; property CurrentIndex: Integer read GetCurrent write SetCurrent;
@ -1959,8 +1959,8 @@ type
function IndexError(AIndex: Integer): TCallStackEntry; function IndexError(AIndex: Integer): TCallStackEntry;
function GetEntry(AIndex: Integer): TDisassemblerEntry; function GetEntry(AIndex: Integer): TDisassemblerEntry;
protected protected
function InternalGetEntry(AIndex: Integer): TDisassemblerEntry; virtual; function InternalGetEntry({%H-}AIndex: Integer): TDisassemblerEntry; virtual;
function InternalGetEntryPtr(AIndex: Integer): PDisassemblerEntry; virtual; function InternalGetEntryPtr({%H-}AIndex: Integer): PDisassemblerEntry; virtual;
procedure DoChanged; virtual; procedure DoChanged; virtual;
procedure Changed; procedure Changed;
procedure LockChanged; procedure LockChanged;
@ -1975,7 +1975,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Clear; virtual; procedure Clear; virtual;
// Returns "True", if the range is valid, if not a ChangeNotification will be triggered later // Returns "True", if the range is valid, if not a ChangeNotification will be triggered later
function PrepareRange(AnAddr: TDbgPtr; ALinesBefore, ALinesAfter: Integer): Boolean; virtual; function PrepareRange({%H-}AnAddr: TDbgPtr; {%H-}ALinesBefore, {%H-}ALinesAfter: Integer): Boolean; virtual;
property BaseAddr: TDbgPtr read FBaseAddr; property BaseAddr: TDbgPtr read FBaseAddr;
property CountAfter: Integer read FCountAfter; property CountAfter: Integer read FCountAfter;
property CountBefore: Integer read FCountBefore; property CountBefore: Integer read FCountBefore;
@ -2103,9 +2103,9 @@ type
function InternalGetEntry(AIndex: Integer): TDisassemblerEntry; override; function InternalGetEntry(AIndex: Integer): TDisassemblerEntry; override;
function InternalGetEntryPtr(AIndex: Integer): PDisassemblerEntry; override; function InternalGetEntryPtr(AIndex: Integer): PDisassemblerEntry; override;
// PrepareEntries returns True, if it already added some entries // PrepareEntries returns True, if it already added some entries
function PrepareEntries(AnAddr: TDbgPtr; ALinesBefore, ALinesAfter: Integer): boolean; virtual; function PrepareEntries({%H-}AnAddr: TDbgPtr; {%H-}ALinesBefore, {%H-}ALinesAfter: Integer): boolean; virtual;
function HandleRangeWithInvalidAddr(ARange: TDBGDisassemblerEntryRange;AnAddr: function HandleRangeWithInvalidAddr(ARange: TDBGDisassemblerEntryRange;{%H-}AnAddr:
TDbgPtr; var ALinesBefore, ALinesAfter: Integer): boolean; virtual; TDbgPtr; var {%H-}ALinesBefore, {%H-}ALinesAfter: Integer): boolean; virtual;
property Debugger: TDebugger read FDebugger; property Debugger: TDebugger read FDebugger;
property EntryRanges: TDBGDisassemblerEntryMap read FEntryRanges; property EntryRanges: TDBGDisassemblerEntryMap read FEntryRanges;
public public
@ -2245,7 +2245,7 @@ type
function GetMonitor: TThreadsMonitor; function GetMonitor: TThreadsMonitor;
procedure SetMonitor(const AValue: TThreadsMonitor); procedure SetMonitor(const AValue: TThreadsMonitor);
protected protected
procedure ChangeCurrentThread(ANewId: Integer); virtual; procedure ChangeCurrentThread({%H-}ANewId: Integer); virtual;
procedure RequestMasterData; virtual; procedure RequestMasterData; virtual;
procedure DoStateEnterPause; override; procedure DoStateEnterPause; override;
procedure DoStateLeavePause; override; procedure DoStateLeavePause; override;
@ -2452,10 +2452,10 @@ type
protected protected
procedure AssignTo(Dest: TPersistent); override; procedure AssignTo(Dest: TPersistent); override;
public public
procedure LoadFromXMLConfig(const AXMLConfig: TXMLConfig; procedure LoadFromXMLConfig(const {%H-}AXMLConfig: TXMLConfig;
const APath: string); const {%H-}APath: string);
procedure SaveToXMLConfig(const AXMLConfig: TXMLConfig; procedure SaveToXMLConfig(const {%H-}AXMLConfig: TXMLConfig;
const APath: string); const {%H-}APath: string);
procedure ResetMaster; procedure ResetMaster;
end; end;
@ -2505,10 +2505,10 @@ type
function Find(const AName: String): TIDESignal; function Find(const AName: String): TIDESignal;
property Master: TDBGSignals read FMaster write SetMaster; property Master: TDBGSignals read FMaster write SetMaster;
public public
procedure LoadFromXMLConfig(const AXMLConfig: TXMLConfig; procedure LoadFromXMLConfig(const {%H-}AXMLConfig: TXMLConfig;
const APath: string); const {%H-}APath: string);
procedure SaveToXMLConfig(const AXMLConfig: TXMLConfig; procedure SaveToXMLConfig(const {%H-}AXMLConfig: TXMLConfig;
const APath: string); const {%H-}APath: string);
property Items[const AIndex: Integer]: TIDESignal read GetItem property Items[const AIndex: Integer]: TIDESignal read GetItem
write SetItem; default; write SetItem; default;
end; end;
@ -2708,7 +2708,7 @@ type
private private
public public
constructor Create; virtual; constructor Create; virtual;
procedure Assign(Source: TPersistent); override; procedure Assign({%H-}Source: TPersistent); override;
published published
end; end;
TDebuggerPropertiesClass= class of TDebuggerProperties; TDebuggerPropertiesClass= class of TDebuggerProperties;
@ -2980,17 +2980,17 @@ end;
function dbgs(ADataState: TDebuggerDataState): String; function dbgs(ADataState: TDebuggerDataState): String;
begin begin
writestr(Result, ADataState); writestr(Result{%H-}, ADataState);
end; end;
function dbgs(AKind: TDBGSymbolKind): String; function dbgs(AKind: TDBGSymbolKind): String;
begin begin
writestr(Result, AKind); writestr(Result{%H-}, AKind);
end; end;
function dbgs(AnAttribute: TDBGSymbolAttribute): String; function dbgs(AnAttribute: TDBGSymbolAttribute): String;
begin begin
writestr(Result, AnAttribute); writestr(Result{%H-}, AnAttribute);
end; end;
function dbgs(AnAttributes: TDBGSymbolAttributes): String; function dbgs(AnAttributes: TDBGSymbolAttributes): String;
@ -3008,7 +3008,7 @@ end;
function dbgs(AFlag: TDebuggerLocationFlag): String; function dbgs(AFlag: TDebuggerLocationFlag): String;
begin begin
writestr(Result, AFlag); writestr(Result{%H-}, AFlag);
end; end;
function dbgs(AFlags: TDebuggerLocationFlags): String; function dbgs(AFlags: TDebuggerLocationFlags): String;
@ -3026,7 +3026,7 @@ end;
function dbgs(ACategory: TDBGEventCategory): String; function dbgs(ACategory: TDBGEventCategory): String;
begin begin
writestr(Result, ACategory); writestr(Result{%H-}, ACategory);
end; end;
function dbgs(ADisassRange: TDBGDisassemblerEntryRange): String; overload; function dbgs(ADisassRange: TDBGDisassemblerEntryRange): String; overload;
@ -3444,7 +3444,7 @@ end;
function TDebuggerUnitInfo.DebugText: String; function TDebuggerUnitInfo.DebugText: String;
var s: String; var s: String;
begin begin
writestr(s, FLocationType); writestr(s{%H-}, FLocationType);
Result Result
:= ' FileName="'+FFileName+'" ' := ' FileName="'+FFileName+'" '
+ 'DbgFullName="' + FDbgFullName+'" ' + 'DbgFullName="' + FDbgFullName+'" '
@ -3501,7 +3501,7 @@ procedure TDebuggerUnitInfo.SaveDataToXMLConfig(const AConfig: TXMLConfig;
var var
s: String; s: String;
begin begin
WriteStr(s, LocationType); WriteStr(s{%H-}, LocationType);
AConfig.SetValue(APath + 'Type', s); AConfig.SetValue(APath + 'Type', s);
AConfig.SetValue(APath + 'File', FileName); AConfig.SetValue(APath + 'File', FileName);
@ -4764,7 +4764,7 @@ begin
AConfig.SetValue(APath + 'ThreadId', FThreadId); AConfig.SetValue(APath + 'ThreadId', FThreadId);
AConfig.SetValue(APath + 'StackFrame', FStackFrame); AConfig.SetValue(APath + 'StackFrame', FStackFrame);
AConfig.SetValue(APath + 'Value', FValue); AConfig.SetValue(APath + 'Value', FValue);
WriteStr(s, FDisplayFormat); WriteStr(s{%H-}, FDisplayFormat);
AConfig.SetDeleteValue(APath + 'DisplayFormat', s, 'wdfDefault'); AConfig.SetDeleteValue(APath + 'DisplayFormat', s, 'wdfDefault');
WriteStr(s, FValidity); WriteStr(s, FValidity);
AConfig.SetDeleteValue(APath + 'Validity', s, 'ddsValid'); AConfig.SetDeleteValue(APath + 'Validity', s, 'ddsValid');
@ -7076,7 +7076,7 @@ begin
AConfig.SetDeleteValue(APath+'Address/Value',Address,0); AConfig.SetDeleteValue(APath+'Address/Value',Address,0);
AConfig.SetDeleteValue(APath+'WatchData/Value', FWatchData, ''); AConfig.SetDeleteValue(APath+'WatchData/Value', FWatchData, '');
WriteStr(s, FWatchScope); WriteStr(s{%H-}, FWatchScope);
AConfig.SetDeleteValue(APath+'WatchScope/Value', s, ''); AConfig.SetDeleteValue(APath+'WatchScope/Value', s, '');
WriteStr(s, FWatchKind); WriteStr(s, FWatchKind);
AConfig.SetDeleteValue(APath+'WatchKind/Value', s, ''); AConfig.SetDeleteValue(APath+'WatchKind/Value', s, '');
@ -8223,7 +8223,7 @@ var
begin begin
AConfig.SetDeleteValue(APath + 'Enabled', FEnabled, True); AConfig.SetDeleteValue(APath + 'Enabled', FEnabled, True);
AConfig.SetDeleteValue(APath + 'Expression', FExpression, ''); AConfig.SetDeleteValue(APath + 'Expression', FExpression, '');
WriteStr(s, FDisplayFormat); WriteStr(s{%H-}, FDisplayFormat);
AConfig.SetDeleteValue(APath + 'DisplayFormat', s, 'wdfDefault'); AConfig.SetDeleteValue(APath + 'DisplayFormat', s, 'wdfDefault');
FValueList.SaveDataToXMLConfig(AConfig, APath + 'ValueList/'); FValueList.SaveDataToXMLConfig(AConfig, APath + 'ValueList/');
@ -9154,7 +9154,7 @@ begin
else else
FUnitInfo.SaveDataToXMLConfig(AConfig, APath + 'UnitInfo/'); FUnitInfo.SaveDataToXMLConfig(AConfig, APath + 'UnitInfo/');
end; end;
WriteStr(s, FState); WriteStr(s{%H-}, FState);
AConfig.SetValue(APath + 'State', s); AConfig.SetValue(APath + 'State', s);
end; end;

2
ide/ideprocs.pp
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, LCLProc, AvgLvlTree, Laz2_XMLCfg, Classes, SysUtils, FileUtil, LCLProc, AvgLvlTree, Laz2_XMLCfg,
StdCtrls, ExtCtrls, ComCtrls, StdCtrls, ExtCtrls,
SourceLog, FileProcs, CodeToolManager, CodeToolsConfig, CodeCache, SourceLog, FileProcs, CodeToolManager, CodeToolsConfig, CodeCache,
LazConf; LazConf;