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

IDE: less hints

Browse Source 
git-svn-id: trunk@44134 -
This commit is contained in:
mattias 2014-02-18 16:27:05 +00:00
parent a9b919d1b4
commit 1ff6e135c6
4 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -298,7 +298,7 @@ type
property TargetInfo: PGDBMITargetInfo read GetTargetInfo;
protected
procedure SetCommandState(NewState: TGDBMIDebuggerCommandState);
procedure DoStateChanged(OldState: TGDBMIDebuggerCommandState); virtual;
procedure DoStateChanged({%H-}OldState: TGDBMIDebuggerCommandState); virtual;
procedure DoLockQueueExecute; virtual;
procedure DoUnLockQueueExecute; virtual;
procedure DoLockQueueExecuteForInstr; virtual;
@ -1198,7 +1198,7 @@ type
procedure DoGetRegModifiedDestroyed(Sender: TObject);
procedure DoGetRegModifiedFinished(Sender: TObject);
protected
procedure DoStateChange(const AOldState: TDBGState); override;
procedure DoStateChange(const {%H-}AOldState: TDBGState); override;
procedure Invalidate;
function GetCount: Integer; override;
function GetModified(const AnIndex: Integer): Boolean; override;
@ -7566,6 +7566,7 @@ function TGDBMIDebugger.ExecuteCommand(const ACommand: String;
var
R: TGDBMIExecResult;
begin
R:=GDBMIExecResultDefault;
Result := ExecuteCommandFull(ACommand, AValues, AFlags, nil, 0, R);
end;
@ -9193,6 +9194,7 @@ var
s: String;
t: TGDBType;
begin
s:='';
if TGDBMIDebugger(Debugger).GDBEvaluate(AnExpression, s, t, [defNoTypeInfo])
then begin
TGDBMIDebugger(Debugger).DoDbgEvent(ecBreakpoint, etBreakpointEvaluation, s);

2
components/lazdebuggergdbmi/gdbmidebuginstructions.pp
View File

@ -88,7 +88,7 @@ type
function IsCompleted: boolean; virtual; // No more InputFromGdb required
procedure MarkAsSuccess;
procedure HandleWriteError(ASender: TGDBInstruction); virtual;
procedure HandleWriteError({%H-}ASender: TGDBInstruction); virtual;
procedure HandleReadError; virtual;
procedure HandleTimeOut; virtual;
procedure HandleRecoveredTimeOut; virtual;

3
components/lazdebuggergdbmi/gdbmimiscclasses.pp
View File

@ -52,7 +52,10 @@ type
Values: String;
Flags: TGDBMIResultFlags
end;
const
GDBMIExecResultDefault: TGDBMIExecResult = (State: dsNone; Values: ''; Flags: []);
type
PGDBMINameValue = ^TGDBMINameValue;
TGDBMINameValue = record
Name: TPCharWithLen;

10
components/lazdebuggergdbmi/sshgdbmidebugger.pas
View File

@ -99,11 +99,11 @@ type
public
function GetAttributes: TPropertyAttributes; override;
function GetValue: ansistring; override;
procedure SetValue(const NewValue: ansistring); override;
procedure PropMeasureHeight(const NewValue: ansistring; ACanvas:TCanvas;
procedure SetValue(const {%H-}NewValue: ansistring); override;
procedure PropMeasureHeight(const {%H-}NewValue: ansistring; {%H-}ACanvas:TCanvas;
var AHeight:Integer); override;
procedure PropDrawValue(ACanvas: TCanvas; const ARect: TRect;
AState: TPropEditDrawState); override;
{%H-}AState: TPropEditDrawState); override;
end;
{ TSSHGDBMIDebuggerProperties }
@ -150,7 +150,7 @@ procedure TSSHGDBMINotePropertyEditor.PropDrawValue(ACanvas: TCanvas;
var
Style : TTextStyle;
begin
FillChar(Style,SizeOf(Style),0);
FillChar(Style{%H-},SizeOf(Style),0);
With Style do begin
Alignment := taLeftJustify;
Layout := tlTop;
@ -195,7 +195,7 @@ end;
function TSSHGDBMIDebugger.ParseInitialization: Boolean;
function CheckReadLine(var ALine: String): Boolean;
function CheckReadLine(out ALine: String): Boolean;
// does a checked read
// returns True if we should process it
// returns False if it is the gdb prompt