paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 15:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpdebug: less hints

Browse Source 
git-svn-id: trunk@64686 -
This commit is contained in:
mattias 2021-02-28 08:52:37 +00:00
parent 59447e864b
commit 65e16d03fb
5 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgavrclasses.pas
View File

@ -46,7 +46,7 @@ type
private
FRegs: TInitializedRegisters;
FRegsUpdated: boolean; // regs read from target
FRegsChanged: boolean; // write regs to target
//FRegsChanged: boolean; // write regs to target
FExceptionSignal: integer;
FIsPaused, FInternalPauseRequested, FIsInInternalPause: boolean;
FIsSteppingBreakPoint: boolean;
@ -379,8 +379,8 @@ begin
end;
procedure TDbgAvrThread.BeforeContinue;
var
regs: TBytes;
//var
// regs: TBytes;
begin
if not FIsPaused then
exit;

1
components/fpdebug/fpdbgclasses.pp
View File

@ -1340,7 +1340,6 @@ function TDbgMemReader.WriteRegister(ARegNum: Cardinal; const AValue: TDbgPtr; A
var
ARegister: TDbgRegisterValue;
StackFrame: Integer;
AFrame: TDbgCallstackEntry;
CtxThread: TDbgThread;
begin
result := false;

1
components/fpdebug/fpdbgcontroller.pas
View File

@ -1421,7 +1421,6 @@ end;
function TDbgController.Run: boolean;
var
Flags: TStartInstanceFlags;
Err: TFpError;
begin
result := False;
FLastError := NoError;

9
components/fpdebug/fpdbgdisasavr.pp
View File

@ -57,7 +57,6 @@ type
FAsmDecoder: TAvrAsmDecoder;
FAddress: TDBGPtr;
FCodeBin: array[0..INSTR_CODEBIN_LEN-1] of byte;
FInstrLen: Integer;
FFlags: set of (diCodeRead, diCodeReadError);
protected
procedure ReadCode; inline;
@ -83,6 +82,7 @@ type
function GetMinInstrSize: integer; override;
function GetCanReverseDisassemble: boolean; override;
public
procedure Disassemble(var AAddress: Pointer; out ACodeBytes: String; out ACode: String); override;
function GetInstructionInfo(AnAddress: TDBGPtr): TDbgAsmInstruction; override;
@ -124,9 +124,6 @@ const
branchIfSetNames: array[0..7] of string = ('brcs', 'breq', 'brmi', 'brvs', 'brlt', 'brhs', 'brts', 'brie');
branchIfClrNames: array[0..7] of string = ('brcc', 'brne', 'brpl', 'brvc', 'brge', 'brhc', 'brtc', 'brid');
var
DBG_WARNINGS: PLazLoggerLogGroup;
procedure get_r_d_10(o: word; out r, d: byte);
begin
r := ((o shr 5) and $10) or (o and $f);
@ -865,7 +862,9 @@ begin
inherited Destroy;
end;
//var DBG_WARNINGS: PLazLoggerLogGroup;
initialization
DBG_WARNINGS := DebugLogger.FindOrRegisterLogGroup('DBG_WARNINGS' {$IFDEF DBG_WARNINGS} , True {$ENDIF} );
//DBG_WARNINGS :=
DebugLogger.FindOrRegisterLogGroup('DBG_WARNINGS' {$IFDEF DBG_WARNINGS} , True {$ENDIF} );
end.

4
components/fpdebug/fpdbgdisasx86.pp
View File

@ -237,8 +237,8 @@ type
TX86AsmDecoder = class(TDbgAsmDecoder)
private const
MAX_CODEBIN_LEN = 50;
FMaxInstructionSize = 16;
FMinInstructionSize = 1;
//FMaxInstructionSize = 16;
//FMinInstructionSize = 1;
private
FProcess: TDbgProcess;
FLastErrWasMem: Boolean;