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

fpdebug: clean up

Browse Source 
git-svn-id: trunk@62108 -
This commit is contained in:
mattias 2019-10-22 15:10:12 +00:00
parent a6f129c936
commit d0e20a7e06
5 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -702,8 +702,6 @@ end;
function TFpSymbolDwarfFreePascalTypePointer.DoReadDataSize(
const AValueObj: TFpValue; out ADataSize: TFpDbgValueSize): Boolean;
var
Size: TFpDbgValueSize;
begin
if Kind = skClass then begin
// TODO: get/adjust a value object to have the deref address // see ConstRefOrExprFromAttrData
@ -942,8 +940,6 @@ end;
function TFpValueDwarfFreePascalArray.DoGetMainStride(out
AStride: TFpDbgValueSize): Boolean;
var
ExtraStride: TFpDbgValueSize;
begin
if (TFpDwarfFreePascalSymbolClassMapDwarf3(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion >= $030300)
then

1
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -1137,7 +1137,6 @@ end;
function TDbgLinuxProcess.WaitForDebugEvent(out ProcessIdentifier, ThreadIdentifier: THandle): boolean;
var
PID: THandle;
ThreadWithEvent: TDbgLinuxThread;
begin
ThreadIdentifier:=-1;
ProcessIdentifier:=-1;

4
components/fpdebug/fpdbgsymbols.pas
View File

@ -51,10 +51,10 @@ procedure AddSymbols(AParent: TFpSymbol; AModule: THandle);
implementation
{$ifdef windows}
var
DBG_WARNINGS, FPDBG_DWARF_VERBOSE_LOAD: PLazLoggerLogGroup;
{$ifdef windows}
procedure AddSymbols(AParent: TFpSymbol; AModule: THandle);
var
ModulePtr: Pointer;
@ -248,7 +248,9 @@ end;
{$endif}
initialization
{$ifdef windows}
DBG_WARNINGS := DebugLogger.FindOrRegisterLogGroup('DBG_WARNINGS' {$IFDEF DBG_WARNINGS} , True {$ENDIF} );
FPDBG_DWARF_VERBOSE_LOAD := DebugLogger.FindOrRegisterLogGroup('FPDBG_DWARF_VERBOSE_LOAD' {$IFDEF FPDBG_DWARF_VERBOSE_LOAD} , True {$ENDIF} );
{$endif}
end.

2
components/fpdebug/fpdbgwinextra.pp
View File

@ -157,8 +157,6 @@ uses
function GetLastErrorText: String;
var
i: DWORD;
begin
{$ifdef windows}
i := GetLastError;

4
components/fpdebug/fppascalparser.pas
View File

@ -1591,9 +1591,6 @@ end;
{ TFpPascalExpressionPartConstantText }
function TFpPascalExpressionPartConstantText.DoGetResultValue: TFpValue;
var
f: Extended;
s: String;
begin
//s := GetText;
Result := TFpValueConstString.Create(FValue);
@ -3083,7 +3080,6 @@ end;
function TFpPascalExpressionPartOperatorOr.DoGetResultValue: TFpValue;
var
tmp1, tmp2: TFpValue;
op: Boolean;
begin
Result := nil;
if Count <> 2 then exit;