paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 07:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* formatting & typo

Browse Source 
git-svn-id: trunk@22539 -
This commit is contained in:
marc 2009-11-11 23:35:12 +00:00
parent 03d44b6c7a
commit 2b723e68d2
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/debugger.pp
View File

@ -1321,7 +1321,7 @@ type
procedure RunTo(const ASource: String; const ALine: Integer); // Executes til a certain point
procedure JumpTo(const ASource: String; const ALine: Integer); // No execute, only set exec point
function Evaluate(const AExpression: String; var AResult: String;
var ATypeInfo: TDBGType): Boolean; // Evaluates the given expression, returns true if valid
var ATypeInfo: TDBGType): Boolean; // Evaluates the given expression, returns true if valid
function Modify(const AExpression, AValue: String): Boolean; // Modifies the given expression, returns true if valid
function Disassemble(AAddr: TDbgPtr; ABackward: Boolean;
out ANextAddr: TDbgPtr; out ADump, AStatement: String): Boolean;
@ -1338,7 +1338,7 @@ type
property ExternalDebugger: String read FExternalDebugger; // The name of the debugger executable
property FileName: String read FFileName write SetFileName; // The name of the exe to be debugged
property Locals: TDBGLocals read FLocals; // list of all localvars etc
property LineInfo: TDBGLineInfo read FLineInfo; // list of all source LineInfo
property LineInfo: TDBGLineInfo read FLineInfo; // list of all source LineInfo
property Registers: TDBGRegisters read FRegisters; // list of all registers
property Signals: TDBGSignals read FSignals; // A list of actions for signals we know
property ShowConsole: Boolean read FShowConsole write FShowConsole; // Indicates if the debugger should create a console for the debuggee

8
debugger/gdbmidebugger.pp
View File

@ -311,7 +311,7 @@ type
private
FSources: TStringList;
procedure ClearSources;
procedure SimbolListCallback(const AResult: TGDBMIExecResult; const ATag: PtrInt);
procedure SymbolListCallback(const AResult: TGDBMIExecResult; const ATag: PtrInt);
procedure AddInfo(const ASource: String; const AResult: TGDBMIExecResult);
protected
function GetSource(const AnIndex: integer): String; override;
@ -569,7 +569,7 @@ begin
FSources.Clear;
end;
procedure TGDBMILineInfo.SimbolListCallback(const AResult: TGDBMIExecResult; const ATag: PtrInt);
procedure TGDBMILineInfo.SymbolListCallback(const AResult: TGDBMIExecResult; const ATag: PtrInt);
var
Info: PGDBMIAddressReqInfo absolute ATag;
ASource: String;
@ -584,7 +584,7 @@ begin
if Debugger.State = dsRun
then TGDBMIDebugger(Debugger).GDBPause(True);
inc(Info^.Trial);
TGDBMIDebugger(Debugger).ExecuteCommand('-symbol-list-lines %s', [ASource], [cfIgnoreError], @SimbolListCallback, ATag);
TGDBMIDebugger(Debugger).ExecuteCommand('-symbol-list-lines %s', [ASource], [cfIgnoreError], @SymbolListCallback, ATag);
Exit;
end;
end;
@ -695,7 +695,7 @@ begin
New(Info);
Info^.Source := ASource;
Info^.Trial := 1;
TGDBMIDebugger(Debugger).ExecuteCommand('-symbol-list-lines %s', [ASource], [cfIgnoreError], @SimbolListCallback, PtrInt(Info));
TGDBMIDebugger(Debugger).ExecuteCommand('-symbol-list-lines %s', [ASource], [cfIgnoreError], @SymbolListCallback, PtrInt(Info));
end;
{ TGDBMINameValueList }