paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:56:00 +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( function TFpSymbolDwarfFreePascalTypePointer.DoReadDataSize(
const AValueObj: TFpValue; out ADataSize: TFpDbgValueSize): Boolean; const AValueObj: TFpValue; out ADataSize: TFpDbgValueSize): Boolean;
var
Size: TFpDbgValueSize;
begin begin
if Kind = skClass then begin if Kind = skClass then begin
// TODO: get/adjust a value object to have the deref address // see ConstRefOrExprFromAttrData // TODO: get/adjust a value object to have the deref address // see ConstRefOrExprFromAttrData
@ -942,8 +940,6 @@ end;
function TFpValueDwarfFreePascalArray.DoGetMainStride(out function TFpValueDwarfFreePascalArray.DoGetMainStride(out
AStride: TFpDbgValueSize): Boolean; AStride: TFpDbgValueSize): Boolean;
var
ExtraStride: TFpDbgValueSize;
begin begin
if (TFpDwarfFreePascalSymbolClassMapDwarf3(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion >= $030300) if (TFpDwarfFreePascalSymbolClassMapDwarf3(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion >= $030300)
then then

1
components/fpdebug/fpdbglinuxclasses.pas
View File

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

4
components/fpdebug/fpdbgsymbols.pas
View File

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

2
components/fpdebug/fpdbgwinextra.pp
View File

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

4
components/fpdebug/fppascalparser.pas
View File

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