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

fix some warnings

Browse Source 
git-svn-id: trunk@46906 -
This commit is contained in:
martin 2014-11-20 16:27:55 +00:00
parent fb8000de63
commit 56a4a31450
4 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgwinclasses.pas
View File

@ -73,7 +73,7 @@ type
TDbgWinBreakpointEvent = procedure(const ASender: TDbgBreakpoint; const AContext: TContext) of object; TDbgWinBreakpointEvent = procedure(const ASender: TDbgBreakpoint; const AContext: TContext) of object;
TDbgWinBreakpoint = class(TDbgBreakpoint) TDbgWinBreakpoint = class(TDbgBreakpoint)
protected public
procedure SetBreak; override; procedure SetBreak; override;
procedure ResetBreak; override; procedure ResetBreak; override;
end; end;
@ -520,11 +520,9 @@ function TDbgWinProcess.AnalyseDebugEvent(AThread: TDbgThread): TFPDEvent;
const const
PARAMCOLS = 12 - SizeOf(Pointer); PARAMCOLS = 12 - SizeOf(Pointer);
var var
N: Integer;
Info0: QWORD; Info0: QWORD;
Info1: QWORD; Info1: QWORD;
Info1Str: String; Info1Str: String;
P: PByte;
ExInfo32: TExceptionDebugInfo32 absolute AEvent.Exception; ExInfo32: TExceptionDebugInfo32 absolute AEvent.Exception;
ExInfo64: TExceptionDebugInfo64 absolute AEvent.Exception; ExInfo64: TExceptionDebugInfo64 absolute AEvent.Exception;
begin begin

2
components/fpdebug/fpdmemorytools.pas
View File

@ -393,7 +393,7 @@ begin
Result := 0; Result := 0;
end; end;
function EmptyMemReadOpts: TFpDbgMemReadOptions; function {%H-}EmptyMemReadOpts: TFpDbgMemReadOptions;
begin begin
// //
end; end;

2
components/fpdebug/fpimgreaderelf.pas
View File

@ -342,7 +342,7 @@ var
SymbolArr32: PElf32symbolArray; SymbolArr32: PElf32symbolArray;
SymbolArr64: PElf64symbolArray; SymbolArr64: PElf64symbolArray;
SymbolStr: pointer; SymbolStr: pointer;
i,j: integer; i: integer;
SymbolCount: integer; SymbolCount: integer;
SymbolName: AnsiString; SymbolName: AnsiString;
begin begin

2
components/fpdebug/fppascalparser.pas
View File

@ -1019,7 +1019,7 @@ end;
function TFpPascalExpressionPartBracketIndex.DoGetResultValue: TFpDbgValue; function TFpPascalExpressionPartBracketIndex.DoGetResultValue: TFpDbgValue;
var var
TmpVal, TmpVal2, TmpIndex, TmpDeref: TFpDbgValue; TmpVal, TmpVal2, TmpIndex: TFpDbgValue;
i: Integer; i: Integer;
Offs: Int64; Offs: Int64;
ti: TFpDbgSymbol; ti: TFpDbgSymbol;