paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 04:00:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

fpdebug: clean up

Browse Source 
git-svn-id: trunk@46945 -
This commit is contained in:
mattias 2014-11-21 23:47:27 +00:00
parent 27e32c8bad
commit bd1655b970
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fpdbgdisasx86.pp
View File

@ -1577,6 +1577,7 @@ var
Exit;
end;
Index := (Code[ModRMIdx] shr 3) and 7;
if Index=0 then ;
end;
procedure DoGroupP;

8
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -687,7 +687,8 @@ implementation
var
FPDBG_DWARF_ERRORS, FPDBG_DWARF_WARNINGS, FPDBG_DWARF_SEARCH, FPDBG_DWARF_VERBOSE,
FPDBG_DWARF_VERBOSE_LOAD, FPDBG_DWARF_DATA_WARNINGS: PLazLoggerLogGroup;
// FPDBG_DWARF_DATA_WARNINGS,
FPDBG_DWARF_VERBOSE_LOAD: PLazLoggerLogGroup;
var
TheDwarfSymbolClassMapList: TFpDwarfSymbolClassMapList;
@ -3499,9 +3500,9 @@ constructor TDwarfCompilationUnit.Create(AOwner: TFpDwarfInfo; ADataOffset: QWor
HeaderLength := LNP32^.HeaderLength;
Info := @LNP32^.Info;
end;
if Version=0 then ;
FLineInfo.DataStart := PByte(Info) + HeaderLength;
FLineInfo.MinimumInstructionLength := Info^.MinimumInstructionLength;
FLineInfo.DefaultIsStmt := Info^.DefaultIsStmt <> 0;
FLineInfo.LineBase := Info^.LineBase;
@ -4194,7 +4195,8 @@ initialization
FPDBG_DWARF_VERBOSE_LOAD := DebugLogger.FindOrRegisterLogGroup('FPDBG_DWARF_VERBOSE_LOAD' {$IFDEF FPDBG_DWARF_VERBOSE_LOAD} , True {$ENDIF} );
FPDBG_DWARF_SEARCH := DebugLogger.FindOrRegisterLogGroup('FPDBG_DWARF_SEARCH' {$IFDEF FPDBG_DWARF_SEARCH} , True {$ENDIF} );
// Target data anormalities
FPDBG_DWARF_DATA_WARNINGS := DebugLogger.FindOrRegisterLogGroup('FPDBG_DWARF_DATA_WARNINGS' {$IFDEF FPDBG_DWARF_DATA_WARNINGS} , True {$ENDIF} );
//FPDBG_DWARF_DATA_WARNINGS :=
DebugLogger.FindOrRegisterLogGroup('FPDBG_DWARF_DATA_WARNINGS' {$IFDEF FPDBG_DWARF_DATA_WARNINGS} , True {$ENDIF} );
finalization
FreeAndNil(TheDwarfSymbolClassMapList);

2
components/fpdebug/fpdbgwinextra.pp
View File

@ -92,9 +92,11 @@ begin
end;
function GetLastErrorText(AErrorCode: Cardinal): String;
{$ifdef windows}
var
R: cardinal;
Temp: PChar;
{$endif}
begin
{$ifdef windows}
Temp := nil;